Code:

bind chon - * dcc_chat_1proc dcc_chat_1 {hand idx} {if {![matchattr $hand C]} {putidx $idx "You do not have the proper flags to chat to this bot."putlog "$hand doesn't have +C flag - killing connection"killdcc $idxreturn 0}}bind filt m ".chatt* * *" filt_chattr1proc filt_chattr1 {idx arg} { if {(![string match [string tolower [xindex $arg 0]]* ".chattr"]) || ([pownercheck [idx2hand $idx]]) || (![string match *C* [xindex $arg 2]])} {  return $arg } else {  putlog "Warning: [idx2hand $idx] attempted to modify the +C flag for [xindex $arg 1] (noaccess)"  putdcc $idx "Only my admin is allowed to set the C flag"  return }}proc pownercheck {checkhand} { global owner regsub -all " " $owner "," ownertemp foreach i [split $ownertemp ,] {  if {[string tolower $i] == [string tolower $checkhand]} {   return 1  } } return 0}