function attack_cond takes nothing returns boolean
    return GetUnitAbilityLevel(GetAttacker(), 'A000')>0 //эта короче айди твоей абилки, чтобы узнать айди в р.о ctrl+d 
endfunction

function attack_action takes nothing returns nothing
    local unit t=GetTriggerUnit()
    local unit c=GetAttacker()
    local integer lvl=GetUnitAbilityLevel(t, 'A001') //а это айди абилки для снятия защиты
    local real damage=GetHeroStr(c, true)/2+35 //тут вычисляем урон
    call UnitDamageTarget(c,t,damage,true,false,ATTACK_TYPE_MELEE,DAMAGE_TYPE_UNIVERSAL ,WEAPON_TYPE_WHOKNOWS)
    call DestroyEffect(AddSpecialEffectTarget("Objects\\Spawnmodels\\Orc\\Orcblood\\BattrollBlood.mdl&qu​ot;,t,"origin"))
//тут как-бе эффект...
    if lvl<=5 then //этой сколько максиму уровней(тут 5)
        call UnitAddAbility(t,'A001') //опять абилка брони (A001)
        call SetUnitAbilityLevel(t,'A001',lvl+1) меняем уровень защиты
        call PolledWait(5) //знаю что это не очень хорошо использовать вейты, но зато работает)
        set lvl=GetUnitAbilityLevel(t, 'A001') //узнаем уровень абилки
        call SetUnitAbilityLevel(t,'A001',lvl-1) //понижение уровня защиты
    endif
    t=null
    c=null
endfunction

//===========================================================================
function InitTrig_attack takes nothing returns nothing
    local trigger t= CreateTrigger(  )
    local integer index=0
    loop
        call TriggerRegisterPlayerUnitEvent(t, Player(index), EVENT_PLAYER_UNIT_ATTACKED, null)
        set index = index + 1
        exitwhen index == bj_MAX_PLAYER_SLOTS
    endloop
    call TriggerAddCondition( t, Condition( function attack_cond ) )
    call TriggerAddAction( t, function attack_action )
    t=null
    call Preload("Objects\\Spawnmodels\\Orc\\Orcblood\\BattrollBlood.mdl")
endfunction