From da9dc16fd9983e4af6790900c7c007cfe603709b Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 10 Apr 2007 15:10:26 +0000
Subject: Beautified Credits Screen Edited Texts to Fit Screen Width

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@76 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenMain.pas | 27 +++++++++++++++++++--------
 1 file changed, 19 insertions(+), 8 deletions(-)

(limited to 'Game/Code/Screens')

diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index dcd7db26..ccd81ee9 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -45,11 +45,11 @@ const Credits_Text: Array[0..46] of PChar = (
   'DennistheMenace:',
   'Beta Testing and great Support in "the Board"',
   ':SPACE:',
-  'Moq/Moguhguh:',
+  'Mog:',
   'Programming',
   ':SPACE:',
   'Mota:',
-  'Programming, Idea of creating this Mod, Team Leading',
+  'Programming, Idea of creating this Mod',
   ':SPACE:',
   'Sawyer:',
   'Web Master, Programming',
@@ -72,9 +72,9 @@ const Credits_Text: Array[0..46] of PChar = (
   ':SPACE:',
   ':SPACE:',
   'Visit us at:',
-  'http://www.UltraStar-Deluxe.de.vu',
-  'http://www.USD.de.vu',
-  'http://www.Ultra-Star.dl.am ("The Board" by Blind Guard)',
+  'http://www.ultrastardx.dl.am',
+  'http://sourceforge.net/projects/ultrastardx/',
+  'http://www.Ultra-Star.dl.am',
   'Please write Bug Reports and Feature Requests',
   'to help making this a better Game');
 
@@ -329,7 +329,7 @@ begin
   SetFontStyle (2);
   SetFontItalic(False);
   SetFontSize(9);
-  SetFontPos (460, 570);
+  SetFontPos (10, 5);
   glColor4f(1, 0, 0, 0.2 + Abs((Credits_Alpha mod 150)/100 - 0.75));
   glPrint ('Credits! Press any Key to Continue');
 
@@ -339,7 +339,12 @@ begin
   if (Credits_Y>-35) then
   begin
     Ver := PChar(Language.Translate('US_VERSION'));
-    glColor4f(1, 0.6, 0.08, 0.8);
+    //Set Color
+    if Credits_Y > 500 then
+      glColor4f(1, 0.6, 0.08, (600 - Credits_Y)/100 - 0.2)
+    else
+      glColor4f(1, 0.6, 0.08, 0.8);
+      
     SetFontPos (400 - glTextWidth(Ver)/2, Credits_Y);
     glprint(Ver);
   end;
@@ -367,6 +372,12 @@ begin
       Y := Y + 55
     else
     begin
+      //Set Color
+      if Y > 500 then
+        glColor4f(0.8, 0.8, 1, (600 - Y)/100 - 0.2)
+      else
+        glColor4f(0.8, 0.8, 1, 0.8);
+
       SetFontPos (400 - glTextWidth(Credits_Text[T])/2, Y);
       glprint(Credits_Text[T]);
       Y := Y + 30;
@@ -376,7 +387,7 @@ begin
       break;
   end;
 
-  //If lower Position is outside the Screen-> Show MainMenu
+  //If lowest Position is outside the Screen-> Show MainMenu
   if (Y <= 0) then
     Credits_Visible := False;
 end;
-- 
cgit v1.2.3