Jump to content

Mystikos

Members
  • Posts

    30
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by Mystikos

  1. egw exw 4 xronia afto to pc kai pote den evala antivirus h internet security kai pote den kolisa ious pos skata ta kata8ernete??? oli mera se pornosite iste??

    χαχα +1

     

    nai kseris to pc mou eine katastremeno epidi eixe liksi to antivirus kai den ebala alo kai bikan posi ioi afou otan ton anigo kapies fores mou bgazi oti den exi tpt o skliros oti theli kani

    Λοιπον φιλε μου αυτο δεν ειναι και μεγαλο προβλημα απλος κατσε και φτιαξε τον Η/Y σου κανε ενα format και επειτα κανε ολες τις διαδικασιες απο την αρχη.

    Για ολα υπαρχει λυσει αν υπαρχει θεληση φυσικα αυτα απο μενα :)

     

     

     

  2. loipon file m 8elw tn boi8ia sou an me boithiseis 8 sou eimai eygnwmwn loipon orew t share p exeis kanei k m aresh alla to 8ema einai allou oti egw eimai newbie kai dn t pl katalabenw mporeis se parakalw n me help ligw se ayto gt exw enan server pvp kai 8elw n mhn feygoun t buff mporeis gia sena 2 leptakia einai apo tn xrwnw s ena nai h oxi na m peis gt apo t exeis katalabh k mono esy k o 8eos  eistai  h teleftea m elpida,.............?

     

    1) καλο θα ειναι να μην κανεις double post δηλαδη 2 post συνεχομενα!

    2) Απο τι βλεπω το εχεις κανει σωστα απλα συνεχιζεις τι διαδικασια με το config όπως λεω και στο guide και εισαι κομπλε! δεν ξερω σε τι αλλο μπορω να βοηθησω  :-\

  3.  

    Για  Gracia & Freya packs

     

    Παμε στο com.it.br.gameserver.model.actor και βρισκουμε το L2Character.java

    Στην συνεχεια κανουμε με Ctrl + F αναζητησει τo παρακατω: java

    stopAllEffectsExceptThoseThatLastThroughDeath();

     

    Και κανουμε αντικατασταση τον κωδικα που αναζητησαμε με τον παρακατω: java

    if (!Config.REMOVE_BUFFS_ENABLED)
          stopAllEffectsExceptThoseThatLastThroughDeath();

     

    Στα υπολοιπα δεν αλλαζει τιποτα ελπιζω να βοηθησα  :)

     

     

  4. Ποιος ο λόγος να κάνεις μέθοδο για κάτι τέτοιο? Λολ

     

    if (!Config.REMOVE_BUFFS_ENABLED)

          stopAllEffects();

     

    και ούτε else χρειάζεσαι ούτε τίποτα. Μη κάνετε τη ζωή σας δύσκολη ρε παιδιά

     

    Οντως φιλε μου δεν το σκεφτηκα ετσι πολυ σωστος! θα το αλλαξω στο topic και θα ναι κομπλε :) thanks

  5. Καλησπερα σας εψαχνα καιρο να βρω τροπο να μην χανονται τα buffs μετα το θανατο ενος char τελικα ηταν πολυ απλο ετσι εφτιαξα ενα μικρο java code με config

     

    Είναι δοκιμασμένο σε l2 Interlude pack

     

     

    Διαδρομη αναλογα με το l2jPack που εχετε: com.it.br

    Διαδρομη αρχειου: Με κοκκινο

    Ονομα αρχειου: Με κιτρινο

     

     

    Ας ξεκινησουμε!

     

    1ο' βημα

     

    Παμε στο com.it.br.gameserver.model και βρισκουμε το L2Character.java

    Στην συνεχεια κανουμε με Ctrl + F αναζητησει τo παρακατω: java

    stopAllEffects();

     

    Και κανουμε αντικατασταση τον κωδικα που αναζητησαμε με τον παρακατω: java

    if (!Config.REMOVE_BUFFS_ENABLED)
         stopAllEffects();

     

    2ο' βημα

     

    Λοιπον τωρα θα παμε στο com.it.br και θα ανοιξουμε το Config.java

    Στην συνεχεια θα παμε στο public final class Config και θα το προσθεσουμε το java

    public static boolean REMOVE_BUFFS_ENABLED;

     

    οπως βλεπουμε στην παρακατω εικονα

     

    TutorialIMG-01.JPG

     

    3ο' βημα

     

    Ωραια μεχρι εδω τωρα θα κανουμε αναζητησει το παρακατω java

    Properties otherSettings

     

    και θα το περασουμε το java

    REMOVE_BUFFS_ENABLED = Boolean.parseBoolean(otherSettings.getProperty("RemoveBuffsInDeath", "True"));

     

    οπως και στην παρακατω εικονα

     

    TutorialIMG-02.JPG

     

    4ο' βημα

     

    Και το τελευταιο που μας εμεινε ειναι να περασουμε στο OtrerSettings.properties η αλλιως Other.properties τον java

    #Don't Remove Buffs In Death System
    #Default = True
    RemoveBuffsInDeath = True

     

    To οποιο βρίσκετε στο server/gameserver/config και τελος :)

     

     

    Ειναι το πρωτο μου topic και ελπιζω να βοηθησα το κουρασα λιγο για να help τα newbie χαιρετω :)

     

     

  6. oso gia ta buffs sto death.. nwmizo eixa dei ena share me kati tetio gia autonoblesse kati tetio

    8a kanw search kai 8a sou pw

    Ναι οντως εχω ακουσει και εγω κατι για το autonoblesse αλλα δεν εχω καταφερει να βρω κατι παραπανω,

    αν μπορεσεις και το βρεις θα με σωσεις πραγματικα :D παντως σε ευχαριστο πολυ φιλε μου :)

  7. Λοιπον πρωτα απο ολα καλησπερα σας  :)

    Δεν συνηθιζω να κανω post για να ρωτησω κατι,

    προτιμω να καθομαι να το ψαχνω μονος μου ωστε να μαθαινο και περισοτερα,

    μεσα απο το maxcheaters εχω βρει παρα πολλα ενδιαφεροντα post που με εχουν βοηθησει αρκετα!

     

    Προαιρετικα: [glow=Red,2,300] Με κοκκινο[/glow]

     

    Θελω μια μικρη βοηθεια σε ενα pack interlude l2jbrasil που προσθετω καποια πραγματακια

    για να ρυθμiσω το παρακατω:

     

    Θελω τα buffs να μην χανονται μετα το θανατο ενος char και να μην υπαρχει χρονος στα buffs

    το ψαχνω πολυ καιρο και δεν εχω καταφερει να βρω κατι σχετικα με αυτο.

     

    και επισης αν γνωριζει καποιος εχω περασει το Hero Status for Kills System και θελω ο char να γινετε κανονικα hero απο την databse και οχι μεχρι να κανει restart ο server

     

    αυτα προς το παρον ευχαριστω  :)

     

    ελπιζω το post μου να το εχω κανει στο σωστο topic..

  8. lol .. prota ap ola molis xekinaei to siege. i fas dc kai xana mpis i loggaris sti mesi tou siege se paei to village o kaliteros tropos gia na paris ena castle einai na perimenis 5 min prin to telos kai na pas me ena daggeri gt exi p**stika skill kai merika bugged(fake death). px sto aden pano dexia/aristera exi portes p merika noobakia to pezoun pro afti p exoun to castle dld kai ka8onte stis exo partes lipon pas esi apo epano mpenis mesa kai ka8ese piso. apo prey xekinas to prey kai kanis spam sto all gia na min diavasoun oti kanis prey. . .

  9. kalispera pedes.. exo afto to script gia na vazis oti skill 8es sto weapon s. ala den xero pos an katalavente to pos kante ena post plz :)

    Script:

    -->

     

    • const
      Name='Mamy'; // ???
      ItemID=6608; // ????
      LifeID=8762; // ????????
      GemsID=2131; // ???????
      GemsAmount=25; //???-?? ?????
      max=100; // ?????????
      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>'+
      '© raid aka Mamy</body></html>');
      // '© raid aka Mamy<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. 
       

  10. lipon akou filos katarxin xriazese to programma

    psaxe edo

    www.4shared.com  search l2phx

    meta xriazese to script --->

     

        var a:array[1..100] of string;

          i,n:integer;

    id,withdraw,openwh,useitem,wh,enchant :string;

    begin

    //Item id need to be captured.For example from UseItem packet

    id:=hstr('id here');

    useitem:=hstr('14')+id+hstr('00 00 00 00');

    wh:=hstr('31 01 00 00 00')+id+hstr('01 00 00 00');

    enchant:=hstr('58')+id;

    //openwh need to be captured:RequestBypassToServer

    openwh:=hstr('32 01 00 00 00 id here 01 00 00 00');

    withdraw:=hstr('32 01 00 00 00')+id+hstr('01 00 00 00');

    if (fromclient) and (pck=hstr('1B 02 00 00 00 ')) then

    begin

    buf:=withdraw;

    sendtoserver;

    buf:=openwh;

    sendtoserver;

    end;

    if (fromclient) and (pck=hstr('1B 03 00 00 00 ')) then

    begin

    buf:=useitem;

    sendtoserver;

    buf:=wh;

    sendtoserver;

    buf:=wh;

    sendtoserver;

    buf:=enchant;

    sendtoserver;

    end;

                end.

     

    meta eki p leei id here afou exis bri to id tou items p 8es na + apo to packet sniffer

    kai afou exis target to wh kanis socialVictory

    dn xero an se boi8isa :P

     

  11. eleos... ego se archer vazo +4 str - 4 dex ...+4wit -4int(refuse skill) +4con -4 dex kai eisai GG

    gia wr o opios einai imba daggeras 8a valis +4wit -4int ...+4dex - 4str...+4con -4 str

    na niosete ligo pedia m gt o daggeras dn 8eli p atk ala pezi me atk speed parte p x ena dagger S grade kai ena No grade kai to no grade xoris SS na dite dmg kai meta pite m

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