on *:text:*:?:{
  var %m $remove($1-,$chr(32)) | .hinc -m $nick %m 1 | if $hget($nick,%m) >= 3 { .closemsg $nick | .ignore -pu60 $nick | echo -eat [Engellendi!] Nick: $nick Kelime: $qt($1-) | .hdel -m m $nick  }
  while x { inc -u %s | inc $+(%,.,kelime,.,$$gettok($1-,%s,32)) }
}
alias kelime-liste {
  $iif(!$window(@kp),window -h @kp,clear @kp)
  if $file(kp.txt) { .remove kp.txt }
  var %s 1, %f $var(%.kelime.*,0), %top 10
  while %s <= %f {
    var %x $+($chr(37),.kelime.)
    write kp.txt $remove($var(%.kelime.*,%s),%x) $($var(%.kelime.*,%s),2)
    inc %s
  }
  filter -fwcteu 2 32 kp.txt @kp
  var %s 1 | while %s <= %top { echo -at %s $+ ) [Kelime] $gettok($$line(@kp,%s),1,32) [Tekrar] $gettok($$line(@kp,%s),2,32) | inc %s }
}