[kpa9pt]

вот написал только-что результат на лицо.
Скрипт устроен так(чтоб вы голову особо не забивали) если от клиента приходит пакет say то чар шлёт на сервер пакет p1, в моём случае say - сказать в чат "сесть" , а p1 - пакет на то чтоб сесть.
Врубаем скрипт в нём каждые 6000милисекунд отправляеться на сервер пакет say, и чар пишет в чат "сесть", но пакет p1 не шлёться на сервер, но стоит мне с клиента самому набрать в чате "сесть" тоесть отправить пакет say вручную , то чар садиться, вот код:

const
p1='56 00 00 00 00 00 00 00 00 00';
nik='JealouS';
say='49 41 04 35 04 41 04 42 04 4C 04 00 00 00 00 00 00';
var
i:integer;
timer:TTimer;
timer2:TTimer;
procedure Init;
          begin
               timer:=TTimer.Create(nil);
               timer.OnTimer:=@OnTimer;
               timer.enabled:=false;
               timer.interval:=3000;

               timer2:=TTimer.Create(nil);
               timer2.OnTimer:=@OnTimer2;
               timer2.enabled:=true;
               timer2.interval:=6000;

               end;
procedure OnTimer(Sender: TObject);
          begin
               buf:=hstr(p1);
               SendToServerex(nik);
               timer.enabled:=false;
          end;
procedure OnTimer2(Sender: TObject);
          begin
               buf:=hstr(say);
               SendToServerex(nik);
          end;
procedure Free;
          begin
               timer.Free;
               timer2.Free;
           end;
begin
if fromclient and (ConnectName=nik) and (pck=hstr(say)) then
timer.enabled:=true;
end.