Code:

guard $nick $uhost $hand "#somechannelname" $text 

Code:

bind msgm - "*" msg_guardproc msg_guard {nick uhost hand text} { global guard guard $nick $uhost $hand "*" $text guard_inc msg $guard(msg) $guard(msgtime)}

Code:

proc guard {nick uhost hand desc text} {global guard guardnif {![botisop $desc]} { return 0 }subst -nobackslashes -nocommands -novariables textif {([matchattr $hand b])} {return 0}if {([matchattr $hand o])} {return 0}if {([matchattr $hand f])} {return 0}if {($desc != "*") && ([string index $desc 0] == "#")} { if {([matchchanattr $hand |o $desc])} {return 0} if {([matchchanattr $hand |f $desc])} {return 0} if {[isop $nick $desc]} {return 0}                  }regsub -all {\{} $text "?" textregsub -all {\(} $text "?" textregsub -all {\"} $text "?" textregsub -all {\[} $text "?" textregsub -all {\]} $text "?" textset rtext $textif {[llength $text] == 1} {set text [lindex $text 0]}set text [string tolower $text]set lnick [string tolower $nick]set sitemask "*!*[string trimleft [maskhost $uhost] *!]"if {![info exists guardn($lnick)]} {set guardn($lnick) "0 0 0 0 0 0 0 [unixtime] $text"                                    append guardn(nicks) "$lnick "                                   } set g_repeat [lindex $guardn($lnick) 0] set g_sflood [lindex $guardn($lnick) 1] set g_aflood [lindex $guardn($lnick) 2] set g_1flood [lindex $guardn($lnick) 3] set g_cc [lindex $guardn($lnick) 4] set g_caps [lindex $guardn($lnick) 5] set g_spaces [lindex $guardn($lnick) 6] set g_time [lindex $guardn($lnick) 7] set g_text [lrange $guardn($lnick) 8 end] set caps 0 set spaces 0 set gloop 0; set CC 0 while {$gloop < [string length $text]} {  if {[string match "*[string index $rtext $gloop]*" "ABCDEFGHIJKLMNOPQRSTUVWXYZ"]} {incr caps 1}  if {[string index $text $gloop] == "\003"} {incr CC 1}  if {[string index $text $gloop] == " "} {incr spaces 1}  incr gloop 1                                        }if {([guardchan $desc $guard(nocolors)]) && ($CC >> $guard(color_max))} {incr g_cc 1} else {set g_cc 0}set totc [string length $rtext]if {$text != ""} {set capsp [expr (${caps}.0 / ${totc}.0) * 100]} else {set capsp 0}if {($totc > $guard(caps_min)) && ($capsp > $guard(caps_per))} {incr g_caps 1} else {set g_caps 0}if {($totc > $guard(spaces_min)) && ($spaces == 0)} {incr g_spaces 1} else {set g_spaces 0}#repeat flood if {$g_text == $text} {incr g_repeat 1} else {set g_repeat 0}# Add char floodif {[string range $text 0 [expr [string length $text] - 2]] == $g_text} {incr g_aflood} else {set g_aflood 0}# Sub char floodif {[string range $g_text 0 [expr [string length $g_text] - 2]] == $text} {incr g_sflood} else {set g_sflood 0}if {[string length $text] == 1} {incr g_1flood} else {set g_1flood 0}#if ([$strlen($Rtext)] == 1) {@SCcnt = SCcnt + 1}{@SCcnt = 1}# if {$g_cc == $guard(color_warn)} {guardsay $nick $desc "$nick: $guard(color_reason)"}# if {$g_cc == $guard(color_kick)} {guardkick $nick $desc $guard(color_reason)}# if {$g_cc == $guard(color_ban)} {guardban $nick $sitemask $desc $guard(color_reason)}# if {$g_spaces == $guard(spaces_warn)} {guardsay $nick $desc "$nick: $guard(color_spaces)"}# if {$g_spaces == $guard(spaces_kick)} {guardkick $nick $desc $guard(spaces_reason)}# if {$g_spaces == $guard(spaces_ban)} {guardban $nick $sitemask $desc $guard(spaces_reason)} if {$g_caps == $guard(caps_warn)} {guardsay $nick $desc "$nick: $guard(caps_reason)"} if {$g_caps == $guard(caps_kick)} {guardkick $nick $desc "$guard(caps_reason)"} if {$g_caps == $guard(caps_ban)} {guardban $nick $sitemask $desc "$guard(caps_reason)"} if {$g_1flood == $guard(scflood_ban)} {set g_1flood 0; guardban $nick $sitemask $desc $guard(scflood_reason)} if {$g_sflood == $guard(subflood_ban)} {set g_sflood 0; guardban $nick $sitemask $desc $guard(subflood_reason)} if {$g_aflood == $guard(addflood_ban)} {set g_aflood 0; guardban $nick $sitemask $desc $guard(addflood_reason)} if {$g_repeat == $guard(repeat_warn)} {guardsay $nick $desc "$nick: Please do not repeat"} if {$g_repeat == $guard(repeat_kick)} {guardkick $nick $desc "$nick: Please do not repeat. Last warning."} if {$g_repeat == $guard(repeat_ban)} {guardban $nick $sitemask $desc "Don't Repeat! Don't Repeat! Don't Repeat! Don't Repeat!"} set guardn($lnick) "$g_repeat $g_sflood $g_aflood $g_1flood $g_cc $g_caps $g_spaces [unixtime] $text" return 0}