[atukal]

вот под l2phx

const
  message := 'Ваше сообщение в чат'; 

var
 Timer01: TTimer;

procedure Init; //will be called on script initialization
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=60000; //1 раз в минуту
end;

procedure Free; //This method calls when script don't need anymore
begin
  Timer01.free;
end;

procedure OnTimer01(Sender: TObject);
begin
  say();
end;

procedure say(msg:string);
begin
  buf:=#$4A;
  WriteS(msg);
  WriteD(1); // ALL = 0; SHOUT(!) = 1; PARTY(#) = 3; CLAN(@) = 4;
  SendToServer(); 
end;

//Primary part of dcript
//calls alltime when l2ph got new packet
begin
  if FromClient and (pck[1]+pck[2]=#$56#$0C) then
  begin
    Timer01.enabled:=not(Timer01.enabled);
  end;
end.