hedgewars/uTeams.pas
branchwebgl
changeset 8330 aaefa587e277
parent 8096 453917e94e55
parent 8145 6408c0ba4ba1
child 8444 75db7bb8dce8
--- a/hedgewars/uTeams.pas	Sun Dec 02 00:03:16 2012 +0100
+++ b/hedgewars/uTeams.pas	Tue Dec 25 04:45:22 2012 +0100
@@ -46,6 +46,7 @@
 
 var MaxTeamHealth: LongInt;
     GameOver: boolean;
+    NextClan: boolean;
 
 function CheckForWin: boolean;
 var AliveClan: PClan;
@@ -95,7 +96,7 @@
                             if (Gear <> nil) then
                                 Gear^.State:= gstWinner;
             if Flawless then
-                AddVoice(sndFlawless, Teams[0]^.voicepack) 
+                AddVoice(sndFlawless, Teams[0]^.voicepack)
             else
                 AddVoice(sndVictory, Teams[0]^.voicepack);
 
@@ -577,8 +578,8 @@
 
 procedure chBind(var id: shortstring);
 var KeyName, Modifier, tmp : shortstring;
-    b			   : LongInt;
-    i			   : Integer;
+    b              : LongInt;
+    i              : Integer;
 begin
 KeyName:= '';
 Modifier:= '';