Soubamp

Поправте плиз

sub WarTraining
var x = uo.getX
var y = uo.getY
var tx, ty
uo.addObjectopponent
while uo.targeting
wait200
wend
uo.addObjectbandages
while uo.targeting
wait200
wend
if uo.getX-uo.getXopponent > 1 uo.getXopponent-uo.getX > 1 uo.getY-uo.getYopponent > 1 uo.getYopponent-uo.getY > 1 then
uo.print
return
endif
if uo.getX > uo.getXopponent then
tx = x1
ty = y
else
if uo.getXopponent > uo.getX then
tx = x-1
ty = y
else
if uo.getY > uo.getYopponent then
tx = x
ty = y1
else
if uo.getYopponent > uo.getY then
tx = x
ty = y-1
else
uo.print
return
endif
endif
endif
endif
uo.warmodetrue
uo.attackopponent
repeat
if uo.getHP < uo.getMaxHP/4 then
Walktx,ty
uo.warmodefalse
repeat
uo.waittargetobjectself
uo.usetypeuo.getGraphicbandages
wait350
until uo.getHP == uo.getMaxHP
Walkx,y
uo.warmodetrue
uo.attackopponent
endif
if uo.getHPopponent < uo.getMaxHPopponent/2 then
Walktx,ty
uo.warmodefalse
repeat
uo.waittargetobjectopponent
uo.usetypeuo.getGraphicbandages
wait350
until uo.getHPopponent == uo.getMaxHPopponent
Walkx,y
uo.warmodetrue
uo.attackopponent
endif
wait700
until uo.dead
endsub

sub Walkx,y
go:
while not uo.getX == x not uo.getY == y
if not uo.getX == x then
if uo.getX > x then
uo.press36
else
uo.press34
endif
endif
if not uo.getY == y & uo.getX == x then
if uo.getY > y then
uo.press33
else
uo.press35
endif
endif
checklag
wend
checklag
if not uo.getX == x not uo.getY == y then
goto go
endif
endsub

sub CheckLag
if uo.Waiting>0 then
uo.Execcanceltarget
end if
uo.DeleteJournal
uo.Clickbackpack
repeat
wait50
until uo.InJournalbackpack
while uo.injournalbackpack
uo.setJournalLineuo.Injournalbackpack-1,is Empty
wend
end sub