# HG changeset patch
# User unc0rr
# Date 1232391884 0
# Node ID 8c3e71880f492c61086c2ca2541b52f82a5957b0
# Parent  fee68e3a303998fdfcc69f74775dc84a36f587fb
Fix in 0.9.9 branch too

diff -r fee68e3a3039 -r 8c3e71880f49 hedgewars/uVisualGears.pas
--- 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;