equal
deleted
inserted
replaced
54 uses uWorld, uMisc, uStore; |
54 uses uWorld, uMisc, uStore; |
55 const cExplFrameTicks = 110; |
55 const cExplFrameTicks = 110; |
56 |
56 |
57 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
57 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
58 var s: shortstring; |
58 var s: shortstring; |
|
59 Gear: PVisualGear; |
59 begin |
60 begin |
60 if cAltDamage then |
61 if cAltDamage then |
61 with AddVisualGear(X, Y, vgtSmallDamageTag)^ do |
62 begin |
62 begin |
63 Gear:= AddVisualGear(X, Y, vgtSmallDamageTag); |
63 str(Damage, s); |
64 if Gear <> nil then |
64 Tex:= RenderStringTex(s, Color, fntSmall); |
65 with Gear^ do |
65 end; |
66 begin |
|
67 str(Damage, s); |
|
68 Tex:= RenderStringTex(s, Color, fntSmall); |
|
69 end |
|
70 end |
66 end; |
71 end; |
67 |
72 |
68 |
73 |
69 // ================================================================== |
74 // ================================================================== |
70 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
75 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |