CountPlayersOfRace

function CountPlayersOfRace takes race r returns integer
    local integer i = 0
    local integer count = 0
    loop
        exitwhen i > bj_MAX_PLAYERS
        if (GetPlayerRace(Player(i)) == r) then
            set count = count + 1
        endif
        set i = i + 1
    endloop
    return count
endfunction

No comments.