// Сам спел 'A00E' сделанный на основе канал-мгновенный
// 'A00F' дамми спел первого лвла сделанный на основе Волшебного огня соответствующий баф 'B00B'
// 'A00G' дамми спел второго лвла сделанный на основе Волшебного огня соответствующий баф 'B00C'
// 'A00H' дамми спел третий лвла сделанный на основе Волшебного огня соответствующий баф 'B00D'
// Спел накладывает эффект снижения брони в радиусе 300(суммируется до 3х раз)
//Принцип: кастер кастует и  юниты собираются в группув радиусе 300, через 0.05 юниты делятся по 3м //группам в зависимости от бафов наложеных на них после поочередно со всеми группами производится //нужное действие после чего группы удаляются и таймер удаляется

//проверка на каст нужного спела
function Intimidating_Shout_Conditions takes nothing returns boolean
return( GetSpellAbilityId() == 'A00E' )
endfunction

//набор в стартовую группу юнитов враждебных игроку
function Intimidating_Shout_Filter takes nothing returns boolean
local unit f=GetFilterUnit()
if IsPlayerEnemy(GetOwningPlayer(GetTriggerUnit()),GetOwningPlayer(f)) and GetWidgetLife(f)>=0.405 and IsUnitType(f,UNIT_TYPE_STRUCTURE)==false then
    set f=null
    return true
else
    set f=null
    return false
endif
endfunction

//действия с юнитами без бафа
function Intimidating_Shout_g1 takes nothing returns nothing
local timer Timer=GetExpiredTimer()
local unit Caster = LoadUnitHandle(udg_h,GetHandleId(Timer),1)
local unit Dummy = LoadUnitHandle(udg_h,GetHandleId(Timer),3)
local unit f = GetEnumUnit()
call UnitAddAbility( Dummy, 'A00F')
call SetUnitAbilityLevel(  Dummy, 'A00F', GetUnitAbilityLevel(Caster,'A00E'))
call IssueTargetOrder(  Dummy, "faeriefire", f )
call CreateTextTagUnitBJ( "1!", f, 0, 10, 100, 100, 100, 0 )
call SetTextTagColorBJ( GetLastCreatedTextTag(), 0.00, 60.00, 100.00, 0 )
call SetTextTagVelocityBJ( GetLastCreatedTextTag(), 64, 90 )
call SetTextTagPermanentBJ( GetLastCreatedTextTag(), false )
call SetTextTagLifespanBJ( GetLastCreatedTextTag(), 2.00 )
call SetTextTagFadepointBJ( GetLastCreatedTextTag(), 2.50 )
call UnitRemoveAbility( Dummy, 'A00F')
set Caster = null
set f=null
set Dummy = null
set Timer = null
endfunction

//действия с юнитами имеющими баф 1го лвла
function Intimidating_Shout_g2 takes nothing returns nothing
local timer Timer=GetExpiredTimer()
local unit Caster = LoadUnitHandle(udg_h,GetHandleId(Timer),1)
local unit Dummy = LoadUnitHandle(udg_h,GetHandleId(Timer),3)
local unit f = GetEnumUnit()
call UnitAddAbility( Dummy, 'A00G')
call SetUnitAbilityLevel(  Dummy, 'A00G', GetUnitAbilityLevel(Caster,'A00E'))
call IssueTargetOrder(  Dummy, "faeriefire", f )
call CreateTextTagUnitBJ( "2!", f, 0, 10, 100, 100, 100, 0 )
call SetTextTagColorBJ( GetLastCreatedTextTag(), 0.00, 60.00, 100.00, 0 )
call SetTextTagVelocityBJ( GetLastCreatedTextTag(), 64, 90 )
call SetTextTagPermanentBJ( GetLastCreatedTextTag(), false )
call SetTextTagLifespanBJ( GetLastCreatedTextTag(), 2.00 )
call SetTextTagFadepointBJ( GetLastCreatedTextTag(), 2.50 )
call UnitRemoveAbility( Dummy, 'A00G')
set Caster = null
set f=null
set Dummy = null
set Timer = null
endfunction

//действия с юнитами имеющими баф 2го или 3го лвла
function Intimidating_Shout_g3 takes nothing returns nothing
local timer Timer=GetExpiredTimer()
local unit Caster = LoadUnitHandle(udg_h,GetHandleId(Timer),1)
local unit Dummy = LoadUnitHandle(udg_h,GetHandleId(Timer),3)
local unit f = GetEnumUnit()
call UnitAddAbility( Dummy, 'A00H')
call SetUnitAbilityLevel(  Dummy, 'A00H', GetUnitAbilityLevel(Caster,'A00E'))
call IssueTargetOrder(  Dummy, "faeriefire", f )
call CreateTextTagUnitBJ( "3!", f, 0, 10, 100, 100, 100, 0 )
call SetTextTagColorBJ( GetLastCreatedTextTag(), 0.00, 60.00, 100.00, 0 )
call SetTextTagVelocityBJ( GetLastCreatedTextTag(), 64, 90 )
call SetTextTagPermanentBJ( GetLastCreatedTextTag(), false )
call SetTextTagLifespanBJ( GetLastCreatedTextTag(), 2.00 )
call SetTextTagFadepointBJ( GetLastCreatedTextTag(), 2.50 )
call UnitRemoveAbility( Dummy, 'A00H')
set Caster = null
set f=null
set Dummy = null
set Timer = null
endfunction

//переформирование групп старт действий для групп
function Intimidating_Shout_Main takes nothing returns nothing
local timer Timer=GetExpiredTimer()
local unit Caster = LoadUnitHandle(udg_h,GetHandleId(Timer),1)
local group Group=LoadGroupHandle(udg_h,GetHandleId(Timer),2)
local group Group1=CreateGroup()
local group Group2=CreateGroup()
local group Group3=CreateGroup()
local integer Level = GetUnitAbilityLevel(Caster,'A00E')
local unit f = null
call AddSpecialEffectLoc("Abilities\\Spells\\Undead\\RaiseSkeletonWarrior\\RaiseSkeleton.mdl",G​etUnitLoc(Caster))
loop       
    set f = FirstOfGroup(Group)
    exitwhen f == null
    if GetUnitAbilityLevel(f, 'B00B') == 0 and GetUnitAbilityLevel(f, 'B00C') == 0 and GetUnitAbilityLevel(f, 'B00D')==0 then
    call GroupAddUnit(Group1, f)
    else
        if GetUnitAbilityLevel(f, 'B00B') > 0 then
        call GroupAddUnit(Group2, f)
        else
            if  GetUnitAbilityLevel(f, 'B00C') > 0 or GetUnitAbilityLevel(f, 'B00D') > 0 then
            call GroupAddUnit(Group3, f)
            else
            endif
        endif
    endif
    call GroupRemoveUnit(Group, f)
endloop 
call DestroyGroup(Group)
call ForGroup(Group1,function Intimidating_Shout_g1)
call DestroyGroup(Group1)
call ForGroup(Group2,function Intimidating_Shout_g2)
call DestroyGroup(Group2)
call ForGroup(Group3,function Intimidating_Shout_g3)
call DestroyGroup(Group3)
call DestroyTimer(Timer)
set Caster = null
set Level = 0
set f = null
set Group = null
set Group1 = null
set Group2 = null
set Group3 = null
set Timer = null
endfunction

function Intimidating_Shout_Actions takes nothing returns nothing
local timer Timer=CreateTimer()
local unit Caster=GetSpellAbilityUnit()
local group Group=CreateGroup()
local boolexpr b=Condition(function Intimidating_Shout_Filter)
local unit Dummy = CreateUnit(GetOwningPlayer(Caster),'o000',GetUnitX(Caster),GetUnitY(Caster), bj_UNIT_FACING)
call GroupEnumUnitsInRange(Group,GetUnitX(Caster),GetUnitY(Caster),300.,b)
call SaveUnitHandle(udg_h,GetHandleId(Timer),1,Caster)
call SaveGroupHandle(udg_h,GetHandleId(Timer),2,Group)
call SaveUnitHandle(udg_h,GetHandleId(Timer),3,Dummy)
call TimerStart(Timer,0.05,false,function Intimidating_Shout_Main)
set Dummy = null
set b = null
set Caster = null
set Group = null
set Timer = null
endfunction

//===========================================================================
function InitTrig_Intimidating_Shout takes nothing returns nothing
    local trigger trg=CreateTrigger()
    set udg_h=InitHashtable()
    call TriggerRegisterAnyUnitEventBJ( trg, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( trg, Condition( function Intimidating_Shout_Conditions ) )
    call TriggerAddAction( trg, function Intimidating_Shout_Actions )
    set trg=null
endfunction