[imported_Balthor]

Ok First off this macro is great for setting and not having to come back till youve GM'ed the skill you are using. All you need is spiders silk, mandrake root,blood moss[all regs get mass amount] then grab yourself a full suit of armour it could be platemail doesnt much matter, you will need quite a few heal pots as well. Finally depending on which combat skill you wanna gm you will use cleaver for swords, smith hammer for mace, or dagger for fence, you will want about 7 of the weapons for which you are doing. now take the script down below and place in your easyuo.exe when you open it up, now if you are familiar with scripting you can switch it up to different animal right now it is placed to summon dog because they do the least amount of damage for the life they have. Have Fun


Set %BackPackID #backPackID
Set %TargetX #CharPosX
Set %TargetY #CharPosY
Set %TargetZ #CharPosZ
Set %WepType HNF
Set %HealTimeOut #Scnt
Msg Balthor's Fast Warrior Make Sure You Have All Your Resources$

Start:
Gosub Eat
FindItem %WepType C_
If #FindKind = -1 2
Display Weapon not found!
Halt
Set #LObjectID #FindID
Event Macro 17
Target
Key ESC
FindItem UF_HG G_4
If #FindKind = -1
Goto Cast
Set %TimeOut #Scnt + 60
Goto WaitDead

WaitDead:
If #Hits < 70 && %HealTimeOut < #Scnt
Gosub Heal
If %TimeOut < #Scnt
Goto Start
FindItem UF_HG G_4
If #FindKind = -1
Goto Start
Goto WaitDead

Cast:
Event Macro 15 39
WaitForMenu:
If #ContName <> objpicker_gump
Goto WaitForMenu
ContPos 0 0
For %Click 1 2
{
Click 265 70
Wait 5
}
Click 178 70 d
Wait 3
Target
Set #LTargetKind 3
Set #LTargetX %TargetX
Set #LTargetY %TargetY
Set #LTargetZ %TargetZ
Event Macro 22
Set %TimeOut #Scnt + 8
Goto WaitCast

WaitCast:
If %TimeOut < #Scnt
Goto Cast
FindItem UF_HG G_4
If #FindKind <> -1
Goto Attack
Goto WaitCast

Attack:
Set #LTargetID #FindID
Event Macro 27
Wait 5
Goto Start

Sub Heal
FindItem UUF C_ , %BackPackID
If #FindKind = -1
Return
Set #LObjectID #FindID
Set #LTargetKind 1
Event Macro 17
Target
Event Macro 23
Set %HealTimeOut #Scnt + 1
Return

Sub Eat
FindItem RUD G_5
Set #LObjectID #FindID
Event Macro 17
Return