VAR Doll=0x0094ED1B; тут id партнера
VAR Weapon=0x13F6;0x1B76; тут type оружия
sub Warskill()
uo.Attack(str(Doll))
repeat
Healing()
WaitTool(Weapon,"Rhand")
Wait(500)
until false
end sub
sub WaitTool(type,layer)
VAR Serial
if not uo.ObjAtLayer(layer) then
uo.FindType(type,0,"backpack")
if uo.FindCount() then
Serial=uo.GetSerial("finditem")
uo.Equip(layer,Serial)
repeat
Wait(50)
until Serial==uo.ObjAtLayer(layer)
endif
endif
end sub
sub Healing()
VAR Serial,Count
VAR R=uo.ObjAtLayer("Rhand")
VAR L=uo.ObjAtLayer("Lhand")
if uo.GetHP(str(Doll))<uo.GetMaxHP(str(Doll))/3*2 then
uo.print("1")
uo.FindType(0x0E21,0,2)
if uo.FindCount() then
Serial=uo.GetSerial("finditem")
Count=uo.GetQuantity(Serial)
uo.Warmode(0)
uo.DeleteJournal()
uo.WaitTargetObject(str(Doll))
uo.UseObject(Serial)
repeat
Wait(50)
until uo.GetQuantity(Serial)<Count
repeat
Wait(50)
until uo.InJournal("Вы восстановили") or uo.InJournal("Попытка лечения")
Healing.Equip("Rhand",R)
Healing.Equip("Lhand",L)
uo.Attack(str(Doll))
uo.print("2")
endif
endif
end sub
sub Healing.Equip(Layer,Weapon)
if uo.Hex2Int(Weapon) then
uo.Equip(Layer,Weapon)
endif
end sub

VAR Doll

(type,layer)

uo.ObjAtLayer("Rhand")

VAR Serial,Count
VAR R=uo.ObjAtLayer("Rhand")
VAR L=uo.ObjAtLayer("Lhand")