setudef flag komut

bind pub -|- ".komutlar" komut_list

proc komut_list {nick uhost hand chan text} { 
      if {![channel get $chan komut]} { return 0 }
            set komut [list]
            set i 0
      
  foreach {bind tur flags kmt kac pros} [binds pub] { 
           lassign $bind tur flags kmt kac pros
          
      if {[matchattr [nick2hand $nick] $flags $chan] && \
          [string compare -nocase $tur "pub"] && \
         ![string equal -nocase $kmt $::lastbind]} { 
             lappend komut \00304$kmt\003
         } 
     }
      largetext notice $nick "\002Kullanılabilir komut listesi\002: [join $komut ", "]"
      incr i
      return 0
}

# thanks to speechles (EFnet - #roms-isos), master && teacher ...
      
proc largetext {type target text {delims {" "•,.!?}}} {
        set lineLen [expr {412 - [string length ":$::botname $type [join $target] :\r\n"]}]
        
        if {[string length $text] <= $lineLen} { 
            putserv "$type $target :$text"
            return 0
        }
        set _text [split $text $delims]
        set x 0
        set i 0
        while {$x < $lineLen} {
            if {$i >= [llength $_text]} { 
                return 0
            }
            set wordlen [string length [lindex $_text $i]]
            if {$x + $wordlen > $lineLen} { 
                break
            }
            incr x $wordlen
            incr x
            incr i
        }
    putserv "$type $target :[string range $text 0 [expr {$x - 1}]]"
    largetext $type $target [string trimleft [string range $text $x end]] $delims
 }

putlog "ok..."