SpamChecker.tcl error?

[datony]

Hey i get this error when i .rehash my bot in partyline.

Tcl error [kb_i]: list element in quotes followed by "]" instead of space.

Full Script here:

Code: Select all

##########################################################################
# SpamChecker v2.0 by ShakE <shake@vip.bg>		                 #
##########################################################################
# Tova e tcl koito pravi va6ia eggdrop spam checker. Bota 6te rejoinva v #
# vseki kanal v koito e. Za da se sloji ban...checker-a trqbva da e link #
# s ostanalite botove v kanala i botovete trqbva da imat slojen 	 #
# SpamKicker.tcl ,koito varvi kato paket s tozi tcl.			 #
##########################################################################
# Ako imate nqkakvi vaprosi, predlojenia ili kritiki posetete foruma na	 #
# http://shake.hit.bg i pi6ete tam!                                      #
##########################################################################

########## Nastroiki ###########

#flaga na userite koito bota nqma da priema za inviters
set uflag "o"

#prez kolko vreme bota da rejoinva kanalite (v minuti)
set cycle_time "60"

#vtoria nick na checker-a
set chnick "Elitnia"

#slojete 1 ako iskate bota da otgovarq na "hi"
set hianswer 1

## Ottuk nadolu ne butai ni6to!!! ##
#########################################################################################

bind raw -|- PRIVMSG kb_i
bind raw -|- NOTICE kb_i

proc kb_i {from key args} {
 global hianswer
 scan $from "%\[^!]@%s" unick uhost
 set handle [finduser $from]
 set in_active [lindex $args 0]
 set actv [lindex $in_active 0]
 if {[validchan $actv] == 0} {
  if {($unick == "Global") || ($unick == "CS") || ($unick == "NS")} { return 0 }
  if {[string match *#* $args]} { 
   kb_spammer $unick $handle $from
   return 0
  }
  if {[string match *w*w*w*.* $args]} { 
   kb_spammer $unick $handle $from 
   return 0
  }
  if {[string match *h*t*t*p*:*/*/* $args]} { 
   kb_spammer $unick $handle $from 
   return 0
  }
  if {[string match *W*w*W* $args]} { 
   kb_spammer $unick $handle $from 
   return 0
  }
  if {[string match *DCC* $args]} { 
   kb_spammer $unick $handle $from 
   return 0
  }
  if {[string match *hi* $args]} { 
   if {$hianswer == 1} {
    putserv "privmsg $unick :Zdrasti,az sum Iva a ti?" 
    return 0
   }
  }
 }
 if {[validchan $actv] == 1} {
  if {[string match *www.* $args]} { 
   kb_spammer $unick $handle $from 
   return 0
  }
  if {[string match *http://* $args]} { 
   kb_spammer $unick $handle $from 
   return 0
  }
 }
}

proc kb_spammer {unick handle uhost} {
   global uflag invbanhost
   if {[matchattr $handle $uflag] || [matchattr $handle b]} {
    putlog "Invite Detected from a user: $unick"
    return 0
   }
   putlog "SpaMeR DeTeCteD: $unick ($uhost)"
   putallbots "kb $unick $uhost"
   return 1
}
if {![string match "*cyclechans*" [timers]]} { timer $cycle_time cyclechans }
proc cyclechans {} {
 global cycle_time chnick
 putlog "Checker: Rejoining channels..."
 putserv "NICK $chnick"
 foreach chan [channels] {
  channel set $chan +inactive
  channel set $chan -inactive
 }
 if {![string match "*cyclechans*" [timers]]} { timer $cycle_time cyclechans }
}

putlog "SpamChecker.tcl by ShakE loaded! | Downloaded from http://www.egghelp-bg.com"
putlog "Get more tcl's from http://shake.hit.bg"

Thanks!