[metalFan]

procedure Init; //Вызывается при включении скрипта
begin

[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, сделаю, ток лень щас
вот первая версия скрипта