Jump to content

Mystikos

Members
  • Posts

    30
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

About Mystikos

Contact Methods

  • Website URL
    http://projection-rizeer.vndv.com

Profile Information

  • Gender
    Male

Mystikos's Achievements

Newbie

Newbie (1/16)

0

Reputation

  1. χαχα +1 Λοιπον φιλε μου αυτο δεν ειναι και μεγαλο προβλημα απλος κατσε και φτιαξε τον Η/Y σου κανε ενα format και επειτα κανε ολες τις διαδικασιες απο την αρχη. Για ολα υπαρχει λυσει αν υπαρχει θεληση φυσικα αυτα απο μενα :)
  2. 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. φιλε μου δες λιγο παλι απο την αρχη το guide εχω κανει μερικες αλλαγες και πιστευω πως θα σε βοηθησει
  5. Οντως φιλε μου δεν το σκεφτηκα ετσι πολυ σωστος! θα το αλλαξω στο topic και θα ναι κομπλε :) thanks
  6. Καλησπερα σας εψαχνα καιρο να βρω τροπο να μην χανονται τα 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; οπως βλεπουμε στην παρακατω εικονα 3ο' βημα Ωραια μεχρι εδω τωρα θα κανουμε αναζητησει το παρακατω java Properties otherSettings και θα το περασουμε το java REMOVE_BUFFS_ENABLED = Boolean.parseBoolean(otherSettings.getProperty("RemoveBuffsInDeath", "True")); οπως και στην παρακατω εικονα 4ο' βημα Και το τελευταιο που μας εμεινε ειναι να περασουμε στο OtrerSettings.properties η αλλιως Other.properties τον java #Don't Remove Buffs In Death System #Default = True RemoveBuffsInDeath = True To οποιο βρίσκετε στο server/gameserver/config και τελος :) Ειναι το πρωτο μου topic και ελπιζω να βοηθησα το κουρασα λιγο για να help τα newbie χαιρετω :)
  7. Ναι οντως εχω ακουσει και εγω κατι για το autonoblesse αλλα δεν εχω καταφερει να βρω κατι παραπανω, αν μπορεσεις και το βρεις θα με σωσεις πραγματικα :D παντως σε ευχαριστο πολυ φιλε μου :)
  8. Λοιπον πρωτα απο ολα καλησπερα σας :) Δεν συνηθιζω να κανω 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..
  9. Hawkeye kai ta miala sta kaggela idika ama eisai kamenos kai exis augments ;) gia c6 milao
  10. 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. . .
  11. L2Joneo dld l2jfree kai na doulevei??? diskolo xa0x0
  12. Trela File Thans Poios Mpenei Sto Game tora na kanei rr i shutdown ktlp.. Good...
  13. sorry re file ala afto to xeri kai i giagia m pes tpt gia l2phx sta alania na niosoun ka8ese kai les bug pou vgikan prin kati xronia omG
  14. 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.
  15. 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
×
×
  • Create New...