# HG changeset patch
# User unc0rr
# Date 1183393267 0
# Node ID f527450337c184ebe8e1f2d957f00e2c85b127e5
# Parent  9e068d2398ca6f8e6487ee64a26aeae8158003ee
Fix some warnings

diff -r 9e068d2398ca -r f527450337c1 hedgewars/GSHandlers.inc
--- 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
diff -r 9e068d2398ca -r f527450337c1 hedgewars/HHHandlers.inc
--- 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
diff -r 9e068d2398ca -r f527450337c1 hedgewars/uAI.pas
--- 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;
diff -r 9e068d2398ca -r f527450337c1 hedgewars/uAmmos.pas
--- 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