/**
    * Событие с юнитам
    ***/
    
    private function InitStatus takes nothing returns nothing
        local unit u = GetTriggerUnit()
        local integer i = GetUnitIndex(u)
        
        if not(i == 0) then
            if IsUnitType(u, UNIT_TYPE_DEAD) then
                if xe_deadIDs[i] then
                    set xe_deadIDs[i] = false // удаляем труп
                    call RemoveUnit(u)
                else
                    set xe_deadIDs[i] = true // умер но осталось труп
                endif
            endif
            // и другие проверки на воскрешение...
        endif
        
        set u = null
    endfunction
    
    private function InitEnter takes nothing returns nothing
        local integer i = GetUnitIndex(GetFilterUnit())
        
        if i == 0 then
            set i = CreateUnitIndex(GetFilterUnit())
            set xe_deadIDs[i] = IsUnitType(GetFilterUnit(), UNIT_TYPE_DEAD)
            call UnitAddAbility(GetFilterUnit(), ABILITY_ID) 
            call UnitMakeAbilityPermanent(GetFilterUnit(), true, ABILITY_ID)
        endif
    endfunction

    private function FilterOrder takes nothing returns boolean
        return GetIssuedOrderId() == 852056
    endfunction
    
    private function FilterUnit takes nothing returns boolean
        local integer handleID = GetHandleId(GetFilterUnit())
        local integer typeID = GetUnitTypeId(GetFilterUnit())
        
        if GetUnitOption(typeID, AUTO_DISABLE_INDEX) == 1 or GetUnitOption(handleID, AUTO_DISABLE_INDEX) == 1 then
            return false
        endif

        return GetUnitOption(0, AUTO_DISABLE_INDEX) == 0
    endfunction
    
    private function Init takes nothing returns nothing
        local region r = CreateRegion()
        local rect w = GetWorldBounds()
        local group g = CreateGroup()
        local integer n = 0
        
        loop
            exitwhen n == bj_MAX_PLAYER_SLOTS
            call SetPlayerAbilityAvailable(Player(n), ABILITY_ID, false)
            call TriggerRegisterPlayerUnitEvent(tStatus, Player(n), EVENT_PLAYER_UNIT_ISSUED_ORDER, function FilterUnit)
            call GroupEnumUnitsOfPlayer(g, Player(n), And(function FilterUnit, function InitEnter))
            set n = n + 1
        endloop
        
        call RegionAddRect(r, w)
        call TriggerRegisterEnterRegion(tEnter, r, And(function FilterUnit, function InitEnter))
        call TriggerAddCondition(tStatus, And(function FilterOrder, function InitStatus))
        
        call GroupClear(g)
        call DestroyGroup(g)
        call RemoveRect(w)
        set g = null
        set w = null
    endfunction

function andValue(string str) -> boolean {
        цикл на проверки && и ==
        return false;
    }
    
    function onInit() {
        ParserCondition.create("if", function(string str) -> boolean { // if
            integer step = 0, n = 0, l = StringLength(str);
            string s = "", e = "", v = "";
            boolean bValue = false, bResult = false;
            
            while(n < l) {
                s = SubString(str, n, n + 1);
                e = SubString(str, n + 1, n + 2);
                
                if(step > 0 && s == " ") {
                
                } else if(step == 0) {
                    if (s == "|" && e == "|" && !bValue) {
                        bResult = true;
                        bValue = andValue(v);
                        v = "";
                    } else {
                        v = v + s;
                    }
                }
                
                n = n + 1;
            }
            
            if(bResult) {
                bValue = andValue(v);
            }
            
            return bValue;
        });
    }