Moderator: MacroQuest Developers
Code: Select all
| - Celestial.mac -
|
| makes celestial essences with whatevers in your open bags. go figure. how cool. yaaaaaay.
| get solvents and scents of mars off vendors and go at it.
Sub Main
/declare combiner local
/call FindMortar "Mortar and Pestle"
|Since combiner is a local variable, use the value from $return
/if $return==99 /endmacro
/varset combiner $return
/echo found containter at slot @combiner
:MakeEssence
|/if $pack(@combiner,empty)==FALSE /call CleanPack
/delay 0
/sendkey down ctrl
/finditem "Celestial Solvent"
/if $find()==FALSE /goto :Done
/click left pack @combiner 0
/delay 3
/finditem "The Scent of Marr"
/if $find()==FALSE /goto :Done
/click left pack @combiner 1
/delay 3
/sendkey up ctrl
/click left pack @combiner combine
| it's a no fail combine, wait for the damn thing to be combined
:WaitCombine
/echo Waiting combine
/if "$cursor()"!="TRUE" /goto :WaitCombine
| clear the cursor of smurf poo
:ClearCursor
/click left auto
/if "$cursor()"=="TRUE" /goto :ClearCursor
/goto :MakeEssence
:Done
/sendkey up ctrl
/return
Sub FindMortar
/declare temp local
/declare counter local
/varset temp 99
/for counter 0 to 7
/if "$pack(@counter,name)"=="@Param0" /varset temp @counter
/next counter
/return @temp

Code: Select all
/click left pack @combiner combine
Code: Select all
/click left "pack @combiner" combine

Code: Select all
sub DoCombine
/click left @CombStr combine