--- a/hedgewars/GSHandlers.inc	Fri Sep 28 00:39:20 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Fri Sep 28 00:51:04 2012 +0400
@@ -2646,11 +2646,7 @@
 
 
 procedure doStepCakeWork(Gear: PGear);
-
-const dirs: array[0..3] of TPoint =   ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0));
 var
-    xx, yy, xxn, yyn: LongInt;
-    dA: LongInt;
     tdx, tdy: hwFloat;
 begin
     AllInactive := false;
@@ -5032,8 +5028,8 @@
 A frozen hog stays frozen for a certain number of turns. Each turn the frozen overlay becomes fainter, until it fades and the hog animates normally again.
 *)
 procedure doStepIceGun(Gear: PGear);
-var 
-    HHGear, iter: PGear;
+var
+    HHGear: PGear;
     ndX, ndY: hwFloat;
     i, t, gX, gY: LongInt;
     hogs: PGearArrayS;

--- a/hedgewars/uAIAmmoTests.pas	Fri Sep 28 00:39:20 2012 +0400
+++ b/hedgewars/uAIAmmoTests.pas	Fri Sep 28 00:51:04 2012 +0400
@@ -227,7 +227,7 @@
         EX:= trunc(x);
         EY:= trunc(y);
 
-        value:= RateShove(Me, trunc(x), trunc(y), 5, 1, trunc((abs(dX)+abs(dY))*20), -dX, -dY, afTrackFall);
+        value:= RateShove(trunc(x), trunc(y), 5, 1, trunc((abs(dX)+abs(dY))*20), -dX, -dY, afTrackFall);
         if value = 0 then
             value:= - Metric(Targ.X, Targ.Y, EX, EY) div 64;
 
@@ -649,7 +649,7 @@
 function TestSniperRifle(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 var Vx, Vy, x, y, t, dmg, dmgMod: real;
     d: Longword;
-    fallDmg, valueResult: LongInt;
+    fallDmg: LongInt;
 begin
 if Level > 3 then exit(BadTurn);
 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
@@ -701,6 +701,8 @@
     x, y, trackFall: LongInt;
     dx, dy: real;
 begin
+    Targ:= Targ; // avoid compiler hint
+
     if Level < 3 then trackFall:= afTrackFall
     else trackFall:= 0;
 
@@ -718,10 +720,10 @@
         dx:= sin(a / cMaxAngle * pi) * 0.5;
         dy:= cos(a / cMaxAngle * pi) * 0.5;
 
-        v1:= RateShove(Me, x - 10, y + 2
+        v1:= RateShove(x - 10, y + 2
                 , 32, 30, 115
                 , -dx, -dy, trackFall);
-        v2:= RateShove(Me, x + 10, y + 2
+        v2:= RateShove(x + 10, y + 2
                 , 32, 30, 115
                 , dx, -dy, trackFall);
         if (v1 > valueResult) or (v2 > valueResult) then
@@ -750,6 +752,8 @@
 var valueResult, v1, v2, i: LongInt;
     x, y, trackFall: LongInt;
 begin
+    Targ:= Targ; // avoid compiler hint
+
     if Level = 1 then trackFall:= afTrackFall
     else trackFall:= 0;
 
@@ -762,11 +766,11 @@
     v1:= 0;
     for i:= 0 to 8 do
         begin
-        v1:= v1 + RateShove(Me, x - 5, y - 10 * i
+        v1:= v1 + RateShove(x - 5, y - 10 * i
                 , 19, 30, 40
                 , -0.45, -0.9, trackFall or afSetSkip);
         end;
-    v1:= v1 + RateShove(Me, x - 5, y - 90
+    v1:= v1 + RateShove(x - 5, y - 90
             , 19, 30, 40
             , -0.45, -0.9, trackFall);
 
@@ -775,11 +779,11 @@
     v2:= 0;
     for i:= 0 to 8 do
         begin
-        v2:= v2 + RateShove(Me, x + 5, y - 10 * i
+        v2:= v2 + RateShove(x + 5, y - 10 * i
                 , 19, 30, 40
                 , 0.45, -0.9, trackFall or afSetSkip);
         end;
-    v2:= v2 + RateShove(Me, x + 5, y - 90
+    v2:= v2 + RateShove(x + 5, y - 90
             , 19, 30, 40
             , 0.45, -0.9, trackFall);
 
@@ -806,6 +810,8 @@
 var valueResult, v1, v2: LongInt;
     x, y, trackFall: LongInt;
 begin
+    Targ:= Targ; // avoid compiler hint
+
     if Level = 1 then trackFall:= afTrackFall
     else trackFall:= 0;
 
@@ -819,19 +825,19 @@
     {first RateShove checks farthermost of two whip's AmmoShove attacks 
     to encourage distant attacks (damaged hog is excluded from view of second 
     RateShove call)}
-    v1:= RateShove(Me, x - 13, y
+    v1:= RateShove(x - 13, y
             , 30, 30, 25
             , -1, -0.8, trackFall or afSetSkip);
     v1:= v1 +
-        RateShove(Me, x - 2, y
+        RateShove(x - 2, y
             , 30, 30, 25
             , -1, -0.8, trackFall);
     // now try opposite direction
-    v2:= RateShove(Me, x + 13, y
+    v2:= RateShove(x + 13, y
             , 30, 30, 25
             , 1, -0.8, trackFall or afSetSkip);
     v2:= v2 +
-        RateShove(Me, x + 2, y
+        RateShove(x + 2, y
             , 30, 30, 25
             , 1, -0.8, trackFall);
 
@@ -898,7 +904,7 @@
     for i:= 0 to 512 div step - 2 do
         begin
         valueResult:= valueResult + 
-            RateShove(Me, trunc(x), trunc(y)
+            RateShove(trunc(x), trunc(y)
                 , 30, 30, 25
                 , cx, -0.9, trackFall or afSetSkip);
                 
@@ -910,14 +916,14 @@
         x:= hwFloat2Float(Me^.X);
         y:= hwFloat2Float(Me^.Y);
         tx:= trunc(x);
-        v:= RateShove(Me, tx, trunc(y)
+        v:= RateShove(tx, trunc(y)
                 , 30, 30, 25
                 , -cx, -0.9, trackFall);
         for i:= 1 to 512 div step - 2 do
             begin
             y:= y + dy;
             v:= v + 
-                RateShove(Me, tx, trunc(y)
+                RateShove(tx, trunc(y)
                     , 30, 30, 25
                     , -cx, -0.9, trackFall or afSetSkip);
             end
@@ -927,12 +933,12 @@
         ap.Angle:= -2048;
         valueResult:= v
         end;
-        
-    v:= RateShove(Me, trunc(x), trunc(y)
+
+    v:= RateShove(trunc(x), trunc(y)
             , 30, 30, 25
             , cx, -0.9, trackFall);
     valueResult:= valueResult + v - KillScore * friendlyfactor div 100 * 1024;
-    
+
     if v < 65536 then
         inc(valueResult, RateExplosion(Me, trunc(x), trunc(y), 30));
 
@@ -943,6 +949,8 @@
 var rate: LongInt;
 begin
 Level:= Level; // avoid compiler hint
+Targ:= Targ;
+
 ap.ExplR:= 0;
 ap.Time:= 0;
 ap.Power:= 1;
@@ -1090,11 +1098,13 @@
 
 function TestCake(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 var valueResult, v1, v2: LongInt;
-    x, y, trackFall: LongInt;
     cake: TGear;
 begin
+    Targ:= Targ; // avoid compiler hint
+
     if (Level > 2) then
         exit(BadTurn);
+
     ap.ExplR:= 0;
     ap.Time:= 0;
     ap.Power:= BadTurn; // use it as max score value in checkCakeWalk

--- a/hedgewars/uAIMisc.pas	Fri Sep 28 00:39:20 2012 +0400
+++ b/hedgewars/uAIMisc.pas	Fri Sep 28 00:51:04 2012 +0400
@@ -66,7 +66,7 @@
 
 function  RateExplosion(Me: PGear; x, y, r: LongInt): LongInt; inline;
 function  RateExplosion(Me: PGear; x, y, r: LongInt; Flags: LongWord): LongInt;
-function  RateShove(Me: PGear; x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
+function  RateShove(x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
 function  RateShotgun(Me: PGear; gdX, gdY: real; x, y: LongInt): LongInt;
 function  RateHammer(Me: PGear): LongInt;
 
@@ -88,9 +88,9 @@
 
 const KillScore = 200;
 var friendlyfactor: LongInt = 300;
-       
+
 implementation
-uses uCollisions, uVariables, uUtils, uDebug, uLandTexture;
+uses uCollisions, uVariables, uUtils, uLandTexture;
 
 var 
     KnownExplosion: record
@@ -364,9 +364,9 @@
 end;
 
 function TraceShoveFall(x, y, dX, dY: Real): LongInt;
-var dmg, v: LongInt;
+var dmg: LongInt;
 begin
-v:= random($FFFFFFFF);
+//v:= random($FFFFFFFF);
     while true do
     begin
         x:= x + dX;
@@ -457,7 +457,7 @@
 RateExplosion:= rate;
 end;
 
-function RateShove(Me: PGear; x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
+function RateShove(x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
 var i, fallDmg, dmg, rate: LongInt;
     dX, dY, dmgMod: real;
 begin

--- a/hedgewars/uStore.pas	Fri Sep 28 00:39:20 2012 +0400
+++ b/hedgewars/uStore.pas	Fri Sep 28 00:51:04 2012 +0400
@@ -101,7 +101,6 @@
 var t: LongInt;
     tmpsurf, texsurf: PSDL_Surface;
     Color, i: Longword;
-    s: shortstring;
 begin
 tmpsurf:= LoadDataImage(ptGraphics, cCHFileName, ifAlpha or ifCritical);