Coyote™ Posted September 23, 2009 Share Posted September 23, 2009 Γειά σας...Σήμερα θα έχετε δει πως έχω όρεξη να εμπλουτίσω το ελληνικό section, οπότε έκανα άλλο ένα translation... Ας αρχίσουμε! Με αυτό το script μπορείτε να κάνετε augment πολύ γρήγορα χωρίς να χρησιμοποιήσετε το blacksmith ή κάποιο άλλο NPC. Δουλεύει σε όλους τους Interlude servers. Τοποθετήστε τα σωστά "config". Φορέστε το όπλο σας και πατήστε: /SocialYes - Κάνει cancel το augment του όπλου (εάν είναι Augmented) ενώ αν δεν είναι και έχετε αρκετά GemStones και lifestones, κάνει augment το όπλο. const Name='Tiara120'; // χαρακτήρας ItemID=6593; // το id του αντικειμένου LifeID=8762; // το id της lifestone GemsID=2131; // το id των gemstone GemsAmount=25; // η ποσότητα των gemstone max=8000; // Η μεγαλύτερη ποσότητα των 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. ΟΚ, αυτό ήταν όλο. Όλα τα Credits πάνε στον nab ~SeRk για το script :P Rgerads, Coyote* Link to comment Share on other sites More sharing options...
GameOver Posted September 23, 2009 Share Posted September 23, 2009 Poli kalo k auto ;D simera paidia ine i eimra gia topic gia ton Coyote* ;D (plaka kanw ;)) Link to comment Share on other sites More sharing options...
Coyote™ Posted September 23, 2009 Author Share Posted September 23, 2009 Poli kalo k auto ;D simera paidia ine i eimra gia topic gia ton Coyote* ;D (plaka kanw ;)) Πες το ψέματα...;p BTW Ευχαριστώ για όλα σου τα καλά σχόλια. Link to comment Share on other sites More sharing options...
sillentdeath4 Posted September 23, 2009 Share Posted September 23, 2009 Epeidi den polikatalaba.. Pws me ti kai pou xD to douleuoume auto ?:s.. -sry.:/ Link to comment Share on other sites More sharing options...
Coyote™ Posted September 23, 2009 Author Share Posted September 23, 2009 Epeidi den polikatalaba.. Pws me ti kai pou xD to douleuoume auto ?:s.. -sry.:/ l2phx, me to script, se java server -.- Link to comment Share on other sites More sharing options...
gareleos Posted September 23, 2009 Share Posted September 23, 2009 omg dld gamw ta 100 posts sas ti na kanw spammaro na anevun xax ;D Link to comment Share on other sites More sharing options...
GameOver Posted September 25, 2009 Share Posted September 25, 2009 omg dld gamw ta 100 posts sas ti na kanw spammaro na anevun xax ;D ise oti nane file... dn mporeis na to deis kai mas les emas na spammaro gia na to do... gia na pareis 1post?? mporei na fas kai -1 karma twra... diavaste tous kanones prin kanete kati :/ Link to comment Share on other sites More sharing options...
thomaidis2 Posted September 30, 2009 Share Posted September 30, 2009 poli kalo Link to comment Share on other sites More sharing options...
marina69 Posted September 30, 2009 Share Posted September 30, 2009 mpravo re man gt einai arketa vareto pata vale vgale kl.l.p dil einai eleos Link to comment Share on other sites More sharing options...
Flam3Skull Posted October 8, 2009 Share Posted October 8, 2009 coyote ta congig pou tha ta baloume?? Link to comment Share on other sites More sharing options...
Coyote™ Posted October 8, 2009 Author Share Posted October 8, 2009 This is the hidden content, please Sign In or Sign Up Link to comment Share on other sites More sharing options...
L2Exploits.ForMe Posted October 15, 2009 Share Posted October 15, 2009 ta spaei to ekana se server 11% gia na poiasei skill k epiasa Wild Magic Lv 10 Link to comment Share on other sites More sharing options...
gekas13 Posted October 19, 2009 Share Posted October 19, 2009 piani ston l2mafia? Link to comment Share on other sites More sharing options...
gekas13 Posted October 19, 2009 Share Posted October 19, 2009 3erete ama poiani ston l2mafia? Link to comment Share on other sites More sharing options...
~GeFriDo~ Posted November 3, 2009 Share Posted November 3, 2009 thank you a lot coyote* !! keep up your good work ;) Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now