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.
Alchey Factory (automated multiple Potion Keg Filler)
- Thread starter amonseti
- Start date
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
HowitzerUO
Neophyte
Can anyone help update this to work again?
baddie
Master
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
Ms BabyDoll
Apprentice
ok found the post just above me and tryng it out now
Owain Green
Journeyman
I cant get it to restock regs or unload full keg 
sad face
sad face