equal
deleted
inserted
replaced
49 implementation |
49 implementation |
50 uses uVariables, uRender, Math, uRenderUtils, uStore, uUtils |
50 uses uVariables, uRender, Math, uRenderUtils, uStore, uUtils |
51 , uVisualGearsList; |
51 , uVisualGearsList; |
52 |
52 |
53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
54 var s: shortstring; |
54 var Gear: PVisualGear; |
55 Gear: PVisualGear; |
|
56 begin |
55 begin |
57 if cAltDamage then |
56 if cAltDamage then |
58 begin |
57 begin |
59 Gear:= AddVisualGear(X, Y, vgtSmallDamageTag); |
58 Gear:= AddVisualGear(X, Y, vgtSmallDamageTag); |
60 if Gear <> nil then |
59 if Gear <> nil then |
61 with Gear^ do |
60 with Gear^ do |
62 begin |
61 Tex:= RenderStringTex(ansistring(inttostr(Damage)), Color, fntSmall); |
63 str(Damage, s); |
|
64 Tex:= RenderStringTex(s, Color, fntSmall); |
|
65 end |
|
66 end |
62 end |
67 end; |
63 end; |
68 |
64 |
69 |
65 |
70 // ================================================================== |
66 // ================================================================== |