Код:
var
timer: TTimer;
procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimerHP; //функция которая будет вызыватся
timer.enabled:=false; //таймер выключен по умолчанию
timer.interval:=2500; //время задержки
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer.Free;
end;
procedure OnTimerHP(Sender: TObject);
begin
timer.enabled:=false; //включение выключение таймера (false\true)
end;
//основная часть вызывается при приходе всех пакетов
//тут пишешь на какой пакет вкл или выкл таймер
//вкл соответственно по приходу пакета о том что заточилось
begin
if FromServer and (pck[1]=#$65) then begin //я не знаю грацию пакеты сам смотри
//вкл таймер
timer.enabled:=true;
end;
//про цифру 1 в чат аналогично ловишь пакет читаешь текст, пакет будет только FromClient, ну и таймер выключаешь.
end.
лучше переменую глобальную заведи включен скрипт или нет
и добавляй в эвенты по типу and (statuswork=1)