diff -r 7de85783b823 -r 4a4f21070479 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Nov 11 16:53:16 2012 +0100
+++ b/hedgewars/uGears.pas	Sun Nov 11 17:15:19 2012 +0100
@@ -54,7 +54,6 @@
 function  GearByUID(uid : Longword) : PGear;
 procedure doStepDrowningGear(Gear: PGear);
 
-
 implementation
 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,
     uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,
@@ -600,6 +599,7 @@
 var i,rx, ry: Longword;
     rdx, rdy: hwFloat;
     Gear: PGear;
+    temp: Longword;
 begin
 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);
 
@@ -643,6 +643,7 @@
 
 if (GameFlags and gfArtillery) <> 0 then
     cArtillery:= true;
+
 for i:= GetRandom(10)+30 downto 0 do
     begin
     rx:= GetRandom(rightX-leftX)+leftX;
@@ -931,7 +932,7 @@
 var GearsNearArray : TPGearArray;
 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): PGearArrayS;
 var
-    t: PGear;
+    t  : PGear;
     s: Longword;
 begin
     r:= r*r;
@@ -948,7 +949,7 @@
             GearsNearArray[s - 1] := t;
             end;
         t := t^.NextGear;
-    end;
+	end;
 
     GearsNear.size:= s;
     GearsNear.ar:= @GearsNearArray