DerMeister =) wrote:А чё, самому слабо процедуру написать?Code: Select all
sub abs(x)
if (x < 0) then
x = -x
end if
return x
end sub
мда.... Ыпанутым счастья нет

это про меня.... я о таком даже не подумал

Moderators: Murderator+, Murderator
DerMeister =) wrote:А чё, самому слабо процедуру написать?Code: Select all
sub abs(x)
if (x < 0) then
x = -x
end if
return x
end sub
Code: Select all
sub autostab()
var i, X, Y, dir
uo.deletejournal()
while not uo.injournal('initial base')
x=abs(uo.getx()-uo.getx('zertva'))
y=abs(uo.gety()-uo.gety('zertva'))
dir=(uo.getdir()-uo.getdir('zertva'))
if (((x==1 AND y==1) OR (x==0 AND y==1) OR (x==1 AND y==0)) AND dir==0) then
uo.waittargetobject('zertva')
uo.msg('.ab 1')
endif
wend
end sub