Перенаправление 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.