hedgewars/uGears.pas
changeset 2621 956ff066f3a5
parent 2619 bc2786a00fb8
child 2622 39932161194e
--- 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