# komutlara erişimi olacak kullanıcı flagları:
set istflag "-|-"

# komut başına gelecek işaret:
set isttrig "."

# komut:
set istkomut "stat"


# kanal/lar üstünde aktif etmek için : .chanset #kanal +istatistik
# ayarlar sonu...

proc stat_say {nick uhost hand chan text} {
   if {![channel get $chan istatistik]} { return }
       
         set kelime [llength $text]
         set karakter [string length [regsub -all " " $text ""]]
        
   if {![info exists ::keli($nick)] && ![info exists ::kara($nick)]} {
         set ::keli($nick) [dict create]
         set ::kara($nick) [dict create]
      }
      
      dict incr ::keli($nick) $chan $kelime
      dict incr ::kara($nick) $nick $karakter
}

setudef flag istatistik

proc stat_cmd {nick uhost hand chan text} {
   if {![channel get $chan istatistik]} { return }
         
         set hedef [lindex [split $text] 0]
   if {[llength $hedef] eq "0"} {
         puthelp "notice $nick :Kullanımı : $::lastbind < rumuz >"
         return 0
      }
      
   if {[info exists ::keli($nick)] && [info exists ::kara($nick)]} { 
          putserv "privmsg $chan :$hedef : [lindex [dict get $::keli($nick)] 0] kanalında ; \
          [lindex [dict get $::keli($nick)] 1] kelime ,[lindex [dict get $::kara($nick)] 1] karakter kullanmış."
          return 0
      } else {
          putserv "privmsg $chan :$hedef ile ilgili bir kayıt bulunmuyor."
      }
}

bind pubm - "*" stat_say
bind pub $istflag $isttrig$istkomut stat_cmd

putlog "ok..."