--- a/hedgewars/uConsts.pas	Fri Jul 04 14:40:52 2008 +0000
+++ b/hedgewars/uConsts.pas	Fri Jul 04 19:25:00 2008 +0000
@@ -57,7 +57,7 @@
                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
                    gtWhip, gtKamikaze);
 
-     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart);
+     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtFire);
 
      TGearsType = set of TGearType;