[Lynx]

версия 162. написал вроде всё правильно.Оффтоп

var
monster:ttimer;
procedure Init; //Вызывается при включении скрипта
begin
monster:=TTimer.Create(nil);
monster.OnTimer:=@Onmonster; //
monster.enabled:=false; //
monster.interval:=5000;

end;


procedure SAY(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure OnMonster;
begin
say('hallo');
end;
procedure Free; //Вызывается при выключении скрипта
begin
monster.enabled:=false;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
monster.enabled:=true;
end.