diff -r ed2b9c7fb260 -r a79784328c03 hedgewars/VGSHandlers.inc
--- a/hedgewars/VGSHandlers.inc	Mon Aug 02 00:48:15 2010 +0200
+++ b/hedgewars/VGSHandlers.inc	Mon Aug 02 01:07:51 2010 +0200
@@ -114,9 +114,11 @@
 Gear^.X:= Gear^.X + Gear^.dX * Steps;
 
 Gear^.Y:= Gear^.Y + Gear^.dY * Steps;
-Gear^.dY:= Gear^.dY + cGravityf * Steps;
+Gear^.dY:= Gear^.dY + cGravityf * Steps / 2;
 
-Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle;
+Gear^.Angle:= Gear^.Angle + (Gear^.Frame + 1) * Steps / 10;
+while Gear^.Angle > cMaxAngle do
+    Gear^.Angle:= Gear^.Angle - cMaxAngle;
 
 if Gear^.FrameTicks <= Steps then
     DeleteVisualGear(Gear)