Alchey Factory (automated multiple Potion Keg Filler)

Young Star

Grandmaster
i also make sure i open all the containers that i assign with the script just in case steam needs to see the contents before it can find items inside.
 

HowitzerUO

Neophyte
ya I keep them all open, everything works fine till I run out of regs, it wont pull the regs i have to place them manually
 

baddie

Master
Can anyone help update this to work again?
this version doesn't remove the aliases, making it easier to boot the macro up on repeated use. not sure why the old one wouldnt work, but this has been working for me
Code:
// $$$$$$$$ Alchey Factory $$$$$$$$
// $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
// ?? By Amonseti
// ?? V3.6
// ???????????????????????????????????????
// ?? Ultimate Alchemy pot maker
// ?? keg fill and dye, Organzer.
// ??
// ?? REQUIRMENTS:
// ?? This macro will first ask you to
// ?? make the first pot, and then will
// ?? continue filling kegs of that pot
// ?? type until resource supply is used
// ?? up, or there are no more empty kegs.
// ??  - Your will need 5 unique containers
// ??    !Please insure you can put and pull
// ??    items from each container.!
// ??    > 1st container containing supply of
// ??      Regs to make the pots.
// ??    > 2nd container should be your main
// ??      back pack, and is used by the macro
// ??      to work in.
// ??    > 3rd container is where all the empty
// ??      kegs are stored. (TIP: if you want to
// ??      only make 10 full kegs then just put
// ??      10 empty kegs in this container)
// ??    > 4th container is where the filled kegs
// ??      will be stored.
// ??    > 5th containers is where your failz go.
// ??      dont ask i just always make a trash bag k.
// ?? - Morters, lots of them. This macro will not refill
// ??   or make new morters. if you run out of morters
// ??   the macro will stop production.
// ?? - You will need a Furnature dye tub to paint
// ??   the kegs. (yes the macro will set the color
// ??   and do this all automagically for you)
// ?? - and of course some dyes , to color the dye silly!
// ??
// ?? Simply run the macro and follow the prompts.
// ??
// ?? Warning: the macro will not automate until the first potion is
// ??          Made Succesfully. you will know this once you see the
// ??          message prompt "Potion is set, one moment". Once you
// ??          see that message sit back watch some porn enjoy life!
// ???????????????????????????????????????/##############################################################################
// Initial set up of vars
//
//
clearlist 'PotionList'

clearlist 'PotionType'

//

@clearjournal

if not @findalias 'regBag' or not @findobject 'regBag'

promptalias 'regBag'

headmsg 'Select the Reg Bag' '49'

endif

pause 100

//

if not @findalias 'workingKegBag' or not @findobject 'workingKegBag'

promptalias 'workingKegBag'

headmsg 'Select the Working Keg Bag'' '49'

endif

pause 100

//

if not @findalias 'emptyKegBag' or not @findobject 'emptyKegBag'

promptalias 'emptyKegBag'

headmsg 'Select the Empty Keg Bag'' '49'

endif

pause 100

//

if not @findalias 'fullKegBag' or not @findobject 'fullKegBag'

promptalias 'fullKegBag'

headmsg 'Select the Full Keg Bag'' '49'

endif

pause 100

if not @findalias 'trashBag' or not @findobject 'trashBag'

promptalias 'trashBag'

headmsg 'Select the trash Bag'' '49'

endif

pause 600

//------------------

//------------------

if not listexists 'PotionList'

createlist 'PotionList'

endif

clearlist 'PotionList'

//...

@pushlist 'PotionList' 0xf07

@pushlist 'PotionList' 0xf0b

@pushlist 'PotionList' 0xf08

@pushlist 'PotionList' 0xf0c

@pushlist 'PotionList' 0xf09

@pushlist 'PotionList' 0xf0a

@pushlist 'PotionList' 0xf0d

//

for 0 to 'PotionList'

while @findtype 'PotionList[]' 'any' 'backpack'

headmsg '*sigh* doing some house cleaning first tsk tsk' '49'

pause 1500

moveitem found 'trashBag'

endwhile

endfor

//------------------

headmsg 'Please create the first potion manually.' '1272'

headmsg 'MAKE SURE YOU HAVE REGS' 33

//while not @ingump 0x38920abd 'You create'

//

if @findtype 0xe9b 'any' 'backpack'

useobject 'found'

pause 1000

else

msg '[e groan'

headmsg 'You need Morters in your main pack.' '37'

stop

endif

//

waitforgump 0x38920abd 15000

pause 1000

//

if @ingump 0x38920abd 'You do not have'

msg '[e groan'

headmsg 'You will need the proper regs to make the potion' '49'

//stop

endif

//

if @ingump 0x38920abd 'You create'

break

endif

//

//

//-----

//

headmsg 'Potion is set, one moment' '1272'

pause 3000

// !! init data

if not listexists 'PotionType'

createlist 'PotionType'

endif

clearlist 'PotionType'

/// !! Find potion type being made and set

//

if @findtype 0xf07 'any' 'backpack'

// set to cure

@pushlist 'PotionType' 0xf07 //cure potions

@pushlist 'PotionType' 0xf84 //Garlic

@pushlist 'PotionType' '43' //color

headmsg 'Making Cure Pots' '43'

elseif @findtype 0xf0b 'any' 'backpack'

// set to refresh

@pushlist 'PotionType' 0xf0b //refresh potions

@pushlist 'PotionType' 0xf7a //black peril

@pushlist 'PotionType' '133' //color

headmsg 'Making Refresh Pots' '133'

elseif @findtype 0xf08 'any' 'backpack'

// set to agility

@pushlist 'PotionType' 0xf08 //agility potions

@pushlist 'PotionType' 0xf7b //bloodmoss

@pushlist 'PotionType' '298' //color

headmsg 'Making Agility Pots' '298'

elseif @findtype 0xf0c 'any' 'backpack'

// set to Heal

@pushlist 'PotionType' 0xf0c //heal potions

@pushlist 'PotionType' 0xf85 //ginsing

@pushlist 'PotionType' '53' //color

headmsg 'Making Heal Pots' '53'

elseif @findtype 0xf09 'any' 'backpack'

// set to Strength

@pushlist 'PotionType' 0xf09 //strength potions

@pushlist 'PotionType' 0xf86 //mandrake

@pushlist 'PotionType' '991' //color

headmsg 'Making Strength Pots' '991'

elseif @findtype 0xf0a 'any' 'backpack'

// set to Poison

@pushlist 'PotionType' 0xf0a //poison potions

@pushlist 'PotionType' 0xf88 //nightshade

@pushlist 'PotionType' '64' //color

headmsg 'Making Poison Pots' '64'

elseif @findtype 0xf0d 'any' 'backpack'

// set to Explo

@pushlist 'PotionType' 0xf0d //Explo potions

@pushlist 'PotionType' 0xf8c //ash

@pushlist 'PotionType' '18' //color

headmsg 'Making OP Bombs' '18'

endif

//???????????????????????????????????

// Select first Keg:

// finds keg placed into pack from agent and

// moves it to the workingKegBag

//--------------------------------------------

if @findtype 0x1940 'any' 'emptyKegBag' 1 1

setalias 'targetKeg' 'found'

pause 600

moveitem 'targetKeg' 'workingKegBag'

else

if @findtype 0x1940 'any' 'backpack'

setalias 'targetKeg' 'found'

else

msg '[e groan'

headmsg 'There are no Kegs avalible.' '37'

stop

endif

endif

pause 600

//

autocolorpick 'PotionType[2]'

useobject! 'targetDyes'

waitfortarget 1000

target! 'targetDyetub'

pause 600

//

useobject! 'targetDyetub'

waitfortarget 1500

target! 'targetKeg'

pause 600

//##############################################################################

//##############################################################################

//

//!! <make potion code loop start >

while @findtype 0xe9b 'any' 'backpack'

@clearjournal

useobject 'found'

waitforgump 0x38920abd 15000

replygump 0x38920abd 21

pause 2000

if @ingump 0x38920abd 'You do not have'

headmsg 'Getting more Regs' '2708'

//&&&&

if @findtype 'PotionType[1]' 'any' 'regBag'

if @counttype 'PotionType[1]' 'any' 'regBag' < 300

moveitem 'found' 'backpack' 0 0 0

pause 600

else

moveitem 'found' 'backpack' 0 0 0 300

pause 600

endif

else

headmsg 'OUT OF REGS!'

stop

endif

//&&&&

endif

//

//

// Move newly created potion into targetKeg

//--------------------------------------------

while @findtype 'PotionType[0]' 'any' 'backpack'

@clearjournal

moveitem 'found' 'targetKeg'

pause 1500

if @injournal 'You decide that' 'system'

headmsg 'Wrong keg type for this potion. replacing'

// Replace wrong keg type with a new empty keg

moveitem 'targetKeg' 'trashBag'

pause 2500

if @findtype 0x1940 'any' 'emptyKegBag'

setalias 'targetKeg' 'found'

pause 600

moveitem 'targetKeg' 'workingKegBag'

pause 600

useobject! 'targetDyetub'

waitfortarget 1500

target! 'targetKeg'

pause 600

else

headmsg 'There are no more empty kegs'

stop

endif

elseif @injournal 'The keg will not' 'system'

headmsg 'Keg is full replacing with new keg'

// Replace full keg with a new empty keg

moveitem 'targetKeg' 'fullKegBag'

pause 2500

if @findtype 0x1940 'any' 'emptyKegBag'

setalias 'targetKeg' 'found'

pause 600

moveitem 'targetKeg' 'workingKegBag'

pause 600

useobject! 'targetDyetub'

waitfortarget 1500

target! 'targetKeg'

pause 600

else

headmsg 'There are no more empty kegs'

stop

endif

endif

endwhile

//!! <make potion code loop end here>

endwhile

//

headmsg 'ALL DONE!!'
 

Ms BabyDoll

Apprentice
anyone have a fix for this? i love it it worked for me for 11 kegs them boom all of a sudden now it says "out of regs" and stops
 
Top