Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Общий раздел Lineage 2 » l2phx » Флудим через l2phx (Флудим через l2phx)
Флудим через l2phx
WolfДата: Воскресенье, 10.10.2010, 14:24 | Сообщение # 1
Король Lineage 2
Группа: Администраторы
Сообщений: 356
Награды: 11 [ 10026 ]
Статус: Offline
Скрипт рассылки рекламных сообщений в приват
Code
// Скрипт рассылки рекламных сообщений в приват by xkor
//Рассылка ведется всем персонажам, которые появляются в зоне вашей видимости. Если вы включаете скрипт в городе где много персов, то сообщения будут отсылаться по мере прихода клиенту пакета #03 (UserInfo), которые приходят либо для новых персов в зоне видимости, либо для персонажей, совершающих различные дествия(каст заклинаний, передвижения, социальные действия и т.д. и т.п)

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.

//Я немного подкоректировал скрипт, добавив проверку "имени соединения", чтобы скрипт мог работать при нескольких активных клиентах L2. Точнее он и так работал бы, но нам то нужно чтобы именно "рекламщик" слал сообщения, а не все персы подряд.. =)

Автоматическая отсылка сообщений в чат, через определенные промежутки времени.

Code
//Авточат, по таймеру 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.
 
Форум » Общий раздел Lineage 2 » l2phx » Флудим через l2phx (Флудим через l2phx)
  • Страница 1 из 1
  • 1
Поиск:

Хостинг от uCoz
>