scope CoupdeVent initializer CoupdeVentInit {

    boolean CoupdeVentCond() {
    return GetSpellAbilityId() == 'A09Q'
    }

    function CoupdeVentCast2 takes void returns void
        timer t = GetExpiredTimer()
        integer id = GetHandleId(t)
        integer level = LoadInteger(h, id, 0)
        group g = LoadGroupHandle(h, id, 1)
        real x = LoadReal(h, id, 2)
        real y = LoadReal(h, id, 3)
        real dur = LoadReal(h, id, 4) + 0.05
        real speed = LoadReal(h, id, 5)
        real dist = LoadReal(h, id, 6) + speed
        real tx
        real ty
        real a
        G = CopyGroup(g)
        if dur < 2 {
            loop
                E = FirstOfGroup(G)
                exitwhen E == null
                tx = GetUnitX(E)
                ty = GetUnitY(E)
                a = Atan2(ty - y, tx - x)
                if GetUnitState(E, UNIT_STATE_LIFE) > 0.405 and not IsTerrainPathable(tx + speed * Cos(a), ty + speed * Sin(a), PATHING_TYPE_FLYABILITY) {
                    SetUnitX(E, tx + speed * Cos(a))
                    SetUnitY(E, ty + speed * Sin(a))
                    DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDus​t.mdl", tx, ty))
                else
                    GroupRemoveUnit(g, E)
                }
                GroupRemoveUnit(G, E)
            endloop
            SaveReal(h, id, 4, dur)
            SaveReal(h, id, 5, speed - 0.5)
            SaveReal(h, id, 6, dist)
        else
            GroupClear(g)
            DestroyGroup(g)
            PauseTimer(t)
            DestroyTimer(t)
            FlushChildHashtable(h, id)
            }

            t = null
            g = null
        endfunction

        function CoupdeVentCast takes void returns void
            unit u = GetTriggerUnit()
            real x = GetUnitX(u)
            real y = GetUnitY(u)
            real x1
            real y1
            boolexpr b = Condition(function Tornado_Filter)
            group g = CreateGroup()
            timer t = CreateTimer()
            integer id = GetHandleId(t)
            player p = GetOwningPlayer(u)
            real dmg = (GetUnitAbilityLevel(u, 'A09Q') + 3) * GetHeroStr(u, true)
            real i = 1
            real a = Atan2(GetSpellTargetY() - y, GetSpellTargetX() - x)
            UnitApplyTimedLife(CreateUnit(p, 'e04S', x, y, a * bj_RADTODEG), 1, 0.6)
            loop
                exitwhen i > 13
                x1 = x + 100 * i * Cos(a)
                y1 = y + 100 * i * Sin(a)
                GroupEnumUnitsInRange(G, x1, y1, 300, b)
                UnitApplyTimedLife(CreateUnit(p, 'e04R', x1, y1, a * bj_RADTODEG), 1, 1)
                UnitApplyTimedLife(CreateUnit(p, 'e04M', x1, y1, a * bj_RADTODEG), 1, 1)
                UnitApplyTimedLife(CreateUnit(p, 'e04T', x1, y1, a * bj_RADTODEG), 1, 1)
                i++
            endloop
            g = CopyGroup(G)
            loop
                E = FirstOfGroup(G)
                exitwhen E == null
                UnitDamageTarget(u, E, dmg, false, false, null, null, null)
                GroupRemoveUnit(G, E)
                n = CreateUnit(p, 'h019', x, y, 0)
                UnitAddAbility(n, 'A09B')
                SetUnitAbilityLevel(n, 'A09B', 4)
                UnitApplyTimedLife(n, 'BTLF', 1)
                IssueTargetOrder(n, "thunderbolt", E)
            endloop
            SaveInteger(h, id, 0, level)
            SaveGroupHandle(h, id, 1, g)
            SaveReal(h, id, 2, x)
            SaveReal(h, id, 3, y)
            SaveReal(h, id, 5, 50.)
            TimerStart(t, 0.05, true, function CoupdeVentCast2)
            u = null
            DestroyBoolExpr(b)
            b = null
            g = null
            t = null
        endfunction

//===========================================================================
        void CoupdeVentInit() {
        trigger t = CreateTrigger()
        integer i = 0
        loop
            TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
            i++
            exitwhen i == bj_MAX_PLAYER_SLOTS
        endloop
        TriggerAddAction(t, function CoupdeVentCast)
        TriggerAddCondition(t, Condition(function CoupdeVentCond))
        t = null
        }

        }


//Code indented using The_Witcher's Script language Aligner
//Download the newest version and report bugs at www.hiveworkshop.com