hedgewars/uTeams.pas
changeset 2376 ece7b87f1334
parent 2289 cb850ba733bd
child 2431 23242609c44b
--- a/hedgewars/uTeams.pas	Thu Sep 10 15:22:34 2009 +0000
+++ b/hedgewars/uTeams.pas	Thu Sep 10 15:29:28 2009 +0000
@@ -18,7 +18,7 @@
 
 unit uTeams;
 interface
-uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, 
+uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears,
 {$IFDEF GLES11}
 	gles11,
 {$ELSE}
@@ -33,7 +33,7 @@
 	PHedgehog = ^THedgehog;
 	PTeam     = ^TTeam;
 	PClan     = ^TClan;
-	
+
 	THedgehog = record
 			Name: string[MAXNAMELEN];
 			Gear: PGear;
@@ -52,7 +52,7 @@
 			stats: TStatistics;
 			Hat: String;
 			end;
-			
+
 	TTeam = record
 			Clan: PClan;
 			TeamName: string[MAXNAMELEN];
@@ -75,7 +75,7 @@
 			hasGone: boolean;
 			voicepack: PVoicepack;
 			end;
-			
+
 	TClan = record
 			Color: Longword;
 			Teams: array[0..Pred(cMaxTeams)] of PTeam;
@@ -150,7 +150,7 @@
 					with Hedgehogs[i] do
 						if (Gear <> nil) then
 							Gear^.State:= gstWinner;
-		
+
 		AddCaption(s, $FFFFFF, capgrpGameState);
 		SendStat(siGameResult, s);
 		AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)
@@ -295,7 +295,7 @@
 
 procedure RecountAllTeamsHealth;
 var t: LongInt;
-begin 
+begin
 for t:= 0 to Pred(TeamsCount) do
     RecountTeamHealth(TeamsArray[t])
 end;
@@ -344,7 +344,7 @@
 with team^ do
 	begin
 	NewTeamHealthBarWidth:= 0;
-	
+
 	if not hasGone then
 		for i:= 0 to cMaxHHIndex do
 			if Hedgehogs[i].Gear <> nil then
@@ -384,7 +384,7 @@
 	AddChatString('** '+ TeamName + ' is gone');
 	hasGone:= true
 	end;
-	
+
 RecountTeamHealth(TeamsArray[t])
 end;