Kod

alias kelime_frekanslari {
  if (!$hget(kelime_frekanslari)) {
    hmake kelime_frekanslari 100
  }
}

on *:text:*:#: {
  if $regex($1,/[\.!]rapor/Si) {
    if ($2 isnum) {
      var %sayi = $2
      var %kelimeler
      var %sayilar

      var %i = 1
      while ($hget(kelime_frekanslari, %i).data != $null) {
        var %kelime = $hget(kelime_frekanslari, %i).item
        var %kelime_sayi = $hget(kelime_frekanslari, %i).data
        %kelimeler = %kelimeler $+ %kelime $+ |
        %sayilar = %sayilar $+ %kelime_sayi $+ |
        inc %i
      }

      var %j = 1
      while (%j <= %sayi) {
        var %en_cok = 0
        var %kelime = $null
        var %k = 1
        while ($gettok(%sayilar, %k, 124) != $null) {
          var %gecerli_sayi = $gettok(%sayilar, %k, 124)
          if (%gecerli_sayi > %en_cok) {
            %en_cok = %gecerli_sayi
            %kelime = $gettok(%kelimeler, %k, 124)
          }
          inc %k
        }
        if (%kelime && %en_cok) {
          msg # %kelime : %en_cok
          %kelimeler = $remtok(%kelimeler, %kelime, 1, 124)
          %sayilar = $remtok(%sayilar, %en_cok, 1, 124)
        }
        inc %j
      }
    } 
    else {
      msg # Lütfen raporlamak istediğiniz kelime sayısını belirtin. Örnek: !rapor 10
    }
  } 
  else {
    var %mesaj = $strip($1-)
    var %i = 1
    while ($gettok(%mesaj, %i, 32) != $null) {
      var %kelime = $gettok(%mesaj, %i, 32)
      hadd -mu100 kelime_frekanslari %kelime $calc($hget(kelime_frekanslari, %kelime) + 1)
      inc %i
    }
  }
}