From e8f259a1a37ce5cf10a79dc53e184d6af4e7b7d6 Mon Sep 17 00:00:00 2001
From: b1indy <b1indy@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 17 Apr 2007 00:48:03 +0000
Subject: Changed aadvanced options to switch on/off sing-effects and
 screen-fading Changed Languages (english, german) and Theme (deluxe) to
 reflect these changes implemented checks for config values to make these
 things work as expected

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@101 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UDisplay.pas | 40 +++++++++++++++++++++++++++-------------
 1 file changed, 27 insertions(+), 13 deletions(-)

(limited to 'Game/Code/Menu/UDisplay.pas')

diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas
index b6489c70..3f6e70da 100644
--- a/Game/Code/Menu/UDisplay.pas
+++ b/Game/Code/Menu/UDisplay.pas
@@ -15,6 +15,7 @@ type
     Fade: Real;
     // fade-mod
     doFade: Boolean;
+    canFade: Boolean;
     myFade: integer;
     lastTime: Cardinal;
     pTexData : Pointer;
@@ -37,42 +38,51 @@ var
 
 implementation
 
-uses UGraphic, UTime, Graphics, Jpeg, UPliki, UTexture;
+uses UGraphic, UTime, Graphics, Jpeg, UPliki, UTexture, UIni;
 
 constructor TDisplay.Create;
 begin
   inherited Create;
   // fade mod
   myfade:=0;
-  doFade:=True;
+
+  if Ini.ScreenFade=1 then
+    doFade:=True
+  else
+    doFade:=False;
+
+  canFade:=True;
   // generate texture for fading between screens
   GetMem(pTexData, 1024*1024*3);
   if pTexData <> NIL then
   begin
     glGenTextures(1, pTex);
-    if glGetError <> GL_NO_ERROR then doFade := False;
+    if glGetError <> GL_NO_ERROR then canFade := False;
     glBindTexture(GL_TEXTURE_2D, pTex);
-    if glGetError <> GL_NO_ERROR then doFade := False;
+    if glGetError <> GL_NO_ERROR then canFade := False;
     glTexImage2D(GL_TEXTURE_2D, 0, 3, 1024, 1024, 0, GL_RGB, GL_UNSIGNED_BYTE, pTexData);
-    if glGetError <> GL_NO_ERROR then doFade := False;
+    if glGetError <> GL_NO_ERROR then canFade := False;
     glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
-    if glGetError <> GL_NO_ERROR then doFade := False;
+    if glGetError <> GL_NO_ERROR then canFade := False;
     glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
-    if glGetError <> GL_NO_ERROR then doFade := False;
+    if glGetError <> GL_NO_ERROR then canFade := False;
     FreeMem(pTexData);
   end
   else
   begin
-    doFade:=False;
+    canFade:=False;
   end;
-  if not doFade then showmessage('Fehler beim Initialisieren der Fading-Textur... Fading deaktiviert');
+  if not canFade then begin
+    showmessage('Fehler beim Initialisieren der Fading-Textur... Fading deaktiviert');
+    doFade:=False;
+  end
   // end
 end;
 
 // fade mod
 destructor TDisplay.Destroy;
 begin
-  if doFade then
+  if canFade then
     glDeleteTextures(1,@pTex);
   inherited Destroy;
 end;
@@ -113,11 +123,15 @@ begin
       Result := ActualScreen.Draw;
       // fade mod
       myfade:=0;
+      if (Ini.ScreenFade=1) and canFade then
+        doFade:=True
+      else if Ini.ScreenFade=0 then
+        doFade:=False;
       // end
     end
     else
     begin
-      if doFade then
+      if doFade and canFade then
       begin
         // fade mod
         //Create Fading texture if we're just starting
@@ -128,7 +142,7 @@ begin
           glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, 0, 0, 1024, 1024, 0);
           if glGetError <> GL_NO_ERROR then
           begin
-            doFade := False;
+            canFade := False;
             showmessage('Fehler beim Kopieren der Fade-Textur... Fading deaktiviert');
           end;
           NextScreen.onShow;
@@ -167,7 +181,7 @@ begin
         glDisable(GL_BLEND);
         glDisable(GL_TEXTURE_2D);
       end;
-      if (myfade > 40) or (not doFade) then begin // fade out complete...
+      if (myfade > 40) or (not doFade) or (not canFade) then begin // fade out complete...
         myFade:=0;
         ActualScreen.onHide; // nop... whatever
         ActualScreen.ShowFinish:=False;
-- 
cgit v1.2.3