--- 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