Quote:
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
Я так понимаю сдесь надо подправить
Quote:
VAR Doll
тоесть переправить на животное
или тут
Quote:
(type,layer)
Ивот сдесь переделать на животное а не на игрока ?
Quote:
uo.ObjAtLayer("Rhand")
Quote:
VAR Serial,Count
VAR R=uo.ObjAtLayer("Rhand")
VAR L=uo.ObjAtLayer("Lhand")
Только я не знаю команды уо для животины:(
Помогите подправить
Заранее блогодарин вам!!!