WH Dupe Script

[deMEV]

//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.

 

Work on all PTS (without fix)

[DreaM]

We'll have to test that!

[St0rmy]

for what chronic it

[Emrys]

I will test it now, I twork on gracia?if it is working hide it on 700 post!!

[bugy]

tried dragon-network dont work or I make some thing wrong

[shmeq]

Please tell us for what chronicle it is so we can test it.

[Raule]

I have this error when i try to activate the script

http://img522.imageshack.us/img522/779/errorr.jpg  :-\

Edit: problem solved, doesnt work in gracia part 2  :-[

[D4rkAngeL666]

I have this error when i try to activate the script

http://img522.imageshack.us/img522/779/errorr.jpg  :-\

Edit: problem solved, doesnt work in gracia part 2  :-[

 

off topic:

 

O_O how you can see it if you not got enought post?

[Emrys]

not working in non fixed gracia 2 ...

[Lain]

I will test it now, I twork on gracia?if it is working hide it on 700 post!!

 

450 posts is fine.

[DreaM]

deMEV did you even tried it? And if you did where? Or you just got the idea and made it up. :)>

[St0rmy]

on Gracia pt2 EMU serv. park, dosent work

[bugy]

phx version important?

[Falling]

[Hide]Its hard to understand wich packet u need to copy cuz they name it randomly liek Unknown, or ally create, or sum random bullsh!t. I had trouble in the middle part step 4 i didnt understand, but im told it doesnt work at all in ct2?

[Coolis®]

sorry guys, but what this script do?