-------------------------------------------------------------------------------
-- returns the team number of a player (may be different than what is in the game-setup screen)
-- function created by Mikail
--
function Player_Team(iPlayer)
    local TeamsTable = {}
    for playerIndex = 0, PlayerCount do
        local IsAllied = 0
        for i = 1, getn(TeamsTable) do
            if (AreAllied(playerIndex, TeamsTable[i]) == 1) then
                IsAllied = 1
                break
            end
        end
        if (IsAllied == 0) then
            tinsert(TeamsTable, playerIndex)
        end
    end
    for i = 1, getn(TeamsTable) do
        if (AreAllied(iPlayer, TeamsTable[i]) == 1) then
            return i
        end
    end
end