Проблема с TTimer

[Nimir]

Вот скрипт, почему не работает понять не могу :confused:


var GlobalTimer:TTimer;

procedure SendMessage(text:String);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(text);
SendToClient;
end;

procedure OnGlobalTimer(Sender: TObject);
begin
SendMessage('Текущее время '+TimeToStr(Time));
end;

procedure Init; //Вызывается при включении скрипта
begin
GlobalTimer:=TTimer.Create(nil);
GlobalTimer.OnTimer:=@OnGlobalTimer;
GlobalTimer.interval:=1000;
GlobalTimer.enabled:=true;
end;

procedure Free; //Вызывается при выключении скрипта
begin
GlobalTimer.Free;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.

[ZaN]

кажется отсутствует указание на клиент которому ты хочешь отправлять сообщение.
procedure Init;
begin
UseForConnectName := characterName;
GlobalTimer:=TTimer.Create(nil);
GlobalTimer.OnTimer:=@OnGlobalTimer;
GlobalTimer.interval:=1000;
GlobalTimer.enabled:=true;

end;