Wiki page is started for this macro [[Clockwork Grease Maker|here]].
Code: Select all
| Grease.mac - attempts to make a Jar of Clockwork Grease until out of components.
| Assumes the first container will go into your first inventory slot for the next step.
| Stand between the pottery wheel and the kiln and run grease.mac
#turbo
Sub Main
| Let's make an Unfired Small Container
:GreaseLoop
/itemtarget Pottery Wheel
/face item
/nomodkey /click left item
/delay 2s
/nomodkey /notify TradeskillWnd ExperimentButton leftmouseup
/delay 25
/if (!${FindItem[Water Flask].ID}) /goto :Done
/nomodkey /ctrl /itemnotify ${FindItem[Water Flask].ID}
/itemnotify enviro leftmouseup
/if (!${FindItem[Block of Clay].ID}) /goto :Done
/nomodkey /ctrl /itemnotify ${FindItem[Block of Clay].ID}
/itemnotify enviro leftmouseup
/if (!${FindItem[Small Jar Sketch].ID}) /goto :Done
/nomodkey /ctrl /itemnotify ${FindItem[Small Jar Sketch].ID}
/itemnotify enviro leftmouseup
/doevents flush
/itemnotify enviro leftmouseup combine
/call ClearCursor
/delay 10
/itemnotify enviro leftmouseup close
/delay 10
| Let's make it into a Small Clay Jar
/itemtarget Kiln
/face item
/nomodkey /click left item
/delay 2s
/nomodkey /notify TradeskillWnd ExperimentButton leftmouseup
/delay 25
/if (!${FindItem[Unfired Small Container].ID}) /goto :Done
/nomodkey /ctrl /itemnotify ${FindItem[Unfired Small Container].ID}
/itemnotify enviro leftmouseup
/if (!${FindItem[Quality Firing Sheet].ID}) /goto :Done
/nomodkey /ctrl /itemnotify ${FindItem[Qualtiy Firing Sheet].ID}
/itemnotify enviro leftmouseup
/doevents flush
/itemnotify enviro leftmouseup combine
/call ClearCursor
/delay 10
/itemnotify enviro leftmouseup close
/delay 30
| Open our new jar and put 2 greases in it
/itemnotify pack1 rightmouseup
/delay 20
/if (!${FindItem[Clockwork Grease].ID}) /goto :Done
/nomodkey /ctrl /itemnotify ${FindItem[Clockwork Grease].ID}
/itemnotify enviro leftmouseup
/if (!${FindItem[Clockwork Grease].ID}) /goto :Done
/nomodkey /ctrl /itemnotify ${FindItem[Clockwork Grease].ID}
/itemnotify enviro leftmouseup
/doevents flush
/itemnotify enviro leftmouseup combine
/call ClearCursor
/delay 10
/itemnotify enviro leftmouseup close
/delay 30
| We should have a grease. Let's start over.
/goto :GreaseLoop
| When we run out of components.
:Done
/echo We're out of components. Ending macro.
/beep
/end
/return
sub ClearCursor
:Loop
/if (!${Cursor.ID}) /return
/autoinv
/delay 5
/doevents
/goto :Loop
/return


