Не знаю, было или нет, но накатал скриптик автоматической отправки сообщений в чат по таймеру. Если было потрите..
Цитата:
//Авточат, по таймеру by boyan
//Автоматическая отсылка сообщений в чат, через определенные промежутки времени.
//В Name вписываем ник перса с которого будут отсылаться сообщения, в msg - само сообщение.
//Если нужно отправлять с нескольких персов, добавляем константы Name1..NameN и msg1..msgN соответственно
//и для каждого нового перса создаем в процедуре OnTimer следующий блок(например для Name1 и msg1):
// buf:=#$38;
// WriteS(msg1);
// WriteD(1);
// SendToServerEx(Name1);
//Интервал отправки сообщений задается в timer1.interval:=10000; (в миллисекундах)
//Чат в который отправлять задается в WriteD(1); 0 - общий, 1 - шаут, 8 - трейд
const
Name='';
msg='';
var
timer1: TTimer;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=true;
timer1.interval:=10000;
end;
procedure OnTimer(Sender: TObject);
begin
buf:=#$38;
WriteS(msg);
WriteD(1);
SendToServerEx(Name);
end;
procedure Free;
begin
timer1.Free;
end;
begin
end.
|