--- a/hedgewars/uGears.pas	Fri Mar 26 00:53:31 2010 +0000
+++ b/hedgewars/uGears.pas	Fri Mar 26 03:04:19 2010 +0000
@@ -29,7 +29,7 @@
     TGear = record
             NextGear, PrevGear: PGear;
             Active: Boolean;
-            AdvBounce: Boolean;
+            AdvBounce: Longword;
             Invulnerable: Boolean;
             RenderTimer: Boolean;
             Ammo : PAmmo;
@@ -256,7 +256,7 @@
 case Kind of
    gtAmmo_Bomb,
  gtClusterBomb: begin
-                gear^.AdvBounce:= true;
+                gear^.AdvBounce:= 1;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_6;
                 gear^.Friction:= _0_96;
@@ -264,7 +264,7 @@
                 if gear^.Timer = 0 then gear^.Timer:= 3000
                 end;
   gtWatermelon: begin
-                gear^.AdvBounce:= true;
+                gear^.AdvBounce:= 1;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_8;
                 gear^.Friction:= _0_995;
@@ -272,7 +272,7 @@
                 if gear^.Timer = 0 then gear^.Timer:= 3000
                 end;
     gtHedgehog: begin
-                gear^.AdvBounce:= true;
+                gear^.AdvBounce:= 1;
                 gear^.Radius:= cHHRadius;
                 gear^.Elasticity:= _0_35;
                 gear^.Friction:= _0_999;
@@ -408,7 +408,7 @@
                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
                 end;
  gtHellishBomb: begin
-                gear^.AdvBounce:= true;
+                gear^.AdvBounce:= 1;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_5;
                 gear^.Friction:= _0_96;
@@ -420,7 +420,7 @@
                 gear^.Radius:= 4
                 end;
         gtBall: begin
-                gear^.AdvBounce:= true;
+                gear^.AdvBounce:= 1;
                 gear^.Radius:= 5;
                 gear^.Tag:= random(8);
                 gear^.Timer:= 5000;
@@ -453,7 +453,6 @@
                 gear^.Angle:= random(360);
                 end;
 		 gtEgg: begin 
-                gear^.AdvBounce:= true;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_6;
                 gear^.Friction:= _0_96;