[Скрипт] Фильтр лута РФЧ

[BMX347]

Скрипт сырой , честно скажу я не тестил (скрипт настроен на пвп вар х 50)



//Скрипт для фильтрации дропа

//Для активации скрипта /drop +
//Для отключения скрипта /drop -

var start, stop, name, from: string;
PID, le, startl, stopl, namel, grp, GID, froml: integer;
Flag, IFlag, Gflag: boolean;

procedure OnCreate;
begin
le := 23;
from := 'Скрипт';
froml := 19 - Length(from);
start := '+';
startl := length(start);
stop := '-';
stopl := length(stop);
name := 'drop';
namel := length(name);
flag := false;
end;

Procedure MsgInfo(msg: string);
begin
gSys.EnSendC(FormatPck('%hcdacca', [$0A02, 02, 0, from + FStr(froml), Length(msg) + 2, 0, msg + #0]));
gSys.Sleep(15);
end;

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

if not (_gFromServ) and (PID = $0302) then
begin
if strcmp(copy(_gBuff, 5, namel), name) then
begin
if strcmp(copy(_gBuff, le, startl), start) then
begin
Flag := true;
MsgInfo('Фильтр дропа запущен');
end;
if strcmp(copy(_gBuff, le, stopl), stop) then
begin
Flag := false;
MsgInfo('Фильтр дропа остановлен');
end;
gBlockPacket;
end;
end;

if _gFromServ then
case PID of
$660D: begin
MsgInfo('Скрипт для фильтрации дропа');
MsgInfo('by Enigma (c)');
MsgInfo('');
MsgInfo('/drop + для запуска скрипта');
MsgInfo('/drop - для остановки скрита');
MsgInfo('~~~~~~~~~~~~~~~~');
end;
$1403: if Flag then
begin
grp := gInt(_gbuff, 5, 1); //получаем ID групы
GID := gInt(_gbuff, 6, 2); //получаем ID предмета
IFlag := false;
GFlag := false;
//if not ((grp = 20) and ((GID = 583) or (GID = 77) or (GID = 78))) then // Фарм ремней убийцы и стружки с пчи
//if not ((grp = 31) and ((GID = 333) or (GID = 334))) then //Фарм коробок бустеров
//if not (((grp = 9) or (grp = 8)) and ((GID = 1061) or (GID = 1088) or (GID = 1089))) then //Фарм ДДД бижи
if not ((grp=18) and (GID=105)) then //Фарм кристальной талики
//if not ((grp = 18) and ((GID = 20) or (GID = 22) or (GID = 23) or (GID = 25))) then //Фарм талик: невежи, покровы, тьма, хаос
gBlockPacket;
end;
end;
END.


потом если найду базу лута найду для этого скрипта

[UKR90]

какая прога нужна???

[Relapsein]

Прямиком с рфч , не?
Прога - WPF.

[BMX347]

Цитата: Сообщение от Relapsein Прямиком с рфч , не? Прога - WPF.

Ты тему внимательнее читай РФЧ логично было бы догадаться что от туда слито

[UKR90]

Цитата: Сообщение от Relapsein Прога - WPF.

де скачать можна??

[al11x]

Цитата: Сообщение от UKR90 де скачать можна??

На сайте программы ---> [Ссылки могут видеть только зарегистрированные пользователи. ]

[UKR90]

а прога сама лутает или пробел нада зажимать???

[MuXyuJI]

Цитата: Сообщение от UKR90 а прога сама лутает или пробел нада зажимать???

Ответы на все ваши вопросы, написаны в название темы. Фильтр (а не авто лутер) лута РФЧ (С rf-cheats). Модераторы почистите пожалуйста тему от лишнего флуда.

[tornad[c]]

куда вводить скрипт надо подскажите?

[Jil[o]n]

есть ли на х 100 просьба выложить

[2009n]

а что делать если пакеты зашифрованы? как сделать фильтр?

[Bosee]

Нинадо было поднимать старую тему.
И темболее этот фильтр уже давно не работает

[2009n]

фильтр работает если пакеты на сервере не зашифрованы, тоесть если серв отсылает и принимает стандартного вида пакеты то фильтр отлично работает

[Тигрь]

Цитата: Сообщение от 2009n а что делать если пакеты зашифрованы? как сделать фильтр?

Расшифровать. Но тебе это не поможет. Флуд мод офф. Кто будет флудить получит красную карточку.

[Bosee]

Цитата: Сообщение от BMX347 потом если найду базу лута найду для этого скрипта

[Ссылки могут видеть только зарегистрированные пользователи. ]

В данной программе всё предельно ясно, вбиваете в поиск что вам нужно и ищете во всех категориях.

Пример:

Амулет дагона => grp=9 GID=1061

Оформляете так -_-

//if not ((grp=9) and (GID=1061)) then //Амулет дагона