Iyi Gunler Arkadaslar Vericeginiz Yardimlardan Dolayi Simdi den Tsk Etmek Istiyorum.
Simdi Ben U-S Den Bitane Top10 Scripti Buldum Ve Hosuma Gitti Aldim Fakat Ama Ben Bu Scp Yi Kurdum Ama Bu Sistemde Adam Kesince Puan Vermemesi Ve Siralamaya Gecmemesi Sorun Oldu Ben Bu Script'in Nerde Hata Oldugun Bulamadim Eger Yardim Ederseniz Cok Sevinirim. Scripti Altta Gorebilirsiniz.
Ve Ben Bu Scp Yi Cok Az Bisi Kendime Gore Editledim.
///////////////U-S'ye tesekkürler www.ultima-strike.com//////////
///////////////Creator:Nixdorf //////////
///////////////Last Editor:Rexos //////////
TARİH: Pazartesi, Ocak 28, 2008 / 23:10
[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.!
[EOF]
