diff options
Diffstat (limited to 'Game')
-rw-r--r-- | Game/Code/Screens/UScreenLoading.pas | 8 | ||||
-rw-r--r-- | Game/Code/Screens/UScreenMain.pas | 2 | ||||
-rw-r--r-- | Game/Code/Screens/UScreenSing.pas | 3 | ||||
-rw-r--r-- | Game/Code/Screens/UScreenWelcome.pas | 16 |
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;
|