#by wiebe @ QuakeNet
#requires autolimit.tcl



#help autolimit msg
bind msgm mn|mn "help autolimit" c_autolimit:help:msg

proc c_autolimit:help:msg { nick uhost handle text } {
  if { [catch {autolimit:msg $nick $uhost $handle ""} error] } {
     putlog "ERROR using autolimit.tcl, perhaps you have not loaded it?"
     error $error
  }
  putcmdlog "($nick!$uhost) !$handle! $text"
}



#autolimit msg
bind msg mn|mn autolimit c_autolimit:msg

proc c_autolimit:msg { nick uhost handle text } {
  if { [catch {autolimit:msg $nick $uhost $handle $text} error] } {
     putlog "ERROR using autolimit.tcl, perhaps you have not loaded it?"
     error $error
  }
  return 1
}