[FUNCTION for_display]
var.panim=<eval <src.tag.oldurdugum>>
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 varsin <eval <local.x>>
return 1
endif
endfor
src.foryerles
src.sysmessage yerlesios
[function foryerles]
for b 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.b>>>>
if (<eval <obj.tag.>> < <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
src.sysmessage foryuuuk
[dialog errg]
0,0
resizepic 220 100 3600 255 250
page 0
for c 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.c>>>>
dtext 260 <hval (<local.c>*20)+(100)> 1307 <obj.name>
dtext 430 <hval (<local.c>*20)+(100)> 50 <eval <obj.tag0.oldurdugum>>
dtext 240 120 37 1.
dtext 240 140 37 2.
dtext 240 160 37 3.
dtext 240 180 37 4.
dtext 240 200 37 5.
dtext 240 220 37 6.
dtext 240 240 37 7.
dtext 240 260 37 8.
dtext 240 280 37 9.
dtext 240 300 37 10.
// puanlar
dtext 385 <eval (<local.c>*20)+(100)> 37 Puan:
endfor
[FUNCTION forfo]
for y 10 <eval <var.cnntq>>
try uid.<var.ranktas 040023d72>.tag.sira<eval <local.y>> = <eval <uid.<var.ranktas>tag.sira<eval <local.y> - 1>>>
endfor
src.sysmessage forfof
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>
src.sysmessage @045,1,1 Kurulum tamamlandi bap <var.ranktas>
return 1
[plevel 1]
errg
for_display
[function errg]
src.dialog errg
[itemdef i_top10_stone]
defname=i_top10_stone
id=i_grave_stone
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
[EOF]
Nixdorf:
ben burada sıralamayı playerlardaki tag.pan a göre yaptırdım.. bir stone koyup uid ini var.ranktas olarak ayarla. mesela kelle sisteminde her puan aldığında tag.pan ı bir arttır sonrada for_display fonksiyonunu çalıştır sürekli güncel bir listen olsun..
[FUNCTION for_display]
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 varsin <eval <local.x>>
return 1
endif
endfor
src.foryerles
src.sysmessage yerlesios
[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
src.sysmessage foryuuuk
[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.servname> Top 10 Player
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:
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
src.sysmessage forfof
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>
src.sysmessage @11 Kurulum tamamlandi bap <var.ranktas>
return 1
[Plevel 01]
for_display
[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.for_display
on=@kill
if (<argo.fame> <= 3500))
src.sysmessage @38,1,1 Puan alamadin...
else
src.tag.pan <eval <src.tag.pan> +1>
src.sysmessage @63,1,1 1 Puan Aldin
src.for_display
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 f_bosalt]
for b 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.b>>>>
var.cnntq=0
var.numper=0
obj.tag.pan=0
endfor
[ITEMDEF i_puan_Stone]
id i_grave_stone
type t_eq_script
on=@create
attr 010
color 0800
timer 3
return 1
on=@dclick
src.f_bosalt
return 1
on=@click
message @0481,,1 Puan Sıfırlama
return 1
////////////////
[EOF]
///////////////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. RFW 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. (.istatistik)
[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 RFW 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: <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. RFW 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. (.istatistik)
[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 RFW UO SIRALAMA MENUSU. Basariyla Acilmistir.!
[EOF]