Parser stack overflow ??

constant function Nether_Ward_AbilId takes nothing returns integer
    return 'A0GB'
endfunction
    
constant function Nether_Ward_UnitId_1 takes nothing returns integer
    return 'o00O'
endfunction

constant function Nether_Ward_UnitId_2 takes nothing returns integer
    return 'o00K'
endfunction

constant function Nether_Ward_UnitId_3 takes nothing returns integer
    return 'o00L'
endfunction

constant function Nether_Ward_UnitId_4 takes nothing returns integer
    return 'o00M'
endfunction

constant function Nether_Ward_UnitId_5 takes nothing returns integer
    return 'o00N'
endfunction

constant function Nether_Ward_AbilId_Manaflare takes nothing returns integer
    return 'A0G9'
endfunction

constant function Nether_Ward_AbilId_Morbid takes nothing returns integer
    return 'A0GA'
endfunction


            //################################################################\\
            //                                                                \\
            //                        Spell Section                           \\
            //                                                                \\
            //################################################################\\


function Trig_Nether_Ward_Conditions takes nothing returns boolean
    return GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_1() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_2() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_3() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_4() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_5()
endfunction

function Trig_Nether_Ward_Actions takes nothing returns nothing
    local unit u = GetSummoningUnit()
    local unit d = GetSummonedUnit()
    local integer lvl = GetUnitAbilityLevel(u, Nether_Ward_AbilId())
    call SetUnitAbilityLevel(d, Nether_Ward_AbilId_Manaflare(), lvl)
    call SetUnitAbilityLevel(d, Nether_Ward_AbilId_Morbid(), lvl)
    call IssueImmediateOrderById(d, 852512)
    set u = null
    set d = null
endfunction

//===========================================================================
function InitTrig_Nether_Ward takes nothing returns nothing
    set gg_trg_Nether_Ward = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_Nether_Ward, EVENT_PLAYER_UNIT_SUMMON)
    call TriggerAddAction(gg_trg_Nether_Ward, function Trig_Nether_Ward_Actions)
    call TriggerAddCondition(gg_trg_Nether_Ward, Condition(function Trig_Nether_Ward_Conditions))
endfunction

function Trig_Nether_Ward_Conditions takes nothing returns boolean
    return GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_1() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_2() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_3() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_4() or GetUnitTypeId(GetSummonedUnit()) == Nether_Ward_UnitId_5()
endfunction

function Trig_Nether_Ward_Conditions takes nothing returns boolean
    local integer id = GetUnitTypeId(GetSummonedUnit())
    return id == Nether_Ward_UnitId_1() or id  == Nether_Ward_UnitId_2() or id == Nether_Ward_UnitId_3() or id == Nether_Ward_UnitId_4() or id == Nether_Ward_UnitId_5()
endfunction