function grouploo takes real x, real y, real radius returns nothing    
local group g=udg_Temp_Group    
local unit forloop     
call GroupEnumUnitsInRange(g,x,y,radius,null)    
       

loop    
set forloop=FirstOfGroup(g)    
exitwhen forloop==null    
if IsUnitEnemy (forloop,GetOwningPlayer(udg_vodinoy_e_caster))==true then    
call UnitDamageTargetBJ( udg_vodinoy_e_caster, forloop,(I2R(GetHeroStatBJ(bj_HEROSTAT_INT, udg_vodinoy_e_caster, true)) * 11.00 ), ATTACK_TYPE_HERO, DAMAGE_TYPE_COLD )    
endif    
call GroupRemoveUnit(g,forloop)    
endloop    
set g=null    
endfunction
function Trig_p1_Actions takes nothing returns nothing
local integer i = 0
local real x = udg_x2+600*(udg_vodinoy_e_1*bj_DEGTORAD)
local real y = udg_y2+600*(udg_vodinoy_e_1*bj_DEGTORAD)
       set udg_vodinoy_e_caster = GetSpellAbilityUnit()
    set udg_x2 = GetSpellTargetX()
    set udg_y2 = GetSpellTargetY()
       set udg_vodinoy_e_obl = GetSpellTargetLoc()
       set udg_vodinoy_e_1 = 0.00
       set udg_vodinoy_e_2 = 0.00
       set udg_vodinoy_e_3 = 1.00
       set udg_vodinoy_e_4 = 40.00
       set bj_forLoopBIndex = 1
       set bj_forLoopBIndexEnd = 8
loop
    exitwhen bj_forLoopBIndex > bj_forLoopBIndexEnd
    set bj_forLoopAIndex = R2I(udg_vodinoy_e_3)
    set bj_forLoopAIndexEnd = R2I(udg_vodinoy_e_4)
           loop
               exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
               call CreateUnit( GetOwningPlayer(udg_vodinoy_e_caster),'h007',x,y,0)
               set udg_vodinoy_e_dummy[GetForLoopIndexA()] = GetLastCreatedUnit()
               set udg_vodinoy_e_1 = ( udg_vodinoy_e_1 + 9.00 )
               set bj_forLoopAIndex = bj_forLoopAIndex + 1
      set x = udg_x2 + 600*Cos(udg_vodinoy_e_1*bj_DEGTORAD)
      set y = udg_y2 + 600*Sin(udg_vodinoy_e_1*bj_DEGTORAD)
           endloop
           set bj_forLoopAIndex = R2I(udg_vodinoy_e_3)
           set bj_forLoopAIndexEnd = R2I(udg_vodinoy_e_4)
           loop

               exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
               call SetUnitFlyHeight( udg_vodinoy_e_dummy[GetForLoopIndexA()], ( udg_vodinoy_e_2 + ( I2R(GetForLoopIndexB()) * 100.00 ) ), udg_vodinoy_e_2 )
               set udg_vodinoy_e_2 = 0.00
               set bj_forLoopAIndex = bj_forLoopAIndex + 1

//Изменение высоты
           endloop
           set udg_vodinoy_e_3 = ( udg_vodinoy_e_3 + 40.00 )
           set udg_vodinoy_e_4 = ( udg_vodinoy_e_4 + 40.00 )
           set bj_forLoopBIndex = bj_forLoopBIndex + 1
       endloop
       set udg_vodinoy_e_3 = 1.00
       set udg_vodinoy_e_4 = 40.00
       set bj_forLoopAIndex = R2I(udg_vodinoy_e_3)
       set bj_forLoopAIndexEnd = R2I(udg_vodinoy_e_4)
loop
           exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
     set x = udg_x2 + 600
        set y = udg_y2 + 600
           call CreateDestructable( 'YTfc', x,y, udg_vodinoy_e_1, 1.00, 0 )
           set udg_vodinoy_e_dec[GetForLoopIndexA()] = GetLastCreatedDestructable()
           set udg_vodinoy_e_1 = ( udg_vodinoy_e_1 + 9.00 )
           set bj_forLoopAIndex = bj_forLoopAIndex + 1
endloop
       call CreateUnit( GetOwningPlayer(udg_vodinoy_e_caster),'h008', udg_x2,udg_y2,0 )
       set udg_vodinoy_e_dummy1 = GetLastCreatedUnit()
       call IssuePointOrderLoc( udg_vodinoy_e_dummy1, "silence", udg_vodinoy_e_obl )
    loop
    exitwhen i>15
       call grouploo(udg_x2,udg_y2,600)
    call TriggerSleepAction( 0.90 )
    set i = i+1
    endloop
          
       set udg_vodinoy_e_3 = 1.00
       set udg_vodinoy_e_4 = 40.00
       set bj_forLoopBIndex = 1
       set bj_forLoopBIndexEnd = 8
loop
           exitwhen bj_forLoopBIndex > bj_forLoopBIndexEnd
           set bj_forLoopAIndex = R2I(udg_vodinoy_e_3)
           set bj_forLoopAIndexEnd = R2I(udg_vodinoy_e_4)
           loop
               exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
               call RemoveUnit( udg_vodinoy_e_dummy[GetForLoopIndexA()] )
               call RemoveDestructable( udg_vodinoy_e_dec[GetForLoopIndexA()] )
               set bj_forLoopAIndex = bj_forLoopAIndex + 1
           endloop
           set udg_vodinoy_e_3 = ( udg_vodinoy_e_3 + 40.00 )
           set udg_vodinoy_e_4 = ( udg_vodinoy_e_4 + 40.00 )
           set bj_forLoopBIndex = bj_forLoopBIndex + 1
       endloop
       set bj_forLoopAIndex = 1
       set bj_forLoopAIndexEnd = 40
loop
           exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
           call RemoveDestructable( udg_vodinoy_e_dec[GetForLoopIndexA()] )
           set bj_forLoopAIndex = bj_forLoopAIndex + 1
       endloop
        
       call RemoveUnit( udg_vodinoy_e_dummy1 )
       
    set x = 0
set y = 0
endfunction
function Trig_p1_Conditions takes nothing returns boolean
       return GetSpellAbilityId() == 'A00D'    
              
endfunction

//===========================================================================
function InitTrig_p1 takes nothing returns nothing
local integer i = 0
       set gg_trg_p1 = CreateTrigger(  )
           call TriggerAddCondition( gg_trg_p1, Condition( function Trig_p1_Conditions ) )
       call TriggerAddAction( gg_trg_p1, function Trig_p1_Actions )
    loop    
             call TriggerRegisterPlayerUnitEvent( gg_trg_p1, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null )    
             set i = i + 1    
exitwhen i > 11    
endloop     
endfunction

  call CreateUnit( GetOwningPlayer(udg_vodinoy_e_caster),'h007',x,y,0)  
  set udg_vodinoy_e_dummy[GetForLoopIndexA()] = GetLastCreatedUnit()  

set udg_vodinoy_e_dummy[GetForLoopIndexA()] =  call CreateUnit( GetOwningPlayer(udg_vodinoy_e_caster),'h007',x,y,0)