delphi Код:
procedure Init; //Вызывается при включении скрипта
begin
delphi Код:
[b]end;[/b]
[b]procedure Free; //Вызывается при выключении скрипта
begin[/b]
[b]end;[/b]
[b]procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin[/b]
[b]end;[/b]
[b]
procedure OnDisconnect(WithClient: Boolean); //Вызывается при установке соединения
begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
end;
begin
if (FromServer) then
begin
if pck[1]=#$03 then
pck:='';
end;
end.
[/b]
Faust, сделаю, ток лень щас
вот первая версия скрипта