Jump to content
MaxCheaters Official Group on Discord
-> Place your ad text here <-
We're Rebuilding – Join Our Staff Team

kr1n0s*

Members
 View Profile  See their activity

  • Posts

    1,427

  • Joined

  • Last visited

  • Feedback

    0%

 Content Type 

Everything posted by kr1n0s*

  1. kr1n0s*
    7
  2. kr1n0s*
    4
  3. kr1n0s*
    This is very famous script --> http://www.maxcheaters.com/forum/index.php?topic=66099.0 but also and old scipt. With l2phx 3.5 its make error... so if i want to use it i should connect with older version (3.18) and it work fine. can some1 give me link for 3.5 version? or if some1 can remake it for l2phx3.5 here is the script const Name='Tiara120'; // character ItemID=6593; // 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[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.
  4. kr1n0s*
    2
  5. kr1n0s*
    3
  6. kr1n0s*
    Ama bouleues, to idio 8a 8ele kai to afentiko sou xD
  7. kr1n0s*
    4
  8. kr1n0s*
    2
  9. kr1n0s*
    why? its nice :) One piece 4ever
  10. kr1n0s*
    stmata na kaneis bump, an oloi osoi zitagan adena kanane bump tote olo to spam section 8a item me tetiou idous topics.
  11. kr1n0s*
    ΚΑΛΗ ΧΡΟΝΙΑ!!!!!c/p apo FighterBoss
  12. kr1n0s*
    Relika to brika :) locked.
  13. kr1n0s*
    as to balw kai egw :)
  14. kr1n0s*
    bump.... Simera 3anampike kai petage apires ls..... m ipe pws to kanei me l2phx....alla ti packet estelne? kamia idea me kanena l2phx exploit? Plaka plaka to forum mas exei paliwsei, idika sta expoits prepei na ginei enas ka8arismos... iparoun bugs apo tin epoxi ton pahetonwn pou pou8ena den pianoun :/
  15. kr1n0s*
    Lipon exw kapies idees... kai gt na min tis pws mporei kapies na saresoun :P Lipon donate enchant alla oxi sto max.... dld o server na exei max +25 na ginete donate mexri ta +20 ( opws l2 elite kai o admin exei xestei sto taliro ) Mporeis na ftia3eis ena donate status.... opou oi donates 8a gorazoun ftinotera items apo ton trader... pes oti ena oplo kanei 100kk oi donators na to pernoun 90kk -10% dld (leme twra) , ha na skefteis diafora pragmata me auto to status pou omws den 8a eiani unbalance.... Ama o server einai sobaros na kanoun donate Q items opws lunargents , Red Pipette Knife k.a AIO buffer? Na ftia3eis donate coins... 1coin=1euro , opou meta auta ta coins mporoun na ta kanoun trade h gia adena h gia otidipote alo (apo trader)
  16. kr1n0s*
    to manga exei bgei... h mlkia einai pws den exei break mono to manga, alla kai to anime. To drama arxizei :'(
  17. kr1n0s*
    interluede.... to packet me to l2phx? 8es na sto anebasw?
  18. kr1n0s*
    Pezw enan "n00boserver", kai mpenei simera enas kai agorazei apira lucky box (pou petane ls,coins,blesseds) kai epidi itan full (to inventory) tou peftane katw otan ta anige....... etc mas feedare gia rketi wra... To 8ema einai pws?? l2phx? mporei na to kanei auto? to 1to pou skeftika l2hlapex.... alla zei akoma? dokimasa na to logarw kai logare kanonika... alla twra den 3erw ti packets na stilw kai me pia logiki douleuei...
  19. kr1n0s*
    22xroni kori kai milousan gia mlkies? apapapa wrea istoria... next?
  20. kr1n0s*
    1-0 mporei kanena megalos bro tou.... logika gia na niazete kapia sigkenia... extos an tou ekane plasiki o luffy gt 8imame eixe spasei tin miti tou :P
  21. kr1n0s*
    oso den paei alo... ala gia sena.... apou pou na arxisw? name? signa? avata? a soz avatar den exeis... kai exw programa pou ta briskei an 8es dokimase...
  22. kr1n0s*
    Epidi barieme... psaxnete kapio song pou exete dei se kapio video? apla di3te mou to video kai 8a sas pw to nametou song... ( 8a prospa8isw toulaxiston :P )
  23. kr1n0s*
    y alla stin ousia den einai dinami.... gt meta apo tinepidrasi tous to oma peftei... opws kai 8a ginei otan o ace skoto8ei.... Me tin adrenalini alos den niw8es tin koposi...
  24. kr1n0s*
    Den exeis dei ta epsodia impel down? O Ivan tu edw ormones gia "pseutiki" dinami... btw o Reveng3r gt efage ban?
  25. kr1n0s*

    Spazokefalies

    kr1n0s* replied to Sifu's topic in Spam Topics

    tin mitera tou?
×
×
  • 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