Turbo help

gingertips · Post by **gingertips** » Mon Jul 08, 2002 6:22 am

Been using bearfillet.mac made by Rookie - works a treat. making around 220pp per hr. so tried to include #turbo, but it locks the client - where should i be looking to put delays into the macro?

van · Post by **van** » Mon Jul 08, 2002 8:45 am

you have to change it.. read the post about the new build... says you have to chaneg it or it will lock up on you..

gingertips · Post by **gingertips** » Mon Jul 08, 2002 9:57 am

yeah I know m8 - thats y I put where is best place to put the /delays!!!

I will try out a few places & see how it goes! Will post success in the same thread...

GD · Post by GD » Mon Jul 08, 2002 10:14 am

You will need to put a /delay # or a /doevents whereever a loop is encountered.

Example, if you had the following:

Code: Select all

	:SampleLoop
		/if "$cursor()"!="TRUE" /goto :SampleLoop
		/click left auto

You'd change it to something like:

Code: Select all

	:SampleLoop
		/doevents
		/if "$cursor()"!="TRUE" /goto :SampleLoop
		/click left auto

van · Post by **van** » Mon Jul 08, 2002 12:22 pm

got that will teach me to post before i wake up sorry i didnt look at the post enough.

laeaeb · Post by **laeaeb** » Mon Jul 08, 2002 4:51 pm

this is my edited turbo enabled bear macro

- Cheese.mac - Renamed to fillet.mac
| * Original by Plazmic *
| * Edited by Yocals, Mon Jun 24, 2002 11:42 pm*
| * Edited by Zeltren, Tue Jun 25, 2002 3:26 pm*
| * Edited By OgreB Whenever
#turbo

Sub Main
/filter skills increase
/filter food off
/filter money off
/filter target off

/stand

/mqlog
/varcalc v50 $char(plat)*10+$char(gold)
/varset t0 3000
/call FindCombiner Baking
/if $return==99 /endmacro
/varset v80 $return
/echo Will now start to make money, you started with $v50gp

| make sure loop is running right
:Loopsub
/varset v37 1
/call Loopsub
/echo Panic
/goto :Loopsub
/return

sub Loopsub
:LOOPSTART
/delay 0
/sendkey
/press esc
/press esc
/press esc
/sendkey up shift
/cleanup

/sendkey down shift
/click left auto
/click right inv $v80
/finditem "Filleting Knife"
/click left auto
/sendkey up shift
/if $pack($v80,empty)==FALSE /call CleanPack
/sendkey down ctrl
/call MakeCheese
/sendkey up ctrl
/press esc
/press esc
/press esc
/varset v37 0
/call SellBuy
/if $t0==0 /call LogStats
/goto :LOOPSTART
/endmacro
/return

Sub CleanPack
/delay 0
/if $pack($v80,open)==FALSE /click right inv $v80
/varcalc v2 $pack($v80,slots)-1
/sendkey down shift
/for v1 0 to $v2
/click left pack $v80 $v1
/click left auto
/next v1
/sendkey up shift
/return

Sub MakeCheese

:MakeCheese
/finditem "Bear Meat"
/click left pack $v80 0
/finditem "Filleting Knife"
/click left pack $v80 1
/if $cursor(value)!=NULL /goto :AutoDropFillet
/if $find()==FALSE /endmacro
/if "$item($v80,0,name)"=="Bear Meat" /if "$item($v80,1,name)"=="Filleting Knife" /goto oCombine
/return
oCombine
/click left pack $v80 combine
/delay 0
:AutoDropFillet
/doevents
/if $cursor(value)!=342 /click left auto
/if $cursor(value)!=342 /goto :AutoDropFillet
/if $cursor(value)==342 /click left auto
/goto :MakeCheese
/return

Sub SellBuy
/if n $v37!=0 /call Loopsub
| Open merchant
/click left auto
| PANIC if holding item!
/if $cursor(value)!=NULL /goto :ITEMINHAND
/target Mordin
/face
/mouseto merchant buy
/press u
/press u
/press u
/delay 30

/sendkey down shift

| Sell our cheese
:SellFillet
/varset v98 $char(gold)
/varset v55 $char(silver)
/varset v56 $char(copper)
/finditem "Filleted Bear"
/if $find()==FALSE /goto :SellBear Meat
/click left merchant buy
/delay 1
:WaitSale
/doevents
/if n $v98!=$char(gold) /goto :SellFillet
/if n $v55!=$char(silver) /goto :SellFillet
/if n $v56!=$char(copper) /goto :SellFillet
/goto :WaitSale

| Sell our Bear Meat
:SellBear Meat
/varset v98 $char(gold)
/varset v55 $char(silver)
/varset v56 $char(copper)
/finditem "Bear Meat"
/if $find()==FALSE /goto oneSelling
/click left merchant buy
/delay 1
:WaitSale3
/doevents
/if n $v98!=$char(gold) /goto :SellBear Meat
/if n $v55!=$char(silver) /goto :SellBear Meat
/if n $v56!=$char(copper) /goto :SellBear Meat
/goto :WaitSale3

oneSelling

| Buy Bear Meats
/delay 0
/click left merchant 11
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem
/call BuyItem

/sendkey up shift
/mouseto auto
/varset v37 1
/return

Sub LogStats

| Calc profit in gold
/varcalc v51 $char(plat)*10+$char(gold)-$v50

| calc plat/hr
/varcalc v52 $v51*360/$running

| Plat
/varcalc v53 $v51/10

| left over gold
/varcalc v54 $v51%10

/echo Profit: $v53.$v54pp, avg: $v52pp/hr
/mqlog Run time: $running sec, Profit: $v53.$v54pp, Average = $v52pp/hr

/varset t0 3000

/return

Sub FindCombiner
/varset p2 99
/for v99 0 to 7
/if "$pack($v99,combine)"=="$p0" /varset p2 $v99
/next v99
/if $p2==99 /echo You do not seem to have a valid $p0 container.
/return $p2

Sub BuyItem
/varset v98 $char(gold)
/varset v55 $char(silver)
/varset v56 $char(copper)
/click left merchant buy
/delay 1
:WaitBuy
/doevents
/if n $v98!=$char(gold) /goto :Waitend
/if n $v55!=$char(silver) /goto :Waitend
/if n $v56!=$char(copper) /goto :Waitend
/goto :WaitBuy
:Waitend
/return

L124RD · Post by **L124RD** » Mon Jul 08, 2002 5:16 pm

Salutations,

Code: Select all

Sub MakeCheese

:MakeCheese
/finditem "Bear Meat"

gingertips · Post by **gingertips** » Tue Jul 09, 2002 8:06 am

okies - will try it out - thats pretty clear - use whenever theres a loop! thx all for your help.

I guess my main slowdown is due to GM check, but I like it - it has kicked in on 3 ocassions (so at least it works!!!)