hedgewars/uGearsRender.pas
changeset 5935 c89d5065d956
parent 5873 4f2d8ce3732b
child 6023 a28be05b20bc
child 6138 5cd55ca715b9
--- a/hedgewars/uGearsRender.pas	Fri Sep 16 14:04:21 2011 -0400
+++ b/hedgewars/uGearsRender.pas	Fri Sep 16 14:43:04 2011 -0400
@@ -328,7 +328,7 @@
         hx:= ox + 8 * sign;
         hy:= oy - 2;
         aangle:= Gear^.Angle * 180 / cMaxAngle - 90;
-        if CurAmmoGear <> nil then
+        if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind <> gtTardis) then
         begin
             case CurAmmoGear^.Kind of
                 gtShotgunShot: begin