TCL Color Talk Kick

Color Talk Kick

# Color by KuNgFo0

# Kick MSG
set color_msg "No mIRC colors"

# Channels
set color_chans "#test1 #test2"

bind pubm - * pubm_color
bind ctcp - ACTION ctcp_color

putlog "*** Color by KuNgFo0 loaded"

proc pubm_color {nick uhost hand chan arg} {
 global color_msg color_len color_chans botnick
 if {(([lsearch -exact [string tolower $color_chans] [string tolower $chan]] != -1) || ($color_chans == "*")) && (![matchattr $hand b]) && (![matchattr $hand f|f $chan]) && ($nick != $botnick) && (([string match *\003* $arg]) || ([string match *\022* $arg]))} {
  putserv "KICK $chan $nick :$color_msg"
 }
}

proc ctcp_color {nick uhost hand chan keyword arg} {
 pubm_color $nick $uhost $hand $chan $arg
}