--- a/hedgewars/uConsts.pas	Mon Jun 30 14:59:11 2008 +0000
+++ b/hedgewars/uConsts.pas	Mon Jun 30 17:36:55 2008 +0000
@@ -57,7 +57,7 @@
                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
                    gtWhip, gtKamikaze);
 
-     TVisualGearType = (vgtFlake, vgtCloud);
+     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart);
 
      TGearsType = set of TGearType;