[Помогите!] массовая рассылка в пм lineage2 ит

[xxxppp]

есть ли массовая рассылка в пм lineage2 интерлуд
при входе в игру приходил спам в пм

[ClassID]

хмм, в 1 пм можно сделать макрос, или скриптом попробовать:

var
  m: TMemo;
  frm:TForm;
  penel: TPanel;
  etext:  tedit;
  button: tbutton;
  i: Integer;
  Message, Name: String;

procedure SendMs(Sender: TButton);
var
  Msg, Nm: String;
  dd: integer;
begin
  if etext.text<>'' then begin
    buf:=#$38;
    case etext.text[1] of
      '!': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=1;
        nm:='';
      end;
      '$': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=9;
        nm:='';
      end;
      '+': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=8;
        nm:='';
      end;
      '"': begin
        dd:=pos(' ', etext.text);
        Msg:=Copy(etext.text,dd+1,1000);
        nm:=Copy(etext.text,2,dd-3);
        dd:=2;
      end;
      '#': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=3;
        nm:='';
      end;
      '@': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=4;
        nm:='';
      end;
      else begin
        Msg:=etext.text;
        dd:=0;
        nm:='';
      end;
    end;
    WriteS(Msg);
    WriteD(dd);
    if nm<>'' then WriteS(Nm);
    SendToServer;
  end;
end;

procedure Init;
begin
  frm := TForm.Create(nil);
  frm.Caption := 'Chat';
  frm.BorderStyle := bsSizeable;
  frm.Position := poScreenCenter;
  frm.Width:=400;
  frm.Height:=600;
  m:=TMemo.Create(frm);
  m.parent:=frm;
  m.align:=alClient;
  m.ReadOnly:=true;
  m.ScrollBars:=ssBoth;
  penel:=TPanel.Create(frm);
  penel.parent:=frm;
  penel.align:=alBottom;
  penel.height:=24;
  button:=tbutton.Create(penel);
  button.parent:=penel;
  button.align:=alRight;
  button.caption:='Послать';
  button.onClick:=@SendMs;
  etext:=tedit.Create(penel);
  etext.parent:=penel;
  etext.align:=alClient;
  frm.Show;
end;

procedure Free;
begin
  etext.Free;
  button.Free;
  penel.Free;
  m.Free;
  frm.Free;
end;

begin
if FromServer and (pck[1]=#$4a) then
  begin
    i:=10;
    name:=ReadS(i);
    message:=ReadS(i);
    if name='' then name:='Обьявление';
    m.Lines.Add(Name+': '+message);
  end;
end.

тема уже создавалась: http://zhyk.ru/forum/showthread.php?t=5540

[kilograma]

+

[nbozhko2]

А можешь ли ты написать скрипт для рассылки на high five , за ранее спасибо