Написал специально без комментариев, чтобы жизнь малиной не казалась.
Скрипт полностью отвечает твоим условиям.
delphi Код:
var
Z_TIMER: TTimer;
NEXT_PCK: integer;
procedure Init;
begin
Z_TIMER:=TTimer.Create(nil);
Z_TIMER.OnTimer:=@On_TIMER();
Z_TIMER.enabled:=true;
Z_TIMER.interval:=10000;
NEXT_PCK:=1;
end;
procedure Free;
begin
Z_TIMER.enabled:=false;
Z_TIMER.Free;
end;
procedure SEND_NOTICE(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(3);
WriteS('');
WriteS(msg);
SendToClientEx('Allineer');
end;
procedure On_TIMER(Sender: TObject);
begin
case NEXT_PCK of
1: begin
SEND_NOTICE('Пакет 1');
NEXT_PCK:=2;
end;
2: begin
SEND_NOTICE('Пакет 2');
NEXT_PCK:=3;
end;
3: begin
SEND_NOTICE('Пакет 3');
NEXT_PCK:=1;
end;
end;
end;
begin
end.
alexteam, камменты в коде из 7 поста ржачные)