Code:

[20:46] TCL error in file 'testbot':[20:46] can't read "cc_part": no such variable    while executing"if {!$cc_part} {  unbind part - * cc_part}"    (file "scripts/chanctrl.tcl" line 273)    invoked from within"source scripts/chanctrl.tcl"    (file "testbot" line 30)[20:46] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Code:

# chanctrl.tcl settingsset nb_component(chanctrl) 1

Code:

proc cc_check {text} {  if {regexp -- [[1code]proc cc_check {text} {  if {regexp -- [03] $text} {     return 1  } else {    return 0  }}proc cc_part {nick uhost hand chan text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "part"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_pubm {nick uhost hand chan text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "pubm"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_action {nick uhost hand chan keyword text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "pubm"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_quit {nick uhost hand chan text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "quit"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_core {nick uhost hand chan text cc_what} {global cc_longban cc_note cc_shortban global cc_txt_part1 cc_txt_part2 cc_txt_part3 cc_txt_part4global cc_txt_pubm1 cc_txt_pubm2 cc_txt_pubm3 cc_txt_pubm4global cc_txt_quit1 cc_txt_quit2 cc_txt_quit3 cc_txt_quit4  if {$cc_what == "part"} {    if {[getuser $hand xtra part_color] == "3"} {      # check if user is on level 3 (fourth warning - long ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_longban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_part4 {        puthelp "PRIVMSG $nick :$tmp"      }      putlog "ChanCtrl: $hand has used colour in $chan. Holding status on level 3."      return 1    } elseif {[getuser $hand xtra part_color] == "2"} {      # check if user is on level 2 (third warning - short ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_shortban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_part3 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $hand xtra part_color "3"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 3."      return 1    } elseif {[getuser $hand xtra part_color] == "1"} {      # check if user is on level 1 (second warning - no action)      foreach tmp $cc_txt_part2 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $hand xtra part_color "2"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 2."      return 1    } else {      # no record yet (first warning - no action)      if {![validuser $nick]} {        putlog "ChanCtrl: added $nick with [maskhost $uhost] for part colour"        adduser $nick [maskhost $uhost]        setuser $nick comment "Added by ChanCtrl - [ctime [unixtime]]"      }      foreach tmp $cc_txt_part1 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $nick xtra part_color "1"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 1."      return 1    }  } elseif {$cc_what == "pubm"} {    if {[getuser $hand xtra pubm_color] == "3"} {      # check if user is on level 3 (fourth warning - long ban)      set i 0      putkick $chan $nick "Colour Use"      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_longban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_pubm4 {        puthelp "PRIVMSG $nick :$tmp"      }      putlog "ChanCtrl: $hand has used colour in $chan. Holding status on level 3."      return 1    } elseif {[getuser $hand xtra pubm_color] == "2"} {      # check if user is on level 2 (third warning - short ban)      set i 0      putkick $chan $nick "Colour Use - banned for $cc_shortban minutes"      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_shortban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_pubm3 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $hand xtra pubm_color "3"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 3."      return 1    } elseif {[getuser $hand xtra pubm_color] == "1"} {      # check if user is on level 1 (second warning - kick)      foreach tmp $cc_txt_pubm2 {        puthelp "PRIVMSG $nick :$tmp"      }      putkick $chan $nick "Colour Use"      setuser $hand xtra pubm_color "2"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 2."      return 1    } else {      # no record yet (first warning - no action)      if {![validuser $nick]} {        putlog "ChanCtrl: added $nick with [maskhost $uhost] for public colour"        adduser $nick [maskhost $uhost]        setuser $nick comment "Added by ChanCtrl - [ctime [unixtime]]"      }      foreach tmp $cc_txt_pubm1 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $nick xtra pubm_color "1"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 1."      return 1    }  } elseif {$cc_what == "quit"} {    if {[getuser $hand xtra quit_color] == "3"} {      # check if user is on level 3 (fourth warning - long ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_longban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      sendnote ChanCtrl $hand $cc_txt_quit4      putlog "ChanCtrl: $hand has used colour in $chan. Holding status on level 3."      return 1    } elseif {[getuser $hand xtra quit_color] == "2"} {      # check if user is on level 2 (third warning - short ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_shortban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      sendnote ChanCtrl $hand $cc_txt_quit3      setuser $hand xtra quit_color "3"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 3."      return 1    } elseif {[getuser $hand xtra quit_color] == "1"} {      # check if user is on level 1 (second warning - no action)      sendnote ChanCtrl $hand $cc_txt_quit2      setuser $hand xtra quit_color "2"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 2."      return 1    } else {      # no record yet (first warning - no action)      if {![validuser $nick]} {        putlog "ChanCtrl: added $nick with [maskhost $uhost] for colour quit"        adduser $nick [maskhost $uhost]        setuser $nick comment "Added by ChanCtrl - [ctime [unixtime]]"      }      sendnote ChanCtrl $hand $cc_txt_quit1      setuser $nick xtra quit_color "1"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 1."      return 1    }  }}bind part - * cc_partif {!$cc_part} {  unbind part - * cc_part}bind pubm - * cc_pubmbind ctcp - ACTION cc_actionif {!$cc_pubm} {  unbind pubm - * cc_pubm  unbind ctcp - ACTION cc_action}bind sign - * cc_quitif {!$cc_quit} {  unbind sign - * cc_quit}[/code1]03] $text} {     return 1  } else {    return 0  }}proc cc_part {nick uhost hand chan text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "part"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_pubm {nick uhost hand chan text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "pubm"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_action {nick uhost hand chan keyword text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "pubm"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_quit {nick uhost hand chan text} {global cc_chans cc_echans cc_flag  if {[matchattr $hand $cc_flag|$cc_flag $chan]} { return 0 }  if {$cc_chans != ""} {    if {![lsearch -exact $cc_chans [string tolower $chan]] == -1} { return 0 }  }  if {$cc_echans != ""} {    if {![lsearch -exact $cc_echans [string tolower $chan]] != -1} { return 0 }  }  if {[cc_check $text]} {    set cc_what "quit"    cc_core $nick $uhost $hand $chan $text $cc_what  }}proc cc_core {nick uhost hand chan text cc_what} {global cc_longban cc_note cc_shortban global cc_txt_part1 cc_txt_part2 cc_txt_part3 cc_txt_part4global cc_txt_pubm1 cc_txt_pubm2 cc_txt_pubm3 cc_txt_pubm4global cc_txt_quit1 cc_txt_quit2 cc_txt_quit3 cc_txt_quit4  if {$cc_what == "part"} {    if {[getuser $hand xtra part_color] == "3"} {      # check if user is on level 3 (fourth warning - long ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_longban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_part4 {        puthelp "PRIVMSG $nick :$tmp"      }      putlog "ChanCtrl: $hand has used colour in $chan. Holding status on level 3."      return 1    } elseif {[getuser $hand xtra part_color] == "2"} {      # check if user is on level 2 (third warning - short ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_shortban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_part3 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $hand xtra part_color "3"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 3."      return 1    } elseif {[getuser $hand xtra part_color] == "1"} {      # check if user is on level 1 (second warning - no action)      foreach tmp $cc_txt_part2 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $hand xtra part_color "2"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 2."      return 1    } else {      # no record yet (first warning - no action)      if {![validuser $nick]} {        putlog "ChanCtrl: added $nick with [maskhost $uhost] for part colour"        adduser $nick [maskhost $uhost]        setuser $nick comment "Added by ChanCtrl - [ctime [unixtime]]"      }      foreach tmp $cc_txt_part1 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $nick xtra part_color "1"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 1."      return 1    }  } elseif {$cc_what == "pubm"} {    if {[getuser $hand xtra pubm_color] == "3"} {      # check if user is on level 3 (fourth warning - long ban)      set i 0      putkick $chan $nick "Colour Use"      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_longban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_pubm4 {        puthelp "PRIVMSG $nick :$tmp"      }      putlog "ChanCtrl: $hand has used colour in $chan. Holding status on level 3."      return 1    } elseif {[getuser $hand xtra pubm_color] == "2"} {      # check if user is on level 2 (third warning - short ban)      set i 0      putkick $chan $nick "Colour Use - banned for $cc_shortban minutes"      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_shortban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      foreach tmp $cc_txt_pubm3 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $hand xtra pubm_color "3"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 3."      return 1    } elseif {[getuser $hand xtra pubm_color] == "1"} {      # check if user is on level 1 (second warning - kick)      foreach tmp $cc_txt_pubm2 {        puthelp "PRIVMSG $nick :$tmp"      }      putkick $chan $nick "Colour Use"      setuser $hand xtra pubm_color "2"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 2."      return 1    } else {      # no record yet (first warning - no action)      if {![validuser $nick]} {        putlog "ChanCtrl: added $nick with [maskhost $uhost] for public colour"        adduser $nick [maskhost $uhost]        setuser $nick comment "Added by ChanCtrl - [ctime [unixtime]]"      }      foreach tmp $cc_txt_pubm1 {        puthelp "PRIVMSG $nick :$tmp"      }      setuser $nick xtra pubm_color "1"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 1."      return 1    }  } elseif {$cc_what == "quit"} {    if {[getuser $hand xtra quit_color] == "3"} {      # check if user is on level 3 (fourth warning - long ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_longban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      sendnote ChanCtrl $hand $cc_txt_quit4      putlog "ChanCtrl: $hand has used colour in $chan. Holding status on level 3."      return 1    } elseif {[getuser $hand xtra quit_color] == "2"} {      # check if user is on level 2 (third warning - short ban)      set i 0      foreach hmask [getuser $hand hosts] {        newchanban $chan $hmask ChanCtrl "Colour Use - [ctime [unixtime]]" $cc_shortban        incr i      }      foreach recipient $cc_note {        if {[validuser $recipient]} {          sendnote ChanCtrl $recipient "$hand was banned with $i hostmask(s) on $chan due to colour use"        }      }      unset i      sendnote ChanCtrl $hand $cc_txt_quit3      setuser $hand xtra quit_color "3"      putlog "ChanCtrl: $hand has used colour in $chan. Raising status to level 3."      return 1    } elseif {[getuser $hand xtra quit_color] == "1"} {      # check if user is on level 1 (second warning - no action)      sendnote ChanCtrl $hand $cc_txt_quit2      setuser $hand xtra quit_color "2"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 2."      return 1    } else {      # no record yet (first warning - no action)      if {![validuser $nick]} {        putlog "ChanCtrl: added $nick with [maskhost $uhost] for colour quit"        adduser $nick [maskhost $uhost]        setuser $nick comment "Added by ChanCtrl - [ctime [unixtime]]"      }      sendnote ChanCtrl $hand $cc_txt_quit1      setuser $nick xtra quit_color "1"      putlog "ChanCtrl: $nick has used colour in $chan. Raising status to level 1."      return 1    }  }}bind part - * cc_partif {!$cc_part} {  unbind part - * cc_part}bind pubm - * cc_pubmbind ctcp - ACTION cc_actionif {!$cc_pubm} {  unbind pubm - * cc_pubm  unbind ctcp - ACTION cc_action}bind sign - * cc_quitif {!$cc_quit} {  unbind sign - * cc_quit}