|
[events e_puanlar]
on=@kill
if (<argo.fame> >= 1000) && (<argo.isplayer>)
toplistToplist fonksiyonunu önceden bir arkadaşım öğretmişti ;[defname topplayer]
topplayer 10 //değiştirilebilir topplayer değeri
[function toplist]
tag0.puan_action +=1
for 1 <ddef.topplayer>
var.remove <ddef.topplayer>
for y 1 <ddef.topplayer>
ref1=<var.topplayer_<dlocal.y>>
if (<ref1> = <uid>)
var.remove <dlocal.y>
endif
endfor
ref2=<var.topplayer_<dlocal._for>>
if (<dtag.puan_action> >= <ref2.dtag.puan_action>)
var.topplayer_<dvar.remove>
for x <dvar.remove> <dlocal._for>
var.topplayer_<dlocal.x> <var.topplayer_<eval <dlocal.x> -1>>
endfor
var.topplayer_<dlocal._for> <uid>
var.remove
return 1
endif
endforSonra'da bunu dialog'a döküyoruz..[dialog d_top10]
100,100
nomove
resizepic 50 0 3500 500 250 //ARka Fon
//resizepic 50 260 5120 220 100 //ARka Fon
//resizepic 60 270 3000 200 80//Zamazingo
resizepic 60 20 3000 480 20////Liste Cizgileri
resizepic 60 40 3000 480 20////Liste Cizgileri
resizepic 60 60 3000 480 20////Liste Cizgileri
resizepic 60 80 3000 480 20////Liste Cizgileri
resizepic 60 100 3000 480 20////Liste Cizgileri
resizepic 60 120 3000 480 20////Liste Cizgileri
resizepic 60 140 3000 480 20////Liste Cizgileri
resizepic 60 160 3000 480 20////Liste Cizgileri
resizepic 60 180 3000 480 20////Liste Cizgileri
resizepic 60 200 3000 480 20////Liste Cizgileri
page 0
dtext 200 220 450 <serv.name> Oyuncu Puan Tablosu
dtext 65 20 38 1.Name:
dtext 65 40 38 2.Name:
dtext 65 60 38 3.Name:
dtext 65 80 38 4.Name:
dtext 65 100 38 5.Name:
dtext 65 120 38 6.Name:
dtext 65 140 38 7.Name:
dtext 65 160 38 8.Name:
dtext 65 180 38 9.Name:
dtext 65 200 38 10.Name:
dtext 450 20 38 Puan:
dtext 450 40 38 Puan:
dtext 450 60 38 Puan:
dtext 450 80 38 Puan:
dtext 450 100 38 Puan:
dtext 450 120 38 Puan:
dtext 450 140 38 Puan:
dtext 450 160 38 Puan:
dtext 450 180 38 Puan:
dtext 450 200 38 Puan:
for c 1 10
obj = <var.topplayer_<dlocal.c>>
if !(strmatch('<var0.topplayer_<dlocal.c>>','0')//Düzenlendi..
dtext 130 <hval <local.c>*20> 50 <obj.name>
dtext 500 <hval <local.c>*20> 50 <dobj.tag0.puan_action>
endforSiteye dökmek istersen ;[plevel 6]
denemeyaw
[function denemeyaw]
allplayerchars f_denemeyaw
[function f_denemeyaw]
//db.execute "delete from top10
db.execute "insert into top10 VALUES ('<uid>', '<addslashes <name>>', '<dtag0.puan_action>');"
//return 1
[function allplayerchars]
for 0 <eval <serv.accounts>-1>
local.cnum=0
local.acctnum=<local._for>
for <serv.account.<eval <local.acctnum>>.chars>
if (<serv.account.<eval <local.acctnum>>.chars>)
ref1=<serv.account.<dlocal.acctnum>.char.<dlocal.cnum>.uid>
ref1.<args>
endif
local.cnum += 1
endfor
endfor
[function addslashes]
local.str=<asc <args>>
local.string=s
for i 0 strlen(<local.str>)
local.check=<strarg <local.str>>
local.last=<local.check>
if <local.check>==00
return <strsub 1 <eval strlen(<local.string>)-2> <local.string>>
endif
if <local.check>=<asc \>
local.last=<asc \>
local.string <strsub 0 <eval strlen(<local.string>)-1> <local.string>>\\s
elif <local.check>=<asc '>
local.string <strsub 0 <eval strlen(<local.string>)-1> <local.string>>\'s
else
local.string <strsub 0 <eval strlen(<local.string>)-1> <local.string>><chr <local.check>>s
endif
local.str=<streat <local.str>>
endfor
return <strsub 1 <eval strlen(<local.string>)-2> <local.string>>Bunun php kodu ;<table width="100%" height="5%" border="1" background="images/back_content.png">
<tr>
<td width="74%">Kullanıcı Adı:</td>
<td width="74%">Puan:</td>
</tr>
</table>
<?
$tablo = "top10";
$veritabanıismi = "Veritabani?";
$veritabaninabaglan = mysql_connect("localhost","root","Şifren?")
or die ("Database servera baglanIlamadI...");
$database = mysql_select_db("$veritabanıismi", $veritabaninabaglan) or die("Veritabanı Doldurulmadi...");
$son = "select * from $tablo order by puan desc LIMIT 0, 10 ";
$bitti = mysql_query($son) or die("Sorgulama Yaparken Hata...");
while ($row = mysql_fetch_object($bitti))
{
$adi = $row->oyuncu;
$puani = $row->puan;
echo "<table width=\"100%\" height=\"5%\" border=\"1\" background=\"images/back_content.png\">";
echo "<tr>";
echo "<td width=\"74%\">$adi</td>";
echo "<td width=\"26%\">$puani</td>";
echo "</tr>";
echo "</table>";
}
mysql_free_result($bitti);
mysql_close($veritabaninabaglan);
?>
<body topmargin="1" leftmargin="15" rightmargin="10" bottommargin="10" bgcolor="e5dcca">İsteyen kullanabilir tanıdıgım bir arkadaşa ait kodlama.
Tiffany :sikripting
Arkadaslar var.clients 0 diye oluşturduk var'imizi bunu scriptte Online Player:<eval <var.clients>+7> olarak işledik ve çalışır durumda
|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
|
Koşarak büyü atma olayı
Son cevap: 12-03 20:45 · Son yazan: Tyrok · Mesaj: 11 · Görüntü: 4190
|
Script Yardımı | 12-03 20:45 | 11 | 4190 | |
|
|
Alien Rage Yetkili Arkadaslar Ariyor
Son cevap: 28-06 10:24 · Son yazan: Alienrage · Mesaj: 1 · Görüntü: 2660
|
Server Reklam, Tartışma | 28-06 10:24 | 1 | 2660 | |
|
|
Bayramınız mübarek olsun arkadaşlar.
Son cevap: 30-06 13:46 · Son yazan: Barbarossa · Mesaj: 4 · Görüntü: 4422
|
Garbage | 30-06 13:46 | 4 | 4422 | |
|
|
Knight Online Aktif Oynayan Arkadaşlar Yardım
Son cevap: 19-06 00:17 · Son yazan: [Nores] · Mesaj: 3 · Görüntü: 4594
|
Garbage | 19-06 00:17 | 3 | 4594 | |
|
|
Connector Yapan Arkadaşlar İletişime Geçsin.
Son cevap: 19-04 14:33 · Son yazan: Royal · Mesaj: 18 · Görüntü: 13506
|
Sarı Sayfalar | 19-04 14:33 | 18 | 13506 |