ходилка на грим рипера drw
Posted: 2011-11-14 16:47:29
sub att()
#***********
VAR monst= 0x03CA
UO.Set('finddistance','7')
while UO.GetHP('self') < 500
UO.FindType(monst, '-1', 'ground')
if UO.FindCount() > 0 then
UO.DeleteJournal()
UO.Attack('finditem')
var x,y,cx,cy,tmp,i=0, temp
x = 5308 ;//?????????? x-??????????.
y = 1288 ;//?????????? y-??????????.
x = -(uo.getx() - x)
y = -(uo.gety() - y)
cx = x
cy = y
if cx <= 0 then
cx = -cx
endif
if cy <= 0 then
cy = -cy
endif
tmp = str(cx+cy)
if val(tmp) then
DIM step[val(tmp)]
repeat
i=i+1
if x>0 && y>0 && x==y then
x=x-1
y=y-1
cx=x
cy=y
step[i]=2
endif
if x>0 && cx>cy then
x=x-1
cx=x
step[i]=3
endif
if x>0 && y<0 && cx==cy then
x=x-1
y=y+1
cx=x
cy=-y
step[i]=6
endif
if y<0 && cy>cx then
y=y+1
cy=-y
step[i]=9
endif
if x<0 && y<0 && x==y then
x=x+1
y=y+1
cx=-x
cy=-y
step[i]=8
endif
if x<0 && cx>cy then
x=x+1
cx=-x
step[i]=7
endif
if x<0 && y>0 && cx==cy then
x=x+1
y=y-1
cx=-x
cy=y
step[i]=4
endif
if y>0 && cy>cx then
y=y-1
cy=y
step[i]=1
endif
if x==-0 then
x=0
endif
if y==-0 then
y=0
endif
until cx==0 && cy==0
temp=i
tmp=''
for i=1 to temp
tmp=tmp+str(step[i])
next
uo.addstep(tmp)
uo.resend()
repeat
wait(500)
until UO.InJournal('Body of')
else
wait(400)
endif
wend
end sub
#***********
VAR monst= 0x03CA
UO.Set('finddistance','7')
while UO.GetHP('self') < 500
UO.FindType(monst, '-1', 'ground')
if UO.FindCount() > 0 then
UO.DeleteJournal()
UO.Attack('finditem')
var x,y,cx,cy,tmp,i=0, temp
x = 5308 ;//?????????? x-??????????.
y = 1288 ;//?????????? y-??????????.
x = -(uo.getx() - x)
y = -(uo.gety() - y)
cx = x
cy = y
if cx <= 0 then
cx = -cx
endif
if cy <= 0 then
cy = -cy
endif
tmp = str(cx+cy)
if val(tmp) then
DIM step[val(tmp)]
repeat
i=i+1
if x>0 && y>0 && x==y then
x=x-1
y=y-1
cx=x
cy=y
step[i]=2
endif
if x>0 && cx>cy then
x=x-1
cx=x
step[i]=3
endif
if x>0 && y<0 && cx==cy then
x=x-1
y=y+1
cx=x
cy=-y
step[i]=6
endif
if y<0 && cy>cx then
y=y+1
cy=-y
step[i]=9
endif
if x<0 && y<0 && x==y then
x=x+1
y=y+1
cx=-x
cy=-y
step[i]=8
endif
if x<0 && cx>cy then
x=x+1
cx=-x
step[i]=7
endif
if x<0 && y>0 && cx==cy then
x=x+1
y=y-1
cx=-x
cy=y
step[i]=4
endif
if y>0 && cy>cx then
y=y-1
cy=y
step[i]=1
endif
if x==-0 then
x=0
endif
if y==-0 then
y=0
endif
until cx==0 && cy==0
temp=i
tmp=''
for i=1 to temp
tmp=tmp+str(step[i])
next
uo.addstep(tmp)
uo.resend()
repeat
wait(500)
until UO.InJournal('Body of')
else
wait(400)
endif
wend
end sub