hedgewars/uTeams.pas
changeset 1251 1f545d9a10ca
parent 1242 4aca5f7b2504
child 1299 fc801a832e0e
equal deleted inserted replaced
1250:180b044f09b7 1251:1f545d9a10ca
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    17  *)
    17  *)
    18 
    18 
    19 unit uTeams;
    19 unit uTeams;
    20 interface
    20 interface
    21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats;
    21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, GL;
    22 {$INCLUDE options.inc}
    22 {$INCLUDE options.inc}
    23 
    23 
    24 type PHHAmmo = ^THHAmmo;
    24 type PHHAmmo = ^THHAmmo;
    25      THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
    25      THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
    26 
    26 
    38                  CurSlot, CurAmmo: LongWord;
    38                  CurSlot, CurAmmo: LongWord;
    39                  Team: PTeam;
    39                  Team: PTeam;
    40                  AttacksNum: Longword;
    40                  AttacksNum: Longword;
    41                  visStepPos: LongWord;
    41                  visStepPos: LongWord;
    42                  BotLevel  : LongWord; // 0 - Human player
    42                  BotLevel  : LongWord; // 0 - Human player
       
    43                  HatVisibility: GLfloat;
    43                  stats: TStatistics;
    44                  stats: TStatistics;
    44                  Hat: String;
    45                  Hat: String;
    45                  end;
    46                  end;
    46      TTeam = record
    47      TTeam = record
    47              Clan: PClan;
    48              Clan: PClan;