--- a/hedgewars/GSHandlers.inc	Sun Jul 01 20:16:19 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Jul 02 16:21:07 2007 +0000
@@ -1165,7 +1165,6 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepSwitcherWork(Gear: PGear);
 var HHGear: PGear;
-    Team: PTeam;
     th: LongInt;
     Msg, State: Longword;
 begin

--- a/hedgewars/HHHandlers.inc	Sun Jul 01 20:16:19 2007 +0000
+++ b/hedgewars/HHHandlers.inc	Mon Jul 02 16:21:07 2007 +0000
@@ -253,10 +253,8 @@
 procedure doStepHedgehog(Gear: PGear); forward;
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepHedgehogMoving(Gear: PGear);
-var prevState: Longword;
-    isFalling: boolean;
+var isFalling: boolean;
 begin
-prevState:= Gear^.State;
 isFalling:= not TestCollisionYKick(Gear, 1);
 if isFalling then
    begin

--- a/hedgewars/uAI.pas	Sun Jul 01 20:16:19 2007 +0000
+++ b/hedgewars/uAI.pas	Mon Jul 02 16:21:07 2007 +0000
@@ -58,7 +58,7 @@
 end;
 
 procedure TestAmmos(var Actions: TActions; Me: PGear; isMoved: boolean);
-var Time, BotLevel: Longword;
+var BotLevel: Longword;
     ap: TAttackParams;
     Score, i: LongInt;
     a, aa: TAmmoType;

--- a/hedgewars/uAmmos.pas	Sun Jul 01 20:16:19 2007 +0000
+++ b/hedgewars/uAmmos.pas	Mon Jul 02 16:21:07 2007 +0000
@@ -130,9 +130,7 @@
 
 procedure OnUsedAmmo(var Hedgehog: THedgehog);
 var s, a: Longword;
-    Ammo: PHHAmmo;
 begin
-Ammo:= Hedgehog.Ammo;
 with Hedgehog do
      begin
      if CurAmmoGear = nil then begin s:= CurSlot; a:= CurAmmo end