//! beginusercode
do
    -- На момент патча 1.31 эта функция всегда возвращает 0. Поэтому создадим её локальный аналог.
    local function AbilityId(id)
        return id:byte(1) * 0x1000000 + id:byte(2) * 0x10000 + id:byte(3) * 0x100 + id:byte(4)
    end

    local BULLETS = {}
    local TIMER_PERIOD = 0.03125 --> 1/32
    local SPEED = 600
    local SPEED_INC = SPEED/(1/TIMER_PERIOD)

    local DAMAGE_PERIOD = 0.5
    local DAMAGE_TIME = 0
    local IS_DAMAGE = false
    local DAMAGE_GROUP = CreateGroup()
    
    local BOARD

    -- Настройки
    local ABILITY_ID = AbilityId('SIWh')
    local ARC = 0.3
    local EFFECT = 'Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl'
    
    -- Код
    local GetTerrainZ_location = Location(0, 0)
    local function GetTerrainZ(x, y)
        MoveLocation(GetTerrainZ_location, x, y);
        return GetLocationZ(GetTerrainZ_location);
    end

    local function InMapXY(x, y)
        return
            x > GetRectMinX(bj_mapInitialPlayableArea)
            and
            x < GetRectMaxX(bj_mapInitialPlayableArea)
            and
            y > GetRectMinY(bj_mapInitialPlayableArea)
            and
            y < GetRectMaxY(bj_mapInitialPlayableArea)        
    end

    TimerStart(CreateTimer(), TIMER_PERIOD, true, function()
        if #BULLETS == 0 then return end

        DAMAGE_TIME = DAMAGE_TIME + TIMER_PERIOD

        IS_DAMAGE = DAMAGE_TIME >= DAMAGE_PERIOD

        if
            IS_DAMAGE
        then
            DAMAGE_TIME = 0
        end

        for i=#BULLETS, 1, -1
        do
            BULLETS[i].x = BULLETS[i].x + SPEED_INC*BULLETS[i].cos
            BULLETS[i].y = BULLETS[i].y + SPEED_INC*BULLETS[i].sin
            if
                InMapXY(BULLETS[i].x, BULLETS[i].y)
            then
                BlzSetSpecialEffectX(BULLETS[i].effect, BULLETS[i].x)
                BlzSetSpecialEffectY(BULLETS[i].effect, BULLETS[i].y)
                BlzSetSpecialEffectHeight(BULLETS[i].effect, 20)

                if
                    IS_DAMAGE
                then
                    GroupEnumUnitsInRange(DAMAGE_GROUP, BULLETS[i].x, BULLETS[i].y, 100, Filter(function()
                        local target = GetFilterUnit()
                        return
                            UnitAlive(target)
                            and
                            IsPlayerEnemy(GetOwningPlayer(BULLETS[i].caster), GetOwningPlayer(target))
                    end))
                    ForGroup(DAMAGE_GROUP, function()
                        UnitDamageTarget(BULLETS[i].caster, GetEnumUnit(), 50, false, true, ATTACK_TYPE_MAGIC, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
                    end)
                    GroupClear(DAMAGE_GROUP)
                end
            else
                DestroyEffect(BULLETS[i].effect)
                table.remove(BULLETS, i)
            end 
        end

        if
            BOARD ~= nil
        then
            LeaderboardSetItemValue(BOARD, 0, #BULLETS)
        end
    end)


    local trigger = CreateTrigger()
    for i = 0, bj_MAX_PLAYER_SLOTS - 1, 1 do
        TriggerRegisterPlayerUnitEvent(trigger, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT)
    end
    TriggerAddCondition(trigger, Condition(function() return
        GetOwningPlayer(GetTriggerUnit()) == Player(0)
    end))
    TriggerAddAction(trigger, function()
        local caster = GetTriggerUnit()
        local x
        local y
        local angle
        UnitRemoveAbility(caster, GetSpellAbilityId())

        TimerStart(CreateTimer(), 0.1, true, function()
            x = GetUnitX(caster)
            y = GetUnitY(caster)
            angle = Deg2Rad(GetUnitFacing(caster))

            table.insert(BULLETS, {
                effect = AddSpecialEffect('units\\nightelf\\Wisp\\Wisp.mdl', x, y),
                caster = caster,
                x = x,
                y = y,
                angle = angle,
                cos = Cos(angle),
                sin = Sin(angle)
            })
        end)
    end)


    -- Board
    TimerStart(CreateTimer(), 1, false, function()
        BOARD = CreateLeaderboard()

        PlayerSetLeaderboard(GetLocalPlayer(), BOARD)
        LeaderboardSetLabel(BOARD, 'Статистика')
        LeaderboardDisplay(BOARD, true)
        
        LeaderboardAddItem(BOARD, "Эффекты", #BULLETS, Player(0))

        LeaderboardSetSizeByItemCount(BOARD, 1)
        
        DestroyTimer(GetExpiredTimer())
    end)

end
//! endusercode