Считывание кликов мыши
function Trig_PickPoint_Actions takes nothing returns nothing
    set udg_real = AngleBetweenPoints(udg_Move_0, GetOrderPointLoc())
endfunction

//===========================================================================
function InitTrig_PickPoint takes nothing returns nothing
    set gg_trg_PickPoint = CreateTrigger(  )
    call TriggerRegisterPlayerUnitEventSimple( gg_trg_PickPoint, Player(0), EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER )
    call TriggerAddAction( gg_trg_PickPoint, function Trig_PickPoint_Actions )
endfunction

//Сам слайд
function Trig_Slide_Actions takes nothing returns nothing
    set udg_Move_0 = PolarProjectionBJ(GetUnitLoc(udg_TrigUnit), 10.00, GetUnitFacing(udg_TrigUnit))
    call SetUnitPositionLocFacingBJ( udg_TrigUnit, udg_Move_0, udg_real )
endfunction

//===========================================================================
function InitTrig_Slide takes nothing returns nothing
    set gg_trg_Slide = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_Slide, 0.03 )
    call TriggerAddAction( gg_trg_Slide, function Trig_Slide_Actions )
endfunction

function PolarProjectionBJ takes location source, real dist, real angle returns location
    local real x = GetLocationX(source) + dist * Cos(angle * bj_DEGTORAD)
    local real y = GetLocationY(source) + dist * Sin(angle * bj_DEGTORAD)
    return Location(x, y)
endfunction

library XxX initializer Init

globals
 real x=0.
 real y=0.
 real vx=0.
 real vy=0.
 real f=0.

 timer t=CreateTimer()
 trigger x=CreateTrigger()

 unit u=null
endglobals

function sladePer takes nothing returns nothing
 set x=x+vx
 set y=y+vy

 call SetUnitX(u, x)
 call SetUnitY(u, y)
endfunction

function orderCorrect takes nothing returns nothing
 set f=Atan2(GetOrderPointY()-y, GetOrderPointX()-x)

 set vx=Cos(f)*10.
 set vy=Sin(f)*10.

 call SetUnitFacing(u, f*57.2957)
endfunction

function Init takes nothing returns nothing
 call TriggerRegisterPlayerUnitEvent(x, Player(0x00), EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER, null)
 call TriggerAddAction(x, function orderCorrect)
 call TimerStart(t, .025, true, function sladePer)

 set u=<your_unit>
 set x=<xCord_of_u>
 set y=<yCord_of_u>
endfunction

endlibrary