Yoko

Очень прошу помочь подделать или скинуть существующий скрипт на спаринг для двух чаров
вот есть этот:
sub maina()
VAR E, t, MinHP=40, G=true, L, Weap='0x13E3' ; type of weapon

uo.Print('Выберите партнёра: ')
uo.Exec('addobject Foe')
while uo.Targeting()
wait(100)
wend
uo.Print('выберите миску: ')
uo.Exec('addobject Miska')
while uo.Targeting()
wait(100)
wend

UO.Attack('Foe')
UO.DeleteJournal()
while G==true
wait(500)
if not UO.ObjAtLayer("Rhand") then
UO.FindType(Weap,-1,'backpack')
if UO.FindCount() then
UO.Equip('Rhand','finditem')
endif
endif
if UO.InJournal("stay") or UO.Life<MinHP then
UO.Say("stay")
wait(700)
t=UO.Timer()
repeat
E=true
UO.Exec('warmode 0')
wait(500)
if UO.WarMode()==1 then
E=false
UO.Say("stay")
t=UO.Timer()
endif
until E==true and UO.Timer()>=t+45
CheckLag()
UO.SetArm('myarm')
while UO.Life<UO.Str
L=UO.Life
UO.Exec('warmode 0')
DelJ("the")
t=UO.Timer()
UO.Exec('bandageself')
repeat
Wait(500)
until UO.InJournal("You put") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100
CheckLag()
if UO.Life<L then
UO.Say("stay")
endif
wend
CheckBandage()
UO.Arm('myarm')
if not UO.InJournal("iiaoaee!") then
UO.Say("go")
repeat
wait(100)
until UO.InJournal("go") or UO.Life<UO.Str
DelJ(UO.GetName()+": go")
repeat
wait(100)
until UO.InJournal("go") or UO.Life<UO.Str
else
UO.Say("go")
endif
UO.DeleteJournal()
UO.Attack('Foe')
endif
if UO.Dead() then
UO.Exec('warmode 1')
endif
wend
end sub

sub DelJ(s)
VAR MN=UO.InJournal(s)
while MN > 0
UO.SetJournalLine(MN-1, '')
MN=UO.InJournal(s)
wend
end sub
sub Shield()
var shield='0x1B77'
uo.FindType(shield,'-1','backpack')
if uo.FindCount() then
uo.UseObject('finditem')
end if
end sub

sub Walk(x,y)
go:
while not uo.getX() == x || not uo.getY() == y
if not uo.getX() == x then
if uo.getX() > x then
uo.press(36)
else
uo.press(34)
endif
endif
if not uo.getY() == y && uo.getX() == x then
if uo.getY() > y then
uo.press(33)
else
uo.press(35)
endif
endif
checklag()
wend
checklag()
if not uo.getX() == x || not uo.getY() == y then
goto go
endif
endsub

sub CheckLag()
DelJ("backpack")
UO.Click('Backpack')
repeat
wait(500)
until UO.InJournal('a Backpack')
end sub

;sub CheckBandage()
;UO.waittargetobject('Miska')
;UO.usetype(0x0e20)
;Wait(1000)
;end sub

но он под ДРВ а на бесте или старом антаресе нет мисок,хотелось бы что б он просто пил рефрешку т.к. стамина при лечилке тратиться или просто убрать миски