Большое спасибо! потестирую и отпишусь.
UPD: скрипт зависает на:
Код:
begin
Timer01.enabled:=true;
вибывает ошибку сам л2пх - Access violation at address 132A61E9 in module 'l2ph.exe'. Read of address 00000000.
(игра не зависает) но л2пх не реагирует ни на что, спасает быстрое нажатие ОК и выключение скрипта.
Может проблема в том что Procedure Free; не задействовали?
Добавлено через 12 часов 15 минут
сильно упростил скрипт ради интереса и он перестал выдавать ошибку, но и функцию свою не исполняет:
Код:
...
Procedure OnTimer01; //Тело Timer01 (Запускается раз в Timer01.interval)
begin //Выполняется каждые 2секунды вне зависимости от пакета запуска таймера.
//отправляем пакет 'EE FF' (На сервер)
buf:=HStr('EE FF');
SendToServer;
pck:='';
end;
begin
//Если приходит пакет 'AA BB' то запускает таймер. (От клиента)
if FromClient and (pck=HStr('AA BB')) then Timer01.enabled:=true;
//Если приходит пакет 'CC DD' то вырубаем таймер. (От клиента)
if FromClient and (pck=HStr('CC DD')) then Timer01.enabled:=false;
end.
я думаю после прихода АА ВВ от клиента должен отправляться на сервер EE FF каждие 2 сек. но ето не работает.