Прошу написать пару простеньких и полезных скриптов

Kynep · Post by **Kynep** » 2006-04-01 10:28:07

[quote="1a2a3a4a5a6a
Не очень я понял, как работает эта ходилка. А в какую координату она пойдет? И у мя выдавалась ошибка. Что-то дополнительно нужно ставить к ней?[/quote]

Вставь координаты вместо х и у, например в скрипте она выглядит так:

Code: Select all

GotoXY(1111,1111)

Идет в 1111 и 1111

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-01 20:22:07

Если запустить данный скрипт без правки, то выдается ошибка: "Line71: Invalid number of arguments - GotoXY".
А если же запустить с правкой

Code: Select all

GotoXY(1111,1111)

то выдается ошибка: "Line1: Parse error".

Чего-то я не понимаю...

Kynep · Post by **Kynep** » 2006-04-01 22:35:25

1a2a3a4a5a6a wrote:Если запустить данный скрипт без правки, то выдается ошибка: "Line71: Invalid number of arguments - GotoXY".
А если же запустить с правкой
Code: Select all
GotoXY(1111,1111) 
то выдается ошибка: "Line1: Parse error".

Чего-то я не понимаю...

Попробуй кавычки поставь

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-01 22:53:18

Cooper wrote:
1a2a3a4a5a6a wrote:Если запустить данный скрипт без правки, то выдается ошибка: "Line71: Invalid number of arguments - GotoXY".
А если же запустить с правкой
Code: Select all
GotoXY(1111,1111) 
то выдается ошибка: "Line1: Parse error".

Чего-то я не понимаю...
Попробуй кавычки поставь

Как не крути...
А у тебя то работает?

Edred · Post by **Edred** » 2006-04-01 23:14:41

1a2a3a4a5a6a wrote:Если запустить данный скрипт без правки, то выдается ошибка: "Line71: Invalid number of arguments - GotoXY".
А если же запустить с правкой
Code: Select all
GotoXY(1111,1111) 
то выдается ошибка: "Line1: Parse error".

Чего-то я не понимаю...

Эхе-хе... Ты прежде чем в скрипты инжекта лезть, хоть какую-нибудь книжку по программированию для чайников почитай. Или юзай ассист. Иначе нет шансов никаких.

ЗЫ: В самом этом скрипте ты не должен править ничего, а вот из своего скрипта надо вызывать этот передавая параметрами координаты. Если ты это не понял - лучше используй ассист.

Grin · Post by **Grin** » 2006-04-01 23:48:07

идея с кавычками еще круче...

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-01 23:54:18

Edred wrote:
1a2a3a4a5a6a wrote:Если запустить данный скрипт без правки, то выдается ошибка: "Line71: Invalid number of arguments - GotoXY".
А если же запустить с правкой
Code: Select all
GotoXY(1111,1111) 
то выдается ошибка: "Line1: Parse error".

Чего-то я не понимаю...
Эхе-хе... Ты прежде чем в скрипты инжекта лезть, хоть какую-нибудь книжку по программированию для чайников почитай. Или юзай ассист. Иначе нет шансов никаких.

ЗЫ: В самом этом скрипте ты не должен править ничего, а вот из своего скрипта надо вызывать этот передавая параметрами координаты. Если ты это не понял - лучше используй ассист.

По поводу первого:
Работаю в дельфи и в html. Не хвастаюсь, как некоторые (не в обиду).
Потом, я незнал, что эта ходилка не работает на "простом" инжекте, потому так и получилось. Вообще с ходилками не работал.
Потом, в скрипте на ламбер есть ходилка. Она ведь работает прекрасно и без всяких доп. АСМ и прочего!?

Может, что-то и не понимаю, но не надо меня обзывать чайником.

И как можно реализовать наипростейщую ходилку, хоть и без обхода препятствий? Главное, чтобы до коорд. нужных была.
Или ходилку, как на ламбере!?

Kynep · Post by **Kynep** » 2006-04-02 08:21:25

1a2a3a4a5a6a wrote:
Edred wrote:
1a2a3a4a5a6a wrote:Если запустить данный скрипт без правки, то выдается ошибка: "Line71: Invalid number of arguments - GotoXY".
А если же запустить с правкой
Code: Select all
GotoXY(1111,1111) 
то выдается ошибка: "Line1: Parse error".

Чего-то я не понимаю...
Эхе-хе... Ты прежде чем в скрипты инжекта лезть, хоть какую-нибудь книжку по программированию для чайников почитай. Или юзай ассист. Иначе нет шансов никаких.

ЗЫ: В самом этом скрипте ты не должен править ничего, а вот из своего скрипта надо вызывать этот передавая параметрами координаты. Если ты это не понял - лучше используй ассист.
По поводу первого:
Работаю в дельфи и в html. Не хвастаюсь, как некоторые (не в обиду).
Потом, я незнал, что эта ходилка не работает на "простом" инжекте, потому так и получилось. Вообще с ходилками не работал.
Потом, в скрипте на ламбер есть ходилка. Она ведь работает прекрасно и без всяких доп. АСМ и прочего!?

Может, что-то и не понимаю, но не надо меня обзывать чайником.

И как можно реализовать наипростейщую ходилку, хоть и без обхода препятствий? Главное, чтобы до коорд. нужных была.
Или ходилку, как на ламбере!?

Эта ходилка из Ламбера ))

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-02 11:08:51

Cooper wrote:Эта ходилка из Ламбера ))

Может тогда объясните, как она работает? В ламбере создавался всего-лишь один файл с координатами.

Kynep · Post by **Kynep** » 2006-04-02 11:22:54

1a2a3a4a5a6a wrote:
Cooper wrote:Эта ходилка из Ламбера ))

Может тогда объясните, как она работает? В ламбере создавался всего-лишь один файл с координатами.

Едред написал же, она читает координаты из переменных, создай две переменных:

Code: Select all

VAR CoordX=' ' #Поставь коорды
VAR CoordY=' '

И вставь в скрипт:

Code: Select all

GotoXY(CoordX, CoordY)

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-02 12:51:55

Тогда полный скрипт получается таким:

Code: Select all

VAR CoordX='1234' #Поставь коорды 
VAR CoordY='123' 

sub GotoXY(CoordX, CoordY) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub

Что не так?

Kynep · Post by **Kynep** » 2006-04-02 13:11:07

1a2a3a4a5a6a wrote:Тогда полный скрипт получается таким:

Code: Select all

VAR CoordX='1234' #Поставь коорды 
VAR CoordY='123' 

sub GotoXY(CoordX, CoordY) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub

Что не так?

Неет это не меняй:

Code: Select all

sub GotoXY(CoordX, CoordY)

Оставь как было:

Code: Select all

sub GotoXY(x, y)

А себе в скрипт, где он по идеи должен начинать идти вставь:

Code: Select all

GotoXY(CoordX, CoordY)

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-02 13:22:50

Тогда получается вот это:

Code: Select all

sub go()
VAR CoordX='1234' #Поставь коорды 
VAR CoordY='123' 
   GotoXY(CoordX, CoordY) 
end sub

sub GotoXY(x, y) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub

Kynep · Post by **Kynep** » 2006-04-02 13:38:20

1a2a3a4a5a6a wrote:Тогда получается вот это:
Code: Select all
sub go()
VAR CoordX='1234' #Поставь коорды 
VAR CoordY='123' 
   GotoXY(CoordX, CoordY) 
end sub

Типа того

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-02 13:51:47

Cooper wrote:
1a2a3a4a5a6a wrote:Тогда получается вот это:
Code: Select all
sub go()
VAR CoordX='1234' #Поставь коорды 
VAR CoordY='123' 
   GotoXY(CoordX, CoordY) 
end sub
Типа того

А что не так?

Мне нужно просто заставить чара пойти в нужную координату.
Может тогда исправишь мою кривость?

Kynep · Post by **Kynep** » 2006-04-02 14:06:27

1a2a3a4a5a6a wrote:
Cooper wrote:
1a2a3a4a5a6a wrote:Тогда получается вот это:
Code: Select all
sub go()
VAR CoordX='1234' #Поставь коорды 
VAR CoordY='123' 
   GotoXY(CoordX, CoordY) 
end sub
Типа того
А что не так?
Мне нужно просто заставить чара пойти в нужную координату.
Может тогда исправишь мою кривость?

Смари:

Code: Select all

sub go()
VAR CordX=' '
VAR CordY=' '

While UO.GetX('self') <> CordX
GotoXY(CordX, CordY)
wend
end sub

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-02 14:14:49

Cooper wrote:Смари:

Code: Select all

sub go()
VAR CordX=' '
VAR CordY=' '

While UO.GetX('self') <> CordX
GotoXY(CordX, CordY)
wend
end sub

Вставил я этот код и ниже вставил саму ходилку. Поставил координаты. Когда запускаю go, то выдает ошибку: "Line 43: Runtime error - Invalid operation for this type".

Kynep · Post by **Kynep** » 2006-04-02 14:19:50

1a2a3a4a5a6a wrote:
Cooper wrote:Смари:
Code: Select all
sub go()
VAR CordX=' '
VAR CordY=' '

While UO.GetX('self') <> CordX
GotoXY(CordX, CordY)
wend
end sub
Вставил я этот код и ниже вставил саму ходилку. Поставил координаты. Когда запускаю go, то выдает ошибку: "Line 43: Runtime error - Invalid operation for this type".

Вот, ща протестил, ходит тока координаты поменяй:

Code: Select all

sub go() 
VAR CX=1794 
VAR CY=1563 

If UO.GetX() <> CX and UO.Gety() <> CY then
GotoXY(CX, CY) 
endif
end sub

ТОка ходилка тупит, поточнее надо

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-02 14:22:59

Да, у меня тоже работает! Огромное спасибо!
А ходилка действительно запинается.

SLAK · Post by **SLAK** » 2006-04-02 15:18:05

Запускать ходилку вы уже научились, а ходилки по качественее тут:
http://forum.yoko.com.ua/viewtopic.php?t=6743