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

//**************************************************************************************
//*                                                                                    *
//*                         REPLAY DETECT ENGINE V1.30                                 *
//*                     CONFIGURATION SETTINGS START HERE                              *
//*                                                                                    *
//**************************************************************************************
library ReplayDetectEngine
globals
boolean InGame = true
boolean array AMHS_FogDisable
boolean array AMHS_InvisDisable
unit array AMHS_FogDummy
unit array AMHS_InvisDummy
endglobals

//-> IsInGame created by PandaMine with help from Captain Griffen
//This function is what makes it possible for the system not to break replays,
//simply put if your actually playing the game, this function will return false.
//It will return true if the game is being viewed in a replay

private function IsInGame takes nothing returns boolean
local integer counter = 1
local real camerax
local real cameray
local real x
local real y
local boolean output
loop
    exitwhen counter > 12
    if GetLocalPlayer() == Player(counter-1) then
        set camerax = GetCameraTargetPositionX()
        set cameray = GetCameraTargetPositionY()
    endif
    set counter = counter + 1
endloop
set counter = 1
call PauseGame(true)
call TriggerSleepAction(0)
loop
    exitwhen counter > 12
    if GetLocalPlayer() == Player(counter-1) then
        call SetCameraPosition(camerax + 1,cameray + 1)
    endif
    set counter = counter + 1
endloop
call TriggerSleepAction(0)
call PauseGame(false)
set counter = 1
loop
    exitwhen counter > 12
    if GetLocalPlayer() == Player(counter-1) then
        set x = GetCameraTargetPositionX()
        if x == camerax + 1 then
            set output = true
        else
            set output = false
        endif
        call SetCameraPosition(camerax,cameray)
    endif
    set counter = counter + 1
endloop
return output
endfunction 

function AMHS_ReplayEngine takes nothing returns nothing
call EnableUserControl(false)
call TriggerSleepAction(.0)
set InGame = IsInGame()
call EnableUserControl(true)
endfunction