globals
    constant group TempG   = CreateGroup( )
    constant group TempG_1 = CreateGroup( )
    player TempPlayer = null
endglobals

native UnitAlive takes unit id returns boolean

function Trig_SystemExperience_Actions takes nothing returns nothing
    local unit dead   = GetTriggerUnit( )
    local real xdead  = GetUnitX( dead )
    local real ydead  = GetUnitY( dead )
    local integer i   = 0
    local integer exp = GetUnitLevel( dead ) * 35 + GetRandomInt( 1, 12 )
    local unit u
    
    set TempPlayer = GetOwningPlayer( dead )
    
    if IsUnitType( dead, UNIT_TYPE_SUMMONED ) then
        set exp = exp / 2
    endif
    
    call GroupEnumUnitsInRange( TempG, xdead, ydead, 1350.00, null )
    
    loop
        set u = FirstOfGroup( TempG )
        exitwhen u == null
        call GroupRemoveUnit( TempG, u )
        
        if UnitAlive( u ) and IsUnitEnemy( u, TempPlayer ) and IsUnitType( u, UNIT_TYPE_HERO ) then
            call GroupAddUnit( TempG_1, u )
            set i = i + 1
        endif
    endloop
    
    set exp = exp / i
    
    loop
        set u = FirstOfGroup( TempG_1 )
        exitwhen u == null
        call GroupRemoveUnit( TempG_1, u )
        
        call AddHeroXP( u, exp, true )
        call GroupRemoveUnit( TempG_1, u )
    endloop
    
    set dead = null
endfunction

function Trig_SystemExperience_Conditions takes nothing returns boolean
    return not IsUnitType( GetTriggerUnit( ), UNIT_TYPE_STRUCTURE )
endfunction

function InitTrig_SystemExperience takes nothing returns nothing
    set gg_trg_SystemExperience = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( gg_trg_SystemExperience, EVENT_PLAYER_UNIT_DEATH )
    call TriggerAddCondition( gg_trg_SystemExperience, Condition( function Trig_SystemExperience_Conditions ) )
    call TriggerAddAction( gg_trg_SystemExperience, function Trig_SystemExperience_Actions )
endfunction