TCL Long text kicker

Long text kicker

#za kolko dumi da gi nakazva userite :)
set arg_len "239"

bind pubm - * pum_arg

proc pum_arg {nick uhost hand chan arg} {
 global arg_len botnick

 if {![botisop $chan]} {return 0}
 if {([matchattr $hand b]) && ([matchattr $hand f|f $chan]) && ($nick == $botnick)} {return 0}

 if {[string length $arg] > $arg_len } {
   if {[isop $nick $chan]} {putserv "NOTICE $nick :Please do not use large characters!" ; pushmode $chan -o $nick ; return 0}
   putserv "KICK $chan $nick :Too Long Line. 239 Symbols.  Stupid or something??!"
   return 1}
}