hedgewars/uGears.pas
changeset 2989 b49d87499398
parent 2987 3abaf01b4ce3
child 2990 b62e567f17b9
--- a/hedgewars/uGears.pas	Sun Mar 14 16:56:02 2010 +0000
+++ b/hedgewars/uGears.pas	Sun Mar 14 17:04:36 2010 +0000
@@ -29,6 +29,7 @@
     TGear = record
             NextGear, PrevGear: PGear;
             Active: Boolean;
+            AdvBounce: Boolean;
             Invulnerable: Boolean;
             RenderTimer: Boolean;
             Ammo : PAmmo;
@@ -254,6 +255,7 @@
 case Kind of
    gtAmmo_Bomb,
  gtClusterBomb: begin
+                gear^.AdvBounce:= true;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_6;
                 gear^.Friction:= _0_96;
@@ -261,6 +263,7 @@
                 if gear^.Timer = 0 then gear^.Timer:= 3000
                 end;
   gtWatermelon: begin
+                gear^.AdvBounce:= true;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_8;
                 gear^.Friction:= _0_995;
@@ -268,6 +271,7 @@
                 if gear^.Timer = 0 then gear^.Timer:= 3000
                 end;
     gtHedgehog: begin
+                gear^.AdvBounce:= true;
                 gear^.Radius:= cHHRadius;
                 gear^.Elasticity:= _0_35;
                 gear^.Friction:= _0_999;
@@ -402,6 +406,7 @@
                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
                 end;
  gtHellishBomb: begin
+                gear^.AdvBounce:= true;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_5;
                 gear^.Friction:= _0_96;
@@ -413,6 +418,7 @@
                 gear^.Radius:= 4
                 end;
         gtBall: begin
+                gear^.AdvBounce:= true;
                 gear^.Radius:= 5;
                 gear^.Tag:= random(8);
                 gear^.Timer:= 5000;