diff -r 1493f697d1bb -r 3c0028245ff3 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -609,7 +609,7 @@
                                 hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx,
                                 Round(hwRound(Gear^.Y) -
                                 Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy, 0,
-                                hwSign(Gear^.dX) * Gear^.Angle * 180 / cMaxAngle)
+                                hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle)
         end;
 end;
 
@@ -859,11 +859,9 @@
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);
 var t: PGearArray;
     i: LongInt;
-    hh: PHedgehog;
 begin
 t:= CheckGearsCollision(Ammo);
 i:= t^.Count;
-hh:= Ammo^.Hedgehog;
 while i > 0 do
     begin
     dec(i);