Brewing to 151 w/skill check

Macro depository for macros written before the user variable changes that broke all of them.

Moderator: MacroQuest Developers

Dirtface
a lesser mummy
a lesser mummy
Posts: 39
Joined: Tue Nov 12, 2002 2:43 am

Brewing to 151 w/skill check

Post by Dirtface » Thu Nov 14, 2002 12:14 am

This macro was ripped from the one below, only it was placed in three different macros. I combined the three and added a skill lvel check. Tested and works. Enjoy.
| - Brewing.mac -

#include routines.mac
#turbo

Sub Main
| Initialisation
/press ctrl
/press shift
/press alt


| Main Loop
/itemtarget Brew Barrel
/face item
/click left item
/varset v98 $char(skill,Brewing)
/if n $v98<45 /goto :Makeheady
/if n $v98<61 /goto :Makefishwine
/if n $v98<151 /goto :Makeskull
/goto :Done

:Makeheady
/sendkey down ctrl

/finditem "Packet of Kiola Sap"
/if $find()==FALSE /goto :Done
/click left enviro 0

/finditem "Packet of Kiola Sap"
/if $find()==FALSE /goto :Done
/click left enviro 1

/finditem "Water Flask"
/if $find()==FALSE /goto :Done
/click left enviro 2

/finditem "Bottle"
/if $find()==FALSE /goto :Done
/click left enviro 3

/sendkey up ctrl
/click left enviro combine

/if "$cursor()"=="TRUE" /goto :AutoDrop
/for v1 1 to 5
/delay 2
/if "$cursor()"=="TRUE" /goto :AutoDrop
/next v1

/goto :Makeheady

:AutoDrop
/click left auto
/doevents
/goto :Makeheady

:Done
/sendkey up ctrl

/click left enviro done

/return

:Makefishwine
/sendkey down ctrl

/finditem "Grapes"
/if $find()==FALSE /goto :Done
/click left enviro 0

/finditem "Fresh Fish"
/if $find()==FALSE /goto :Done
/click left enviro 1

/finditem "Water Flask"
/if $find()==FALSE /goto :Done
/click left enviro 2

/finditem "Bottle"
/if $find()==FALSE /goto :Done
/click left enviro 3

/sendkey up ctrl
/click left enviro combine

/if "$cursor()"=="TRUE" /goto :AutoDropwine
/for v1 1 to 5
/delay 2
/if "$cursor()"=="TRUE" /goto :AutoDropwine
/next v1

/goto :Makefishwine

:AutoDropwine
/click left auto
/doevents
/goto :Makefishwine

:Done
/sendkey up ctrl

/click left enviro done

/return

:Makeskull
/sendkey down ctrl

/finditem "Vinegar"
/if $find()==FALSE /goto :Done
/click left enviro 0

/finditem "Spices"
/if $find()==FALSE /goto :Done
/click left enviro 1

/finditem "Short Beer"
/if $find()==FALSE /goto :Done
/click left enviro 2

/finditem "Cyclops Skull"
/if $find()==FALSE /goto :Done
/click left enviro 3

/sendkey up ctrl
/click left enviro combine

/for v1 1 to 10
/delay 1
/if "$cursor()"=="TRUE" /goto :AutoDropAle
/next v1

/goto :Makeskull

:AutoDropAle
/if "$cursor(name)"=="Cyclops Skull" /goto :AutoDropSkull
/click left auto
/delay 1
/if "$cursor()"=="TRUE" /goto :AutoDropAle

:AutoDropSkull
/click left auto
/if "$cursor()"=="TRUE" /goto :AutoDropSkull
/doevents
/goto :Makeskull

:Done
/sendkey up ctrl

/click left enviro done

/return