#by wiebe @ QuakeNet
#requires clonecontrol.tcl



#help clonecontrol msg
bind msgm omn|omn "help clonecontrol" c_clonecontrol:help:msg

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



#clonecontrol msg
bind msg omn|omn clonecontrol c_clonecontrol:msg

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