--- a/hedgewars/uConsts.pas	Fri Mar 07 14:47:03 2008 +0000
+++ b/hedgewars/uConsts.pas	Fri Mar 07 17:43:05 2008 +0000
@@ -51,6 +51,8 @@
                    gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget);
 
+     TVisualGearType = (vgtFlake);
+
      TGearsType = set of TGearType;
 
      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,