function DamageTextTag takes string damage, unit PointUnit, real red100, real green100, real blue100 returns nothing
local string s = damage
local unit u = PointUnit
local texttag t = CreateTextTagUnitBJ(s, u, 0.0, 10, red100, green100, blue100, 0)
local real x_velocity = TextTagSpeed2Velocity(50.) * Cos(90 * (3.1415 / 180))
local real y_velocity = TextTagSpeed2Velocity(50.) * Sin(90 * (3.1415 / 180))
call SetTextTagVelocity(t, x_velocity, y_velocity)
call SetTextTagLifespan(t, 2)
call SetTextTagFadepoint(t, 1.5)
call SetTextTagPermanent(t, false)
set u = null
set t = null
endfunction