Valeno

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

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

Var jau to mziku vnk ierakstt pa tieo atskaojot, windowsam ir default jau iekauts recorder, es gan izmantoju jetaudio.
Bet augstu skaas kvalitti negaidi, jo tai mzkai ko atsko paai par sevi ir apgriests bitrate.