--- a/hedgewars/uGears.pas Sat Nov 14 05:26:26 2009 +0000
+++ b/hedgewars/uGears.pas Sat Nov 14 11:06:55 2009 +0000
@@ -78,6 +78,7 @@
SpeechType: Longword = 1;
SpeechText: shortstring;
TrainingTargetGear: PGear = nil;
+ skipFlag: boolean = false;
implementation
uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
@@ -659,6 +660,12 @@
dec(TurnTimeLeft)
end;
+if skipFlag then
+ begin
+ TurnTimeLeft:= 0;
+ skipFlag:= false
+ end;
+
if ((GameTicks and $FFFF) = $FFFF) then
begin
if (not CurrentTeam^.ExtDriven) then