Рейтинг@Mail.ru
Перенаправление MSG траффика - Форум atms
Главная Мой профиль Регистрация Выход Вход
- Пятница, 14:27:1
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Скриптинг L2PHX "Lineage C4" (Давно заброшенный раздел) » Скрипты L2PHX "для хроник С4" » Перенаправление MSG траффика
Перенаправление MSG траффика
ПользовательДата: Вторник, 01 Января 2013, 23:39 | Сообщение # 1
Некто
Группа: Обычный пользователь
Сообщений: 141
Репутация: 19
Статус: Нет на форме
Перенаправление MSG траффика, если будет найдено сообщение о сборе на рб.
Ставим окно в городе где часто собирают на рб, и сами идем качатся.
Если кто то будет собирать на РБ то сообщения чата перенаправятся в главное окно и вы непропустите сборы на рб.
Код

{Перенаправление MSG траффика, если будет найдено сообщение о сборе на рб}
//Автор ATMS_DIFKS
var
name1,name2,name3,nik,ms:string;
t,l,oid,n:integer;
procedure Init; //Вызывается при включении скрипта
begin
name1:='****'; //от кого
name2:='***'; //кому
name3:='****'; //кому
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

if FromServer and (pck[1]=#$4A) and (ConnectName=name1) then
begin
oid:=ReadD(2);
t:=ReadD(6);
nik:=ReadS(10);
l:=12+(length(nik)*2);
ms:=ReadS(l);
  if (t <> 10) AND (t <> 17) then
  begin     
  n:=0;         
  //перенаправлять сообщение если в нем будут эти образци текста
  if n < 1 then n:=Pos(' рб',ms)-1;
  if n < 1 then n:=Pos(' РБ',ms)-1;  
  if n < 1 then n:=Pos(' Рб',ms)-1;
  if n < 1 then n:=Pos(' рБ',ms)-1;  
  if n < 1 then n:=Pos(' rb',ms)-1;  
  if n < 1 then n:=Pos(' RB',ms)-1;   
  //--------------------------------------------------------------
  if n >= 1 then  
  begin
    buf:=#$4A;  
    WriteD(oid);  
    WriteD(t);  
    WriteS('TR_'+nik);
    WriteS(ms);  
    SendToClientEX(name2);   
    buf:=#$4A;  
    WriteD(oid);  
    WriteD(t);  
    WriteS('TR_'+nik);
    WriteS(ms);  
    SendToClientEX(name3);  
    end;   
    end;
end;

end.


Да хранит вас Ctrl+S.
Да убережет вас Alt+F4 от порнобанера.
Админь...
 
Форум » Скриптинг L2PHX "Lineage C4" (Давно заброшенный раздел) » Скрипты L2PHX "для хроник С4" » Перенаправление MSG траффика
  • Страница 1 из 1
  • 1
Поиск:

atms 2009 © 2024