Ultimate *Restock Potions* without butler **version 2.1 update**

baddie

baddie

Master
this macro will take 1-2 minutes to permanently configure, as you MUST object inspect your kegs for the colors they are dyed and enter them in. very detailed instructions at every step for doing this is provided, just read all the //notes.

i also added bandages, arrows, and deadly poisons, but left their default quantities at 0. if you have a request for some other item and aren't sure how to add it yourself, let me know and i'll add it in for you.

you have to put all your kegs into one container, i'd recommend keeping em lined up and neat like this so you can inspect and see how full your kegs are.

nNrtn1W.png


edit: version 2.0 now stores empty kegs and continues macro, and fixed a bug where only some characters wouldn't store empty bottles at the end.

Code: 
//by baddie, version 2.1
//Place all your kegs into one container
//Have a separate container for macro to store empty kegs- cannot be within Keg Container
//KEGS MUST BE DYED IN MATCHING COLORS ACCORDING TO TYPE
//Object inspect your kegs and replace the color number for each of the potion types below, additional details listed at every step. Will take a couple minutes to setup, but really simple.
//Have enough empty bottles in the keg container, as the macro will pull when needed and store any leftover
//Bandages is also listed, but the default is 0 until you change it.
//Remember to click SAVE after you make your edits
headmsg '╪≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡╪ ' '28'
headmsg ' Restocking Potions ' 88
headmsg '╪≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡╪ ' '28'
clearjournal
canceltarget
pause 700
if not @findalias 'keg container' or not @findobject 'keg container'
headmsg 'Select Keg Container' 88
promptalias 'keg container'
endif
if not @findalias 'empty keg container' or not @findobject 'empty keg container'
headmsg 'Select Empty Keg Container' 88
promptalias 'empty keg container'
endif
//
//GREATER STRENGTH POTIONS
//Change "10" to whatever quantity you want
if counttype 0xf09 0 'self' >= 10
else
//OBJECT INSPECT YOUR KEG AND REPLACE 906 WITH YOUR GREATER STRENGTH KEGS' COLOR
if findtype 0x1940 906 'keg container' 'any' 1
useobject 'found'
else
headmsg 'Out of Strength Kegs!' 33
stop
endif
if @injournal "The keg is empty" 'system'
pause 1000
moveitem 'found' 'empty keg container'
endif
if @injournal 'Where is a' 'system'
canceltarget
pause 700
movetype 0xf0e 'keg container' 'self' 44 74 0 0 100 2
endif
replay
endif
//
//GREATER AGILITY POTIONS
//Change "10" to whatever quantity you want
if counttype 0xf08 0 'self' >= 10
else
//OBJECT INSPECT YOUR GREATER AGILITY KEG AND REPLACE 96 WITH YOUR GREATER AGILITY KEGS' COLOR
if findtype 0x1940 96 'keg container' 'any' 1
useobject 'found'
else
headmsg 'Out of Agility Kegs!' 33
stop
endif
if @injournal "The keg is empty" 'system'
pause 1000
moveitem 'found' 'empty keg container'
endif
if @injournal 'Where is a' 'system'
canceltarget
pause 700
movetype 0xf0e 'keg container' 'self' 44 74 0 0 100 2
endif
replay
endif
//
//GREATER REFRESHMENT POTIONS
//Change "20" to whatever quantity you want
if counttype 0xf0b 0 'self' >= 20
else
//OBJECT INSPECT YOUR KEG AND REPLACE 33 WITH YOUR GREATER REFRESHMENT KEGS' COLOR
if findtype 0x1940 33 'keg container' 'any' 1
useobject 'found'
else
headmsg 'Out of Refresh Kegs!' 34
stop
endif
if @injournal "The keg is empty" 'system'
pause 1000
moveitem 'found' 'empty keg container'
endif
if @injournal 'Where is a' 'system'
canceltarget
pause 700
movetype 0xf0e 'keg container' 'self' 44 74 0 0 100 2
endif
replay
endif
//
//GREATER HEAL POTIONS
//Change "10" to whatever quantity you want
if counttype 0xf0c 0 'self' >= 10
else
//OBJECT INSPECT YOUR GREATER HEAL KEG AND REPLACE 56 WITH YOUR GREATER HEAL KEGS' COLOR
if findtype 0x1940 56 'keg container' 'any' 1
useobject 'found'
else
headmsg 'Out of Heal Kegs!' 33
stop
endif
if @injournal "The keg is empty" 'system'
pause 1000
moveitem 'found' 'empty keg container'
endif
if @injournal 'Where is a' 'system'
canceltarget
pause 700
movetype 0xf0e 'keg container' 'self' 44 74 0 0 100 2
endif
replay
endif
//
//GREATER CURE POTIONS
//Change "15" to whatever quantity you want
if counttype 0xf07 0 'self' >= 15
else
//OBJECT INSPECT YOUR GREATER CURE KEG AND REPLACE 46 WITH YOUR GREATER CURE KEGS' COLOR
if findtype 0x1940 46 'keg container' 'any' 1
useobject 'found'
else
headmsg 'Out of Cure Kegs!' 33
stop
endif
if @injournal "The keg is empty" 'system'
pause 1000
moveitem 'found' 'empty keg container'
endif
if @injournal 'Where is a' 'system'
canceltarget
pause 700
movetype 0xf0e 'keg container' 'self' 44 74 0 0 100 2
endif
replay
endif
//
//DEADLY POISON POTIONS
//Change "0" (the one after the ">=" sign) to whatever quantity you want
if counttype 0xf0a 0 'self' >= 0
else
//OBJECT INSPECT YOUR DEADLY POISON KEG AND REPLACE 71 WITH YOUR DEADLY POISON KEGS' COLOR
if findtype 0x1940 71 'keg container' 'any' 1
useobject 'found'
else
headmsg 'Out of Poison Kegs!' 33
stop
endif
if @injournal "The keg is empty" 'system'
pause 1000
moveitem 'found' 'empty keg container'
endif
if @injournal 'Where is a' 'system'
canceltarget
pause 700
movetype 0xf0e 'keg container' 'self' 44 74 0 0 100 2
endif
replay
endif
//
//GREATER EXPLOSION POTIONS
//Change "0" (the one after the ">=" sign) to whatever quantity you want
if counttype 0xf0d 0 'self' >= 0
else
//OBJECT INSPECT YOUR GREATER EXPLOSION KEG AND REPLACE 71 WITH YOUR GREATER EXPLOSION KEGS' COLOR
if findtype 0x1940 71 'keg container' 'any' 1
useobject 'found'
else
headmsg 'Out of Explosion Kegs!' 33
stop
endif
if @injournal "The keg is empty" 'system'
pause 1000
moveitem 'found' 'empty keg container'
endif
if @injournal 'Where is a' 'system'
canceltarget
pause 700
movetype 0xf0e 'keg container' 'self' 44 74 0 0 100 2
endif
replay
endif
//
//BANDAGES
//
//Change "0" to quantities divisible by 25 (ie., 50, or 100, or 175, etc...)
if counttype 0xe21 'any' 'self' >= 0
else
if @findtype '0xe21' 'any' 'keg container' '25' 2
movetype 0xe21 'keg container' 'self' 44 74 0 'any' '25' 2
replay
else
headmsg 'Out of bandages' 33
endif
endif
//
//ARROWS
//
//Change "0" to quantities divisible by 25 (ie., 50, or 100, or 175, etc...)
if counttype 0xf3f 'any' 'self' >= 0
else
if @findtype '0xf3f' 'any' 'keg container' '25' 2
movetype 0xf3f 'keg container' 'self' 44 74 0 'any' '25' 2
replay
else
headmsg 'Out of arrows' 33
endif
endif
pause 600
//store empty bottles
if @findtype '0xf0e' 'any' 'backpack' 'any' 2
movetype 0xf0e 'backpack' 'keg container' 44 74 0 0 'any' 2
endif
if graphic 'self' == 401
msg '[e giggle'
pause 100
else
msg '[e yea'
pause 100
endif
headmsg 'Ready' 5
headmsg 'For' 22
headmsg 'Battle!' 33
 
Last edited:
baddie

baddie

Master
version 2.0 minor bug fix and now auto stores empty kegs to continue macro!

i have a personal version that temporarily auto stores weapons, runs [organizeme, and pulls the weapons back into backpack so that there's no weapons sort bag. let me know if you want help setting something like this up. ezpz

report problems and let me know if you have any questions!
 
Last edited:
baddie

baddie

Master
2.1 only replaces the "playmacro" command with "replay," allowing you to save the macro multiple times with different quantities easier and letting you name the macro whatever you want.

troubleshooting from my own experience:

"the macro will keep filling up a certain pot to infinity!"
you accidentally filled one of the kegs with the wrong type of potion.

"the macro says i'm out of kegs, but i still see two left and filled in the container!"
those kegs are not the exact hue as the other kegs, if you object inspect them they'll show a different number. redye those ones.

tip, use:

autocolorpick 33

as a single, one line macro to dye a dye tub a particular color according to a number. change 33 to whatever color number you want, play macro, click dyes, then dye tub.
 
Last edited:
You must log in or register to reply here.
Top