function Shadowmove_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A02C' 
endfunction

function SHMove_Filter takes nothing returns boolean
    return GetZero(GetFilterUnit())==false and GetOwningPlayer(GetFilterUnit())==GetOwningPlayer(GetTriggerUnit()) and GetFilterUnit()!=GetTriggerUnit() and GetUnitTypeId(GetFilterUnit())=='e01B'
endfunction

function Shadowmove_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local unit u2 = GetSpellTargetUnit()
    local unit f
    local location loc = GetSpellTargetLoc()
    local boolexpr boo = Condition(function SHMove_Filter)
    local group g = CreateGroup()
    local integer i = 1
    if u2!=null and GetUnitTypeId(u2)=='e01B' then
       call SetUnitPosition(u,GetUnitX(f),GetUnitY(f))
    else
       call IssueImmediateOrder(u,"stop")
       call SimError(GetOwningPlayer(u),"The target can be a shadowcore only")
    endif   
    if u2==null then
       call GroupEnumUnitsInRangeOfLoc(g,loc,700,boo)
       loop
       set f = FirstOfGroup(g)
       exitwhen f==null or GetZero(u) or i==0
       if f!=null and GetUnitTypeId(f)=='e01B' then
         call SetUnitPosition(u,GetUnitX(f),GetUnitY(f))
       else
         call IssueImmediateOrder(u,"stop")
         call SimError(GetOwningPlayer(u),"The target can be a shadowcore only")
       endif
       set i = i-1
       call GroupRemoveUnit(g,f)
       endloop
       call GroupClear(g)
       call DestroyGroup(g)
    endif  
endfunction

//===========================================================================
function InitTrig_Shadowmove takes nothing returns nothing
    set gg_trg_Shadowmove = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Shadowmove, EVENT_PLAYER_UNIT_SPELL_CHANNEL )
    call TriggerAddCondition( gg_trg_Shadowmove, Condition( function Shadowmove_Conditions ) )
    call TriggerAddAction( gg_trg_Shadowmove, function Shadowmove_Actions )
endfunction

if u2!=null then
 if GetUnitTypeId(u2)!='e01B' then
  // move unit
 else
  // error msg
 endif
else
  // ...
endif

globals
    group GG = CreateGroup()
    filterfunc filter_func = null
endglobals

function Shadowmove_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A02C'
endfunction

function SHMove_Filter takes nothing returns boolean
    local unit f = GetFilterUnit()
    return (not GetZero(f)) and (GetOwningPlayer(f) == GetOwningPlayer(GetTriggerUnit())) and (f != GetTriggerUnit()) and (GetUnitTypeId(f) == 'e01B')
endfunction

function Shadowmove_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local unit u2 = GetSpellTargetUnit()
    local unit f
    local boolean b = true
    local location loc = GetSpellTargetLoc()
    if u2 == null then
        call GroupEnumUnitsInRangeOfLoc(GG, loc, 700, filter_func)
        loop
            set f = FirstOfGroup(GG)
            exitwhen f==null or GetZero(u)
            if GetUnitTypeId(f) == 'e01B' then
                call SetUnitPosition(u,GetUnitX(f),GetUnitY(f))
                set b = false
                exitwhen true
            endif
            call GroupRemoveUnit(GG,f)
        endloop
        if b then
            call IssueImmediateOrder(u, "stop")
            call SimError(GetOwningPlayer(u), "The target can be a shadowcore only")
        endif
    elseif (GetUnitTypeId(u2) == 'e01B') and (GetOwningPlayer(u) == GetOwningPlayer(u2)) then
        call SetUnitPosition(u,GetUnitX(u2),GetUnitY(u2))
    else
        call IssueImmediateOrder(u, "stop")
        call SimError(GetOwningPlayer(u), "The target can be a shadowcore only")
    endif
    call RemoveLocation(loc)
    set u = null
    set loc = null
endfunction

function InitTrig_Shadowmove takes nothing returns nothing
    set gg_trg_Shadowmove = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_Shadowmove, EVENT_PLAYER_UNIT_SPELL_CHANNEL)
    call TriggerAddCondition(gg_trg_Shadowmove, Condition(function Shadowmove_Conditions))
    call TriggerAddAction(gg_trg_Shadowmove, function Shadowmove_Actions)
    set filter_func = Filter(function SHMove_Filter)
endfunction