чар некоторое время сидит и потом вылетает, в чём может быть ошибка? :o
Код:
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.
ps звиняюсь за тупость :pardon: