TCL Notice Nick

Notice Nick

# NOTICE By Dude [matt@snip.net]

if { ![info exists toolbox_loaded] } { source scripts/alltools.tcl }

# notice partyline command

bind dcc o notice notice:dcc:notice

proc notice:dcc:notice {hand idx arg} {
 if { [llength $arg] < 1 } {
  putdcc $idx "Usage: notice <nick> <message>"
  return 0
 }
 set sarg [string first " " $arg]
 set nick [string range $arg 0 [expr $sarg - 1]]
 set msg [string range $arg [expr $sarg + 1] end]
 if { [llength $nick] < 1 } {
  putdcc $idx "Usage: notice <nick> <message>"
  return 0
 }
 putdcc $idx "Notice to $nick: $msg"
 putnotc $nick "$msg"
 putcmdlog "#$hand# notice $nick $msg"
 return 0
}
putlog "NOTICE Loaded"