hedgewars/uTeams.pas
changeset 1251 1f545d9a10ca
parent 1242 4aca5f7b2504
child 1299 fc801a832e0e
--- a/hedgewars/uTeams.pas	Wed Sep 10 14:37:27 2008 +0000
+++ b/hedgewars/uTeams.pas	Thu Sep 11 15:30:04 2008 +0000
@@ -18,7 +18,7 @@
 
 unit uTeams;
 interface
-uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats;
+uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, GL;
 {$INCLUDE options.inc}
 
 type PHHAmmo = ^THHAmmo;
@@ -40,6 +40,7 @@
                  AttacksNum: Longword;
                  visStepPos: LongWord;
                  BotLevel  : LongWord; // 0 - Human player
+                 HatVisibility: GLfloat;
                  stats: TStatistics;
                  Hat: String;
                  end;