on *:text:*:#: { 
var %: $lines(kufurler.txt)
while (0 < %:) {
if ($read(kufurler.txt,%:i) iswm $strip($1-)) {
var %kf = $+(%,Kufur,.,$nick,:) | set $($+(%,Kufur,.,$nick,:),1) $addtok($($+(%,Kufur,.,$nick,:),2),$v1,32) | inc %kf }
dec %:
}
} 
alias rapor { if $($+(%,kufur,.,$1,:),1) { echo -a $(%kf,2) kere $($+(%,kufur,.,$1,:),2) s&#246;zlerini kullanmıştır...
}
}