20 

    20 

    21 unit uTeams;

    21 unit uTeams;

    22 interface

    22 interface

    23 uses uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound;

    23 uses uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound;

    24 

    24 

    26     THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;

    27     THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;

    27 

    28 

    28     PHedgehog = ^THedgehog;

    29     PHedgehog = ^THedgehog;

    29     PTeam     = ^TTeam;

    30     PTeam     = ^TTeam;

    30     PClan     = ^TClan;

    31     PClan     = ^TClan;

    35             SpeechGear: PVisualGear;

    36             SpeechGear: PVisualGear;

    36             NameTagTex,

    37             NameTagTex,

    37             HealthTagTex,

    38             HealthTagTex,

    38             HatTex: PTexture;

    39             HatTex: PTexture;

    39             Ammo: PHHAmmo;

    40             Ammo: PHHAmmo;

    40             AmmoStore: Longword;

    42             AmmoStore: Longword;

    42             Team: PTeam;

    43             Team: PTeam;

    43             MultiShootAttacks: Longword;

    44             MultiShootAttacks: Longword;

    44             visStepPos: LongWord;

    45             visStepPos: LongWord;

    45             BotLevel  : Byte; // 0 - Human player

    46             BotLevel  : Byte; // 0 - Human player

    46             HatVisibility: GLfloat;

    47             HatVisibility: GLfloat;