hedgewars/uAI.pas
changeset 740 5ac69a012b69
parent 676 2aa3082937ac
child 741 8bf8c0ac8d94
--- a/hedgewars/uAI.pas	Sun Jan 20 21:21:59 2008 +0000
+++ b/hedgewars/uAI.pas	Sun Jan 20 21:47:42 2008 +0000
@@ -52,7 +52,7 @@
            if (Gear^.Message and gm_Left) <> 0 then ParseCommand('-left', true);
            if (Gear^.Message and gm_Right) <> 0 then ParseCommand('-right', true);
            end;
-     
+
 BestActions.Count:= 0;
 BestActions.Pos:= 0
 end;
@@ -325,7 +325,7 @@
            if (BestActions.Pos >= BestActions.Count)
               and (TurnTimeLeft > cStopThinkTime) then
               begin
-              TryDo(Gear^.Message = 0, 'Engine bug: AI may break demos playing', true);
+              TryDo((Gear^.Message = 0) and (gameType <> gmtSave), 'Engine bug: AI may break demos playing', true);
               StartThink(Gear);
               StartTicks:= GameTicks
               end else ProcessAction(BestActions, Gear)