Показать сообщение отдельно
Старый 04.09.2009, 22:42   #23
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

если я правильно понял задумку скрипта - то.. по идее вот так.
delphi Код:
const      CHAR_NAME = 'Bzdoo'; var   logoutok : boolean; procedure init; begin   logoutok := false; end; begin      if pck='' then exit;      if (ConnectName=CHAR_NAME) then begin           if (FromClient) then begin                if (pck[1]=#$6F) then                begin                     //Не забыл ли ты обнулить пакет ?                     //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 вне форума   Ответить с цитированием
За это сообщение alexteam нажился 2 спасибками от: