--- a/hedgewars/GSHandlers.inc	Sat Aug 18 15:16:03 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Sat Aug 18 20:53:49 2007 +0000
@@ -1188,7 +1188,6 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepSwitcherWork(Gear: PGear);
 var HHGear: PGear;
-    th: LongInt;
     Msg, State: Longword;
 begin
 AllInactive:= false;
@@ -1218,7 +1217,6 @@
    RemoveGearFromList(HHGear);
    InsertGearToList(HHGear);
 
-   th:= CurrentTeam^.CurrHedgehog;
    repeat
      CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);
    until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);

--- a/hedgewars/uSound.pas	Sat Aug 18 15:16:03 2007 +0000
+++ b/hedgewars/uSound.pas	Sat Aug 18 20:53:49 2007 +0000
@@ -97,7 +97,9 @@
 end;
 
 procedure PlayMusic;
+{$IFDEF HAVE_MUSIC}
 var s: string;
+{$ENDIF}
 begin
 {$IFDEF HAVE_MUSIC}
 if not isSoundEnabled then exit;
@@ -132,7 +134,9 @@
 end;
 
 procedure InitPlaylistChunk(seed: LongWord);
+{$IFDEF HAVE_MUSIC}
 var i, t, nt: Longword;
+{$ENDIF}
 begin
 {$IFDEF HAVE_MUSIC}
 for i:= 0 to Pred(cPlayListLength) do

--- a/hedgewars/uTeams.pas	Sat Aug 18 15:16:03 2007 +0000
+++ b/hedgewars/uTeams.pas	Sat Aug 18 20:53:49 2007 +0000
@@ -94,8 +94,7 @@
 procedure FreeTeamsList; forward;
 
 function CheckForWin: boolean;
-var team: PTeam;
-    AliveClan: PClan;
+var AliveClan: PClan;
     s: shortstring;
     t, AliveCount: LongInt;
 begin
@@ -133,7 +132,6 @@
 
 procedure SwitchHedgehog;
 var c: LongWord;
-    t: LongWord;
     g: PGear;
     PrevHH, PrevTeam: LongWord;
 begin