# HG changeset patch
# User unc0rr
# Date 1232391856 0
# Node ID a9f2d8564128a636801e6c6ad5a897d4341b8a0b
# Parent  bddbb2400c304bc44a229612986e5520cc10d517
Fix engine crash when using alt damage option

diff -r bddbb2400c30 -r a9f2d8564128 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Mon Jan 19 18:50:23 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Mon Jan 19 19:04:16 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;