Menu
What's new
UOGamers Community

This is a sample guest message. Register a free account today to become a member! Once signed in, you'll be able to participate on this site by adding your own topics and posts, as well as connect with other members through your own private inbox!

  • To obtain new Razor updates, please reinstall Razor from our new website.

Alchemy Crafting Macro

MB

MB

Knight
Here's my Allchemy™ macro I use to make potions. If I put black pearl in my box, refresh spits out. If I put sulfurous ash, explosion spits out. Need cures, strength and agility potions? Just drop garlic, mandrake root and blood moss into your box. Might take you a little bit to set it up, but once you do, it's easy sailing.

You need a character with Tinkering and Alchemy for this to work.

Your Restock Agent 5 must contain the following:
100 Black Pearl
100 Mandrake Root
100 Sulfurous Ash
99 Blood Moss
96 Garlic
98 Ginsing
96 Nightshade
100 Empty Bottles
20 Ingots
30 Eggs
100 Grave Dust
100 Pig Iron

To your display counter, you must add tool kits as "kit". You must add mortar & pestle as "mortar". Have everything in your restock agent also in counters.


The macro is below. Retarget the restock agent onto your supply box (blue) and redo the drag drops onto your box (red).

Allchemy said:
!Loop
Assistant.Macros.IfAction|50|0|3|kit
Assistant.Macros.DoubleClickTypeAction|7864|True
Assistant.Macros.WaitForGumpAction|949095101|False|1
Assistant.Macros.GumpResponseAction|8|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|1
Assistant.Macros.GumpResponseAction|23|0|0
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|0|5|mortar
Assistant.Macros.ForAction|5
Assistant.Macros.DoubleClickTypeAction|7864|True
Assistant.Macros.WaitForGumpAction|949095101|False|1
Assistant.Macros.GumpResponseAction|8|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|1
Assistant.Macros.GumpResponseAction|9|0|0
Assistant.Macros.EndForAction
Assistant.Macros.EndIfAction
Assistant.Macros.HotKeyAction|0|Restock Agent-5
Assistant.Macros.AbsoluteTargetAction|0|0|1095404174|1176|2790|11|3651
Assistant.Macros.PauseAction|00:00:04
Assistant.Macros.IfAction|50|1|5|Black Pearl
Assistant.Macros.ForAction|20
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|1|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|9|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3851|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|3|Blood Moss
Assistant.Macros.ForAction|33
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|8|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|9|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3848|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|5|Mandrake Root
Assistant.Macros.ForAction|20
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|29|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|9|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3849|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|6|Garlic
Assistant.Macros.ForAction|16
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|300
Assistant.Macros.GumpResponseAction|43|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|300
Assistant.Macros.GumpResponseAction|16|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3847|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|7|Ginseng
Assistant.Macros.ForAction|14
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|2
Assistant.Macros.GumpResponseAction|22|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|300
Assistant.Macros.GumpResponseAction|16|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3852|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|8|Nightshade
Assistant.Macros.ForAction|12
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|2
Assistant.Macros.GumpResponseAction|36|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|2
Assistant.Macros.GumpResponseAction|23|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3850|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|10|Grave Dust
Assistant.Macros.ForAction|10
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|57|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.GumpResponseAction|9|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|3
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3846|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|10|Sulfurous Ash
Assistant.Macros.ForAction|10
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|1
Assistant.Macros.GumpResponseAction|50|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|1
Assistant.Macros.GumpResponseAction|16|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3853|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|3|egg
Assistant.Macros.ForAction|30
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|2
Assistant.Macros.GumpResponseAction|50|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|2
Assistant.Macros.GumpResponseAction|23|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|10248|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|1|10|Pig Iron
Assistant.Macros.ForAction|10
Assistant.Macros.DoubleClickTypeAction|3739|True
Assistant.Macros.WaitForGumpAction|949095101|False|300
Assistant.Macros.GumpResponseAction|57|0|0
Assistant.Macros.WaitForGumpAction|949095101|False|300
Assistant.Macros.GumpResponseAction|23|0|0
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndForAction
Assistant.Macros.LiftTypeAction|3846|100
Assistant.Macros.DropAction|0x414A8A8E|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Click to expand...
 
MB

MB

Knight
'Allchemy Restock' organizer, Complete and Stack with:
100 Black Pearl
100 Mandrake Root
100 Sulfurous Ash
99 Blood Moss
96 Garlic
96 Nightshade
100 Empty Bottle
20 Ingots
30 Eggs
100 Pig Iron
100 Grave Dust
96 Ginseng

'Allchemy Completed' organizer, Complete and Stack with:
Red, Orange, Yellow, White, Blue, Purple, Green, Black Potions and smoke bomb with All amount


Macro assumes you have Tinkering and Alchemy

//makes potion corresponding to the reg you put in the box
if not @findobject 'Allchemy Restock Container'
promptalias 'Allchemy Restock Container'
endif
if not @findobject 'Allchemy Completed Container'
promptalias 'Allchemy Completed Container'
endif
// kits
while @counttype 0x1eb8 0 'backpack' < 5
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 15000
endwhile
// mortars
while @counttype 0xe9b 0 'backpack' < 5
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 15000
endwhile
// restock
organizer 'Allchemy Restock' 'Allchemy Restock Container' 'backpack'
while organizing
endwhile
// refresh
while counttype 0xf7a 0 'backpack' > 4 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 1
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 15000
endwhile
// agility
while counttype 0xf7b 0 'backpack' > 2 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 15000
endwhile
// strength
while counttype 0xf86 0 'backpack' > 4 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 29
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 15000
endwhile
// cure
while counttype 0xf84 0 'backpack' > 5 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 43
waitforgump 0x38920abd 15000
replygump 0x38920abd 16
waitforgump 0x38920abd 15000
endwhile
// smoke bomb
while counttype 0x9b5 0 'backpack' > 0 and counttype 0xf85 0 'backpack' > 2
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 50
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 15000
endwhile
// heal
while counttype 0xf85 0 'backpack' > 6 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 22
waitforgump 0x38920abd 15000
replygump 0x38920abd 16
waitforgump 0x38920abd 15000
endwhile
// dpoison
while counttype 0xf88 0 'backpack' > 7 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 36
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 15000
endwhile
// conflagration
while counttype 0xf8f 0 'backpack' > 9 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 57
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 15000
endwhile
// explosion
while counttype 0xf8c 0 'backpack' > 9 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 50
waitforgump 0x38920abd 15000
replygump 0x38920abd 16
waitforgump 0x38920abd 15000
endwhile
// confusion
while counttype 0xf8a 0 'backpack' > 9 and counttype 0xf0e 0 'backpack' > 0
usetype! 0xe9b
waitforgump 0x38920abd 15000
replygump 0x38920abd 57
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 15000
endwhile
//check to stop macro
if counttype 0xf0c 0 'backpack' < 1 and counttype 0xf0b 0 'backpack' < 1
if counttype 0xf07 0 'backpack' < 1 and counttype 0xf09 0 'backpack' < 1
if counttype 0xf08 0 'backpack' < 1 and counttype 0xf0d 0 'backpack' < 1
if counttype 0xf06 1161 'backpack' < 1 and counttype 0xf06 1165 'backpack' < 1
if counttype 0xf0a 0 'backpack' < 1 and counttype 0x2808 0 'backpack' < 1
sysmsg 'Out of Supplies' 33
stop
endif
endif
endif
endif
endif
// move completed
organizer 'Allchemy Completed' 'backpack' 'Allchemy Completed Container'
while organizing
endwhile
 
Last edited:
Ortiz

Ortiz

Sorceror
Is there a way to remove the need for tinkering? I would like to just have like 50 mortars on me or have it just retock the mortars from the restock box.
 
MB

MB

Knight
remove


// kits
while @counttype 0x1eb8 0 'backpack' < 5
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 15000
endwhile
// mortars
while @counttype 0xe9b 0 'backpack' < 5
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 15000
endwhile
 
riddick89

riddick89

Sorceror
after my attempts to use the script i keep getting the same error any idea what might cause this?

upload_2015-7-1_0-36-11.png
 

Attachments

  • upload_2015-7-1_0-35-8.png
    upload_2015-7-1_0-35-8.png
    881.9 KB · Views: 1
MB

MB

Knight
I fixed, was missing an endif. You don't have Allchemy Restock configured right though
 
riddick89

riddick89

Sorceror
sorry for the trouble but now every time it go's to run the 'Allchemy Completed' organizer if just moves the pot around in my pack. but as soon as i stop the macro and set the chest it needs to put in and just hit play on the organizer it go's into the chest just fine.
 
You must log in or register to reply here.
Top