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" }