library Adrenaline

    globals
    private unit array HERO
    private integer N = 0
    private group g = CreateGroup ()
    private boolexpr f
    private integer i
    private timer array Timer
    endglobals
    
    define { 
    // === настройки === //
    SPELL = 'AHbh' //Изучаемая способность
    ABILITY_SPEED_ATTACK = 'A000' // Способность для увеличения скорости атаки (1-й уровень должен давать нулевой бонус!)
    ABILITY_SPEED = 'A001' //Способность "Берсерк" для увеличения скорости передвижения
    // чем меньше время перепроверки на юнитов, тем сильнее нагрузка! Если юнитов со способностью много,
    // то время необходимо увеличить! (то же самое и со здоровьем)
    TIME_OUT_ATTACK = 0.3 // время перепроверки на кол-во юнитов в радиусе
    AREA = 400.0 // радиус для увеливения скорости атаки
    TIME_OUT_SPEED = 1.0 // время проверки на здоровье
    TIME_OUT_NULL = 60.0 // время бездействия скорости передвижения после применения
    DEAD_LINE = 0.2//, т.е. 20%. Здоровье, при котором срабатывает ускорение
    }

function Trig_AdrenalineLearn_Conditions takes nothing returns boolean
    if GetLearnedSkill() == SPELL then
        return ( GetUnitAbilityLevel(GetTriggerUnit(), SPELL) == 1 )
    endif
    return false
endfunction

//для таймера на проверку здоровья (Для каждого юнита - свой)
function Trig_AdrenalineLearn_Life_Timer takes nothing returns nothing
    local integer j = 1
    local real hp
    loop { exitwhen ( GetExpiredTimer() == Timer[j] )
    j++ }
    if ( GetUnitState(HERO[j], UNIT_STATE_LIFE) > 0.0 )
    if TimerGetTimeout(Timer[j]) == TIME_OUT_SPEED {
        set hp = GetUnitState(HERO[j], UNIT_STATE_LIFE)/GetUnitState(HERO[j], UNIT_STATE_MAX_LIFE)
        if hp < DEAD_LINE then
            call UnitAddAbility ( HERO[j], ABILITY_SPEED )
            call IssueImmediateOrder( HERO[j], "berserk" )
            call UnitRemoveAbility( HERO[j], ABILITY_SPEED )
            call TimerStart ( Timer[j], TIME_OUT_NULL, false, function Trig_AdrenalineLearn_Life_Timer )
        endif
    else
        call TimerStart ( Timer[j], TIME_OUT_SPEED, true, function Trig_AdrenalineLearn_Life_Timer )
    }
    endif
endfunction

//для таймера на проверку кол-ва юнитов
function Trig_AdrenalineLearn_Filter takes nothing returns boolean
    return (GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.00)and(IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(HERO[i])))and(IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) == false)
endfunction
    
function Trig_AdrenalineLearn_ChooseNUnits_Timer takes nothing returns nothing
    set i = 1
    loop { exitwhen i > N
        if ( GetUnitState(HERO[i], UNIT_STATE_LIFE) > 0.0 ) then
            call GroupEnumUnitsInRange ( g, GetUnitX(HERO[i]), GetUnitY(HERO[i]), AREA, f )
            set bj_groupCountUnits = 0
            call ForGroup ( g, function CountUnitsInGroupEnum )
            call SetUnitAbilityLevel ( HERO[i], ABILITY_SPEED_ATTACK, bj_groupCountUnits + 1 )
            call GroupClear (g)
        endif
    i++ }
endfunction

function Trig_AdrenalineLearn_Actions takes nothing returns nothing
    local timer t
    if N == 0 then
        set t = CreateTimer () //для уровня способности
        call TimerStart ( t, TIME_OUT_ATTACK, true, function Trig_AdrenalineLearn_ChooseNUnits_Timer )
    endif
    N++
    set Timer[N] = CreateTimer () //для проверки здоровья
    call TimerStart ( Timer[N], TIME_OUT_SPEED, true, function Trig_AdrenalineLearn_Life_Timer )
    set HERO[N] = GetTriggerUnit()
    call UnitAddAbility( GetTriggerUnit(), ABILITY_SPEED_ATTACK )
    set t = null
endfunction

//===========================================================================
function InitTrig_AdrenalineLearn takes nothing returns nothing
    set gg_trg_AdrenalineLearn = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_AdrenalineLearn, EVENT_PLAYER_HERO_SKILL )
    call TriggerAddCondition( gg_trg_AdrenalineLearn, Condition( function Trig_AdrenalineLearn_Conditions ) )
    call TriggerAddAction( gg_trg_AdrenalineLearn, function Trig_AdrenalineLearn_Actions )
    set f = Condition (function Trig_AdrenalineLearn_Filter)
endfunction

endlibrary

library Tricks

    globals
    private integer j
    private constant string DAMMY_ORDER = "creepthunderbolt" // Приказ даммику
    private constant string HERO_ORDER = "berserk" // Приказ на "Берсерк"
    private constant boolean PASHE = true // При "переносе" герой может проходить сквозь все!
    private constant boolean INVUR = true // Неуязвимость при "переносе"
    endglobals
    
    define {
    // перенести будет "сложно"
    // Очень внимательно измените равкоды способностей! (иначе будет куча глюков)
    private SPELL_LEAN = 'A001' // изучаемая способность
    private SPELL_NULL = 'A000' // способнсть - пустышка (пассивка для показания описания, если нет перезарядки)
    private SPELL_COOL = 'A002' // способность "Берсерк" для перезарядки способности
    private SPELL_ATTACK = 'A003' // способность +атака для увеличения урона
    private BAFF_BERSERK = 'Bbsk' // Бафф перезаряжаемой способности "Берсерк"
    private DAMMY = 'h000' // Даммик (достаточно, чтобы он был невидимый и летающий)
    private SPELL_STAN = 'A004' // Способность - Стан, которая дается даммику
    private BAFF_STAN = 'BPSE' // Бафф стана для снятия
        // настройки //
    private COOL = 17.0 - 2.0*lvl // где lvl - уровень способности. 
                         //Перезарядка здесь должна совпадать с перезар. в способности "Берсерк"
    private STAN = 1.0 // Время стана, если герой "переносится"
    private STAN_ADD = 1.0 + 0.3*lvl // Стан, если герой "не переностися". Где lvl - уровень способности
    private NAMBER = 5-(lvl/2) // Кол-во юнитов для "переноса". Где lvl - уровень способности
    private DIST = 80.0 // Дальность героя от противника при "переносе"
    private TimE = 1.0 // Время атаки сзади. После этого времени - обратно
    private CHANCE = 7 // Шанс на активацию. Можно задействовать lvl, например: 6+lvl
    }
// Фильтр врагов, на которых герой может "прыгнуть"
function Trig_Tricks_Filter takes nothing returns boolean
    return (IsUnitVisible(GetFilterUnit(), GetOwningPlayer(GetAttacker())))and(GetTriggerUnit()!=GetFilterUnit())and(GetUnitState(GetFilterUnit​(), UNIT_STATE_LIFE) > 0.00)and(IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(GetAttacker())))and(IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) == false)
endfunction
// Выбор случайного юнита
function Trig_Tricks_RandomUnits takes nothing returns nothing
    set bj_groupCountUnits = bj_groupCountUnits + 1
    if bj_groupCountUnits == j then
        set bj_groupRandomCurrentPick = GetEnumUnit()
    endif
endfunction
// Снятие оглушения
function Trig_Tricks_Stan_Timer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local unit u = LoadUnitHandle ( udg_Hash, h, 1 )
    call UnitRemoveAbility( u, BAFF_STAN )
    call FlushChildHashtable ( udg_Hash, h )
    set u = null
    call DestroyTimer (t)
    set t = null
endfunction
// Функция оглушения
function Trig_Tricks_Stan takes unit u, real time returns nothing
    local timer t = CreateTimer ()
    local unit dammy = CreateUnit ( Player(15), DAMMY, GetUnitX(u), GetUnitY(u), 0.0 )
    call UnitAddAbility( dammy, SPELL_STAN )
    call UnitApplyTimedLife( dammy, 'BTLF', 2.0 )
    call IssueTargetOrder( dammy, DAMMY_ORDER, u )
    call SaveUnitHandle ( udg_Hash, GetHandleId(t), 1, u )
    call TimerStart ( t, time, false, function Trig_Tricks_Stan_Timer )
    set dammy = null
    set u = null
    set t = null
endfunction
// Удаление способности для перезарядки
function Trig_Tricks_Timer_Cool takes nothing returns nothing
    local timer t = GetExpiredTimer ()
    local integer h = GetHandleId(t)
    local unit u = LoadUnitHandle ( udg_Hash, h, 1 )
    local integer lvl = GetUnitAbilityLevel ( u, SPELL_LEAN )
    call UnitRemoveAbility ( u, SPELL_COOL )
    call UnitAddAbility ( u, SPELL_NULL )
    call SetUnitAbilityLevel ( u, SPELL_NULL, lvl )
    call FlushChildHashtable ( udg_Hash, h )
    set u = null
    call DestroyTimer (t)
    set t = null
endfunction
// Таймер возврата
function Trig_Tricks_Timer_Return takes nothing returns nothing
    local timer tim = GetExpiredTimer ()
    local integer h = GetHandleId(tim)
    local unit u = LoadUnitHandle ( udg_Hash, h, 1 )
    local unit t = LoadUnitHandle ( udg_Hash, h, 4 )
    local real x = LoadReal ( udg_Hash, h, 2 )
    local real y = LoadReal ( udg_Hash, h, 3 )
    local real angle
    if PASHE then
        call SetUnitPathing( u, true )
    endif
    if INVUR then
        call SetUnitInvulnerable ( u, false )
    endif
    call UnitRemoveAbility ( u, SPELL_ATTACK )
    call SetUnitPosition ( u, x, y )
    set angle = bj_RADTODEG * Atan2(GetUnitY(t) - GetUnitY(u), GetUnitX(t) - GetUnitX(u))
    call SetUnitFacing ( u, angle )
    call IssueTargetOrder( u, "attack", t )
    set u = null
    set t = null
    call DestroyTimer (tim)
    set tim = null
endfunction
// Телепорт героя к цели, запуск таймера возврата
function Trig_Tricks_Timer_MoveTP takes unit u, unit t, unit c returns nothing
    // u - герой
    // t - цель
    // c - первоначальная цель
    local real angle = GetUnitFacing(t)
    local real x = GetUnitX(t) + -DIST * Cos(angle * bj_DEGTORAD)
    local real y = GetUnitY(t) + -DIST * Sin(angle * bj_DEGTORAD)
    local timer tim = CreateTimer ()
    local integer h = GetHandleId(tim)
    call SaveUnitHandle ( udg_Hash, h, 1, u )
    call SaveReal ( udg_Hash, h, 2, GetUnitX(u) )
    call SaveReal ( udg_Hash, h, 3, GetUnitY(u) )
    call SaveUnitHandle ( udg_Hash, h, 4, c )
    call TimerStart ( tim, TimE, false, function Trig_Tricks_Timer_Return )
    call SetUnitPosition ( u, x, y )
    call SetUnitFacing ( u, angle )
    call SetUnitAnimation( u, "attack" )
    call IssueTargetOrder( u, "attack", t )
    set u = null
    set t = null
    set c = null
    set tim = null
endfunction
// Основное действие
function Trig_Tricks_Actions takes nothing returns nothing
    local unit u = GetAttacker ()
    local integer i = GetRandomInt (1,100)
    local integer lvl = GetUnitAbilityLevel ( u, SPELL_LEAN )
    if i <= CHANCE then
        local group g = CreateGroup ()
        local boolexpr f = Condition (function Trig_Tricks_Filter)
        call GroupEnumUnitsInRange ( g, GetUnitX(u), GetUnitY(u), 350+50*lvl, f )
        set bj_groupCountUnits = 0
        call ForGroup ( g, function CountUnitsInGroupEnum )
        if bj_groupCountUnits >= NAMBER then
            set j = GetRandomInt ( 1, bj_groupCountUnits )
            set bj_groupCountUnits = 0
            call ForGroup ( g, function Trig_Tricks_RandomUnits )
            call UnitRemoveAbility ( u, SPELL_NULL )
            call UnitAddAbility ( u, SPELL_COOL )
            call SetUnitAbilityLevel ( u, SPELL_COOL, lvl )
            call UnitAddAbility ( u, SPELL_ATTACK )
            call SetUnitAbilityLevel ( u, SPELL_ATTACK, lvl )
            call IssueImmediateOrder( u, HERO_ORDER )
            if PASHE then
                call SetUnitPathing( u, false )
            endif
            if INVUR then
                call SetUnitInvulnerable ( u, true )
            endif
            call Trig_Tricks_Timer_MoveTP ( u, bj_groupRandomCurrentPick, GetTriggerUnit() )
            call Trig_Tricks_Stan (GetTriggerUnit(), STAN)
        else
            call Trig_Tricks_Stan (GetTriggerUnit(), STAN_ADD)
            call UnitRemoveAbility ( u, SPELL_NULL )
            call UnitAddAbility ( u, SPELL_COOL )
            call SetUnitAbilityLevel ( u, SPELL_COOL, lvl )
            call IssueImmediateOrder( u, HERO_ORDER )
            call UnitRemoveAbility ( u, BAFF_BERSERK )
            call IssueTargetOrder( u, "attack", GetTriggerUnit() )
        endif
        local timer t = CreateTimer ()
        call SaveUnitHandle ( udg_Hash, GetHandleId(t), 1, GetAttacker() )
        call TimerStart ( t, COOL, false, function Trig_Tricks_Timer_Cool )
        call DestroyBoolExpr (f)
        call GroupClear (g)
        call DestroyGroup (g)
    endif
    set u = null
    set t = null
    set f = null
    set g = null
endfunction

//===========================================================================
function Trig_Tricks_Conditions takes nothing returns boolean
    if GetUnitAbilityLevel(GetAttacker(), SPELL_NULL) > 0 then
        return (IsUnitEnemy(GetAttacker(), GetOwningPlayer(GetTriggerUnit())))and(IsUnitType(GetTriggerUnit(), UNIT_TYPE_STRUCTURE) == false)
    endif
    return false
endfunction
function InitTrig_Tricks takes nothing returns nothing
    set gg_trg_Tricks = CreateTrigger(  )
    call DisableTrigger( gg_trg_Tricks )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Tricks, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddCondition( gg_trg_Tricks, Condition( function Trig_Tricks_Conditions ) )
    call TriggerAddAction( gg_trg_Tricks, function Trig_Tricks_Actions )
endfunction

endlibrary