kr1n0s*
-
Posts
1,427 -
Joined
-
Last visited
-
Feedback
0%
Content Type
Articles
Profiles
Forums
Store
Everything posted by kr1n0s*
-
[15$ in one week][No PTC - Surveys - Adfly] Promoting!!
kr1n0s* replied to ProJecT's topic in Monetization General Discussion
MyLikes - What?!? Where?? an mporeis dwste 1 view edw tnx -
i have already fix them, and as i said it connects with l2... but when i press social yes it dont do anything. any1? can i change the social yes to something else?
-
So i have this script (old) const Name='iFIght'; // character ItemID=7577; // item id LifeID=8742; // 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. it suppose to augment my weapon when i press "social yes" but it dont do anything... it connected normanly, show me how many ls i have in my inventory or what augment i have in my weapon. how can i make it work?
-
http://comic.naver.com/webtoon/detail.nhn?titleId=350217&no=31&weekday=tue
-
poli wrea molis parw to palio pliktrologio 8a to dokimasw ty..
-
drives den einai gia na litourogun sta windows? extos an ta drives egka8istonte kai sto Bios kai den to 3erw....
-
Loipon pira new keyboard.... exei bisma USB, me apotelesma otan trexei to BIOS na min leitourgei, alla na arxizei na litourgei otan exei fortwsei ta windwos... to palio m pliktrologio douleue kanonika sto BIOS gt den eixe bisma USB alla tin alli arxaia mlkia pou eixan ta pontikia kai ta pliktrologia palia... pws mporw na kanw to keyboard me to USB bisma na litourgei otan anoigw to pc (bios settings)?
-
Loipon exoume ena 2ro pc sto spiti (laptop WIFI)... to opio katebazei sixna, kai m mionei to internet sto diko m to pc (me apotelesma na kolaw sto lol) ama tixon tou topso to internet 8a kalpsourizei mexri na tou to 3anabalw. giauto TI KANW? iparxei kapio programa pou na elenxei poso "internet" na dineis meso wifi? i poso "internet" na trabaei kapio pc?
-
-
Bump
-
-
Bump +1kkk adena
-
http://l2int.eu/ Online Now: 748 I have sph 79 with sub mecrp 78 lvl. Items: AM with wild magic lvl 10 active Full dc set +3/+3/+3/+4 Full tatteo set +3/+3/+3/+3/+3 1kkk adena and more...
-
arxisa FT.. exei arketes omiotites to One Piece.... alla den pistebw oti to ftanei :/ .... (50-60 ep. eime)
-
http://images.wikia.com/onepiece/images/7/7f/Msdoblefngr.jpg[/img]
-
[gr] to FT ftiaxtike apo ma8iti tou Oda.
-
to pas gia update se katatimata, ewg auto ekana me to diko m blackberry 9300
-
to brika, telika itan gelio. lock it. PS: patiste stis diafimiseis xD
-
me fwtises... bump
-
ti akribws na diabasw? den 3erw kiolas an ginete auto to pragma.... otan kanw rip ena site meta mporw na all3w kai to html code tou? opios 3erei as boi8isei ligo....
-
death note 37 ep
-
bump?
-
peri liges meres eftia3a ena blog. to 8ema einai pws to html code tou template tou einai kapw periergo... ti ennow? eftia3a kapia buttons opws "home" kai teties mlkies dld sections sto blog... alla 8elw na tous alla3w link... (epidi otan patas sto koumpi se paei se mia monadiki selida opou den mporeis na kaneis polles anartiseis, alla mono mia monadiki), den briskw tpt sto html code tou gia auta ta buttons (enw se alla templates iparxoun ta stixia kai to link). Mia lisi einai na alla3w template, alla maresei etc opws exw to template den 8elw na to alla3w i otidipote. kamia idea? h mporw an to kanw rip i tpt tetio? http://kr1n0s.blogspot.com/
-
bump?
-
mia erotisi 8elw na kanw, epidi apo xtes arxisa na "pezw me to blogspot. an 8elw na kanw kapio section mesa sto blog mou. opws px "Youtube section" kai se auto to section na mpwrw na kanw share osa videos 8elw.... mporei kapios na me help?