Koddda herhangi bir problem görünmemekte. Doğru eklediğinden emin ol.
Kanal genelinde ;
!puan list yaptığımda..
[18:46] <fdmqo8> !puan list
[18:46] <Murat> ««« Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: »»»
[18:46] <Murat> 1st dasdada 2600
[18:46] <Murat> 2nd aayineOcocuk 300
[18:46] <Murat> 3rd syuqf9 200
[18:46] <Murat> 4th fdmqo8 110
[18:46] <Murat> 5th
[18:46] <Murat> 6th
[18:46] <Murat> 7th
[18:46] <Murat> 8th
[18:46] <Murat> 9th
[18:46] <Murat> 10th
[18:45] <fdmqo8> !puan Murat
[18:45] <Murat> Murat puan listesinde yok
[18:45] <Murat> fdmqo8: Benim puanmımı boşver, sen sohbetine bak.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#KANAL:{
if $1 == !puan {
if ($2 == list) { top10 | goto t0p10 }
elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
}
if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt }
else {
var %dify $readn
var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1)
write $+(-l,%dify) puan.txt $nick %yeah
if %yeah == 1000 { mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }
}
:t0p10
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg # 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
while %top10 <= %hit { msg # 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 }
window -c %cnk
}