[alexteam]

Legioner_noob, достаточно было просто пойманый пакет say2 всунуть в отправку и включить отправку по таймеру...
но мы как всегда пойдем дальше...
Оффтоп

const
  player = 'yourNickName'; //Заполнить имя персонажа. и включить. 
  
  
  
  
var
 Form : Tform;
 Text : Tedit;
 Interval : Tedit;
 Btn : Tbutton;
 Timer: TTimer;
 L,l2,l3 : Tlabel;
 cb : tcombobox;
 
procedure Init; //will be called on script initialization
begin
   UseForConnectName := player;
   Form := Tform.create(nil);
   l := Tlabel.create(form);
   l.parent := form;
   l.caption := 'Текст:';
   l.top := 4;            
   
   Text := Tedit.create(form);
   text.parent := form;
   Text.Width := 200; 
   text.left := 90;     
   
   cb := tcombobox.create(form);
   cb.parent := form;
   cb.left := 90;
   cb.width := 100;
   cb.style := csDropDownList;
   cb.top := 28; 
   cb.items.add('Simple message'); //0
   cb.items.add('Shout (!)'); //1
   cb.items.add('Trade (+)'); //8
   cb.items.add('Hero chat (17)'); //17
   cb.itemindex := 1;          
   
   l2 := Tlabel.create(form);
   l2.parent := form;
   l2.caption := 'Тип чата:';
   l2.top := 32;                
   
   Interval := Tedit.create(form);
   Interval.parent := form;
   Interval.Width := 100; 
   Interval.top := 56; 
   Interval.left := 90;
   Interval.text := '60'; 
   
   l3 := Tlabel.create(form);
   l3.parent := form;
   l3.caption := 'Интервал(сек):';
   l3.top := 60;
   
   Btn := Tbutton.create(form);
   Btn.parent := form;
   Btn.height := 52;
   Btn.width := 90;
   Btn.left := 200;
   Btn.top := 28;
   Btn.caption := 'Start';
   Btn.OnClick := @BtnHandler;
   
   
   Timer:=TTimer.Create(nil);
   Timer.OnTimer:=@OnTimer;
   Timer.enabled:=false;
   
   Form.caption := 'ГоворилкО';
   form.formstyle := fsstayontop;
   form.borderstyle := bsToolWindow;
   form.autosize := true;
   form.bordericons := nil;
   form.borderwidth := 5;
   form.onclosequery := @FormCloseQuery;
   form.show;
end;


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := false;
end;

procedure BtnHandler(Sender: TObject);
begin
  try
    timer.interval := strtoint(interval.text)*1000;
  except
    timer.interval := 60000;
    interval.text := '60';
  end;
  timer.enabled := not timer.enabled;
  Interval.enabled := not timer.enabled;  
  text.enabled := not timer.enabled;  
  
  if timer.enabled then
    btn.caption := 'Stop'
  else                   
    btn.caption := 'Start';
 
end;

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

procedure OnTimer(Sender: TObject);
var
  chattype:integer;
begin
  if text.text = '' then exit;
  
  case cb.itemindex of
    0 : chattype := 0;
    1 : chattype := 1;
    2 : chattype := 8;
    3 : chattype := 17;
  else
    chattype := 1;    
  end;
  
  buf := '';
  writemask('csd',[$49, text.text, chattype]); 
  SendToServer;
end;

begin
end.