/*
 * Simple EPIC4 script to format /names output.
 * Author: Brian Weiss <brian@epicsol.org>
 * Last modified: 2003/06/03
 */


alias sc scan
alias scan (chan default "$C", void) {
	//names $chan
}

alias names.getov (chan, nick, void) {
	if (ischanop($nick $chan)) {
		@ function_return = [@]
	} elsif (ischanvoice($nick $chan)) {
		@ function_return = [+]
	} else {
		@ function_return = [ ]
	}
}

on ^353 "*" {
	^assign NAMES.CHAN $2
}

on ^366 "*" {
	@ :chan = NAMES.CHAN
	^assign -NAMES.CHAN
	xecho -b Users on $chan: total/$#onchannel($chan), ops/$#chops($chan), normal/$#nochops($chan)
	fe ($onchannel($chan)) n1 n2 n3 n4 n5 {
		xecho -b $names.getov($chan $n1)$[9]n1 $names.getov($chan $n2)$[9]n2 $names.getov($chan $n3)$[9]n3 $names.getov($chan $n4)$[9]n4 $names.getov($chan $n5)$[9]n5
	}
}


/* EOF */