Ok guys, here it is. It's not finished but provided you have VoA, then you'll be fine. It still has the following issues that I will address when I get time and have more knowledge of the code. Kudos goes to Maskoi for helping me fix some of the errors in my previous version.
Known Issues:
One: The macro isn't moving the stacks of ale from my bags to top level inventory (which in a few weeks or so won't matter) before clicking the crap out of it.
Two: You'll notice that the Fisherman's Companion and Brell's Fishin' Pole switch spots every time the macro summons the ale. (Doesn't affect performance)
Three: Due to not using docrack, it will spam the window telling you that you can't possibly become more intoxicated (or however it's worded). Could probably add an event or something to delay the macro upon getting this message.
Four: Does not automatically end macro once AT is capped.
Known Issues:
One: The macro isn't moving the stacks of ale from my bags to top level inventory (which in a few weeks or so won't matter) before clicking the crap out of it.
Two: You'll notice that the Fisherman's Companion and Brell's Fishin' Pole switch spots every time the macro summons the ale. (Doesn't affect performance)
Three: Due to not using docrack, it will spam the window telling you that you can't possibly become more intoxicated (or however it's worded). Could probably add an event or something to delay the macro upon getting this message.
Four: Does not automatically end macro once AT is capped.
Rich (BB code):
| Uberdrunk.mac by Dulak
| Usage /mac uberdrunk
| This is a completely self automated drinking macro. Will not stop until your
| alcohol tolerance.
| You will need 3 top level inventory slots open
| REQUIRES the clicky Fisherman's Companion
Sub main
/declare Clicky1 string outer Fisherman's Companion
/declare Clicky2 string outer Brell's Fishin' Pole
/declare Drink string outer Summoned: Ale
/goto :Clicky1
:Clicky1
/if (!${FindItem[${Clicky1}].InvSlot}) /goto :End2
/if (!${FindItem[${Clicky1}].InvSlot}>30) /goto :MoveClicky1
/if (!${InvSlot[Item.Name.Find[${Clicky1}]} && !${FindItem[${Clicky1}].Timer}) {
/casting "Fisherman's Companion"|item
/delay 12s
/autoinventory
}
/goto :Summon
:MoveClicky1
/keypress open_inv_bags
/delay 2s
/itemnotify ${FindItem[${Clicky1}].InvSlot} leftmouseup
/delay 2s ${Cursor.ID}
/autoinv
/delay 2s !${Cursor.ID}
/goto :Clicky1
:Summon
/if (!${Item.Name.Find[${Clicky2}]} && !${FindItem[${Clicky2}].Timer}) {
/casting "Brell's Fishin' Pole"|item
/delay 3s
/autoinventory
}
/if (${FindItem[${Drink}].StackCount} < 2) {
/goto :Summon
} else {
/goto :Loop
}
:Loop
/if (!${FindItem[=${Drink}].InvSlot}) /goto :Summon
/if (!${FindItem[=${Drink}].InvSlot}>30) /goto :MoveStack
/if (!${FindItem[=${Drink}].InvSlot}<33) /nomodkey /itemnotify ${FindItem[=${Drink}].InvSlot} rightmouseup
/if (!${Me.Skill[Alcohol Tolerance]} == ${Me.SkillCap[Alcohol Tolerance]}) {
/echo Alcohol Tolerance is at MAX (${Me.Skill[Alcohol Tolerance]})
/keypress close_inv_bags
/end
}
/goto :Loop
:MoveStack
/keypress open_inv_bags
/nomodkey /shift /itemnotify !${Item.Name.Find[${Drink}].InvSlot} leftmouseup
/delay 2s ${Cursor.ID}
/autoinv
/delay 2s !${Cursor.ID}
/if (${FindItem[${Drink}].InvSlot}>33) {
/echo You need another free primary Inventory Slot for this Macro to work.
/endm
}
/goto :Loop
:End
/echo Skill maxed for now.
/keypress close_inv_bags
/end
:End2
/echo Missing Fisherman's Companion...Ending Macro
/end
/return
Last edited:
