scope MoveInTime initializer Init

    private function MoveInTime_cond takes nothing returns boolean
    return GetSpellAbilityId()=='A093'
    endfunction
    
    private function MoveInTIme_actions takes nothing returns nothing
        local unit d 
        local unit targ = GetSpellTargetUnit()
        local unit u = GetTriggerUnit()
        local location loc=GetSpellTargetLoc()
        local real x = GetLocationX(loc)
        local real y = GetLocationY(loc)
            if targ != null then
                if IsUnitAlly(targ,GetOwningPlayer(u)) then
                    set d=CreateUnit(GetOwningPlayer(u),'o005',x,y,0)
                    call UnitAddAbility(d,'A091')
                    call SetUnitAbilityLevel(d,'A091',GetUnitAbilityLevel(u,'A093'))
                    call IssueTargetOrder(d,"slow",targ)
                    call UnitApplyTimedLife(d, 'BTLF', 0.5)
                else
                    set d=CreateUnit(GetOwningPlayer(u),'o005',x,y,0)
                    call UnitAddAbility(d,'A090')
                    call SetUnitAbilityLevel(d,'A090',GetUnitAbilityLevel(u,'A093'))
                    call IssueTargetOrder(d,"slow",targ)
                    call UnitApplyTimedLife(d, 'BTLF', 0.5)
                endif
            else
                call SetUnitPosition(u,x,y)
                set d=CreateUnit(GetOwningPlayer(u),'o005',x,y,0)
                call UnitAddAbility(d,'A091')
                call SetUnitAbilityLevel(d,'A091',GetUnitAbilityLevel(u,'A093'))
                call IssueTargetOrder(d,"slow",u)
                call UnitApplyTimedLife(d, 'BTLF', 0.5)
            endif
        call RemoveLocation(loc)
        set loc=null
        set u = null
        set targ = null
        set d=null
    endfunction
    
    private function Init takes nothing returns nothing
    local trigger trg = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(trg, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddAction(trg,function MoveInTIme_actions)
    call TriggerAddCondition(trg,Condition(function MoveInTime_cond))
    endfunction
endscope