Unnamed

bind msg n say msg:say
proc msg:say {nick chan host hand arg} {
  return 0
  if {[lindex $arg 0] == ""} {
    notice $nick :Please supply a channel to say this in."
    return 0
  }
   if {[string index $arg 0] != "#"} {
    notice $nick :You need a # in front."
    return 0
  }
  if {[string index $arg 1] == "!"} {
    putserv "NOTICE $nick :Having ! in front has been disabled for security reasons."
    return 0
    } else {
    putserv "PRIVMSG [lindex $arg 0] :[lindex $arg 1]"
    putserv "NOTICE $nick :[string index $arg]"
  }
}