From f4537c94794d456d4b7157efeeca2509363bdbb8 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 19 Feb 2008 14:02:17 +0000
Subject: mmmmmmmmmmmmm Looping background images in the menu's ...

http://trac2.assembla.com/usdx/ticket/5#comment:2

( starting to get there )

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@865 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UPlatformWindows.pas | 2 +-
 Game/Code/Classes/UVideo.pas           | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Classes')

diff --git a/Game/Code/Classes/UPlatformWindows.pas b/Game/Code/Classes/UPlatformWindows.pas
index ea2fe198..3d1713ee 100644
--- a/Game/Code/Classes/UPlatformWindows.pas
+++ b/Game/Code/Classes/UPlatformWindows.pas
@@ -194,7 +194,7 @@ end;
 
 procedure TPlatformWindows.halt;
 begin
-  halt(0); // Application.terminate does NOT do the same thing..
+  halt(); // Application.terminate does NOT do the same thing..
 end;
 
 function TPlatformWindows.GetLogPath        : WideString;
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index 1eab5d91..b48f89c5 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -223,7 +223,8 @@ begin
               'TimeDiff:  '+inttostr(floor(TimeDifference*1000)));
 {$endif}
 
-  if (VideoTime <> 0) and (TimeDifference <= VideoTimeBase) then
+//  if (VideoTime <> 0) and (TimeDifference <= VideoTimeBase) then
+  if (VideoTime <> 0) and flooptime = 0 then
   begin
 {$ifdef DebugFrames}
     // frame delay debug display
-- 
cgit v1.2.3