more advbounce flagging
authornemo
Mon, 23 Dec 2013 12:22:55 -0500
changeset 9825 de0da12b7d0e
parent 9824 136e0708eda2
child 9826 abdf85c1afe9
more advbounce flagging
hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Mon Dec 23 00:52:02 2013 -0500
+++ b/hedgewars/uGearsList.pas	Mon Dec 23 12:22:55 2013 -0500
@@ -221,7 +221,8 @@
                     gear^.Timer:= 3000
                 end;
   gtMelonPiece: begin
-                gear^.Density:= _2;
+                gear^.AdvBounce:= 1;
+                gear^.Density:= _2
                 end;
     gtHedgehog: begin
                 gear^.AdvBounce:= 1;
@@ -492,13 +493,14 @@
                 gear^.State:= Gear^.State or gstSubmersible
                 end;
      gtMolotov: begin
+                gear^.AdvBounce:= 1;
                 gear^.Radius:= 6;
-                gear^.Density:= _2;
+                gear^.Density:= _2
                 end;
        gtBirdy: begin
                 gear^.Radius:= 16; // todo: check
                 gear^.Health := 2000;
-                gear^.FlightTime := 2;
+                gear^.FlightTime := 2
                 end;
          gtEgg: begin
                 gear^.AdvBounce:= 1;
@@ -512,7 +514,6 @@
       gtPortal: begin
                 gear^.ImpactSound:= sndMelonImpact;
                 gear^.nImpactSounds:= 1;
-                gear^.AdvBounce:= 0;
                 gear^.Radius:= 17;
                 // set color
                 gear^.Tag:= 2 * gear^.Timer;
@@ -552,7 +553,6 @@
                 gear^.Tag := 47;
                 end;
   gtNapalmBomb: begin
-                gear^.AdvBounce:= 1;
                 gear^.Elasticity:= _0_8;
                 gear^.Friction:= _0_8;
                 if gear^.Timer = 0 then gear^.Timer:= 1000;