версия 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.