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 Iron Initiate

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

    • maxicroma
      Custom Launchers/Updaters service

      By maxicroma · Posted

      Can't find you on discord ,can you share your discord profile here?
    • tz3
      Official Project Announcement — Interlude Mastered

      By tz3 · Posted

      Hello lovely community, When you talk, about trust first of all I want you to stay and think for a second. - If was not a trusted person why I would even share this information? (seriously not a single reason) - I did not share any information about how this happened, and which company had the vulnurability (the issue has been fixed from their side and they was very helpful and took quick action + our dev as expert took that quick action) I also want warmly thank abusix.com for providing detailed information (not going to share the whole email for obivious reasons) Mentioning  - So lets clarify now what to except from the project. We have different different protocols and 2 engines. But first we are going to start with Interlude Mastered which is going to be a modern engine but a familiar one. Secondary project will be with the latest engine UE however this one needs allot of work is not that easy it takes time(so we will have it soon as is ready) I got to agree with Seamless, Good project are developed quietly. Also we have already clarified that the servers that we are working are under development how is possible guys to give you detailed information about something that is not finished yet? The topic opened on General Discussion Instead of  Private Servers for a reason. Some of you already have serves in this topic please and none of you have approach they way i do and be open for your own servers unless you have it ready until now so please.... atleast I'm taking a step and I'm pretty much open to share information with everyone. Once everything is ready Server information and everything will be shared in the topic: Private servers. Thanks in advance.  
    • SadLittlePiggg
      🚀 Novproxy |🔥FROM $0.5/GB 🔥100M+ Active Residential proxy

      By SadLittlePiggg · Posted

      Boost your connection speed and secure your privacy today!  Official Website: https://novproxy.com?kwd=tt-max
    • Seamless
      Official Project Announcement — Interlude Mastered

      By Seamless · Posted

      Good projects are developed quietly and launched only when they are ready to maintain a consistent online presence and build a community. The formula is simple, yet people keep making the same mistakes.   Start with an alpha phase and keep access limited. Since the author claims to already have an inner circle, use that group for early testing. Then open a closed beta through invitation keys or a similar system. Later, announce an open beta.   During these early stages, do not accept donations, partnerships, or other forms of support. Focus entirely on improving the project. Once it is stable, announce it and continue maintaining it regardless of the maximum number of users on
    • rookie23
      Official Project Announcement — Interlude Mastered

      By rookie23 · Posted

      in best case this project will open with 100 ppl

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