hedgewars/uTeams.pas
changeset 3407 dcc129c4352e
parent 3381 f8800c44b3de
child 3663 8c28abf427f5
--- a/hedgewars/uTeams.pas	Sun May 02 20:30:23 2010 +0000
+++ b/hedgewars/uTeams.pas	Sun May 02 22:00:50 2010 +0000
@@ -20,7 +20,7 @@
 
 unit uTeams;
 interface
-uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, uLand, GLunit, uSound;
+uses uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound;
 
 type PHHAmmo = ^THHAmmo;
     THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
@@ -42,7 +42,7 @@
             Team: PTeam;
             MultiShootAttacks: Longword;
             visStepPos: LongWord;
-            BotLevel  : LongWord; // 0 - Human player
+            BotLevel  : Byte; // 0 - Human player
             HatVisibility: GLfloat;
             stats: TStatistics;
             Hat: shortstring;
@@ -114,7 +114,7 @@
 function GetTeamStatString(p: PTeam): shortstring;
 
 implementation
-uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat;
+uses uMisc, uWorld, uLocale, uAmmos, uChat;
 const MaxTeamHealth: LongInt = 0;
 
 function CheckForWin: boolean;