setudef flag yönet
 
bind pub -|- !gir gir:knl
bind pun -|- !cik cik:knl
 
proc gir:knl { nick host hand chan arg } {
  if {![channel get $chan yonet]} {
    return
  }
 if {[isop $nick $chan] {
    if {$arg == ""} {
    putserv "notice $nick :hatalı kullanım: !gir #kanal-adı."
   return
   } else {
   channel add [lindex [split $arg] 0]
    putserv "notice $nick :tamamdır."
    }
   }
}
 
proc cik:knl { nick host hand chan arg } {
  if {![channel get $chan yonet]} {
    return
  }
  if {[isop $nick $chan] {
    if {$arg == ""} { 
    channel remove $chan 
    } elseif {![validchan [lindex [split $arg] 0]]} {
     putserv "notice $nick :hata $arg bilinmiyor."
    return
    } else {
    channel remove [lindex [split $arg] 0]
    putserv "notice $nick :tamamdır."
    }
   }
}