--- a/hedgewars/GSHandlers.inc	Wed Jun 05 15:42:00 2013 +0200
+++ b/hedgewars/GSHandlers.inc	Wed Jun 05 16:28:30 2013 +0200
@@ -5135,7 +5135,7 @@
     HHGear, iter: PGear;
     landRect: TSDL_Rect;
     ndX, ndY: hwFloat;
-    i, j, t, gX, gY: LongInt;
+    i, t, gX, gY: LongInt;
     hogs: PGearArrayS;
     vg: PVisualGear;
 begin

--- a/hedgewars/uAIAmmoTests.pas	Wed Jun 05 15:42:00 2013 +0200
+++ b/hedgewars/uAIAmmoTests.pas	Wed Jun 05 16:28:30 2013 +0200
@@ -20,7 +20,7 @@
 
 unit uAIAmmoTests;
 interface
-uses SDLh, uConsts, uFloat, uTypes, uAIMisc;
+uses uConsts, uFloat, uTypes, uAIMisc;
 const
     amtest_Rare     = $00000001; // check only several positions
     amtest_NoTarget = $00000002; // each pos, but no targetting
@@ -681,7 +681,7 @@
 function TestDesertEagle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt;
 var Vx, Vy, x, y, t: real;
     d: Longword;
-    fallDmg, valueResult: LongInt;
+    {fallDmg, }valueResult: LongInt;
 begin
 if (Level > 4) or (Targ.Score < 0) or (Targ.Kind <> gtHedgehog) then exit(BadTurn);
 Level:= Level; // avoid compiler hint
@@ -724,7 +724,7 @@
 function TestSniperRifle(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt;
 var Vx, Vy, x, y, t, dmg: real;
     d: Longword;
-    fallDmg: LongInt;
+    //fallDmg: LongInt;
 begin
 if (Level > 3) or (Targ.Score < 0) or (Targ.Kind <> gtHedgehog) then exit(BadTurn);
 Level:= Level; // avoid compiler hint

--- a/hedgewars/uAIMisc.pas	Wed Jun 05 15:42:00 2013 +0200
+++ b/hedgewars/uAIMisc.pas	Wed Jun 05 16:28:30 2013 +0200
@@ -113,7 +113,7 @@
 Targets.reset:= false;
 end;
 procedure FillTargets;
-var i, t: Longword;
+var //i, t: Longword;
     f, e: LongInt;
     Gear: PGear;
 begin

--- a/hedgewars/uTeams.pas	Wed Jun 05 15:42:00 2013 +0200
+++ b/hedgewars/uTeams.pas	Wed Jun 05 16:28:30 2013 +0200
@@ -110,7 +110,7 @@
 end;
 
 procedure SwitchHedgehog;
-var c, i, t, j: LongWord;
+var c, i, t: LongWord;
     PrevHH, PrevTeam : LongWord;
 begin
 TargetPoint.X:= NoPointX;