--- a/hedgewars/uTeams.pas	Sat May 09 11:57:47 2009 +0000
+++ b/hedgewars/uTeams.pas	Mon May 11 18:56:55 2009 +0000
@@ -18,7 +18,7 @@
 
 unit uTeams;
 interface
-uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, 
+uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, 
 {$IFDEF IPHONE}
 	gles11,
 {$ELSE}
@@ -37,7 +37,7 @@
 	THedgehog = record
 			Name: string[MAXNAMELEN];
 			Gear: PGear;
-			SpeechGear: PGear;
+			SpeechGear: PVisualGear;
 			NameTagTex,
 			HealthTagTex,
 			HatTex: PTexture;
@@ -107,7 +107,7 @@
 procedure TeamGoneEffect(var Team: TTeam);
 
 implementation
-uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat, uVisualGears;
+uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat;
 const MaxTeamHealth: LongInt = 0;
 
 procedure FreeTeamsList; forward;