CS: local integer i = 1
CS: loop
CS: set udg_RandomHeroCheck[i] = i
CS: set i = i+1
CS: exitwhen i=10 //если всего 10 героев
CS: endloop

set RandomHero[1] = Герой01
set RandomHero[2] = Герой02
...
set RandomHero[n] = Геройnn

globals
   unit array udg_Heroes 
   integer udg_MaxIndex 
endglobals

function Init takes nothing returns nothing
    //При загрузке карты заполни массив героев начиная со слота номер [0] и по порядку
    set udg_Heroes[0] = ...                        
    set udg_Heroes[1] = ... 
    set udg_Heroes[2] = ...
    //Укажи Самый послдений занятый слот в массиве
    set udg_MaxIndex = 2
endfunction

function RandomHero takes nothing returns unit
    local integer rand = GetRandomInt(0, udg_MaxIndex)
    local unit Select = udg_Heroes[rand]
    set udg_Heroes[rand] = udg_Heroes[udg_MaxIndex]
    set udg_MaxIndex = udg_MaxIndex - 1
    return Select
endfunction

function Action takes nothing returns nothing
    local integer i = 0
    local unit hero
    loop
        exitwhen i > 11
        if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING then
            set hero = RandomHero()
            //...
            //Создать hero Для игрока i+1
            //...
        endif
        set i = i + 1
    endloop
endfunction