Скрипт на чат

[bshviper]

Есть ли у кого-то скрипт, который бы писал всем в ПМ\френд? Хроники С4-ХБ ПТС. Либо при появлении чара в зоне видимости ему отправлялся текст?

И подскажите что нужно, чтобы с нуля его написать, какие переменные как связать?

[klemberg]

при появлении чара в зоне видимости
CharInfo от сервера
Say2 серверу

[Cowcancry]

const
MyName='';

var
m: TStrings;
i: Integer;
Message, Name: String;

procedure Init;
begin
m:=TStringList.Create;
Message:=' '; // <<---- Текст рекламного сообщения.
end;

procedure Free;
begin
m.Free;
end;

procedure SendPrivate(Name: string);
begin
buf:=#$38;
WriteS(Message);
WriteD(2);
WriteS(Name);
SendToServerEx(MyName);
end;

begin
if FromServer and (pck[1]=#$03) and (ConnectName=MyName) then
begin
i:=22;
Name:=ReadS(i);
if m.IndexOf(Name)=-1 then begin
SendPrivate(Name);
m.Add(Name);
end;
end;
end.
Скрипт на спам в пм Interlude PTS

[QuesT]

а можно ли брать каким то образом инфу о скажем то что проигрываетсо в винампе и что бы при команде скажем /w писало трэк который сча проигрываетсо? вот у мну есть StrongDC там в чат пишеш /w и показывает какая ща песня играет. возможно ли вообще такое провернутЬ?