((код jass

library DegenAura initializer InitAuraData
НАСТРОЙКИ В БЛОКЕ "difine"
define
{
AuraId = 'A000' Равкод самой ауры.
AuraBuffId = 'B000' Равкод баффа ауры.
AuraRadius = 750.00 Радиус ауры.
AuraHeal = 0.015 Процент лечения умоножается на уровень скилаа.
}

=============================================================================================
Далее вмешательство не рекомендуется!
=============================================================================================
globals
group gg_grp_TempGroup
hashtable gg_htb_GameData
boolexpr gg_bxp_TempBoolexpr
trigger gg_trg_LernDegenAura
Вспомогательные переменные.
timer bj_groupTempTimer
unit bj_lastFilterUnit
real bj_groupLifeFactor = 0.015
integer bj_groupAbilutyLevel = 0
endglobals

private function Check_Unit_Conditions takes nothing returns boolean
set bj_lastFilterUnit = GetFilterUnit( )
return IsUnitAlly( bj_lastFilterUnit, bj_groupEnumOwningPlayer ) and GetUnitState( bj_lastFilterUnit, UNIT_STATE_LIFE ) > 0.00 and GetUnitAbilityLevel( bj_lastFilterUnit, AuraBuffId ) > 0
endfunction

private function AuraBuffDuration takes nothing returns nothing
set bj_groupTempTimer = GetExpiredTimer( )
set bj_groupAbilutyLevel = GetHandleId( bj_groupTempTimer )

call FlushChildHashtable( gg_htb_GameData, GetHandleId( LoadUnitHandle( gg_htb_GameData, bj_groupAbilutyLevel, 0 ) ) )
call DestroyTimer( bj_groupTempTimer )
call FlushChildHashtable( gg_htb_GameData, bj_groupAbilutyLevel )

endfunction

private function LernDegenAura_Conditions takes nothing returns boolean
return GetLearnedSkill( ) == AuraId
endfunction

private function HealAllyUnitEnum takes nothing returns nothing
local unit targ = GetEnumUnit( )
local integer id = GetHandleId( targ )
local unit PrevHero = LoadUnitHandle( gg_htb_GameData, id, 0 )
local integer PrevLevel = LoadInteger( gg_htb_GameData, id, 1 )

if PrevHero == null then
set bj_groupTempTimer = CreateTimer( )
call SaveUnitHandle( gg_htb_GameData, id, 0, bj_lastFilterUnit )
call SaveInteger( gg_htb_GameData, id, 1, bj_groupAbilutyLevel )
call SaveUnitHandle( gg_htb_GameData, GetHandleId( bj_groupTempTimer ), 0, targ )
call TimerStart( bj_groupTempTimer, 2.10, false, function AuraBuffDuration )
elseif PrevHero == bj_lastFilterUnit and PrevLevel <= bj_groupAbilutyLevel then
set bj_groupTempTimer = CreateTimer( )
call SaveUnitHandle( gg_htb_GameData, id, 0, bj_lastFilterUnit )
call SaveInteger( gg_htb_GameData, id, 1, bj_groupAbilutyLevel )
call SaveUnitHandle( gg_htb_GameData, GetHandleId( bj_groupTempTimer ), 0, targ )
call TimerStart( bj_groupTempTimer, 2.10, false, function AuraBuffDuration )
call SetUnitState( targ, UNIT_STATE_LIFE, GetUnitState( targ, UNIT_STATE_LIFE ) + GetUnitState( targ, UNIT_STATE_LIFE ) * bj_groupLifeFactor )
elseif PrevHero != bj_lastFilterUnit and PrevLevel < bj_groupAbilutyLevel then
set bj_groupTempTimer = CreateTimer( )
call SaveUnitHandle( gg_htb_GameData, id, 0, bj_lastFilterUnit )
call SaveInteger( gg_htb_GameData, id, 1, bj_groupAbilutyLevel )
call SaveUnitHandle( gg_htb_GameData, GetHandleId( bj_groupTempTimer ), 0, targ )
call TimerStart( bj_groupTempTimer, 2.10, false, function AuraBuffDuration )
call SetUnitState( targ, UNIT_STATE_LIFE, GetUnitState( targ, UNIT_STATE_LIFE ) + GetUnitState( targ, UNIT_STATE_LIFE ) * bj_groupLifeFactor )
endif

set targ = null
endfunction

private function DegenAura takes nothing returns nothing
local timer t = GetExpiredTimer( )
local integer id = GetHandleId( t )
local unit hero = LoadUnitHandle( gg_htb_GameData, id, StringHash( "Hero" ) )

set bj_groupEnumOwningPlayer = GetOwningPlayer( hero )
call GroupClear( gg_grp_TempGroup )
call GroupEnumUnitsInRange( gg_grp_TempGroup, GetUnitX( hero ), GetUnitY( hero ), AuraBuffId, gg_bxp_TempBoolexpr )
set bj_lastFilterUnit = hero
set bj_groupAbilutyLevel = LoadInteger( gg_htb_GameData, id, StringHash( "AuraLevel" ) )
set bj_groupLifeFactor = AuraHeal * bj_groupAbilutyLevel
call ForGroup( gg_grp_TempGroup, function HealAllyUnitEnum )

set hero = null
set t = null
endfunction

private function LernDegenAura_Actions takes nothing returns nothing
local unit hero = GetTriggerUnit( )
local integer level = GetUnitAbilityLevel( hero, AuraId )
local timer t
local integer id

if level != 1 then
set t = CreateTimer( )
set id = GetHandleId( t )
call SaveTimerHandle( gg_htb_GameData, GetHandleId( hero ), 0, t )
call SaveUnitHandle( gg_htb_GameData, id, StringHash( "Hero" ), hero )
call SaveInteger( gg_htb_GameData, id, StringHash( "AuraLevel" ), level )
call TimerStart( t, 1.00, true, function DegenAura )
else
set t = LoadTimerHandle( gg_htb_GameData, GetHandleId( hero ), 0 )
call SaveInteger( gg_htb_GameData, GetHandleId( t ), StringHash( "AuraLevel" ), level )
endif

set hero = null
set t = null
endfunction

private function InitAuraData takes nothing returns nothing
local integer nIndex = 0

set gg_grp_TempGroup = CreateGroup( )
set gg_htb_GameData = InitHashtable( )
set gg_bxp_TempBoolexpr = Condition( function Check_Unit_Conditions )
set gg_trg_LernDegenAura = CreateTrigger( )

loop
exitwhen nIndex > bj_MAX_PLAYERS
call TriggerRegisterPlayerUnitEvent( gg_trg_LernDegenAura, Player( nIndex ), EVENT_PLAYER_HERO_SKILL, null )
set nIndex = nIndex + 1
endloop

call TriggerAddCondition( gg_trg_LernDegenAura, Condition( function Check_Unit_Conditions ) )
call TriggerAddAction( gg_trg_LernDegenAura, function LernDegenAura_Actions )

endfunction

))