если я правильно понял задумку скрипта - то.. по идее вот так.
delphi Код:
const
CHAR_NAME = 'Bzdoo';
var
logoutok : boolean;
procedure init;
begin
logoutok := false;
end;
beginif pck=''thenexit;
if(ConnectName=CHAR_NAME)thenbeginif(FromClient)thenbeginif(pck[1]=#$6F)thenbegin//Не забыл ли ты обнулить пакет ? //pck := 0 или реквайст должен пройти на сервер ?
NoFreeOnClientDisconnect; //разрешить отключение клиента онли. при отключении сервера тунель будет разрушаться, что и должно происходить.
logoutok := true; //флаг
buf:=#$7E; //шлем логауток на клиент
SendToClientEx(CHAR_NAME);
end;
end;
end;
if(ConnectName=CHAR_NAME)and FromServer and logoutok then pck := ''; //!!!! не пропускать пакеты на клиент через ПХ!! если он уже отключен.end.
Добавлено через 1 минуту
в любом случае, попробуй привыкнуть к 100+. :P
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 04.09.2009 в 22:43.
Причина: Добавлено сообщение
За это сообщение alexteam нажился 2 спасибками от:
Добавлено через 2 минуты
Тему удалять не стоит. если конечно решение в данном топике все таки есть. ибо кто знает, может ктото еще будет ловить 10038ю.
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 04.09.2009 в 22:57.
Причина: Добавлено сообщение