From 44956e119562be2defd82eba8b10e7069ead5b76 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 10 Apr 2007 15:12:07 +0000
Subject: Edited Mogs Text: Now hes a Graphics Guy ^^

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@77 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenLoading.pas |  8 +++++++-
 Game/Code/Screens/UScreenMain.pas    |  2 +-
 Game/Code/Screens/UScreenSing.pas    |  3 +++
 Game/Code/Screens/UScreenWelcome.pas | 16 ++++++++--------
 4 files changed, 19 insertions(+), 10 deletions(-)

(limited to 'Game')

diff --git a/Game/Code/Screens/UScreenLoading.pas b/Game/Code/Screens/UScreenLoading.pas
index 05b308ac..5cc938bb 100644
--- a/Game/Code/Screens/UScreenLoading.pas
+++ b/Game/Code/Screens/UScreenLoading.pas
@@ -3,7 +3,7 @@ unit UScreenLoading;
 interface
 
 uses
-  UMenu, SDL, SysUtils, UThemes;
+  UMenu, SDL, SysUtils, UThemes, OpenGL12;
 
 type
   TScreenLoading = class(TMenu)
@@ -11,6 +11,7 @@ type
       Fadeout:      boolean;
       constructor Create(Back: String); override;
       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
+      function GetBGTexNum: GLUInt;
       procedure onShow; override;
   end;
 
@@ -45,4 +46,9 @@ begin
 // nothing
 end;
 
+function TScreenLoading.GetBGTexNum: GLUInt;
+begin
+  Result := Self.BackImg.TexNum;
+end;
+
 end.
diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index ccd81ee9..43034912 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -46,7 +46,7 @@ const Credits_Text: Array[0..46] of PChar = (
   'Beta Testing and great Support in "the Board"',
   ':SPACE:',
   'Mog:',
-  'Programming',
+  'Programming, Graphics',
   ':SPACE:',
   'Mota:',
   'Programming, Idea of creating this Mod',
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index ae5b239c..c6191cec 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -1119,6 +1119,8 @@ begin
   //Refresh LastScore
   Player[I].ScoreLast := Player[I].Score + Player[I].ScoreGolden;
 
+
+
   end;
 //PhrasenBonus - Line Bonus Mod End// }
 end;
@@ -1129,6 +1131,7 @@ begin
   //GoldenStarsTwinkle Mod
   GoldenRec.KillAll;
   //GoldenStarsTwinkle Mod End
+
 end;
 
 end.
diff --git a/Game/Code/Screens/UScreenWelcome.pas b/Game/Code/Screens/UScreenWelcome.pas
index de3b50f4..79fcc2c4 100644
--- a/Game/Code/Screens/UScreenWelcome.pas
+++ b/Game/Code/Screens/UScreenWelcome.pas
@@ -18,7 +18,7 @@ type
 
 implementation
 
-uses UGraphic, UTime;
+uses UGraphic, UTime, USkins;
 
 function TScreenWelcome.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
 begin
@@ -41,14 +41,14 @@ end;
 constructor TScreenWelcome.Create;
 begin
   inherited Create;
-{  AddStatic(-10, -10,    0, 0, 1, 1, 1, Skin.Star, 'BMP', 'Transparent');
-  AddStatic(-500, 440, 200, 5, 0, 0, 0, Skin.Line, 'JPG', 'Font Black');
-  AddStatic(-500, 472, 200, 5, 0, 0, 0, Skin.Line, 'JPG', 'Font Black');
-  AddStatic(-500, 504, 200, 5, 0, 0, 0, Skin.Line, 'JPG', 'Font Black');
-  AddStatic(-500, 536, 200, 5, 0, 0, 0, Skin.Line, 'JPG', 'Font Black');
-  AddStatic(-500, 568, 200, 5, 0, 0, 0, Skin.Line, 'JPG', 'Font Black');
+  AddStatic(-10, -10,    0, 0, 1, 1, 1, Skin.GetTextureFileName('ButtonAlt') , 'JPG', 'Transparent');
+  AddStatic(-500, 440, 200, 5, 0, 0, 0, Skin.GetTextureFileName('Rectangle'), 'JPG', 'Font Black');
+  AddStatic(-500, 472, 200, 5, 0, 0, 0, Skin.GetTextureFileName('Rectangle'), 'JPG', 'Font Black');
+  AddStatic(-500, 504, 200, 5, 0, 0, 0, Skin.GetTextureFileName('Rectangle'), 'JPG', 'Font Black');
+  AddStatic(-500, 536, 200, 5, 0, 0, 0, Skin.GetTextureFileName('Rectangle'), 'JPG', 'Font Black');
+  AddStatic(-500, 568, 200, 5, 0, 0, 0, Skin.GetTextureFileName('Rectangle'), 'JPG', 'Font Black');
   Animation := 0;
-  Fadeout := false;}
+  Fadeout := false;
 end;
 
 procedure TScreenWelcome.onShow;
-- 
cgit v1.2.3