простейшая ходилка - две координаты

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
MazaFaka
Posts: 77
Joined: 2005-02-22 20:03:13

простейшая ходилка - две координаты

Post by MazaFaka »

просмотрел все ходилки которые тут есть.
но мозгов не хватает разобратцо что и как, поэтому прошу помоч??
даны 2 координаты
чар должен ходить от координаты 1 до координаты 2 и обратно.
не сочтите за труд помогите .......
говорила мне мама "учись неуч"
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

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
MazaFaka
Posts: 77
Joined: 2005-02-22 20:03:13

Post by MazaFaka »

Go_To(твоя координата по Х,твоя координата по Y)

а куда заносить координаты второй точки(куда нужно идти)??
есть 2 координаты:
первая (965,86) точка где стоит чар Go_To(965,84)
вторая (1200,84) точка куда идет чар
куда их нужно подставлять??
говорила мне мама "учись неуч"
MazaFaka
Posts: 77
Joined: 2005-02-22 20:03:13

Post by MazaFaka »

up
говорила мне мама "учись неуч"
Question_GimFlex
Posts: 188
Joined: 2007-03-24 08:12:51

Post by Question_GimFlex »

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
MazaFaka
Posts: 77
Joined: 2005-02-22 20:03:13

Post by MazaFaka »

всё это хорошо! спасибо большое за помощ!
НО... я не могу запустить эти скрипты, так как нужно куда то вносить какие то данные!
не сочтите за труд - дайте анатацию по тем скриптам которые есть. как их запускать?
говорила мне мама "учись неуч"
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

MazaFaka wrote:всё это хорошо! спасибо большое за помощ!
НО... я не могу запустить эти скрипты, так как нужно куда то вносить какие то данные!
не сочтите за труд - дайте анатацию по тем скриптам которые есть. как их запускать?


См.выше в моём сообщении
ychenik
Posts: 82
Joined: 2007-07-01 21:23:58

Post by ychenik »

У меня вопрос

вписав после скрипта Скрипт Вритера следующую строчку

Go_To(1450,1694)
Go_To(1450,1697)
чар проходит один раз туда сюда а затем выдается ошибка, Invalid numbers of arguments Go-To
если вписать кучу раз одни и те же координаты то он ходит столько сколько вписал потом та же ошибка, как сделать чтобы он ходил пока не выключу скрипт?
ychenik
Posts: 82
Joined: 2007-07-01 21:23:58

Post by ychenik »

Никто не подскажет? :(
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

ychenik wrote:Никто не подскажет? :(


Конкретнее скажи что тебе нуно от этой ходилки, телепаты в отпуске.
ychenik
Posts: 82
Joined: 2007-07-01 21:23:58

Post by ychenik »

чтобы чар ходи туда сюда пока я не вырублю скрипт
666||TORCHKI
Posts: 257
Joined: 2006-11-14 16:19:03
Contact:

Post by 666||TORCHKI »

Во народ тоже чёто мучался с ходилкой из скрипта ветра на лумбер )
Мне нужно чтобы чар заходил в порт ! потом подходил к сундуку ! и потом заходил назад в порт )
Post Reply