globals
    group TempGroup = CreateGroup()
endglobals

function Trig_R_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A006'
endfunction

function Stun_R takes unit enemy, unit u returns nothing
    local real ux = GetUnitX(u)
    local real uy = GetUnitY(u)
    local real x = GetUnitX(enemy)
    local real y = GetUnitY(enemy)
    local real a = Atan2(y-uy, x-ux)
    // стан
    local unit dummy = CreateUnit(GetOwningPlayer(u), 'u000', x, y, 0.) // Создадим дамми в координатах цели
    
    call UnitApplyTimedLife(dummy, 'BTLF', 1) // Укажем время жизни дамми
    call UnitAddAbility(dummy, 'A007')
    call IssueTargetOrder(dummy, "thunderbolt", enemy)
    // двигаем
    call SetUnitX(enemy, x + 40*Cos(a))
    call SetUnitY(enemy, y + 40*Sin(a))
    // визуал
    call SetUnitAnimation(u, "spell")
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Other\\Incinerate\\IncinerateBuff.mdl", ux, uy))
    
    set dummy = null
endfunction

function Trig_R_Actions takes nothing returns nothing
    local unit caster = GetTriggerUnit()
    local integer i = 0
    local real a
    local real ux
    local real uy
    local unit witchers
    local unit enemy
    local real rx = GetSpellTargetX()
    local real ry = GetSpellTargetY()
    
    loop
    exitwhen i >= 15 // Создаёт 8 стен, образуя круг
        set a = i * 24 * bj_DEGTORAD
        set ux = rx + 400 * Cos(a)
        set uy = ry + 400 * Sin(a)
        set a = Atan2(ry-uy, rx-ux) * bj_RADTODEG
        set witchers = CreateUnit(GetOwningPlayer(caster), 'h006', ux, uy, a)
        call SetUnitAnimation(witchers, "stand defend")
        call UnitApplyTimedLife(witchers, 'BFig', 3) // Исчезает через 10 сек sum i +14
        
        call GroupEnumUnitsInRange(TempGroup, ux, uy, 100, null)
        loop
            set enemy = FirstOfGroup(TempGroup)
        exitwhen enemy == null
            if IsPlayerEnemy( GetOwningPlayer(caster), GetOwningPlayer(enemy)) and UnitAlive(enemy) and not IsUnitIdType(GetUnitTypeId(enemy), UNIT_TYPE_STRUCTURE) then
                call Stun_R(enemy, witchers)
            endif
            call GroupRemoveUnit(TempGroup, enemy)
            set enemy = null
        endloop
        set witchers = null
        set i = i + 1
    endloop
    call GroupClear(TempGroup)
    
    set caster = null
endfunction

function InitTrig_R takes nothing returns nothing
    local trigger trg = CreateTrigger()
    local integer index = 0

    loop
        call TriggerRegisterPlayerUnitEvent(trg, Player(index), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        set index = index + 1
        exitwhen index == bj_MAX_PLAYER_SLOTS
    endloop
    
    call TriggerAddCondition(trg, Condition(function Trig_R_Conditions))
    call TriggerAddAction(trg, function Trig_R_Actions)
    
    set trg = null
endfunction

call ReviveHero( Unit, x, y, true)

local real xRandom = GetRandomReal(GetRectMinX(bj_mapInitialPlayableArea), GetRectMaxX(bj_mapInitialPlayableArea))
local real yRandom = GetRandomReal(GetRectMinY(bj_mapInitialPlayableArea), GetRectMaxY(bj_mapInitialPlayableArea))
call DestroyEffect(AddSpecialEffect("Abilities\\Spells\Human\\Blizzard\\BlizzardTarget.mdl", xRandom, yRandom))