--- 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:= '';