скрипт

[wimax]

Вот короче скрипт который при получения пакета запускает таймер01 и таймер03 который по окончанию запускает таймер02 который
в свою очередь начинает спам пакетом каждые 0.1 в секу после спамит до окончания времени таймера03 когда interval в нем офф то он
отрубает таймер02 и себя.

суть проблемы хули не пашыт?)))

var
Timer01: TTimer;
Timer02: TTimer;
Timer03: TTimer;

procedure Init; //первый таймер активирует второй
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer01.interval:=29000; //29000 интервал(в милисекундах) как часто таймер срабатывает
Timer02:=TTimer.Create(nil); //выделяем памать и т.п.
Timer02.OnTimer:=@OnTimer02; //привязываем процедуру к событию
Timer02.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer02.interval:=10; //30000интервал(в милисекундах) как часто таймер срабатывает
Timer03:=TTimer.Create(nil); //выделяем памать и т.п.
Timer03.OnTimer:=@OnTimer03; //привязываем процедуру к событию
Timer03.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer03.interval:=31000; //310000интервал(в милисекундах) как часто таймер срабатывает
end;

procedure OnTimer01(Sender: TObject);
begin
Timer01.enabled:=False;
Timer02.enabled:=True;
end;

procedure OnTimer02(Sender: TObject);
begin
pck:='';
buf:=HStr('C6 BF 07 00 00 01 00 00 00 03 00 00 00');
SendToServer;
end;

procedure OnTimer03(Sender: TObject);
begin
Timer03.enabled:=False;
Timer02.enabled:=False;
end;

begin
IF FromServer and (pck[1]=#$4A) and (ReadS(12)=('CTF: Старт через 5 мин. для уровней 76-85.') then
begin
Timer01.enabled:=True;
Timer03.enabled:=True;
end;
end.