53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
53 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
54 var Gear: PVisualGear; |
54 var Gear: PVisualGear; |
55 begin |
55 begin |
56 if cAltDamage then |
56 if cAltDamage then |
57 begin |
57 begin |
58 Gear:= AddVisualGear(X, Y, vgtSmallDamageTag); |
58 Gear:= AddVisualGear(X, Y, vgtSmallDamageTag, Damage); |
59 if Gear <> nil then |
59 if Gear <> nil then |
60 with Gear^ do |
60 with Gear^ do |
61 Tex:= RenderStringTex(ansistring(inttostr(Damage)), Color, fntSmall); |
61 Tex:= RenderStringTex(ansistring(inttostr(Damage)), Color, fntSmall); |
62 end |
62 end |
63 end; |
63 end; |
264 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex) |
264 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex) |
265 end |
265 end |
266 else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and ((Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Team = CurrentTeam))) or (Gear^.State = 2)) then |
266 else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and ((Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Team = CurrentTeam))) or (Gear^.State = 2)) then |
267 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex); |
267 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex); |
268 vgtSmallDamageTag: if Gear^.Tex <> nil then |
268 vgtSmallDamageTag: if Gear^.Tex <> nil then |
269 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex); |
269 begin |
|
270 if Gear^.Frame = 0 then |
|
271 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex) |
|
272 else |
|
273 begin |
|
274 SetScale(cDefaultZoomLevel); |
|
275 DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex); |
|
276 SetScale(zoom); |
|
277 end |
|
278 end; |
270 vgtHealthTag: if Gear^.Tex <> nil then |
279 vgtHealthTag: if Gear^.Tex <> nil then |
271 begin |
280 begin |
272 if Gear^.Frame = 0 then |
281 if Gear^.Frame = 0 then |
273 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex) |
282 DrawTextureCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex) |
274 else |
283 else |