Таймер, пакеты с задержкой

[NLObP]

Сообщение от Despair

Senttoserverex('имя перса');

Сделай примерно так

const
  Name='NLObP'; //Вписать сюда имя чара

procedure Init; //Вызывается при включении скрипта
begin
  UseForConnectName:=Name;
end;

//......................................
//послать сообщение в чат
//use: SendMessage(msg);
procedure SendMessage(msg:string);  //отправка системных сообщений клиенту
begin
  buf:=#$4A;     //4A=CreatureSay:d(ObjectID)d(TextType)s(CharName)s(Text)
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient
end;

Воспользуйся поиском и найди посылку пакетов с помощью таймера.

Рандомную задержку там сделай так

//рандомное время задержки между улучшениями
  timer.interval:=1000+round(random()*1000); //время задержки