alias vmsg {
if $2 {
var %a = $2-
while (%a) {
if $nick(#,$gettok(%a,1,32),v) { set %vnick $addtok($vnick,$nick(#,$gettok(%a,1,32),v),32) }
if !$istok(%vnick,$gettok(%a,1,32),32) { set %nmsg $addtok(%nmsg,$gettok(%a,1,32),32) }
var %a = $remtok(%a,$gettok(%a,1,32),1,32)
}
set %msg = $remove($2-,%nmsg,%vnick)
if (!%msg) {
.msg $nick No message to send
halt
}
if (!%vnick) {
.msg $nick No one voiced in #
halt
}
while (%vnick) {
.msg $gettok(%vnick,1,32) %msg
var %vnick = $remtok(%vnick,$gettok(%vnick,1,32),1,32)
}
}
else .msg $nick No one to message
}