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

4 files changed, 19 insertions, 10 deletions

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;