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

[lexayar]

Snat4, Вроде нормально все. Попробуй перед этим кодом добавить:

if pck = '' then exit;

Да, и написал бы еще какая ошибка хоть.

[Grinch]

Snat4, а выложи полностью пакет. и что это за пакет хотя б какие хроники.

[Snat4]

Такая ошибка:

Access violation at address 00550C21 in module 'l2pbx.exe'. Read of address 00000000.

#$1F - пакет от клиента "Action" (в основном выбор таргета).
К примеру такой:

1F BD D8 00 4B C2 6D 00 00 C8 2A 00 00 77 EF FF FF 00

Основная прелесть в том, что даже если я пишу вот такое, то та же ошибка:

if ((FromClient) and (pck[1]=#$19) and (NSetup=1)) then
              begin
                   ItemWindStrike:=ReadD(2);
                   pck:='';
                   NSetup:=2;
                   Mess('Blah-Blah-Blah');
              end;

Где #$19 - от клиента UseItem пакет.

ItemWindStrike, MyID: integer;

Хроники - камаэль Хэллбаунд. В настройках пнх у меня стоит галочка на Kamael и снята с Gracia. Версия пнх - L2phx 3.4.1.61.

ЗЫ: прошу прощения что сразу не все написал подробно.

[lexayar]

Snat4, Тут уже похоже дело не в скрипте а пакетхаке. У меня бывает слетает так же, рестарт PHX помогает.
Если вообще этот код убрать, ошибка вылетает?

[Snat4]

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

Snat4, Тут уже похоже дело не в скрипте а пакетхаке. У меня бывает слетает так же, рестарт PHX помогает.
Если вообще этот код убрать, ошибка вылетает?

Если убрать строчку

pck:='';

, тогда все нормально работает. Но мне желательно бы блокировать эти пакеты

Есть нъюанс: Если нажать на кнопочку "Ок" когда вылетает эта ошибка в РНХ, то скрипт продолжает нормально работать, при этом пакет, которых я хотел блокировать, все-таки проходит. Что-то похоже на Delay но только пока не нажму на кнопку "Ок"))

Еще нъюансик: когда вылетает эта ошибка - клиент полностью зависает и ни на что не реагирует. После нажатия на кнопочке "Ок" все продолжает нормально работать.

[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.
так все работает