[@broveymimo]

На идею создания данного скрипта натолкнула вот эта тема https://www.rf-cheats.ru/forum/showthread.php?t=46211.

Итак, представляю вашему вниманию PMSpamer.
Суть его работы заключается в том, что он шлет заранее подготовленный текст любому, кто встретится у него на пути. Выглядит это примерно так:



Для управления скриптом имеются следующие команды:
Ввести текст сообщения SendPMessage("PMS","TEXT текстсообщения")
Запуск спамера SendPMessage("PMS","START")
Останов спамера SendPMessage("PMS","STOP")

Либо из клиента:
/PMS TEXT текстсообщения
/PMS START
/PMS STOP

А вот и сам скрипт:

PHP код:

// Скрипт PMSpamer v.1.0. (c) broveymimo
// Ввести текст сообщения     SendPMessage("PMS","TEXT текстсообщения")
// Запуск спамера             SendPMessage("PMS","START")
// Останов спамера            SendPMessage("PMS","STOP")

var PID,namel,textl,textpml,charnamel,le,ls,startl,stopl:integer;
    text,textpm,stop,start,name,charname:string;
    flag:boolean;

procedure OnCreate;
begin
 le:=23;
 ls:=46;
 start:='START';
 startl:=length(start);
 stop:='STOP';
 stopl:=length(stop);
 name:='PMS';
 namel:=length(name);
 text:='TEXT';
 textl:=length(text);
 flag:=false;
end;

begin
 if length(_gBuff) < 4 then exit;
 PID := GInt(_gBuff,3,2);

if not _gFromServ then case PID of
  $0302: begin
   if strcmp(copy(_gBuff,5,namel),name) then
   begin
    if strcmp(copy(_gBuff,le,textl),text) then
    begin
     textpm:=copy(_gBuff,(le+textl+1),(length(_gBuff)-le-textl-1));
     textpml:=length(textpm);
    end;
    if strcmp(copy(_gBuff,le,startl),start) then flag:=true;
    if strcmp(copy(_gBuff,le,stopl),stop) then flag:=false;
   gBlockPacket;
  end;
 end;
end;
if _gFromServ and flag then
 case PID of
  $1F03: begin
   charname:=copy(_gBuff,ls,17);
   gSys.SendS(FormatPck('%haca',***91;$0302,charname,textpml,textpm+#0***93;));
  end;
 end;
end.