[Скрипт] Фильтрация дропа через PPC

[Hummel]

Недавно вот наткнулся на пару скриптов от hePPer'a - полезная штука

// Фильтр дропа РФО (WP v5.0xF Type-WPS)
// Made by hePPer (c)

if _gFromServ and copy(_gBuff,3,2) = HStr('03 14') then begin
a :=copy(_gbuff,5,1); //группа игнорируемых предметов
b :=copy(_gbuff,6,2); //ИД оставляемого предмета втч из игнорируемой группы
i :=0;
j :=0;

if b=hstr('6901') or b=hstr('1600') or b=hstr('1700') then i:=1; //нужные предметы
if a=#$12 or a=#$14 or a=#$17 then j:=1; //игнорируем по группе

if i=0 and j=1 then gBlockPacket; //фильтруем указанные группы если нет нужного предмета
end;

//группы ===========================================
//h12-стружка,талики;
//h14-ресурсы;
//h00-торс;???
//h01-ноги;
//h02-перчатки;
//h03-ступни;
//h04-голова;
//h05-щит;
//h06-оружие;
//h08-кольцо;
//h09-амулет;

//ИД некоторых важных предметов======================
//ИД -- h1D00-Куб изобретателя -(группа h1F)
//ИД -- h6901-редкая руда
//ИД -- h1700-Бим
//ИД -- h1600-глю
//ИД -- h0300-рина
//ИД -- h3B00-кусок оливковой стружки
//ИД -- h1600-Талика тьмы
//ИД -- h1700-Талика хаоса
//ИД -- h1F00-Талика милосердия
//ИД -- h1400-Талика невежества
//ИД -- h1900-Талика покровительства
//ИД -- h2000-Талика грации
//ИД -- h2100-Талика забвения
//ИД -- h5602-Грубый реликтовый чип (распечатка реликта)
//ИД -- h5702-Обработанный реликтовый чип
//ИД -- h5802-Безупречный реликтовый чип

Данный скрипт позволяет не отображать в клиенте, выпадающий из мобов лут, это может помочь при фарме определённых ресурсов, вещей и т.п. Особенно полезен на высокорейтовых серверах. Скрипт для WPPC от Sauron"а. При небольшой правке скрипта можно установить фильтр на нужные предметы.

// Фильтр дропа РФО v.II (WP v5.0xF Type-FS)
// Made by hePPer (c)
//Для запуска скрипта необходимо бафнуться (бафом воина или стрелка)
var
mine,gids,ids,le,si: integer;
did,dgid,ID,dcid,cid,csid,s01: string;
Procedure OnCreate; // однократно вызывается для инициализации скрипта
begin
ids :=0;
gids :=0;
mine:=1; //Переключатель для отображения/скрытия чужого дропа 1-видим только наш лут, 0-весь
ID := '';
si:=0;
s01 := FStr(19);
cid:='';
csid:='';
dcid:='';
end;
BEGIN
//Get ID packet & len
ID :=copy(_gBuff,3,2);
le := length(_gBuff);
if le < 4 then exit;
//сброс флажков
ids:=0;
gids:=0;
//Seek my ID
if (not _gFromServ) and (ID=hstr('1104')) and (si=0) then begin
cid:=copy(_gBuff,9,4);
csid:=copy(_gBuff,7,2);
si:=1;
gSys.SendC(hstr('3a00020A 02')+cid+s01+#$1c+'SPBF :Status-Ready, Filtr-ON'+#$0);
exit;
end;
//Filtr
if ((_gFromServ) and (si=1) and (ID = HStr('03 14'))) then begin
dgid :=copy(_gbuff,5,1); //получение группы предметов
did :=copy(_gbuff,6,2); //получение ИД предмета
dcid :=copy(_gbuff,11,4); //получение "владельца" дропа
if (mine=1) and (dcid<>cid) then begin //если дроп не мой то неотображаем (mine=1/0)
gBlockPacket;
exit;
end;
if
(did=hstr('6901')) or
(did=hstr('1600')) or
(did=hstr('1700'))
then ids:=1; //нужные предметы
if
(dgid=#$12) or
(dgid=#$14) or
(dgid=#$17) or
then gids:=1; //игнорируем по группе
if (ids=0) and (gids=1) then begin //фильтруем указанные группы если нет нужного предмета
gBlockPacket;
exit;
end;
end;
END.

Ещё один вариант фильтра с небольшим исправлением

[Danilk]

и как этот скрипт запустить?
куда его засунуть, что с ним вообще делать?

[Leo_ня]

в впф, сказано же..

[Danilk]

а поточнее можно, как его и куда в WPF пихнуть что бы работал?
и вообще это на 6апе будет работать?

[Leo_ня]

тыкаешь по онлайн соединению, жмёшь пимпу "редактирование скриптов онлайн". туда вставляешь скрипт. Только смотри, чтобы скрипт был в фс. Лучше сначала засунь в скрипт тестер, там в фс сохрани.

[Dementr]

Вопрос,это как-то палиться?Вещь полезная,но в бане сидеть не охото

[Глюконатор]

Как это может палиться если идет блок пакетов на стороне клиента?!

[Гексаэдр]

Цитата: Сообщение от Глюконатор Как это может палиться если идет блок пакетов на стороне клиента?!

Палится тем, что перс оставляет ***** на земле)
При быстром подборе это палевно

[Глюконатор]

И как ты докажешь, что кто-то юзает этот фильтр? Мне оч интересно =)

[Гексаэдр]

Я и не собираюсь доказывать ^^
Я просто сказал, что это выгядело бы странно

[Leo_ня]

выглядело бы странно, если подбираешь всякое г, а тру шмот оставляешь лежать

[Akuma]

А как сделать чтобы собиралась только глю бим и рина только они=)

[Leo_ня]

вставляешь ID

Цитата: только глю бим и рина только они=)

[brat02]

Сказ прав, когда у тебя 5 лут карт и куча лута на земле и ты быстро подбираешь всё, что тебе надо, а г.. остаётся на земле и ты бежишь к другому мобу, то выглядеть будет палёвно, хотя за тему спасибо, кто-нибудь на 6апе потестил?

[Leo_ня]

чего тестить? работает конечно. пакеты же не меняли.