bind raw - "% 352 *" proc_whoreply
bind raw - "% 315 *" proc_endwho
ircii ^on ^who "*" #
set users 1
proc proc_whoreply {raw} {
        global nick
	if {[string first "*" [lindex $raw 8]]==-1} {
	        lappend nick [string tolower [lindex $raw 7]]
	}
}

proc proc_endwho {raw} {
	global nick
	set string ""
	foreach n $nick {
		set string "$nick,$string"
	}
	putserv "PRIVMSG $string :HELLO Testing mass msg script, please ignore"
	putscr $string
        utimer 20 [unbind raw - "% 315 *" proc_endwho]
        unset nick
        unbind raw - "% 352 *" proc_whoreply
        ircii ^on ^who -
 
}

putserv "who 0"