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

 

*This trick works on all gracia 2 servers that I have tested!

 

Same old post:

Name='skanners';
   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!!

Topics merged by Blane

 

Cheers!

[Junkee]

A guide with photos would be nice :P

Thanks for share, I will test this

[JUStaNoOb]

nice share dude

[fuers]

pretty usefull.

[TAISAO]

petty beautiful

[krzysiu]

screens or never happened

[destay]

can barelly understand >_<

[Raule]

I'm sure this has been posted many times..

Anyway thanks for remind me this exploit.

[destay]

got kicked out of the server xd

 

[Faron13]

wheare the fck i can get 60 bews?

[alek936]

nice if it works

[j0rzz]

ah nice... i dont have to do it manually anymore thanks.

[dzildjian]

too many post require for fast enchant  ::)

[kale43v3r]

this is a good one ! thank you

[dzildjian]

lower post please.