hedgewars/uVisualGears.pas
branch0.9.9
changeset 1730 8c3e71880f49
parent 1642 177b440773de
child 1753 2ccba26f1aa4
--- a/hedgewars/uVisualGears.pas	Mon Jan 19 18:53:04 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Mon Jan 19 19:04:44 2009 +0000
@@ -56,13 +56,18 @@
 
 procedure AddDamageTag(X, Y, Damage, Color: LongWord);
 var s: shortstring;
+	Gear: PVisualGear;
 begin
 if cAltDamage then
-	with AddVisualGear(X, Y, vgtSmallDamageTag)^ do
-		begin
-		str(Damage, s);
-		Tex:= RenderStringTex(s, Color, fntSmall);
-		end;
+	begin
+	Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
+	if Gear <> nil then
+		with Gear^ do
+			begin
+			str(Damage, s);
+			Tex:= RenderStringTex(s, Color, fntSmall);
+			end
+	end
 end;