local integer index

    set index = 0

    loop

        // upgraded units

        // Note: Only do this if the corresponding upgrade is not yet researched

        // Barrage - Siege Engines

        if (not GetPlayerTechResearched(Player(index), 'Rhrt', true)) then

            call SetPlayerTechMaxAllowed(Player(index), 'hrtt', 0)

        endif

        // Berserker Upgrade - Troll Berserkers

        if (not GetPlayerTechResearched(Player(index), 'Robk', true)) then

            call SetPlayerTechMaxAllowed(Player(index), 'otbk', 0)

        endif

        // max skeletons per player

        call SetPlayerTechMaxAllowed(Player(index), 'uske', bj_MAX_SKELETONS)

        set index = index + 1

        exitwhen index == bj_MAX_PLAYERS

    endloop

endfunction