[share]l2phx Fast enchant

[bubulinas]

Fast, New, lp2hx enchant. What could be better?!

 

1. You will need 3 weapon you want to enchant and enough enchant scrolls

 

2. Go to your l2phx and look the sniffer, delete all, and active only the C button.

 

3. Next enchant each weapon to +1, you'll see there 3 process for one for each enchantment. So copy the 3 processes for each +1 weapon enchant.

 

4. After you copy all 9 addresses just send the packets repetitively for about 30 seconds, you will make at least one or two +20 weapons.

 

Work For Interlude --->Freya

 

 

Name='bubulina';
   MaxEnchantLvl=10;
   ScrollId=731;
   ItemId=5643;
   BuyScrolls='A7 B1 02 00 00 E0 FD 1C 00 15 00 00 00 00 00 00 00 00 00 00 00';
   PacketScriptOn='38 67 00 6F 00 67 00 6F 00 67 00 6F 00 21 00 21 00 21 00 00 00 00 00 00 00';

var
  ScrollObj,ItemObj,NumOfItems,i:integer;
  Timer01:TTimer;
  EnchLvl,MinEnch:word;
  ScriptOn:boolean;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=601;
   ScriptOn:=false;
end;

procedure OnTimer01(Sender: TObject);
begin
     buf:='';
     WriteC(20);
     WriteD(ScrollObj);
     WriteD(0);
     SendToServerEx(name);
     delay(327);
     buf:='';
     WriteC(88);
     WriteD(ItemObj);
     SendToServerEx(name);
     timer01.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
end;

begin
    if FromClient and (pck=HStr(PacketScriptOn)) then
       begin
       if not ScriptOn then
          begin
          ScriptOn:=true;
          buf:=HStr(BuyScrolls);
          SendToServerEx(name);
          end
       else
          begin
          ScriptOn:=false;
          end;
       pck:='';
       end;
    if FromServer and (pck[1]=HStr('1B')) and ScriptOn then
       begin
       ScrollObj:=0;
       ItemObj:=0;
       NumOfItems:=ReadH(4);
       MinEnch:=30;
       for i:=1 to NumOfItems do
           begin
           If ReadD(12+36*(i-1))=ScrollId then ScrollObj:=ReadD(8+36*(i-1));
           If (ReadD(12+36*(i-1))=ItemId) and (ReadH(30+36*(i-1))<=MinEnch) then
              begin
              ItemObj:=ReadD(8+36*(i-1));
              MinEnch:=ReadH(30+36*(i-1));
              EnchLvl:=ReadH(30+36*(i-1));
              end;
           end;
       if (ScrollObj>0) and (ItemObj>0) and (EnchLvl<MaxEnchantLvl) then timer01.enabled:=true
       else
           if not(EnchLvl=MaxEnchantLvl) then
           begin
              buf:=HStr(BuyScrolls);
              SendToServerEx(name);
           end;
       end;
end.

 

 

is like script l2fast agumetation!!

 

have Fun!

[Soula]

well , usefull but  where did you try it ?

[bubulinas]

well , usefull but  where did you try it ?

l2j servers..  almost 4 ore 5..;)

[toby95]

cool i will try it

thx for share

[bubulinas]

cool i will try it

thx for share

with pleasure.. have a nice day!

[robertocarlos1]

Great,s man"!!!

[bubulinas]

Great,s man"!!!

thx  have a nice day!

[RapBoy]

nice share..keep it up :)

[bubulinas]

nice share..keep it up :)

thx i will do...  have a nice day and enchanting..:)

[petete]

It works in Hi5?

[nicekisss]

It works in Hi5?

Give it a try :D it work on GF

[bubulinas]

It works in Hi5?

try it and see,,on my pc dont work hi5...

[StylezUnlimited]

Nice 8) 8) Too bad it doesnt work for IL :(

[bubulinas]

Nice 8) 8) Too bad it doesnt work for IL :(

you are wrong with it.. i tested in interlude and work fine..just read the guide..:)

[StylezUnlimited]

you are wrong with it.. i tested in interlude and work fine..just read the guide..:)

My bad..I didnt see it works for interlude too..  ;D