function Trig_unitdamaged_Actions takes nothing returns nothing
    local unit attacker = GetEventDamageSource()
    local unit victim = GetTriggerUnit()
    local real dx = GetUnitX(attacker)-GetUnitX(victim)
    local real dy = GetUnitY(attacker)-GetUnitY(victim)
    local real distance = SquareRoot(dx*dx+dy*dy)
    local real max_distance = 1500.
    local real damage = GetEventDamage() // Ага
    local texttag tt
    if ( GetRandomReal(1.,100.) > 20.-(max_distance-distance)/100. ) then
        if( GetRandomReal(1.,100.) <= 25.-distance/100. ) then
            set damage = damage * ( 0.2 + distance/1000. )
            set tt = CreateTextTagUnitBJ(I2S(R2I(damage))+"!",attacker,50.,10.,100.,0.,0.,0.) // Ага
            // Здесь я не уверен, что при смерти от SetUnitState при нанесении ей урона, атакующему засчитают кил.
            // Поэтому можно добавить проверку на [ХП]-[Урон] и если <0, то убивать цель UnitDamageTarget'ом
            // Опять же таки, если будут всяческие заклинания "Абсорб дамаги", то урон стоило бы сделать триггерным.
            call SetUnitState(victim, UNIT_STATE_LIFE, GetUnitState(victim, UNIT_STATE_LIFE) - damage)
        endif
    else
        set tt = CreateTextTagUnitBJ("Промах",attacker,50.,10.,100.,0.,0.,0.) // Ага
        // Примеров куча даже в гугле.
        // Триггер вызавается перед нанесением урона. Т.е. чтобы свести его (урон) в ноль нам необходимо
        // добавить такое же количество здоровья (урон, который нам передают, уже просчитан с учетом дефа и т.д.).
        // но если хп ~полные, то наша прибавка к хп будет бесполезна. Поэтому мы ждем нанесения урона и 
        // только тогда повышаем его.
        if GetUnitState(victim, UNIT_STATE_LIFE) + damage > GetUnitState(victim, UNIT_STATE_MAX_LIFE) then
       	  call TriggerSleepAction(.01)
        endif
        call SetUnitState(victim, UNIT_STATE_LIFE, GetUnitState(victim, UNIT_STATE_LIFE) + damage)
    endif
    call SetTextTagVelocityBJ(tt,64.,90.)
    call SetTextTagLifespan(tt,1.5)
    call SetTextTagFadepoint(tt,.5)
    call SetTextTagPermanent(tt,false)
    set victim = null
    set attacker = null
    set tt = null
endfunction

//===========================================================================
function InitTrig_unitdamaged takes nothing returns nothing
    set gg_trg_unitdamaged = CreateTrigger(  )
    call TriggerAddAction( gg_trg_unitdamaged, function Trig_unitdamaged_Actions )
endfunction