[@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. 


[@BlowUminD]

Еще бы функцию запоминания ников, чтобы не слал 2 раза одному и тому же и будет 1 в 1 Smart Spammer. Да и под хайд желательно, заебут ведь, и так эти торговцы все чаты засирают.

[@broveymimo]

А он как раз и будет слать только один раз сообщение каждому игроку (такая специфика РФОнлайн).

[@BlowUminD]

да чет и не подумал) он самый 031f

[@RFbager]

Я сейчас работу над прогой начал делать,что будет происходить:
1)Тюнинг клиента с максимальным разгрузом видеокарты.
2)Автоматическая загрузка всех персонажей на всех серверах за все расы.
3)Влючение спама в ЛС,чат карты.
4)Проверка на бан чата и бан акаунта,и соответственно пересоздание персонажа или заход на другой аккаунт.

Прога продаваться не будет)))))

[@broveymimo]

Хайд на усмотрение Дарка. Тем более что те, у кого 400+ постов и сами могут сделать подобное.

Сообщение от Dr. Cox

Моя темка натолкнула его на это :)))

По теме:
Спасибо большое за скрипт!

Добавлено через 2 минуты
ps а куда этот скрипт впихивать? в рудокопа во вкладку "скрипты" ?

Да!!! :)

[@Dr. Cox]

[6] Неизвестная команда
var PID,namel,textl,textpml,charnamel,le,ls,startl,sto pl:integer;

устрани плз ошибку :)

Сообщение от Dr. Cox

устрани плз ошибку :)

Ща сдохну

[@Dr. Cox]

ну ошибку выдает )

ps сдыхай-сдыхай) посты только мне оставь :)