function L8L8 takes nothing returns nothing
    local unit lfo=GetTriggerUnit()
    local player lEk=GetOwningPlayer(lfo)
    set udg_Az=lEk
    call RemoveUnit(lfo)
    if L7L7()and udg_bC[GetPlayerId(lEk)]==false then
        set udg_bC[GetPlayerId(lEk)]=true
        call HeroDenyForPlayer(lEk)
        call DisplayTimedTextToPlayer(lEk,0,udg_A6,10,"You will be given a random hero soon.")
        call PolledWait(6)
        set udg_Az=lEk
        if L7L7()then
            set udg_bA_DTAX_player_randomed[GetPlayerId(lEk)]=true
            call fBfB(lEk)
        else
            call DisplayTimedTextToPlayer(lEk,0,udg_A6,10,"You cannot be assigned a random hero.")
        endif
    endif
endfunction

function Random_RandomIcon takes nothing returns nothing
    if GetUnitTypeId(GetTriggerUnit())=='E01L' then
        call L8L8()
    endif
endfunction


function InitTrig_Random_Hero takes nothing returns nothing
endfunction

udg_Az --- player
udg_bC -- array of boolean
udg_bA_DTAX_player_randomed -- array of boolean