Что нужно знать для написания скриптов

[lexayar]

У тебя походу еще скрипты запущены после этого, добавь в них проверку:

if pck = '' then exit;

Добавлено через 2 минуты
Либо в этом же скрипте ниже идет проверка 1-го элемента пакета, а т.к. пакет уже пустой (у него нет 1-го элемента), то вылетает ошибка. еще после Mess('Blah-Blah-Blah'); поставь Exit;

Добавлено через 8 минут
Вообще то при этом должна другая ошибка выдаваться, но у PHX походу крышу сносит

[Snat4]

До меня дошло! Спасибо, lexayar! Сейчас попробую))

[telefunken82]

Доброй ночки у меня вопросик есть, Xkor показал в первом обучающем скриптике;
begin
if FromClient and (ConnectName='SokolA')
and (pck=HStr('1b 04 00 00 00')) then begin
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToServerEx('SokolB');
pck:='';
end;
end.
я запустил 2 окна рнх включен и работает именя персов есть пакеты бегают ))
имена чаров заменил в скрипте на свои но после нажатия выполнить получаю следующее

List index out of bounds (24).

подскажите что сделал не правильно

Добавлено через 24 минуты
с ошибкой разобрался
изменил пакеты ( у меня грация финал)
begin
if FromClient and (ConnectName='terr1')
and (pck=HStr('56 0D 00 00 00 00 00 00 00')) then begin
buf:=HStr('56 0E 00 00 00 00 00 00 00 00');
SendToServerEx('terr2');
pck:='';
end;
end.

но теперь когда terr1 выполняет действие победа, терр2 стоит а терр1 выполняет ето же действие победа

[Grinch]

Сообщение от telefunken82

но теперь когда terr1 выполняет действие победа, терр2 стоит а терр1 выполняет ето же действие победа

[telefunken82]

разобрался
вот что получил
begin
if FromClient and (ConnectName='terr1') and (pck=HStr('56 00 00 00 00 00 00 00 00 00'))
then
begin
buf:=HStr('56 0D 00 00 00 00 00 00 00 00');
SendToServerEx('terr2');
pck:='';
end;
end.
так все работает

[TAMBIK]

ReadC(var index:integer):byte - читает из переменной pck байт
ReadH(var index:integer):word - читает из переменной pck число (2 байта) (v. 3.1.8+)
ReadD(var index:integer):integer - читает из переменной pck число (4 байта)
ReadF(var index:integer):double - читает из переменной pck число c плавающей запятой(8 байт) (v. 3.1.8+)
ReadS(var index:integer):string - читает из переменной pck строку (в пакете строка unicode нультерминированная, а результирующая строка обычная паскалевская)
Index - начальная позиция чтения, которая модифицируется функцией (сдвигается на число считанных байт)

а это как:

ReadG  ?????????????????????????

[NLObP]

TAMBIK, ReadG это 8 байт? Посмотри темку, там предлогались решения. Я старшие 4 байта игнорирую и считываю 4 младших.

BaseItems[i,5]:=ReadD(j);  //Count
                ReadD(j);  //Count (пропускаем старшую часть)

[buka]

заранее благодарен за развёрнутый ответ.. итак есть куча скрипто писальщиков есть даже тема про бот авто боот и так далее.... отсюда вопрос к гуру
Нет ли более менее стандартных функций отсылки пакетов к примеру мне надо например реализовать атаку моба если он в приделах видимости или на каком то расстоянии от меня. атаку тем оружием которое одето и не более если можно приведите пример с теми же гремлинами
Заранее благодарен.

Зы хотелось бы также в случае приближения кого либо тоесть реального человека сделать бсое или отключиться....

Есть ШЕ как залить ману на того игрока кто в пати чат написал 1?

Я более чем уверен что многие пошлют смотреть пакеты... но можно ли привести подобные примеры еще раз спс

[TAMBIK]

советы
но не мои

или на каком то расстоянии от мен

function rastoyanie(xpos1, ypos1, xpos2, ypos2:extended):integer; //возвращ rezu растояние
begin
result:= Round(Sqrt(((xpos1-xpos2)*(xpos1-xpos2))+((ypos1-ypos2)*(ypos1-ypos2))));
end;
=================================================
if (rastoyanie(MyXpos, MyYpos, ReadD(14), ReadD(18))<=1600) then
при менее или 1600 выполнить >>>>
====================

[BioDread]

Люди подскажите плиз почему при выполнении скрипта:

PHP код:

begin
  begin
   Buf:=HStr('A7 4A 27 00 00 00 9F 24 00 E8 03 00 00 00 00 00 00 00 00 00 00');
   SendToServer;
   delay(800);
   end;    
    
    
    begin
    Buf:=HStr('04 4D 85 00 10 99 46 01 00 75 D9 00 00 1A FA FF FF 00');
    SendToServer;
    delay(500);
    end;
     begin
     Buf:=HStr('1E 00 00 00 00 01 00 00 00 C7 13 01 10 B6 05 00 00 80 38 01 00 ');
     SendToServer;
     delay(500);
     end.
end. 


пару сек отправляются пакеты но КОПМ ЖУТКО ЛАГАЕТ ЛАГАЕТ и мну дисконнектит от серва подскажите плиз в чём причина или напишите скрипт на посылку 3х пакетов с задержкой ПЛИИИЗ
П.С. Если не писать begin end после каждого то комп ещё быстрее залагивает.....