library_once SafeMove {
    include "cj_types_priv.j";

    private real minX, minY, maxX, maxY;

    void SafeMove(unit u, real x, real y) {
        if x > minX && x < maxX { SetUnitX(u, x); }
        if y > minY && y < maxY { SetUnitY(u, y); }
    }

    callback onInit() {
        minX = GetRectMinX(bj_mapInitialPlayableArea);
        minY = GetRectMinY(bj_mapInitialPlayableArea);
        maxX = GetRectMaxX(bj_mapInitialPlayableArea);
        maxY = GetRectMaxY(bj_mapInitialPlayableArea);
    }
}

include "cj_order.j"

scope ForceStaff {
    include "cj_types_priv.j";

    define {
        private ABILITY = 'A0F8';
        private DISTANCE = 600.;
        private PERIOD = .05;
        private DELTA = 30.;//SPEED * PERIOD
    }

    callback onUnitSpellEffect(ABILITY) {
        unit u = GetTriggerUnit();
        timer t = CreateTimer();
        int id = GetHandleId(t);
        real a = GetUnitFacing(u) * .017;
        SaveAgentHandle(udg_Hash, id, 0, u);
        SaveReal(udg_Hash, id, 1, DISTANCE);
        SaveReal(udg_Hash, id, 2, Cos(a) * DELTA);
        SaveReal(udg_Hash, id, 3, Sin(a) * DELTA);
        TimerStart(t, PERIOD, true, \
            lambda void() {
                timer t = GetExpiredTimer();
                int id = GetHandleId(t);
                unit u = LoadUnitHandle(udg_Hash, id, 0);
                real r = LoadReal(udg_Hash, id, 1) - DELTA;
                SafeMove(u, GetWidgetX(u) + LoadReal(udg_Hash, id, 2), \
                    GetWidgetY(u) + LoadReal(udg_Hash, id, 3));
                if r <= .0 {
                    DestroyTimer(t);
                    FlushChildHashtable(udg_Hash, id);
                } else {
                    IssueImmediateOrderById(u, order_stop);
                    SaveReal(udg_Hash, id, 1, r);
                }
                flush locals;
            }
        );
        flush locals;
    }
}

function SafeMove takes unit u, real x, real y returns nothing
    if x > udg_SafeMove_MinX and x < udg_SafeMove_MaxX then
        call SetUnitX(u, x)
    endif
    if y > udg_SafeMove_MinY and y < udg_SafeMove_MaxY then
        call SetUnitY(u, y)
    endif
endfunction

//===========================================================================
function InitTrig_SafeMove takes nothing returns nothing
    set udg_SafeMove_MinX = GetRectMinX(bj_mapInitialPlayableArea)
    set udg_SafeMove_MaxX = GetRectMaxX(bj_mapInitialPlayableArea)
    set udg_SafeMove_MinY = GetRectMinY(bj_mapInitialPlayableArea)
    set udg_SafeMove_MaxY = GetRectMaxY(bj_mapInitialPlayableArea)
endfunction

constant function rz takes string s returns real
    return .0
endfunction

//===========================================================================
constant function Trig_ForceStaff_Ability takes nothing returns integer
    return 'A0F8'
endfunction

constant function Trig_ForceStaff_Distance takes nothing returns real
    return 600.
endfunction

constant function Trig_ForceStaff_Period takes nothing returns real
    return .05
endfunction

constant function Trig_ForceStaff_Delta takes nothing returns real
    return 30.//Speed * Period
endfunction

//===========================================================================
function Trig_ForceStaff_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == Trig_ForceStaff_Ability()
endfunction

function Trig_ForceStaff_Timer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer id = GetHandleId(t)
    local unit u = LoadUnitHandle(udg_Hash, id, 0)
    local real r = LoadReal(udg_Hash, id, 1) - Trig_ForceStaff_Delta()
    call SafeMove(u, GetWidgetX(u) + LoadReal(udg_Hash, id, 2), rz("
")  + GetWidgetY(u) + LoadReal(udg_Hash, id, 3))
    // ^ Разбиение строки средствами JASS2
    if r <= .0 then
        call DestroyTimer(t)
        call FlushChildHashtable(udg_Hash, id)
    else
        call IssueImmediateOrderById(u, 851972)//stop
        call SaveReal(udg_Hash, id, 1, r)
    endif
    set t = null
    set u = null
endfunction

function Trig_ForceStaff_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local timer t = CreateTimer()
    local integer id = GetHandleId(t)
    local real a = GetUnitFacing(u) * .017
    call SaveAgentHandle(udg_Hash, id, 0, u)
    call SaveReal(udg_Hash, id, 1, Trig_ForceStaff_Distance())
    call SaveReal(udg_Hash, id, 2, Cos(a) * Trig_ForceStaff_Delta())
    call SaveReal(udg_Hash, id, 3, Sin(a) * Trig_ForceStaff_Delta())
    call TimerStart(t, Trig_ForceStaff_Period(), true, function Trig_ForceStaff_Timer)
    set u = null
    set t = null
endfunction

//===========================================================================
function InitTrig_ForceStaff takes nothing returns nothing
    local trigger trig = CreateTrigger()
    local integer i = 0
    loop
        call TriggerRegisterPlayerUnitEvent(trig, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        exitwhen i == 11
        set i = i + 1
    endloop
    call TriggerAddCondition(trig, Condition(function Trig_ForceStaff_Conditions))
    call TriggerAddAction(trig, function Trig_ForceStaff_Actions)
    set trig = null
endfunction

constant function Trig_ForceStaff_Distance takes integer level returns real
    return 500. + 100. * level
endfunction

call SaveReal(udg_Hash, id, 1, Trig_ForceStaff_Distance(GetUnitAbilityLevel(u, Trig_ForceStaff_Ability())))

function move takes unit u, real dist, real angle returns nothing  
      call SetUnitX(u,GetUnitX(u)+dist*Cos(angle*.0174532))
      call SetUnitY(u,GetUnitY(u)+dist*Sin(angle*.0174532))
endfunction  

function Trig_assss_Move takes nothing returns nothing  
      local timer t = GetExpiredTimer()
      local unit u  = LoadUnitHandle(udg_Hash,GetHandleId(t),0)
      if(((GetUnitX(u)-udg_AAAA[0])*(GetUnitX(u)-udg_AAAA[0])+((GetUnitY(u)-udg_AAAA[1])*(GetUnitY(u)-udg_AAAA[1])))>=600.)then  
          call SetUnitPathing(u,true)  
          call FlushChildHashtable(udg_Hash,GetHandleId(t))
          call PauseTimer(t)
          call DestroyTimer(t)
      else  
          call move(u,6.00,GetUnitFacing(u))  
      endif
      set t = null  
      set u = null  
endfunction  

function Trig_Cond takes nothing returns boolean
      local unit u  = null
      local timer t = null
      if GetSpellAbilityId() == 'A0F8' then
          set u = GetSpellAbilityUnit()  
          set t = CreateTimer()
          set udg_AAAA[0] = GetUnitX(u1)  
          set udg_AAAA[1] = GetUnitY(u1)  
          call SaveUnitHandle(udg_Hash,GetHandleId(t),0,u)  
          call TimerStart(t,.0225,true,function Trig_assss_Move)  
          call SetUnitPathing(u,false )  
          set t = null
          set u = null
      endif
      return false
endfunction  

function InitTrig_assss takes nothing returns nothing  
      set gg_trg_assss = CreateTrigger(  )  
      call TriggerRegisterAnyUnitEventBJ( gg_trg_assss, EVENT_PLAYER_UNIT_SPELL_EFFECT )  
      call TriggerAddCondition( gg_trg_assss, Condition( function Trig_Cond ) )  
endfunction