Цитата:
Сообщение от Stasrus
тип переменной разные ставил все равно ругается.
Еще такой вопроик как можно убить все пакеты кроме нетпинга сервер-клиент\клиент-сервер после получения 0x03 (EnterWorld)
|
var
flag:boolean;
procedure Init;
begin
flag:=true;
end;
begin
if (pck[1]=#$03) then flag:=false;
if flag then exit;
if FromServer and (pck[1]<>#$D3) then pck:='';
if FromClient and (pck[1]<>A8) then pck:='';
end.
Добавлено через 2 минуты
ratvier, еще больше запутал))))