# -----   Default Values   ----- #
array set game_modes { vs svs tvs sc tsc }
array set game_sizes { 8 16 4 8 4 }
# ----- EOF Default Values ----- #

bind pub - !test m_test

proc isin {arr tosearch} {
        set result false
        foreach attr $arr {
                if {$attr == $tosearch} {
                        set result true
                        break
                }
        }
        return $result
}

proc get_gm {arr} {
    global game_modes
    set result "vs"
    foreach mode $game_modes {
        if {[isin $arr $mode] == true} {
            set result $mode
            break
        }
    }
    return $result
}