globals
    unit array caster
    unit array jump_caster
    unit array jump_bullet
    unit array meteo_1
    unit array meteo_2
    unit array meteo_3
    unit array meteo_4
    real array jump_angle
    real array jump_dist
    real array jump_range
    real array jump_x
    real array jump_y
    trigger array trig_jump
    trigger array trig_rotate
    trigger array trig_destroy
    trigger array trig_meteo_1
    trigger array trig_meteo_2
    trigger array trig_meteo_3
    trigger array trig_meteo_4
    integer array step
    integer array distance
    integer count = 0
endglobals

function jump_reselect takes unit u1, unit u2 returns nothing
    local integer a = 0
    loop
        if IsUnitSelected(u1, Player(a)) then
            call SelectUnitRemoveForPlayer(u1, Player(a))
            call SelectUnitAddForPlayer(u2, Player(a))
        endif
    set a = a + 1
    exitwhen a > 11
    endloop
endfunction

function PolarZ takes real left, real dist returns real
 local real r = dist / 2
 local real Z = 4 * left * r * (1 - left / dist) / dist
return Z
endfunction

function PolarX takes real x, real dist, real ang returns real
    return x + dist * Cos(ang * bj_DEGTORAD)
endfunction

function PolarY takes real y, real dist, real ang returns real
    return y + dist * Sin(ang * bj_DEGTORAD)
endfunction

function DistanceBetweenCoords takes real aX, real aY, real bX, real bY returns real
    local real dx = bX - aX
    local real dy = bY - aY
    return SquareRoot(dx * dx + dy * dy)
endfunction

function AngleBetweenCoords takes real aX, real aY, real bX, real bY returns real
    return bj_RADTODEG * Atan2(bY - aY, bX - aX)
endfunction

function meteoFind takes unit u returns integer
    local integer a = 1
    loop
        exitwhen caster[a] == u or a > 100
        set a = a + 1
    endloop
    if a < 100 then
        return a
    else
        return 0
    endif
endfunction

function jump_allocate takes nothing returns integer
    local integer a = 0
    loop
        set a = a + 1
        exitwhen jump_caster[a] == null
    endloop
    return a
endfunction

function trig_jump_act takes nothing returns nothing
    local integer a = 0
    local real ang
    local trigger trig = GetTriggeringTrigger()
        loop
            set a = a + 1
        exitwhen trig_jump[a] == trig
        endloop
    if jump_dist[a] <= 10 then
        call BJDebugMsg("jump_dist[" + I2S(a) + "] = " + R2S(jump_dist[a]))
        if meteoFind(jump_bullet[a]) > 0 then
            set caster[meteoFind(jump_bullet[a])] = jump_caster[a]
        endif
        call ShowUnit(jump_caster[a], true)
        call jump_reselect(jump_bullet[a], jump_caster[a])
        call KillUnit(jump_bullet[a])
        call ShowUnit(jump_bullet[a], false)
        call SetUnitX(jump_caster[a], PolarX(jump_x[a], jump_dist[a], jump_angle[a]))
        call SetUnitY(jump_caster[a], PolarY(jump_y[a], jump_dist[a], jump_angle[a]))
        set jump_dist[a] = 0
        call BJDebugMsg(R2S(jump_dist[a]))
        set jump_angle[a] = 0
        call BJDebugMsg(R2S(jump_angle[a]))
        set jump_range[a] = 0
        call BJDebugMsg(R2S(jump_range[a]))
        set jump_x[a] = 0
        call BJDebugMsg(R2S(jump_x[a]))
        set jump_y[a] = 0
        call BJDebugMsg(R2S(jump_y[a]))
        set jump_caster[a] = null
        call TriggerClearActions(trig_jump[a])
        call DisableTrigger(trig_jump[a])
        call TriggerSleepAction(1)
        call DestroyTrigger(trig_jump[a])
        call RemoveUnit(jump_bullet[a])
        set jump_bullet[a] = null
        call BJDebugMsg(GetUnitName(jump_bullet[a]))
        set trig = null
        set trig_jump[a] = null
    endif
    if jump_dist[a] > 10 then
        set jump_dist[a] = jump_dist[a] - 10
        call SetUnitX(jump_bullet[a], PolarX(jump_x[a], jump_dist[a], jump_angle[a]))
        call SetUnitY(jump_bullet[a], PolarY(jump_y[a], jump_dist[a], jump_angle[a]))
        call SetUnitFlyHeight(jump_bullet[a], PolarZ(jump_dist[a], jump_range[a]), 0)
        set trig = null
    endif
endfunction

function Trig_skill_Actions takes nothing returns nothing
    local unit u = GetSpellAbilityUnit()
    local integer loopint
    local integer num
    local real xU = GetUnitX(u)
    local real yU = GetUnitY(u)
    if GetSpellAbilityId() == 'JUMP' then
        set num = jump_allocate()
        set jump_caster[num] = u
        set jump_x[num] = GetSpellTargetX()
        set jump_y[num] = GetSpellTargetY()
        set jump_angle[num] = AngleBetweenCoords(jump_x[num], jump_y[num], xU, yU)
        set jump_dist[num] = DistanceBetweenCoords(xU, yU, jump_x[num], jump_y[num])
        set jump_range[num] = jump_dist[num]
        set jump_bullet[num] = CreateUnit(GetOwningPlayer(u), 'XCOS', xU, yU, AngleBetweenCoords(xU, yU, jump_x[num], jump_y[num]))
        call UnitAddAbility(jump_bullet[num], 'Amrf')
        call UnitRemoveAbility(jump_bullet[num], 'Amrf')
        if meteoFind(jump_caster[num]) > 0 then            
            set caster[meteoFind(jump_caster[num])] = jump_bullet[num]
        endif
        call jump_reselect(jump_caster[num], jump_bullet[num])
        call ShowUnit(jump_caster[num], false)
        set trig_jump[num] = CreateTrigger()
        call TriggerRegisterTimerEvent(trig_jump[num], 0.01, true)
        call TriggerAddAction(trig_jump[num], function trig_jump_act)
    endif
    set u = null
endfunction

//===========================================================================
function InitTrig_skill takes nothing returns nothing
    set gg_trg_skill = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_skill, EVENT_PLAYER_UNIT_SPELL_CAST)
    call TriggerAddAction(gg_trg_skill, function Trig_skill_Actions)
endfunction