Tydeus
Master
I created this many moons ago when I noticed my beetle missing and used tracking to find out where it was only to discover someone killed it and took all of my bows. I've never had a problem since. It also helps to put your logs into a crate and lock it.
!Loop
Assistant.Macros.IfAction|0|0|99
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.IfAction|3|-1|0
Assistant.Macros.IfAction|50|1|1|Cure Potions
Assistant.Macros.HotKeyAction|1029|
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|3|-1|0
Assistant.Macros.HotKeyAction|3002021|
Assistant.Macros.PauseAction|00:00:02
Assistant.Macros.HotKeyAction|1059|
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction
Assistant.Macros.EndIfAction
Assistant.Macros.HotKeyAction|3002014|
Assistant.Macros.PauseAction|00:00:01.5000000
Assistant.Macros.HotKeyAction|1059|
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.PauseAction|00:00:02
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.DoubleClickTypeAction|4130|True
Assistant.Macros.PauseAction|00:00:00.1500000
Assistant.Macros.GumpResponseAction|2|0|0
Assistant.Macros.PauseAction|00:00:00.1500000
Assistant.Macros.UseSkillAction|21
Assistant.Macros.PauseAction|00:00:01.3000000
Assistant.Macros.IfAction|4|0|you have successfully
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.HotKeyAction|1516|
Assistant.Macros.ForAction|1
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.HotKeyAction|1473|
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.EndIfAction
Assistant.Macros.LiftTypeAction|5042|1
Assistant.Macros.PauseAction|00:00:00.1000000
// Record from here and drop the bow into your beetle
Assistant.Macros.DropAction|0xF2E4|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.PauseAction|00:00:00.5000000
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.EndForAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.UseSkillAction|21
Assistant.Macros.EndIfAction
// May want to edit this to a bogus message when crafting with anything less than Yew wood
Assistant.Macros.IfAction|4|0|your material
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.HotKeyAction|1516|
Assistant.Macros.ForAction|1
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.HotKeyAction|1473|
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.EndIfAction
Assistant.Macros.LiftTypeAction|5042|1
Assistant.Macros.PauseAction|00:00:00.1000000
// Record from here and drop the bow into your beetle
Assistant.Macros.DropAction|0xF2E4|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.PauseAction|00:00:00.5000000
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.EndForAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.UseSkillAction|21
Assistant.Macros.EndIfAction
// Looped twice to get rid of any excess bows
Assistant.Macros.ForAction|2
Assistant.Macros.LiftTypeAction|5042|1
Assistant.Macros.PauseAction|00:00:00.1000000
// Britain Crafter's Guild trash barrel
Assistant.Macros.DropAction|0x4007B816|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.6000000
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.PauseAction|00:00:02
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.EndForAction
!Loop
Assistant.Macros.IfAction|0|0|99
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.IfAction|3|-1|0
Assistant.Macros.IfAction|50|1|1|Cure Potions
Assistant.Macros.HotKeyAction|1029|
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|3|-1|0
Assistant.Macros.HotKeyAction|3002021|
Assistant.Macros.PauseAction|00:00:02
Assistant.Macros.HotKeyAction|1059|
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.EndIfAction
Assistant.Macros.EndIfAction
Assistant.Macros.HotKeyAction|3002014|
Assistant.Macros.PauseAction|00:00:01.5000000
Assistant.Macros.HotKeyAction|1059|
Assistant.Macros.EndIfAction
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.PauseAction|00:00:02
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.DoubleClickTypeAction|4130|True
Assistant.Macros.PauseAction|00:00:00.1500000
Assistant.Macros.GumpResponseAction|2|0|0
Assistant.Macros.PauseAction|00:00:00.1500000
Assistant.Macros.UseSkillAction|21
Assistant.Macros.PauseAction|00:00:01.3000000
Assistant.Macros.IfAction|4|0|you have successfully
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.HotKeyAction|1516|
Assistant.Macros.ForAction|1
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.HotKeyAction|1473|
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.EndIfAction
Assistant.Macros.LiftTypeAction|5042|1
Assistant.Macros.PauseAction|00:00:00.1000000
// Record from here and drop the bow into your beetle
Assistant.Macros.DropAction|0xF2E4|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.PauseAction|00:00:00.5000000
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.EndForAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.UseSkillAction|21
Assistant.Macros.EndIfAction
// May want to edit this to a bogus message when crafting with anything less than Yew wood
Assistant.Macros.IfAction|4|0|your material
Assistant.Macros.PauseAction|00:00:01
Assistant.Macros.HotKeyAction|1516|
Assistant.Macros.ForAction|1
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.HotKeyAction|1473|
Assistant.Macros.PauseAction|00:00:00.5000000
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.EndIfAction
Assistant.Macros.LiftTypeAction|5042|1
Assistant.Macros.PauseAction|00:00:00.1000000
// Record from here and drop the bow into your beetle
Assistant.Macros.DropAction|0xF2E4|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.PauseAction|00:00:00.5000000
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.EndForAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.UseSkillAction|21
Assistant.Macros.EndIfAction
// Looped twice to get rid of any excess bows
Assistant.Macros.ForAction|2
Assistant.Macros.LiftTypeAction|5042|1
Assistant.Macros.PauseAction|00:00:00.1000000
// Britain Crafter's Guild trash barrel
Assistant.Macros.DropAction|0x4007B816|(-1, -1, 0)|0
Assistant.Macros.PauseAction|00:00:00.6000000
Assistant.Macros.IfAction|6|-1|0
Assistant.Macros.ElseAction
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|7|Guards
Assistant.Macros.SpeechAction|0|52|3|ENU|5|48|232|22|49|108|All follow me
Assistant.Macros.PauseAction|00:00:02
// Re-target to your beetle
Assistant.Macros.DoubleClickAction|62180|791
Assistant.Macros.EndIfAction
Assistant.Macros.EndForAction
Last edited by a moderator: