Hi all,
This is my 1st time trying to modify/work on a exsisting Macro, so please bear with me. I tried using the Bear.mac (all 3 of them) under Bear.mac post but it wouldn't work at all for me. I decided to modify the exsisting Cheese.mac since it seemed to work so well.
If you try using this modified macro.
1. You need to have one stack of Bear meat first in your inventory.(hoping one the gurus can fix this for me)
2. You will need 50 slots, more or less. (figured the key to maximizing profit is less downtime buying)
Profit is around(this should be higher with less lag but i had all luclin and bells and whistles loaded):
[2002/06/04 03:25:55] Run time: 824 sec, Profit: 62.8pp, Average = 274pp/hr
[2002/06/04 03:32:48] Run time: 1237 sec, Profit: 94.2pp, Average = 274pp/hr
{Plazmic was here - and stuck this inside code tags}
Code: Select all
| - BearFillet.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 Rookie, Wed Jul 3, 2002 11:00 pm* Loop wait Blatantly Stolen from Imperfect
#chat tell
#chat say
#chat guild
Sub Main
/afk I am baking, I do not wish to be disturbed
/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 We had a subroutine PANIC, skiped one... so here we go back to the routines, maybe done by lag...
/goto :Loopsub
/return
sub Loopsub
:LOOPSTART
/sendkey
/press esc
/press esc
/press esc
/face loc -667,1796
/if $gm==TRUE /call Crap
/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
/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 :AutoDropCheese
/if $find()==FALSE /endmacro
/if "$item($v80,0,name)"=="Bear Meat" /if "$item($v80,1,name)"=="Filleting Knife" /goto :DoCombine
/return
:DoCombine
/click left pack $v80 combine
:AutoDropCheese
:LoopWait
/if "$cursor()"=="NULL" /goto :LoopWait
/if "$cursor(name)"=="Filleting Knife" /goto :Failed
/click left auto
:LoopFail
/if "$cursor()"=="NULL" /goto :LoopFail
:Failed
/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 Tall
/face
/mouseto auto
/mouseto merchant buy
/varset v38 $mouse(x)
:mousedelay
/press u
/press u
/press u
/mouseto merchant buy
/varset v39 $mouse(x)
/if $38==$39 /goto :mousedelay
/sendkey down shift
| This will save your arse instead of selling your EXPENSIVE ITEMS!!!
/goto :SellCheese
:ITEMINHAND
/echo ITEM IN HAND, PANIC!!!
/press ESC
/press ESC
/press ESC
/mqlog ITEM IN HAND, PANIC!!!
/sit
/endmacro
| Sell our cheese
:SellCheese
/varset v98 $char(gold)
/varset v55 $char(silver)
/varset v56 $char(copper)
/finditem "Filleted Bear"
/if $find()==FALSE /goto :DoneSelling
/click left merchant buy
:WaitSale
/if n $v98!=$char(gold) /goto :SellCheese
/if n $v55!=$char(silver) /goto :SellCheese
/if n $v56!=$char(copper) /goto :SellCheese
/goto :WaitSale
:DoneSelling
| Buy Bear Meat
/click left merchant 11
/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 Event_Chat
/if "$p1"!="Tall Joe" /goto :GotATell
/return
:GotATell
/if $p0==tell /mqlog $p0 from $p1: $p2
/if $p0==guild /mqlog $p0 from $p1: $p2
/if $gm==TRUE /if $p0==say /mqlog $p0 from $p1: $p2
/return
Sub Crap
/afk Sorry RL problems, need to log.
/cleanup
/mqlog GM in zone... camping
/sit
/reply Sorry RL problems, need to log.
/delay 20
/camp
/unload
/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
:WaitBuy
/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