простейшая ходилка - две координаты
Moderators: Murderator+, Murderator
простейшая ходилка - две координаты
просмотрел все ходилки которые тут есть.
но мозгов не хватает разобратцо что и как, поэтому прошу помоч??
даны 2 координаты
чар должен ходить от координаты 1 до координаты 2 и обратно.
не сочтите за труд помогите .......
но мозгов не хватает разобратцо что и как, поэтому прошу помоч??
даны 2 координаты
чар должен ходить от координаты 1 до координаты 2 и обратно.
не сочтите за труд помогите .......
говорила мне мама "учись неуч"
-
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
Code: Select all
sub Step(x,y,mx,my,forstep)
if uo.GetX('self') <> x then
if uo.GetY('self') <> y then
if mx<0 then
if my<0 then
uo.Press(40)
wait(forstep)
else
uo.Press(39)
wait(forstep)
end if
else
if my<0 then
uo.Press(37)
wait(forstep)
else
uo.Press(38)
wait(forstep)
end if
end if
else
if mx<0 then
uo.Press(34)
wait(forstep)
else
uo.Press(36)
wait(forstep)
end if
end if
else
if my<0 then
uo.Press(35)
wait(forstep)
else
uo.Press(33)
wait(forstep)
end if
end if
end sub
sub Go_To(x,y)
var mx,my,fx,fy
var xx=x
var yy=y
var DistX=0
var DistY=0
var forstep=300
repeat
mx=uo.GetX('self')-x
my=uo.GetY('self')-y
fx=mx+x
fy=my+y
Step(xx,yy,mx,my,forstep)
until x==fx+DistX && y==fy+DistY || x==fx-DistX && y==fy+DistY || x==fx+DistX && y==fy-DistY || x==fx-DistX && y==fy-DistY || x==fx && y==fy
end sub
Вставь в тот же файл в котором у тебя скрипт для которого тебе нужна ходилка, и в том месте где тебе надо подойти на координаты впиши
Code: Select all
Go_To(твоя координата по Х,твоя координата по Y)
Координаты тайла узнаются командой
Code: Select all
,infotile
-
- Posts: 188
- Joined: 2007-03-24 08:12:51
Code: Select all
sub go(x,y)
var myX,myY,i,z
for i=1 to 90
MyX=uo.getX()
MyY=uo.getY()
if abs(x-myX)==0 AND abs(y-myY)==0 then
return
end if
if x<=MyX then
if y<=MyY then
for z=0 to 1
uo.press( 38 )
next
else
for z=0 to 1
uo.press(37)
next
end if
else
if y<=MyY then
for z=0 to 1
uo.press(39)
next
else
for z=0 to 1
uo.press(40)
next
end if
end if
wait(200)
next
end sub
Sub abs(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub
-
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
У меня вопрос
вписав после скрипта Скрипт Вритера следующую строчку
Go_To(1450,1694)
Go_To(1450,1697)
чар проходит один раз туда сюда а затем выдается ошибка, Invalid numbers of arguments Go-To
если вписать кучу раз одни и те же координаты то он ходит столько сколько вписал потом та же ошибка, как сделать чтобы он ходил пока не выключу скрипт?
вписав после скрипта Скрипт Вритера следующую строчку
Go_To(1450,1694)
Go_To(1450,1697)
чар проходит один раз туда сюда а затем выдается ошибка, Invalid numbers of arguments Go-To
если вписать кучу раз одни и те же координаты то он ходит столько сколько вписал потом та же ошибка, как сделать чтобы он ходил пока не выключу скрипт?
-
- Posts: 257
- Joined: 2006-11-14 16:19:03
- Contact: