hedgewars/uTeams.pas
changeset 1654 9cfa6f23e767
parent 1650 a65681cc27c2
child 1657 dde8f60d3e07
equal deleted inserted replaced
1653:34c1d1e3f04e 1654:9cfa6f23e767
    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, GL;
    21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, GL, uSound;
    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 
    64 			NewTeamHealthBarWidth: LongInt;
    64 			NewTeamHealthBarWidth: LongInt;
    65 			DrawHealthY: LongInt;
    65 			DrawHealthY: LongInt;
    66 			AttackBar: LongWord;
    66 			AttackBar: LongWord;
    67 			HedgehogsNumber: Longword;
    67 			HedgehogsNumber: Longword;
    68 			hasGone: boolean;
    68 			hasGone: boolean;
       
    69 			voicepack: PVoicepack;
    69 			end;
    70 			end;
    70 			
    71 			
    71 	TClan = record
    72 	TClan = record
    72 			Color: Longword;
    73 			Color: Longword;
    73 			Teams: array[0..Pred(cMaxTeams)] of PTeam;
    74 			Teams: array[0..Pred(cMaxTeams)] of PTeam;
    95 procedure RestoreTeamsFromSave;
    96 procedure RestoreTeamsFromSave;
    96 function  CheckForWin: boolean;
    97 function  CheckForWin: boolean;
    97 procedure TeamGone(s: shortstring);
    98 procedure TeamGone(s: shortstring);
    98 
    99 
    99 implementation
   100 implementation
   100 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uSound, uChat;
   101 uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uChat;
   101 const MaxTeamHealth: LongInt = 0;
   102 const MaxTeamHealth: LongInt = 0;
   102 
   103 
   103 procedure FreeTeamsList; forward;
   104 procedure FreeTeamsList; forward;
   104 
   105 
   105 function CheckForWin: boolean;
   106 function CheckForWin: boolean;