Kanal kelime istatistiği

Kullanımı: !kelime #kanal
mIRC’in herhangi bir aktif penceresinde Sağ tık yaparak, Kelime İstatistiği menüsünden Aç – Kapat – Durum bilgilerine ulaşabilirsiniz

– Kanalda en fazla yazan ilk 10 kişiye kadar Nickleri ve kelime sayıları ile birlikte listeler. Ayrıca o kanaldaki toplam kullanılan kelime sayısını da verir.
– Kullanım amacınıza ve isteğinize göre ekleme/silme/değiştirme yapabilirsiniz.

menu * { 
  .Kelime İstatistiği
  ..Aç:!if $group(#kelime).status = on { echo -a Kelime Sayacı Zaten AÇIK } | else { enable #kelime | echo -a Kelime Sayacı AÇILDI }
  ..Kapat:!if $group(#kelime).status = off { echo -a Kelime Sayacı Zaten KAPALI } | else { disable #kelime | echo -a Kelime Sayacı KAPATILDI }
  ..Durum < $replace($group(#kelime).status, off, Kapalı, on, Açık) >:.
}
#kelime on
on *:input:#: { 
  if $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) { 
    var %rvl 1 | while %rvl <= 10 { var %see = $addtok(%see,$regsubex(is,$+($hmatch(konusma,$+($2,$chr(11),*),%rvl),:,$hget(konusma,$+($2,$chr(11),$gettok($hmatch(konusma,$+($2,$chr(11),*),%rvl),2,11)))),/^\x23\S+\xB(\S+)\x3A(\d+)$/,$+(\2,$chr(11),\1)),32) | inc %rvl } 
    msg # En Fazla Kelime Yazan İlk $iif($numtok(%see,11) < 10, $calc($v1 - 1), $v2) Kişi: $regsubex(ciao,$replace($sorttok(%see,32,rn),$chr(11),:-),/(\d+)\x3A\x2D(\S+)/g,$+($chr(40),Nick:\2,$chr(32),Kelime:\1,$chr(41)))
    msg # $+(,$qt($2),) Kanalında Toplam Yazılan Kelime Sayısı: $+(,$$hget(konusma,$2),)
  }
}
on *:text:*:#ms: { .hinc -m konusma $chan $numtok($1-,32) | .hinc -m konusma $+($chan,$chr(11),$nick) $numtok($1-,32) } 
#kelime end

menu * {

.Kelime İstatistiği

..Aç:!if $group(#kelime).status = on { echo -a Kelime Sayacı Zaten AÇIK } | else { enable #kelime | echo -a Kelime Sayacı AÇILDI }

..Kapat:!if $group(#kelime).status = off { echo -a Kelime Sayacı Zaten KAPALI } | else { disable #kelime | echo -a Kelime Sayacı KAPATILDI }

..Durum < $replace($group(#kelime).status, off, Kapalı, on, Açık) >:.

}

#kelime on

on *:input:#: {

if $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) {

var %rvl 1 | while %rvl <= 10 { var %see = $addtok(%see,$regsubex(is,$+($hmatch(konusma,$+($2,$chr(11),*),%rvl),:,$hget(konusma,$+($2,$chr(11),$gettok($hmatch(konusma,$+($2,$chr(11),*),%rvl),2,11)))),/^\x23\S+\xB(\S+)\x3A(\d+)$/,$+(\2,$chr(11),\1)),32) | inc %rvl }

msg # En Fazla Kelime Yazan İlk $iif($numtok(%see,11) < 10, $calc($v1 - 1), $v2) Kişi: $regsubex(ciao,$replace($sorttok(%see,32,rn),$chr(11),:-),/(\d+)\x3A\x2D(\S+)/g,$+($chr(40),Nick:\2,$chr(32),Kelime:\1,$chr(41)))

msg # $+(,$qt($2),) Kanalında Toplam Yazılan Kelime Sayısı: $+(,$$hget(konusma,$2),)

}

on *:text:*:#ms: { .hinc -m konusma $chan $numtok($1-,32) | .hinc -m konusma $+($chan,$chr(11),$nick) $numtok($1-,32) }

#kelime end

Not: Eğer aynı mirc üzerinden (/server -n) 1 den fazla sunucuya giriş yapıyorsanız, text event’ında sunucu koşulu belirtin. (if $server == irc.mircscripting.net) gibi. Yoksa tüm sunucularda ki event’ta belirtilen kanalları (on *:text:*:#ms,#Sohbet üst üste kaydeder.

Sonuç:

[03:09] <Feragat> En Fazla Kelime Yazan İlk 10 Kişi: (Nick:srjn Kelime:259) (Nick:Soğuk Kelime:40) (Nick:Toprak Kelime:29) (Nick:iLKeR Kelime:20) (Nick:ibrahim Kelime:19) (Nick:LaTahzeN Kelime:13) (Nick:Goemon Kelime:10) (Nick:ChatFox6472 Kelime:9) (Nick:JoKai Kelime:8) (Nick:aRmoR Kelime:1)
[03:09] <Feragat> "#ms" Kanalında Toplam Yazılan Kelime Sayısı: 649

[03:09] <Feragat> En Fazla Kelime Yazan İlk 10 Kişi: (Nick:srjn Kelime:259) (Nick:Soğuk Kelime:40) (Nick:Toprak Kelime:29) (Nick:iLKeR Kelime:20) (Nick:ibrahim Kelime:19) (Nick:LaTahzeN Kelime:13) (Nick:Goemon Kelime:10) (Nick:ChatFox6472 Kelime:9) (Nick:JoKai Kelime:8) (Nick:aRmoR Kelime:1)