Цитата:
Сообщение от Despair
Senttoserverex('имя перса');
|
Сделай примерно так
delphi Код:
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;
Воспользуйся поиском и найди
посылку пакетов с помощью таймера.
Рандомную задержку там сделай так
delphi Код:
//рандомное время задержки между улучшениями
timer.interval:=1000+round(random()*1000); //время задержки