[FUNCTION xxtop10]
var.panim=<eval <src.tag.pan>>
FOR X 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.x>>>>
if (<obj> = <src.uid>)
var.cnnt=<eval (<eval <local.x>> +1)>
var.numper=<eval <local.x>>
src.foryuk
src.sysmessage @1993 Sayin <src.name> Suan, <eval <local.x>>. Siradasiniz Ve <eval <src.tag.pan>> Kadar Puana Sahipsiniz. <Serv.Name> Ailesi...
return 1
endif
endfor
src.foryerles
src.sysmessage @0810 Siralamaya Koyuluyor...
src.sysmessage @0823 [NOT: Daha Once Kimseyi Oldurmediyseniz Siralamaya giremezsiniz.]
src.sysmessage @07d4 Sadece Siralamaya Bakabilirsiniz.
[function foryerles]
for b 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.b>>>>
if (<eval <obj.tag.pan>> < <eval <var.panim>>)
var.cnntq=<eval (<eval <local.b>> +1)>
var.numper=<eval <local.b>>
src.forfo
return 1
endif
endfor
[FUNCTION foryuk]
for y <eval <var.cnnt>> 10
try uid.<var.ranktas>.tag.sira<eval <local.y> - 1> = <uid.<var.ranktas>tag.sira<eval <local.y>>>
endfor
src.foryerles
[dialog errg]
0,0
resizepic 50 0 83 500 250//ARka Fon
resizepic 50 300 83 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
for c 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.c>>>>
dtext 130 <hval <local.c>*20> 50 <obj.name>
dtext 500 <hval <local.c>*20> 50 <eval <obj.tag.pan>>
dtext 65 325 1152 <Serv.Name> Top 10 Player
dtext 65 20 38 1.Isim:
dtext 65 40 38 2.Isim:
dtext 65 60 38 3.Isim:
dtext 65 80 38 4.Isim:
dtext 65 100 38 5.Isim:
dtext 65 120 38 6.Isim:
dtext 65 140 38 7.Isim:
dtext 65 160 38 8.Isim:
dtext 65 180 38 9.Isim:
dtext 65 200 38 10.Isim:
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:
endfor
[FUNCTION forfo]
for y 10 <eval <var.cnntq>>
try uid.<var.ranktas>.tag.sira<eval <local.y>> = <eval <uid.<var.ranktas>tag.sira<eval <local.y> - 1>>>
endfor
try uid.<var.ranktas>.tag.sira<eval <var.numper>> = <src.uid>
[itemdef i_ranktasnix]
id i_grave_stone
type=t_script
name=ranking
on=@create
attr 080
[function rankkur]
var.ranktas=<args>
serv.allclients sysmessage @0810 Kurulum Basariyla Tamamlandi:
serv.allclients sysmessage @056,,1 Top10 Listesi Siralamasina Bakabilmeniz Icin .Top10 Veya .siralama Yazarak Bakabilirsiniz.
serv.allclients sysmessage @0810 <Serv.Name> Iyi Oyunlar Diler.
<var.ranktas>
return 1
[Plevel 01]
top10
xxtop10
siralama
[Events e_puan]
on=@death
if (<act.tag.puan> = 0)
src.sysmessage @1153 0 Puana Sahipsin...
else
src.tag.pan <eval <src.tag.pan> -1>
src.sysmessage @0810 Oldugunuz Icin 1 Puan Kaybettiniz.
src.xxtop10
on=@kill
if (<argo.fame> <= 3500))
src.sysmessage @38,1,1 Puan Alamadin...
else
src.tag.pan <eval <src.tag.pan> +3>
src.sysmessage @63,1,1 3 Puan Aldininiz...
src.xxtop10
endif
[itemdef i_top10_stone]
defname=i_top10_stone
id=i_gravestone
weight=999
type=t_eq_script
name=Top 10 Listesi
on=@create
attr=010
color=07a1
on=@click
Message @07a1 <serv.name>
message @50 <name>
return 1
on=@dclick
src.dialog errg
return 1
[FUNCTION top10]
var.panim=<eval <src.tag.pan>>
FOR X 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.x>>>>
if (<obj> = <src.uid>)
var.cnnt=<eval (<eval <local.x>> +1)>
var.numper=<eval <local.x>>
src.foryuk
src.sysmessage @1993 Sayin <src.name> Suan, <eval <local.x>>. Siradasiniz Ve <eval <src.tag.pan>> Kadar Puana Sahipsiniz. <Serv.Name> Ailesi...
src.dialog errg
return 1
endif
endfor
src.foryerles
src.sysmessage @0810 Siralamaya Koyuluyor...
src.sysmessage @0823 [NOT: Daha Once Kimseyi Oldurmediyseniz Siralamaya Giremezsiniz.]
src.sysmessage @07d4 Sadece Siralamaya Bakabilirsiniz.
[function foryerles]
for b 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.b>>>>
if (<eval <obj.tag.pan>> < <eval <var.panim>>)
var.cnntq=<eval (<eval <local.b>> +1)>
var.numper=<eval <local.b>>
src.forfo
return 1
endif
endfor
[FUNCTION siralama]
src.dialog errg
src.sysmessage @0810 <Serv.Name> Siralama Menusu. Basariyla Acilmistir.!
Arkadaslar hersey iyi guzel eventi login'e ekledım res attım tum playerlara verdim eventi fakat adam kestigin zaman 3 puan kazandınız diyor ama tabloya işlemıyor sebebi nedir acaba ? ve daha once adam olurmediniz sıralamaya giremezsiniz dıyor
Bu konu Ferralin tarafından düzenlendi(2009-07-18 15:44, 14 yıl önce)
