Changeset 227 for trunk/LocalPlayer/Term.pas

Timestamp:

May 14, 2020, 9:31:00 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Wrong timeout calculation in movie mode.
• Fixed: City dialog sound index out of range.

File:

• trunk/LocalPlayer/Term.pas (modified) (3 diffs)

trunk/LocalPlayer/Term.pas

@@ -6080 +6080 @@
       NoMap.PaintUnit(xMoving - xMin, yMoving - yMin, UnitInfo, 0);
       PaintBufferToScreen(xMin, yMin, xRange, yRange);
+      {$IFDEF LINUX}
+      // TODO: Force animation under linux
+      Application.ProcessMessages;
+      {$ENDIF}
 
       SliceCount := 0;
@@ -6085 +6089 @@
       repeat
         if (SliceCount = 0) or
-          (MillisecondOf(Ticks - Ticks0) * 12 * (SliceCount + 1) div SliceCount
+          (Round(((Ticks - Ticks0) * 12) / OneMillisecond) * (SliceCount + 1) div SliceCount
           < MoveTime) then
         begin
           if not idle or (GameMode = cMovie) then
             Application.ProcessMessages;
-          {$IFDEF LINUX}
-          // TODO: Force animation under linux
-          Application.ProcessMessages;
-          {$ENDIF}
           Sleep(1);
           inc(SliceCount)
         end;
         Ticks := NowPrecise;
-      until (Ticks - Ticks0) / OneMillisecond * 12 >= MoveTime;
+      until (((Ticks - Ticks0) * 12) / OneMillisecond) >= MoveTime;
       Ticks0 := Ticks
     end;
@@ -6539 +6539 @@
           time1 := NowPrecise;
           SimpleMessage(Format('Map repaint time: %.3f ms',
-            [MillisecondOf(time1 - time0)]));
+            [(time1 - time0) / OneMillisecond]));
         end
     end