|
массовая рассылка в пм lineage2 ит - Общение и обсуждение, архив Lineage 2 - Cобытия, информация, вопросы и ответы по Lineage 2 |
27.11.2010, 16:59
|
#1
|
|
|
|
Разведчик
|
Регистрация: 03.09.2009
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
массовая рассылка в пм lineage2 ит
есть ли массовая рассылка в пм lineage2 интерлуд
при входе в игру приходил спам в пм
|
|
|
27.11.2010, 17:12
|
#2
|
|
|
|
Разведчик
|
Регистрация: 26.11.2010
Сообщений: 38
Популярность: -268
Сказал(а) спасибо: 29
Поблагодарили 44 раз(а) в 24 сообщениях
|
Re: массовая рассылка в пм lineage2 ит
хмм, в 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
Последний раз редактировалось ClassID; 27.11.2010 в 17:15.
|
|
|
07.12.2010, 17:58
|
#3
|
|
|
|
Разведчик
|
Регистрация: 06.12.2010
Сообщений: 0
Популярность: -43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: массовая рассылка в пм lineage2 ит
+
|
|
|
25.01.2012, 07:57
|
#4
|
|
|
|
Разведчик
|
Регистрация: 13.01.2012
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: массовая рассылка в пм lineage2 ит
А можешь ли ты написать скрипт для рассылки на high five , за ранее спасибо
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 14:42.
|
|