Jump to content
MaxCheaters Official Group on Discord
Top.MaxCheaters.com is now OPEN – Lineage 2 Top Listing

augument script

renatoak
 Share

Recommended Posts

renatoak Newbie

renatoak

Posted
Posted

Hello. I used this script bellow, on 3.5.34.176 l2ph version and get a syntax error, where ''function StrToHex(packet: string):string;'' set -> Identifier redeclared. Can someone help me to fix it?

 

const

  Name='Sagitarius'; // character

  ItemID=6595; // item id

  LifeID=8762; // lifestone id

  GemsID=2131; // gemstone id

  GemsAmount=25; //gemstone amount

  max=8000;  // max amount of 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:=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) div 16;

    result:=result+ByteToHex(tmp);

    tmp:=ord(packet) - 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<>0) then begin

      Result:=LifeBase;

      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.

 

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing


  • Posts

    • GX-Ext
      ⭐[L2OFF H5] GX-EXT⭐

      By GX-Ext · Posted

      I'll give you my wallet if you want, haha
    • Celestine
      🔥 L2Dark 3v3 TOURNAMENT ANNOUNCEMENT – $2000 PRIZE POOL 🔥

      By Celestine · Posted

      To make up for some of the waiting time we’re hosting a 3v3 Tournament on open Beta, and this time we’re raising the stakes with a $1,300 prize pool 💰   🏆 PRIZE POOL BREAKDOWN (Over 2000$ Worth of prices total)   🥇 1st Place — $700 🥈 2nd Place —$300 🥉 3rd Place — $200 🏅 4th Place — $100  5th -6th Place - $100 in Gold Coins each    All Participating Teams: $50 in Gold!   All Prices will be Paid out instantly after the tour, no waiting time and conditions. This is not simply a marketing move, we want to give back to the community.   📅 Date: Wednesday 06.05.2026 ⏰ Time: 20:00 Central European Timezone (Berlin) 📍Format: 3v3   ⚔️Why join? Cash Prices for top 4 and rewards for all participants Payments to winners sent out straight after the tournament - No waiting time or rules that you have to play live server to obtain the reward. Clean format, smooth matches, and solid prize pool and a chance to experience our brand new files   📝How to join: Form your 3-player team Group Leader Sign up here: ⁠📍・3v3-tour-registration (Include Name of Group, Name of Group Leader)   Be ready on match day!     A separate post with rules for the tournament and class setups will follow shortly.   Tag your teammates, lock in your roster, and get ready to compete. We'll be happy to see you on the OBT!   💬 Questions? Ask in ⁠🎫・ticket or send us a message   See you on L2Dark! 😏   Discord: https://discord.gg/FAJwnFpb8M
    • melron
      Armor Limited to Class

      By melron · Posted

      You should check if that condition is supported by your current sources. You can find this in  DocumentBase#parsePlayerCondition If it isnt there and you want to follow the same pattern of the other item conditions, create a custom condition to parse the classId (or multiple class ids) (there are examples to copy the code). Alternatively, you can create your own condition handler. Your condition should look like this: <cond msgId="1518"> <player classId="ADVENTURER,PALADIN" /> </cond> or <cond msgId="1518"> <player classId="93,5" /> </cond>  
    • puccalino
      Armor Limited to Class

      By puccalino · Posted

      it's Interlude client forgot to mention
    • explo
      Armor Limited to Class

      By explo · Posted

      idk if acis have this option, but you can put inside item smth like that atleast on H5         <cond msgId="1518">             <player class_id_restriction="93, 101, 108, 117" /> <!-- Dagger Masters -->         </cond>

  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..