real ABU( unit caster, unit victim ) {
	return Atan2( GetUnitY(victim) - GetUnitY(caster), GetUnitX(victim) - GetUnitX(caster) )
}

set r = Atan2(y2-y1,x2-x1)
и двигаеш под этим углом

function Trig_r_Conditions takes nothing returns boolean
    return GetSpellAbilityId()=='A000'
endfunction

function Trig_r_Actions takes nothing returns nothing
    local real r = Atan2(GetUnitY(GetSpellTargetUnit())-GetUnitY(GetSpellAbilityUnit()),GetUnitX(GetSpellTargetUnit())-​GetUnitX(GetSpellAbilityUnit()))
    call SetUnitX(GetSpellTargetUnit(),GetUnitX(GetSpellTargetUnit())+200*Cos(r))
    call SetUnitY(GetSpellTargetUnit(),GetUnitY(GetSpellTargetUnit())+200*Sin(r))
endfunction

//===========================================================================
function InitTrig_r takes nothing returns nothing
    local integer index = 0
    set gg_trg_r = CreateTrigger()
    call TriggerAddCondition(gg_trg_r, Condition(function Trig_r_Conditions))
    call TriggerAddAction(gg_trg_r,function Trig_r_Actions)
    loop
        call TriggerRegisterPlayerUnitEvent(gg_trg_r,Player(index),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
        set index = index+1
        exitwhen index==bj_MAX_PLAYER_SLOTS
    endloop
endfunction

constant real bj_DEGTORAD=bj_PI/180.0

local unit u = GetTriggerUnit()
//дейсвия заклинания например
set u = null
//так как юнит не удаляется с карты то переменную просто обнуляем

local location loc = GetSpellTargetLoc()
// Дейсвия заклинания
call RemoveLocation(loc) //Обязательно потому что это не юнит которым ты играеш
set loc = null
//и обнуление всёравно нужно,т.к не обнулив всёравно будет висяк