constant function A takes nothing returns integer nothing
	return 5
endfunction

function B takes integer i returns nothing
//some code
endfunction

call B( A()) 
// можно сделать еще так
function B takes integer i returns nothing
if i == 0 then
	set i = A( ) // ну можно пользоваться просто глобальной переменной, на хайве это считается эталоном - юзать константные функции для установки //настроек
endif
// some code
endfunction
endfunction

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