hedgewars/GSHandlers.inc
changeset 4277 d699d23a6e1d
parent 4275 24137d2be956
child 4279 b697a26ed538
equal deleted inserted replaced
4275:24137d2be956 4277:d699d23a6e1d
   316     end;
   316     end;
   317 
   317 
   318     if Gear^.AdvBounce > 1 then dec(Gear^.AdvBounce);
   318     if Gear^.AdvBounce > 1 then dec(Gear^.AdvBounce);
   319 
   319 
   320     if isFalling then Gear^.dY := Gear^.dY + cGravity;
   320     if isFalling then Gear^.dY := Gear^.dY + cGravity;
   321     if (GameFlags and gfMoreWind) <> 0 then Gear^.dX := Gear^.dX + cWindSpeed * _4 / HHGear^.Radius;
   321     if (GameFlags and gfMoreWind) <> 0 then Gear^.dX := Gear^.dX + cWindSpeed * _4 / Gear^.Radius;
   322 
   322 
   323     Gear^.X := Gear^.X + Gear^.dX;
   323     Gear^.X := Gear^.X + Gear^.dX;
   324     Gear^.Y := Gear^.Y + Gear^.dY;
   324     Gear^.Y := Gear^.Y + Gear^.dY;
   325     CheckGearDrowning(Gear);
   325     CheckGearDrowning(Gear);
   326     //if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and
   326     //if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and