Çevrimdışı

on *:text:*:#:{
if ($1 == !sohbet
) { top10 $chan | goto t0p10 }
if $1 == !puan {
elseif !$read($+(puan,$chan,.txt),w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
if $2 == $me { msg $chan $+($nick, Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
elseif ($2 == $nick && $read($+(puan,$chan,.txt),w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
}
if !$read($+(puan,$chan,.txt),w,$+(*,$nick,*)) { write $+(puan,$chan,.txt) $nick 1 | halt }
else {
var %dify $readn
var %yeah = $calc($token($read($+(puan,$chan,.txt),%dify),2,32 ) +1)
write $+(-l,%dify) $+(puan,$chan,.txt) $nick %yeah
if %yeah == 100000 { mode $chan +v $nick | msg $chan Tebrikler $nick 100000 puanın oldu }
}
:t0p10
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = $+(puan,$1,.txt), %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg $1 4*** 2 $1 Kanalı Günün Gevezeleri 4***
msg $1 
while %top10 <= %hit { msg $1 1 $(%top10)) 4 $gettok($line(%cnk,%top10),1,32) 1---> Satır : 2 $gettok($line(%cnk,%top10),2,32) | inc %top10 }
window -c %cnk
msg $1 
msg $1 4*** 2 $1 Kanalı Extra Puan Systemi 4***
}