+- UO Lost Lands Forum (https://uolostlands.com/forum)
+-- Forum: General (https://uolostlands.com/forum/forumdisplay.php?fid=24)
+--- Forum: Guides (https://uolostlands.com/forum/forumdisplay.php?fid=13)
+--- Thread: Macro: Restocking Potions (/showthread.php?tid=1170)
Macro: Restocking Potions - Swunk - 10-03-2016
A counter for each potion type that you use is needed. The 'If ( "Potion count" <= ? )' lines should be set to 1 potion less than what you want to stock. I also have 'Auto-Queue Object Delay actions' in Razor checked as well as 'Object delay' set to 1000 ms. If a keg is depleted and I buy another I simply re-target the double click lines to the new keg. To begin I put 60 empty bottles in the bag I want my potions in. Enjoy!
Quote:If ( "Red Potion count" <= 9 )
Double Click (0x40C58B27)
Pause 1.00sec
End If
If ( "Blue Potion count" <= 4 )
Double Click (0x40572EEF)
Pause 1.00sec
End If
If ( "Yellow Potion count" <= 9 )
Double Click (0x40A73586)
Pause 1.00sec
End If
If ( "Orange Potion count" <= 14 )
Double Click (0x407EAC7D)
Pause 1.00sec
End If
If ( "White Potion count" <= 4 )
Double Click (0x40236230)
Pause 1.00sec
End If
If ( "Purple Potion count" <= 4 )
Double Click (0X40A8C40A)
Pause 1.00sec
End If
Code:
!Loop
Assistant.Macros.IfAction|50|0|9|Red Potion
Assistant.Macros.DoubleClickAction|1086688039|6464
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|0|4|Blue Potion
Assistant.Macros.DoubleClickAction|1079455471|6464
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|0|9|Yellow Potion
Assistant.Macros.DoubleClickAction|1084700038|6464
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|0|14|Orange Potion
Assistant.Macros.DoubleClickAction|1082043517|6464
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|0|4|White Potion
Assistant.Macros.DoubleClickAction|1076060720|6464
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|50|0|4|Purple Potion
Assistant.Macros.DoubleClickAction|1084802058|6464
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction