const Name='123';//Тут писать ник procedure Init; begin end; procedure Free; begin end; //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin if fromclient and (pck[1]=#$2A) then pck:=''; if (ConnectName=Name) and FromServer and (pck[1]=#$39) then begin buf:=#$2A; WriteD(1); // 0 - отказ от пати SendToServerEx(Name); end; end.