const
  Name='Palevo';
var
  started :boolean; //есть чо?

procedure Init;
begin
 Randomize;
end;

begin
  if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
    case ReadD(2) of //SocialID
      //социальное действие Yes для начала
      6: begin
            pck:='';
            NoFreeOnClientDisconnect;
            NoFreeOnServerDisconnect;
            started:=true;
            buf:=#$7E; //гы-гы-гы
            SendToClientEx(Name); //паслать на...
      end;
    end;
  end;
  if FromServer and (ConnectName=Name) and (pck[1]=#$D3) and started then begin
    buf:=#$A8;
    WriteD(ReadD(2)); //pingid
    WriteD(Int(Random()*100)); //ping 0-100
    WriteD(2048); //const
    SendToServerEx(Name); //паслать на...
    pck:=''; //killhim :-F
  end;
end.