# HG changeset patch
# User nemo
# Date 1424184622 18000
# Node ID 9867dd60a66a8304272cfede13bcbb1c6472f259
# Parent  2b717f687c72271fb1ae3e1e03151c9f3c2f9086
bit more friction. remove gstSubmersible clearing. was for the old "sea" thing that is totally gone now.  As a general attribute, better to let other stuff clear it as needed.

diff -r 2b717f687c72 -r 9867dd60a66a hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Mon Feb 16 13:58:32 2015 -0500
+++ b/hedgewars/uGearsList.pas	Tue Feb 17 09:50:22 2015 -0500
@@ -371,7 +371,7 @@
                 gear^.Density:= _1;
                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
-                gear^.Pos:= cMaxWindSpeed.QWordValue; // air friction. slows it down when not hitting stuff
+                gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff
                 gear^.Karma:= 30; // damage
                 if gear^.Timer = 0 then
                     begin
diff -r 2b717f687c72 -r 9867dd60a66a hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Mon Feb 16 13:58:32 2015 -0500
+++ b/hedgewars/uGearsUtils.pas	Tue Feb 17 09:50:22 2015 -0500
@@ -714,11 +714,7 @@
             ScriptCall('onGearWaterSkip', Gear^.uid);
         end
     else
-        begin
-        if (not ((Gear^.Kind = gtJetpack) or (Gear^.Kind = gtBee))) then
-            Gear^.State:= (Gear^.State and (not gstSubmersible));  // making it temporary for most gears is more attractive I think
         CheckGearDrowning := false
-        end
 end;