Jump to content

[Exploit]Fast Augment Script.


Coyote™
 Share

Recommended Posts

Γειά σας...Σήμερα θα έχετε δει πως έχω όρεξη να εμπλουτίσω το ελληνικό section, οπότε έκανα άλλο ένα translation...

Ας αρχίσουμε!


 

Με αυτό το script μπορείτε να κάνετε augment πολύ γρήγορα χωρίς να χρησιμοποιήσετε το blacksmith ή κάποιο άλλο NPC.

Δουλεύει σε όλους τους Interlude servers.

 

 

Τοποθετήστε τα σωστά "config".

Φορέστε το όπλο σας και πατήστε:

/SocialYes - Κάνει cancel το augment του όπλου (εάν είναι Augmented) ενώ αν δεν είναι και έχετε αρκετά GemStones και lifestones, κάνει augment το όπλο.

 

const
  Name='Tiara120'; // χαρακτήρας
  ItemID=6593; // το id του αντικειμένου
  LifeID=8762; // το id της lifestone
  GemsID=2131; // το id των gemstone
  GemsAmount=25; // η ποσότητα των gemstone
  max=8000;  // Η μεγαλύτερη ποσότητα των gemstones
var
LifeBase:array[1..max] of integer;    
ColvoLife,ColvoGems,Life,Item,Gems,SocialID,augid:integer;
procedure Init;
var i:integer;
begin
buf:=hstr('0F');
SendToServerEx(Name);
end;
procedure Free;
var i:integer;
begin
for i:=1 to max do
  LifeBase[i]:=0;
end;
function StrToHex(packet: string):string;
var
  i:integer;
  tmp:byte;
  function ByteToHex(b: byte): Char;
  begin
    if b<10 then result:=chr(b+$30)
      else result:=chr(b+$37);
  end;
begin
  result:='';
  for i:=1 to length(packet) do begin
    tmp:=ord(packet[i]) div 16;
    result:=result+ByteToHex(tmp);
    tmp:=ord(packet[i]) - tmp*16;
    result:=result+ByteToHex(tmp)+' ';
  end;
end;
function inttohex(n:integer):string;
var i:integer;
    t:string;
    a:array[0..15] of char;
begin
a[0]:='0';
a[1]:='1';
a[2]:='2';
a[3]:='3';
a[4]:='4';
a[5]:='5';
a[6]:='6';
a[7]:='7';
a[8]:='8';
a[9]:='9';
a[10]:='A';
a[11]:='B';
a[12]:='C';
a[13]:='D';
a[14]:='E';
a[15]:='F';
result:='';
t:='';
i:=0;
while n<>0 do begin
  if (i mod 2=0)and(i>0) then begin
   result:=result+t+' ';
   t:='';
  end;
  t:=a[n mod 16]+t;
  n:=n div 16;
  inc(i);
end;
result:=result+t;
end;
procedure Say;
var i:integer;
    s:string;
begin
  s:='<tr><td>LS='+inttostr(ColvoLife)+' (*'+inttostr(GemsAmount)+'='+inttostr(ColvoLife*GemsAmount)+')</td></tr>';
  s:=s+'<tr><td>Gems='+inttostr(ColvoGems)+' (/'+inttostr(GemsAmount)+'='+inttostr(ColvoGems div GemsAmount)+')</td></tr>';
  s:=s+'<tr><td>---</td></tr>';
  if Item=0 then
   s:=s+'<tr><td>No Weapon</td></tr>'
  else if augid>0 then
   s:=s+'<tr><td>Augmented ('+inttohex(augid)+')</td></tr>'
  else
   s:=s+'<tr><td>Not augmented</td></tr>';
  buf:=hstr('0F 01 00 00 00');
  WriteS('<html><body><br><table width=100%>'+s+'</table><br><br><br><br><br><br>'+
   '"Social Yes" - Cancel Augment(if augmented) and Augment(if you have enough gems and LSs)<br>'+
   '"Social No" - Show this help<br><br>'+
   'Sometimes client dont get packet InventoryUpdate and you see "Not augment" when weapon is augmented.'+
   ' Simply press [Tab] twice or wear weapon.<br><br>'+
   '</body></html>');
//   '<br>'+strtohex(pck)+'</body></html>');
  WriteD(0);
  SendToClientEx(Name);
end;
procedure CreateItemBase; 
var i,ss,j,ObjID,ItmID,ListCount,count,aug:integer;
begin
  Item:=0;
  ss:=1;
  j:=4; 
  ListCount:=ReadH(j); 
  if ListCount>max then ListCount:=max;
  j:=8; 
  for i:=1 to ListCount do begin
     ObjID:=ReadD(j);    
     ItmID:=ReadD(j);    
     Count:=ReadD(j);
     j:=j+14;
     aug:=ReadD(j);
     case ItmID of
        LifeID: begin
            LifeBase[ss]:=ObjID;
            inc(ss);
        end;
        ItemID: begin
            Item:=ObjID;
            augid:=aug;
        end;
        GemsID: begin
            Gems:=ObjID;
            ColvoGems:=Count;
        end;
     end;
    j:=j+6;
  end;
  ColvoLife:=ss-1;
  Say;
end;
procedure UpdateItemBase; 
var i,ii,j,ObjID,ItmID,ListCount,Count,UpdType,aug: integer;
begin
  ListCount:=ReadH(2);
  j:=4;
  for i:=1 to ListCount do begin
    UpdType:=ReadH(j);
    j:=j+2;
    ObjID:=ReadD(j);
    ItmID:=ReadD(j);
    Count:=ReadD(j);
    j:=j+14;
    aug:=ReadD(j);
    case UpdType of
      1:case ItmID of
          ItemID: begin
            Item:=ObjID;
            augid:=aug;
          end;
          LifeID: begin
            for ii:=1 to max do
             if LifeBase[ii]=0 then begin
              LifeBase[ii]:=ObjID;
              ColvoLife:=ColvoLife+1;
              break;
             end;
          end;
        GemsID: begin
            Gems:=ObjID;
            ColvoGems:=Count;
        end;
      end;
      2:case ItmID of
        ItemID: begin
          Item:=ObjID;
          augid:=aug;
        end;
        GemsID: begin
            Gems:=ObjID;
            ColvoGems:=Count;
        end;
      end;
      3:case ItmID of
        ItemID:
          Item:=0;
        GemsID: begin
            Gems:=ObjID;
            ColvoGems:=Count;
        end;
        LifeID: begin
          for ii:=1 to max do
            if LifeBase[ii]=ObjID then begin
             LifeBase[ii]:=0;
             ColvoLife:=ColvoLife-1;
            end;
        end;
      end;
    end;
    j:=j+6;
  end;
Say;
end;
function GetNextLife: integer;
var i:integer;
begin
  Result:=-1;
  for i:=1 to max do begin
    if (LifeBase[i]<>0) then begin
      Result:=LifeBase[i];
      exit;
    end;
  end;
end;
procedure Augment;
begin
buf:=hstr('D0 29 00');
WriteD(Item);
SendToServerEx(Name);
delay(100);
buf:=hstr('D0 2A 00');
WriteD(Item);
WriteD(Life);
SendToServerEx(Name);
delay(100);
buf:=hstr('D0 2B 00');
WriteD(Item);
WriteD(Life);
WriteD(Gems);
WriteD(GemsAmount);
SendToServerEx(Name);
delay(100);
buf:=hstr('D0 2C 00');
WriteD(Item);
WriteD(Life);
WriteD(Gems);
WriteD(GemsAmount);
SendToServerEx(Name);
end;
procedure DisAugment;
begin
buf:=hstr('D0 2D 00');
WriteD(Item);
SendToServerEx(Name);
buf:=hstr('D0 2E 00');
WriteD(Item);
SendToServerEx(Name);
end;
begin
  if pck='' then exit;
  if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
    SocialID:=ReadD(2);
   pck:='';
    case SocialID of
      7: begin
buf:=hstr('A7 2A A0 00 00 80 84 1E 00 0A 00 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(Name);
buf:=hstr('A7 29 A0 00 00 40 0D 03 00 FA 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(Name);

        exit;
       end;
      6: begin
       if augid>0 then begin
        DisAugment;
        delay(300);
       end;
       Life:=GetNextLife;
       if (Life=-1)or(ColvoGems<GemsAmount)or(ColvoLife<1) then
        exit;
       Augment;
       exit;
      end;
      5: begin
       Say;
       exit;
      end;
    end;
  end;
  if FromServer then
  case pck[1] of
    #$1B: CreateItemBase; 
    #$27: UpdateItemBase; 
  end;
end.

 

ΟΚ, αυτό ήταν όλο.

Όλα τα Credits πάνε στον nab ~SeRk για το script :P

 

Rgerads,

Coyote*

Link to comment
Share on other sites

Poli kalo k auto ;D simera paidia ine i eimra gia topic gia ton Coyote* ;D (plaka kanw ;))

 

Πες το ψέματα...;p

BTW Ευχαριστώ για όλα σου τα καλά σχόλια.

Link to comment
Share on other sites

Epeidi den polikatalaba..

 

Pws me ti kai pou xD to douleuoume auto ?:s..

-sry.:/

 

l2phx, me to script, se java server -.-

Link to comment
Share on other sites

omg dld gamw ta 100 posts sas ti na kanw spammaro na anevun xax ;D

 

ise oti nane file... dn mporeis na to deis kai mas les emas na spammaro gia na to do... gia na pareis 1post?? mporei na fas kai -1 karma twra... diavaste tous kanones prin kanete kati :/

Link to comment
Share on other sites

  • 2 weeks later...
  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share




  • Posts

    • Went ahead and made some small emitters  they look clunky but on UnrealED, but they're way better ingame. Just add the files to your System, after that you can use L2Tool to edit NPCLogoTex.u and change these textures: then, to use them, you just need to open npcgrp.dat and change the npc's class i.e.: 30359    LineageNPC.a_patriarch_MDarkElf    LineageNPCs.a_patriarch_MDarkElf_m00 to 30359    NPCLogo.NPCLogoA    LineageNPCs.a_patriarch_MDarkElf_m00   I added 10 effects, so you can use them from the letter A to the letter J   download compiled .u download .u source scripts (in case you wanna try to recompile them)  
    • u need copy it from Classic to Classic ? or Classic to IL ? easy copy problem its only with NPC set when can use it... try write to @NevesOma he can make this effect 😉
    • Hello everyone, I would like to welcome you to our private server L2 Red Sun - High Five. After the successful launch of the server in 2017, we are coming again with a new season. What can you look forward to? All High Five Features, PvP, lots of fun, Anti-Bot system, Active GMs, lots of events. The official launch of the server is planned for 2022-12-17. Follow our website https://l2rs.com/   L2 Red Sun – Lineage 2 High Five Grand Opening: 2022-12-17 – watch our website Website: https://l2rs.com/ Discord: https://discord.gg/8XS2aNpmDA Mid Rate server 20x All High Five features Play to win – No Pay to win! Mass PvP, a lot events and much more! Experiance (EXP)  - 20x     Skill Points (SP) - 5x      Adena  - 5x      Drop Items - 5x     Spoil - 10x     Max Enchant - + 25   Enchant chance - 53 %   Attribute Stone / Crystal chance - 30 / 25 % Buff slots - 28 + 12 (buffs + dance) ✅   Buffs, Dances, Songs Durations - 2 hours ✅   Subclass max. level - 85 ✅   Subclass count - 4 ✅   Anti-bot (captcha) - command .testbot ✅   Anti-bot client and server side (Strix-Guard) ✅ Full GM LOG in real time on Website (no more corrupt GMs) ✅   Geodata ✅   Offline shop ✅   Olympiad for 14 days ✅   Anti-DDOS protection ✅ Active GMs ✅   Scheme buffer ✅   Shop to S grade ✅   Olympiad for 14 days (1. and 15. in month) ✅   Donate only for Premium account (no-items) ✅   All Instance / Grand Boss Working fine ✅  website: www.l2rs.com Forum: www.forum.l2rs.com We look forward to you GMs L2 Red Sun
    • You need to recompile effects and NPC scripts, it isn't hard to do, do you have any experience with that whatsoever? lemme know and i might be able to give you a hand through here
    • Update - Ad Banners for L2Infinity  
  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock