Unnamed

proc members {hand chan args x mix} {
	global settings
	set file "eggleague.db"
	
			set fd [open $file r]
			set cont [read $fd]
			close $fd
			set listelite ""; set list1 ""; set list2 ""; set list3 ""; set list4 ""; set listChecking ""; 
			
			foreach abuse [split $cont \n] {
			if {[string match -nocase "Elite*" $abuse]} {lappend listelite "[lindex $abuse 1]"}
			if {[string match -nocase "1*" $abuse]} {lappend list1 "[lindex $abuse 1]"}
			if {[string match -nocase "2*" $abuse]} {lappend list2 "[lindex $abuse 1]"}
			if {[string match -nocase "3*" $abuse]} {lappend list3 "[lindex $abuse 1]"}
			if {[string match -nocase "4*" $abuse]} {lappend list4 "[lindex $abuse 1]"}
			if {[string match -nocase "Checking*" $abuse]} {lappend listChecking "[lindex $abuse 1]"}
			}
			if {[string match $listelite ""]} {set listelite "none"}
			if {[string match $list1 ""]} {set list1 "none"}
			if {[string match $list2 ""]} {set list2 "none"}
			if {[string match $list3 ""]} {set list3 "none"}
			if {[string match $list4 ""]} {set list4 "none"}
			if {[string match $listChecking ""]} {set listChecking "none"}
			
			puthelp "PRIVMSG $chan :Elite League: \0032$listelite\0031 1st League: \0032$list1\0031 2nd League: \0032$list2\0031 3ed League: \0032$list3\0031 4th League: \0032$list4\0031 Checking: \0032$listChecking\0031"
		}