globals
    unit bj_lastFilterUnit = null
    group TEMP_GROUP = CreateGroup( )
    real TEMP_REAL = 0.00
endglobals

function IsUnitDead takes unit u returns boolean
    return IsUnitType( u, UNIT_TYPE_DEAD ) or GetUnitTypeId( u ) < 1
endfunction

function Cond_Find_Alive_Hero_Units takes nothing returns boolean
    set bj_lastFilterUnit = GetFilterUnit( )
    return IsUnitType( UNIT_TYPE_HERO bj_lastFilterUnit ) and not( IsUnitIllusion( bj_lastFilterUnit ) or IsUnitDead( bj_lastFilterUnit ) )
endfunction

function Group_Add_Effect_Enum takes nothing returns nothing
    local unit hero = GetEnumUnit( )
    local integer level = GetUnitAbilityLevel( hero, 'A27T'  )

    if  level > 0 then
        call DestroyEffect(AddSpecialEffectTarget("Psychopomp4.mdx", hero, "origin"))
        call SetUnitState( hero, UNIT_STATE_LIFE, GetUnitState( UNIR_STATE_LIFE ) + RMaxBJ( TEMP_REAL * level, 1.01  ) )
    endif
    
    set hero = null
endfunction


function PerceptionEffect takes nothing returns nothing
    local unit cast = GetSpellAbilityUnit( )
    local integer id = GetSpellAbilityId( )
    local integer level = GetUnitAbilityLevel( cast, id )
    local real cooldown 

    if level > 1 and not IsUnitDead( cast ) then
        set cooldown =  GetAbilityCD( id, level, cast ) 
    else
        set cooldown = 0.00
    endif

    if cooldown >= 1.01 then
        call GroupClear( TEMP_GROUP )
        call GroupEnumUnitsInRect( TEMP_GROUP, bj_mapInitialPlayableArea, Condition( function Cond_Find_Alive_Hero_Units ) )
        set TEMP_REAL = cooldown
        call ForGroup( TEMP_GROUP, function Group_Add_Effect_Enum )
    endif
    
    set cast = null
endfunction

    private function IsRaplay takes nothing returns boolean
        local integer ptr1 = RMem(GameDLL + $AB4F80)
        local integer ptr2 = RMem(ptr1 + $3C8)
        local integer ptr3 = RMem(ptr2 + $15C)
        return (ptr3 != 0)
    endfunction