Öncelikle bir event yazıyoruz ;
Kod:
[events e_puanlar]
on=@kill
if (<argo.fame> >= 1000) && (<argo.isplayer>)
toplist
Toplist fonksiyonunu önceden bir arkadaşım öğretmişti ;
Kod:
[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
endfor
Sonra'da bunu dialog'a döküyoruz..
Kod:
[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>
endfor
Siteye dökmek istersen ;
Kod:
[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 ;
Kod:
<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.