Заточка вещей(необходимый апгрейд скрипта)

[alxabay]

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)