proc grabNames {chan} {
	return lnames; #command to send to the server: NAMES $chan
}

proc isOP {chan nick} {
	set search " *@"
	append search $nick
	append search "* "
	return string match $search grabNames {$chan}
}


#Format:
#NAMES #spiritclan
#:irc.toribash.com 353 voxb @ #spiritclan :voxb @Vox isxiz
#:irc.toribash.com 366 voxb #spiritclan :End of /NAMES list.