private function OnDamage takes nothing returns boolean
        local integer i = S2I(R2S(GetEventDamage()))
        local player p = GetOwningPlayer(GetEventDamageSource())
        local unit u = GetTriggerUnit()
        local texttag tt = null
        if (i > 0) and (p != Player(0)) and (p != Player(6)) then
            set tt = CreateTextTag()
            call SetTextTagText(tt, + I2S(i), 0.023)
            call SetTextTagPos(tt, GetUnitX(u), GetUnitY(u), 0.0)
            call SetTextTagColor(tt, 255, 220, 0, 255)
            call SetTextTagVelocity(tt, 0.0, 0.03)
            call SetTextTagVisibility(tt, p==GetLocalPlayer())
            call SetTextTagFadepoint(tt, 1.0)
            call SetTextTagLifespan(tt, 2.0)
            call SetTextTagPermanent(tt, false)
            call BJDebugMsg(I2S(GetHandleId(tt)))
        endif
        set u = null
        return false
    endfunction