|
[VIP] Скрипт на дюп for PTS - Подполье Lineage 2 (0 уровень) - Темы, перенесенные из Подполья 1 уровня (архивные за 2008-2015). Отличная основа для поиска новых уязвимостей. |
25.04.2009, 09:25
|
#1
|
|
|
|
Рыцарь-защитник
|
Регистрация: 23.04.2008
Сообщений: 583
Популярность: 26705
Золото Zhyk.Ru: 100
Сказал(а) спасибо: 1,365
Поблагодарили 2,428 раз(а) в 666 сообщениях
|
[VIP] Скрипт на дюп for PTS
Как обещалось..Скрипт на дюп через ВХ для PTS серверов. Работает на многих серверах, пользуйтесь на здоровье
Код:
//WH Dupe Script by RaRus. 2008 //
// How to use!
// 1. You need clean wh.
// 2. You need item what you want to dupe first in the wh deposit list.
// How to do it:
// (Deposit your item what you want to dupe and withdraw it.
// You will have this item first in inv and deposit list).
// 3. Run the script using L2phx
// 4. Target a wh and try 'Deposit Item (Private Warehouse)'
// Script will deposit first item to wh
// 5. Do 'Withdraw Item (Private Warehouse)'
// (First time you will get msg : 'Dupe items: DB1(), DB2()'
// That means items is dupes.. Do it some times and you will get msg:
// 'WithDraw Duped: Amount()' Ok, dupe is done.
// 5575 = Ancient Adena
// 9374 = Donator Coin
// 6029 = Lunargent
// 1374 = Greater Haste Potion
var
dbid1,dbid2,am1,am2,dbid1_d,am1_d,ammount_d,whtype,ItemID,i,type:integer;
const
MIN=4; // Min amount of items.(you need to have MIN+1)
MAX=999; // Max amount of items (for AA or Adena can be more).
ID=9374; // ID of item what you want to dupe.
procedure Msg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(9);
WriteS('RaRus');
WriteS(msg);
SendToClient;
end;
procedure WithDraw2(OID,OID2,amountp:integer);
begin
buf:=#$32;
WriteD(3);
WriteD(OID);
WriteD(amountp);
WriteD(OID2);
WriteD(1);
WriteD(OID2);
WriteD(1);
SendToServer;
buf:=#$32;
WriteD(3);
WriteD(OID);
WriteD(amountp);
WriteD(OID2);
WriteD(1);
WriteD(OID2);
WriteD(1);
SendToServer;
end;
procedure DepItems(OID,amountp:integer);
begin
buf:=#$31;
WriteD(2);
WriteD(OID);
WriteD(amountp);
WriteD(OID);
WriteD(1);
SendToServer;
end;
procedure WithDrawDuped(OID,amountp:integer);
begin
buf:=#$32;
WriteD(1);
WriteD(OID);
WriteD(amountp);
SendToServer;
end;
begin
if FromServer and (pck[1]=#$41) then
begin
ItemID:=ReadD(16);
am1_d:=ReadD(20);
dbid1_d:=ReadD(38);
if ((ItemID) = ID) then
begin
if ((am1_d) > MIN) then
begin
ammount_d:=am1_d-3;
DepItems(dbid1_d,ammount_d);
Msg('Deposit items: DB1('+IntToStr(dbid1_d)+'), Amount('+IntToStr(ammount_d)+')');
end;
if ((am1_d) < MIN) then
begin
Msg('Deposit error: Amount('+IntToStr(am1_d)+')');
end;
if ((am1_d) > MAX) then
begin
Msg('Deposit error: Amount('+IntToStr(am1_d)+')');
end;
end;
end;
if FromServer and (pck[1]=#$42) then // Withdraw
begin
whtype:=ReadH(8); //this is not a smile, this is number 8 and symbol )
am1:=ReadD(20);
am2:=ReadD(60);
dbid1:=ReadD(38);
dbid2:=ReadD(78);
if ((am2) = 0) and ((am1) > 0) then
begin
WithDrawDuped(dbid1,am1);
Msg('WithDraw Duped: Amount('+IntToStr(am1)+')');
end;
if ((am2) > 0 ) and ((whtype) = 2 ) then
begin
WithDraw2(dbid1,dbid2,am1);
Msg('Dupe items: DB1('+IntToStr(dbid1)+'), DB2('+IntToStr(dbid2)+'), Amount('+IntToStr(am1)+')');
end;
if ((whtype) = 1 ) and ((am1) = 0) then
begin
Msg('WithDraw error: Amount('+IntToStr(am1)+')');
end;
if ((am1) > MAX) then
begin
Msg('WithDraw error: Amount more than MAX ('+IntToStr(am1)+')');
end;
end;
end.
|
|
|
25.04.2009, 14:07
|
#2
|
|
|
|
Рыцарь
|
Регистрация: 12.04.2009
Сообщений: 394
Популярность: 47903
Сказал(а) спасибо: 515
Поблагодарили 1,124 раз(а) в 430 сообщениях
|
Re: Скрипт на дюп for PTS
________________
В любом из нас спит гений. И с каждым днем все крепче.
Запомните раз и навсегда:= 'Помочь' <> 'Сделайте за меня';
|
|
|
26.04.2009, 09:57
|
#4
|
|
|
|
Рыцарь
|
Регистрация: 02.05.2008
Сообщений: 324
Популярность: 11155
Сказал(а) спасибо: 629
Поблагодарили 315 раз(а) в 180 сообщениях
|
Re: Скрипт на дюп for PTS
Сейчас буду тестить везде вплоть до Грации Финал. Ждите..
Добавлено через 4 часа 50 минут
Где я только не тестил, НИГДЕ НЕ РАБОТАЕТ...
________________
2nice <3
Последний раз редактировалось Loreg; 26.04.2009 в 14:47.
Причина: Добавлено сообщение
|
|
|
27.04.2009, 19:14
|
#5
|
|
|
|
Рыцарь-защитник
|
Регистрация: 23.04.2008
Сообщений: 583
Популярность: 26705
Золото Zhyk.Ru: 100
Сказал(а) спасибо: 1,365
Поблагодарили 2,428 раз(а) в 666 сообщениях
|
Re: Скрипт на дюп for PTS
Перевод:
/ / Как пользоваться!
/ / 1. Вам потребуется чистый WH.
/ / 2. Нужно положить итем, который вы хотите дюпнуть в первую строчку (ячейку) банка.
/ / Как это сделать:
/ / (Снимите и положите в вх итем который хотите дюпать.
/ / Объязательно положите в первую ячейку).
/ / 3. Запустите скрипт через L2phx
/ / 4. Встаньте рядом с ВХ и нажмите "Deposit Item" (положить на складу)
/ / Скрипт положит итем на склад (первая ячейка)
/ / 5. Затем скрипт возьмет итем со склада
/ / (Первый раз, когда вы получите сообщение: "Итемов дюпнулось: DB1 (), DB2 () '
/ / Это значит, итем дюпнулся .. Сделайте это несколько раз и вы получите сообщение:
/ / 'Снято Duped: Сумма ()' - вы сделали дюп.
Вроде перевел правильно, у кого какие замечания будут?
2Loreg, автор скрипта не я, работает на забугорных сервера - точно. В последних dle вампира пофикшено.
p.s. работает вроде только на интерлюде (хотя точных сведений нету)
|
|
|
27.04.2009, 19:19
|
#6
|
|
|
|
Рыцарь
|
Регистрация: 02.05.2008
Сообщений: 324
Популярность: 11155
Сказал(а) спасибо: 629
Поблагодарили 315 раз(а) в 180 сообщениях
|
Re: Скрипт на дюп for PTS
Сейчас тест дубль 2.
Вроде всё так и делал.
Но не понятен пункт 3.
Скрипт сначала не должен быть запущен т.е.?
*ушёл тест С4
________________
2nice <3
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 12:36.
|
|