diff options
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/UltraStar.lpi | 341 | ||||
| -rw-r--r-- | Game/Code/UltraStar.lpr | 386 |
2 files changed, 727 insertions, 0 deletions
diff --git a/Game/Code/UltraStar.lpi b/Game/Code/UltraStar.lpi new file mode 100644 index 00000000..9d260f69 --- /dev/null +++ b/Game/Code/UltraStar.lpi @@ -0,0 +1,341 @@ +<?xml version="1.0"?>
+<CONFIG>
+ <ProjectOptions>
+ <PathDelim Value="\"/>
+ <Version Value="5"/>
+ <General>
+ <Flags>
+ <MainUnitHasUsesSectionForAllUnits Value="False"/>
+ <MainUnitHasCreateFormStatements Value="False"/>
+ <MainUnitHasTitleStatement Value="False"/>
+ </Flags>
+ <MainUnit Value="0"/>
+ <IconPath Value="./"/>
+ <TargetFileExt Value=".exe"/>
+ <ActiveEditorIndexAtStart Value="1"/>
+ </General>
+ <VersionInfo>
+ <ProjectVersion Value=""/>
+ <Language Value=""/>
+ <CharSet Value=""/>
+ </VersionInfo>
+ <PublishOptions>
+ <Version Value="2"/>
+ <IgnoreBinaries Value="False"/>
+ <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+ <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+ </local>
+ </RunParams>
+ <Units Count="18">
+ <Unit0>
+ <Filename Value="UltraStar.lpr"/>
+ <IsPartOfProject Value="True"/>
+ <CursorPos X="1" Y="69"/>
+ <TopLine Value="53"/>
+ <EditorIndex Value="0"/>
+ <UsageCount Value="21"/>
+ <Loaded Value="True"/>
+ </Unit0>
+ <Unit1>
+ <Filename Value="lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas"/>
+ <UnitName Value="opengl12"/>
+ <CursorPos X="47" Y="248"/>
+ <TopLine Value="228"/>
+ <EditorIndex Value="9"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit1>
+ <Unit2>
+ <Filename Value="Classes\UTexture.pas"/>
+ <UnitName Value="UTexture"/>
+ <CursorPos X="19" Y="20"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="4"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit2>
+ <Unit3>
+ <Filename Value="Classes\UCommandLine.pas"/>
+ <UnitName Value="UCommandLine"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="12"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit3>
+ <Unit4>
+ <Filename Value="Classes\UIni.pas"/>
+ <UnitName Value="UIni"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="11"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit4>
+ <Unit5>
+ <Filename Value="Classes\ULog.pas"/>
+ <UnitName Value="ULog"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="13"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit5>
+ <Unit6>
+ <Filename Value="Classes\UFiles.pas"/>
+ <UnitName Value="UFiles"/>
+ <CursorPos X="1" Y="38"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="14"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit6>
+ <Unit7>
+ <Filename Value="Classes\USongs.pas"/>
+ <UnitName Value="USongs"/>
+ <CursorPos X="57" Y="115"/>
+ <TopLine Value="91"/>
+ <EditorIndex Value="15"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit7>
+ <Unit8>
+ <Filename Value="..\..\..\..\..\lazarus\fpc\2.0.4\source\rtl\objpas\sysutils\sysinth.inc"/>
+ <CursorPos X="3" Y="95"/>
+ <TopLine Value="75"/>
+ <UsageCount Value="10"/>
+ </Unit8>
+ <Unit9>
+ <Filename Value="Classes\UMain.pas"/>
+ <UnitName Value="UMain"/>
+ <CursorPos X="1" Y="764"/>
+ <TopLine Value="725"/>
+ <EditorIndex Value="10"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit9>
+ <Unit10>
+ <Filename Value="Classes\UGraphic.pas"/>
+ <UnitName Value="UGraphic"/>
+ <CursorPos X="75" Y="5"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="16"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit10>
+ <Unit11>
+ <Filename Value="Classes\UThemes.pas"/>
+ <UnitName Value="UThemes"/>
+ <CursorPos X="17" Y="6"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="8"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit11>
+ <Unit12>
+ <Filename Value="Classes\UCovers.pas"/>
+ <UnitName Value="UCovers"/>
+ <CursorPos X="14" Y="12"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="5"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit12>
+ <Unit13>
+ <Filename Value="Classes\UMusic.pas"/>
+ <UnitName Value="UMusic"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="6"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit13>
+ <Unit14>
+ <Filename Value="Classes\ULyrics.pas"/>
+ <UnitName Value="ULyrics"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="7"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit14>
+ <Unit15>
+ <Filename Value="Screens\UScreenLoading.pas"/>
+ <UnitName Value="UScreenLoading"/>
+ <CursorPos X="8" Y="6"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="3"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit15>
+ <Unit16>
+ <Filename Value="Menu\UMenu.pas"/>
+ <UnitName Value="UMenu"/>
+ <CursorPos X="34" Y="5"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="2"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit16>
+ <Unit17>
+ <Filename Value="Menu\UMenuText.pas"/>
+ <UnitName Value="UMenuText"/>
+ <CursorPos X="39" Y="36"/>
+ <TopLine Value="22"/>
+ <EditorIndex Value="1"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit17>
+ </Units>
+ <JumpHistory Count="30" HistoryIndex="29">
+ <Position1>
+ <Filename Value="lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas"/>
+ <Caret Line="15" Column="8" TopLine="1"/>
+ </Position1>
+ <Position2>
+ <Filename Value="lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas"/>
+ <Caret Line="248" Column="47" TopLine="228"/>
+ </Position2>
+ <Position3>
+ <Filename Value="lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas"/>
+ <Caret Line="7065" Column="15" TopLine="7045"/>
+ </Position3>
+ <Position4>
+ <Filename Value="lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position4>
+ <Position5>
+ <Filename Value="Classes\UTexture.pas"/>
+ <Caret Line="14" Column="6" TopLine="1"/>
+ </Position5>
+ <Position6>
+ <Filename Value="Classes\UTexture.pas"/>
+ <Caret Line="15" Column="45" TopLine="1"/>
+ </Position6>
+ <Position7>
+ <Filename Value="Classes\UTexture.pas"/>
+ <Caret Line="14" Column="1" TopLine="1"/>
+ </Position7>
+ <Position8>
+ <Filename Value="Classes\UTexture.pas"/>
+ <Caret Line="22" Column="14" TopLine="1"/>
+ </Position8>
+ <Position9>
+ <Filename Value="Classes\UThemes.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position9>
+ <Position10>
+ <Filename Value="Classes\UThemes.pas"/>
+ <Caret Line="694" Column="50" TopLine="674"/>
+ </Position10>
+ <Position11>
+ <Filename Value="Classes\UTexture.pas"/>
+ <Caret Line="23" Column="14" TopLine="1"/>
+ </Position11>
+ <Position12>
+ <Filename Value="Classes\UCovers.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position12>
+ <Position13>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position13>
+ <Position14>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="6" Column="3" TopLine="1"/>
+ </Position14>
+ <Position15>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="12" Column="14" TopLine="1"/>
+ </Position15>
+ <Position16>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position16>
+ <Position17>
+ <Filename Value="Classes\ULyrics.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position17>
+ <Position18>
+ <Filename Value="Classes\ULyrics.pas"/>
+ <Caret Line="11" Column="6" TopLine="1"/>
+ </Position18>
+ <Position19>
+ <Filename Value="Classes\ULyrics.pas"/>
+ <Caret Line="96" Column="88" TopLine="58"/>
+ </Position19>
+ <Position20>
+ <Filename Value="Classes\ULyrics.pas"/>
+ <Caret Line="67" Column="95" TopLine="48"/>
+ </Position20>
+ <Position21>
+ <Filename Value="Classes\UGraphic.pas"/>
+ <Caret Line="5" Column="16" TopLine="1"/>
+ </Position21>
+ <Position22>
+ <Filename Value="UltraStar.lpr"/>
+ <Caret Line="19" Column="1" TopLine="1"/>
+ </Position22>
+ <Position23>
+ <Filename Value="UltraStar.lpr"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position23>
+ <Position24>
+ <Filename Value="Screens\UScreenLoading.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position24>
+ <Position25>
+ <Filename Value="UltraStar.lpr"/>
+ <Caret Line="109" Column="1" TopLine="43"/>
+ </Position25>
+ <Position26>
+ <Filename Value="UltraStar.lpr"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position26>
+ <Position27>
+ <Filename Value="Menu\UMenu.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position27>
+ <Position28>
+ <Filename Value="UltraStar.lpr"/>
+ <Caret Line="47" Column="29" TopLine="29"/>
+ </Position28>
+ <Position29>
+ <Filename Value="UltraStar.lpr"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position29>
+ <Position30>
+ <Filename Value="Menu\UMenuText.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position30>
+ </JumpHistory>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="5"/>
+ <PathDelim Value="\"/>
+ <SearchPaths>
+ <IncludeFiles Value="lib\JEDI-SDLv1.0\SDL\Pas\"/>
+ </SearchPaths>
+ <CodeGeneration>
+ <Generate Value="Faster"/>
+ </CodeGeneration>
+ <Other>
+ <CompilerPath Value="$(CompPath)"/>
+ </Other>
+ </CompilerOptions>
+ <Debugging>
+ <Exceptions Count="2">
+ <Item1>
+ <Name Value="ECodetoolError"/>
+ </Item1>
+ <Item2>
+ <Name Value="EFOpenError"/>
+ </Item2>
+ </Exceptions>
+ </Debugging>
+</CONFIG>
diff --git a/Game/Code/UltraStar.lpr b/Game/Code/UltraStar.lpr new file mode 100644 index 00000000..793cc21a --- /dev/null +++ b/Game/Code/UltraStar.lpr @@ -0,0 +1,386 @@ +program UltraStar;
+
+{$DEFINE TRANSLATE}
+
+{$IFDEF FPC}
+ {$MODE DELPHI}
+{$ENDIF}
+
+{$R 'UltraStar.res' 'UltraStar.rc'}
+
+uses
+
+ //------------------------------
+ //Includes - 3rd Party Libraries
+ //------------------------------
+ sdl in 'lib\JEDI-SDLv1.0\SDL\Pas\sdl.pas',
+ moduleloader in 'lib\JEDI-SDLv1.0\SDL\Pas\moduleloader.pas',
+ OpenGL12 in 'lib\JEDI-SDLv1.0\OpenGL\Pas\OpenGL12.pas',
+
+ bass in 'lib\bass\delphi\bass.pas',
+
+(*
+ midiout in 'lib\midi\midiout.pas',
+ midiin in 'lib\midi\midiin.pas',
+ Circbuf in 'lib\midi\CIRCBUF.PAS',
+ MidiType in 'lib\midi\MidiType.PAS',
+ MidiDefs in 'lib\midi\MidiDefs.PAS',
+ MidiCons in 'lib\midi\MidiCons.PAS',
+ MidiFile in 'lib\midi\MidiFile.PAS',
+ Delphmcb in 'lib\midi\Delphmcb.PAS',
+*)
+
+ avcodec in 'lib\ffmpeg\avcodec.pas',
+ avformat in 'lib\ffmpeg\avformat.pas',
+ avutil in 'lib\ffmpeg\avutil.pas',
+ rational in 'lib\ffmpeg\rational.pas',
+ opt in 'lib\ffmpeg\opt.pas',
+ avio in 'lib\ffmpeg\avio.pas',
+
+ SQLiteTable3 in 'lib\SQLite\SQLiteTable3.pas',
+ SQLite3 in 'lib\SQLite\SQLite3.pas',
+
+
+ //------------------------------
+ //Includes - Menu System
+ //------------------------------
+ UMenu in 'Menu\UMenu.pas',
+(*
+ UDisplay in 'Menu\UDisplay.pas',
+ UMenuStatic in 'Menu\UMenuStatic.pas',
+ UMenuText in 'Menu\UMenuText.pas',
+ UMenuButton in 'Menu\UMenuButton.pas',
+ UMenuInteract in 'Menu\UMenuInteract.pas',
+ UMenuSelect in 'Menu\UMenuSelect.pas',
+ UMenuSelectSlide in 'Menu\UMenuSelectSlide.pas',
+ UDrawTexture in 'Menu\UDrawTexture.pas',
+ UMenuButtonCollection in 'Menu\UMenuButtonCollection.pas',
+*)
+
+ //------------------------------
+ //Includes - Classes
+ //------------------------------
+ UTime in 'Classes\UTime.pas',
+ UCommandLine in 'Classes\UCommandLine.pas',
+ ULog in 'Classes\ULog.pas',
+
+ UMain in 'Classes\UMain.pas',
+
+ UIni in 'Classes\UIni.pas',
+ UTexture in 'Classes\UTexture.pas',
+(*
+ UGraphic in 'Classes\UGraphic.pas',
+ UMusic in 'Classes\UMusic.pas',
+ ULanguage in 'Classes\ULanguage.pas',
+ UMain in 'Classes\UMain.pas',
+ UDraw in 'Classes\UDraw.pas',
+ URecord in 'Classes\URecord.pas',
+ TextGL in 'Classes\TextGL.pas',
+ USongs in 'Classes\USongs.pas',
+ ULyrics in 'Classes\ULyrics.pas',
+ USkins in 'Classes\USkins.pas',
+ UThemes in 'Classes\UThemes.pas',
+ UJoystick in 'Classes\UJoystick.pas',
+ ULCD in 'Classes\ULCD.pas',
+ ULight in 'Classes\ULight.pas',
+ UDataBase in 'Classes\UDataBase.pas',
+ UCovers in 'Classes\UCovers.pas',
+ UCatCovers in 'Classes\UCatCovers.pas',
+ UFiles in 'Classes\UFiles.pas',
+ UGraphicClasses in 'Classes\UGraphicClasses.pas',
+ UDLLManager in 'Classes\UDLLManager.pas',
+ UParty in 'Classes\UParty.pas',
+ UPlaylist in 'Classes\UPlaylist.pas',
+*)
+
+ //------------------------------
+ //Includes - Video Support
+ //------------------------------
+(*
+ UVideo in 'Classes\UVideo.pas',
+*)
+
+ //------------------------------
+ //Includes - Screens
+ //------------------------------
+ UScreenLoading in 'Screens\UScreenLoading.pas',
+(*
+ UScreenWelcome in 'Screens\UScreenWelcome.pas',
+ UScreenMain in 'Screens\UScreenMain.pas',
+ UScreenName in 'Screens\UScreenName.pas',
+ UScreenLevel in 'Screens\UScreenLevel.pas',
+ UScreenSong in 'Screens\UScreenSong.pas',
+ UScreenSing in 'Screens\UScreenSing.pas',
+ UScreenScore in 'Screens\UScreenScore.pas',
+ UScreenOptions in 'Screens\UScreenOptions.pas',
+ UScreenOptionsGame in 'Screens\UScreenOptionsGame.pas',
+ UScreenOptionsGraphics in 'Screens\UScreenOptionsGraphics.pas',
+ UScreenOptionsSound in 'Screens\UScreenOptionsSound.pas',
+ UScreenOptionsLyrics in 'Screens\UScreenOptionsLyrics.pas',
+ UScreenOptionsThemes in 'Screens\UScreenOptionsThemes.pas',
+ UScreenOptionsRecord in 'Screens\UScreenOptionsRecord.pas',
+ UScreenOptionsAdvanced in 'Screens\UScreenOptionsAdvanced.pas',
+ UScreenEditSub in 'Screens\UScreenEditSub.pas',
+ UScreenEdit in 'Screens\UScreenEdit.pas',
+ UScreenEditConvert in 'Screens\UScreenEditConvert.pas',
+ UScreenEditHeader in 'Screens\UScreenEditHeader.pas',
+ UScreenOpen in 'Screens\UScreenOpen.pas',
+ UScreenTop5 in 'Screens\UScreenTop5.pas',
+ UScreenSongMenu in 'Screens\UScreenSongMenu.pas',
+ UScreenSongJumpto in 'Screens\UScreenSongJumpto.pas',
+ UScreenStatMain in 'Screens\UScreenStatMain.pas',
+ UScreenStatDetail in 'Screens\UScreenStatDetail.pas',
+ UScreenCredits in 'Screens\UScreenCredits.pas',
+ UScreenPopup in 'Screens\UScreenPopup.pas',
+*)
+
+ //------------------------------
+ //Includes - Screens PartyMode
+ //------------------------------
+(*
+ UScreenSingModi in 'Screens\UScreenSingModi.pas',
+ UScreenPartyNewRound in 'Screens\UScreenPartyNewRound.pas',
+ UScreenPartyScore in 'Screens\UScreenPartyScore.pas',
+ UScreenPartyPlayer in 'Screens\UScreenPartyPlayer.pas',
+ UScreenPartyOptions in 'Screens\UScreenPartyOptions.pas',
+ UScreenPartyWin in 'Screens\UScreenPartyWin.pas',
+*)
+
+ //------------------------------
+ //Includes - Modi SDK
+ //------------------------------
+(*
+ ModiSDK in '..\..\Modis\SDK\ModiSDK.pas',
+*)
+
+ //------------------------------
+ //Includes - Delphi
+ //------------------------------
+ Windows,
+ SysUtils;
+
+const
+ Version = 'UltraStar Deluxe V 1.10 Alpha Build';
+
+var
+ WndTitle: string;
+ hWnd: THandle;
+ I: Integer;
+
+begin
+ WndTitle := Version;
+
+ //------------------------------
+ //Start more than One Time Prevention
+ //------------------------------
+ hWnd:= FindWindow(nil, PChar(WndTitle));
+ //Programm already started
+ if (hWnd <> 0) then
+ begin
+ I := Messagebox(0, PChar('Another Instance of Ultrastar is already running. Contėnue ?'), PChar(WndTitle), MB_ICONWARNING or MB_YESNO);
+ if (I = IDYes) then
+ begin
+ I := 1;
+ repeat
+ Inc(I);
+ hWnd := FindWindow(nil, PChar(WndTitle + ' Instance ' + InttoStr(I)));
+ until (hWnd = 0);
+
+ WndTitle := WndTitle + ' Instance ' + InttoStr(I);
+ end
+ else
+ Exit;
+ end;
+
+ //------------------------------
+ //StartUp - Create Classes and Load Files
+ //------------------------------
+ USTime := TTime.Create;
+
+ // Commandline Parameter Parser
+ Params := TCMDParams.Create;
+
+ // Log + Benchmark
+ Log := TLog.Create;
+ Log.Title := WndTitle;
+ Log.Enabled := Not Params.NoLog;
+ Log.BenchmarkStart(0);
+
+{*
+ // Language
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize Paths', 'Initialization'); InitializePaths;
+ Log.LogStatus('Load Language', 'Initialization'); Language := TLanguage.Create;
+ //Add Const Values:
+ Language.AddConst('US_VERSION', Version);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Language', 1);
+
+ // SDL
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize SDL', 'Initialization');
+ SDL_Init(SDL_INIT_VIDEO or SDL_INIT_AUDIO);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing SDL', 1);
+
+ // Skin
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Loading Skin List', 'Initialization'); Skin := TSkin.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Skin List', 1);
+
+ // Sound Card List
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Loading Soundcard list', 'Initialization');
+ Recording := TRecord.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Soundcard list', 1);
+
+ // Ini + Paths
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load Ini', 'Initialization'); Ini := TIni.Create;
+ Ini.Load;
+
+ //Load Languagefile
+ if (Params.Language <> -1) then
+ Language.ChangeLanguage(ILanguage[Params.Language])
+ else
+ Language.ChangeLanguage(ILanguage[Ini.Language]);
+
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Ini', 1);
+
+ // LCD
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load LCD', 'Initialization'); LCD := TLCD.Create;
+ if Ini.LPT = 1 then begin
+// LCD.HalfInterface := true;
+ LCD.Enable;
+ LCD.Clear;
+ LCD.WriteText(1, ' UltraStar ');
+ LCD.WriteText(2, ' Loading... ');
+ end;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading LCD', 1);
+
+ // Light
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load Light', 'Initialization'); Light := TLight.Create;
+ if Ini.LPT = 2 then begin
+ Light.Enable;
+ end;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Light', 1);
+
+ // Theme
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load Themes', 'Initialization'); Theme := TTheme.Create('Themes\' + ITheme[Ini.Theme] + '.ini', Ini.Color);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Themes', 1);
+
+ // Covers Cache
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Creating Covers Cache', 'Initialization'); Covers := TCovers.Create;
+ Log.LogBenchmark('Loading Covers Cache Array', 1);
+ Log.BenchmarkStart(1);
+
+ // Category Covers
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Creating Category Covers Array', 'Initialization');
+ CatCovers:= TCatCovers.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Category Covers Array', 1);
+
+ // Songs
+ //Log.BenchmarkStart(1);
+ Log.LogStatus('Creating Song Array', 'Initialization'); Songs := TSongs.Create;
+ Songs.LoadSongList;
+ Log.LogStatus('Creating 2nd Song Array', 'Initialization'); CatSongs := TCatSongs.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Songs', 1);
+
+ // PluginManager
+ Log.BenchmarkStart(1);
+ Log.LogStatus('PluginManager', 'Initialization');
+ DLLMan := TDLLMan.Create; //Load PluginList
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading PluginManager', 1);
+
+ // Party Mode Manager
+ Log.BenchmarkStart(1);
+ Log.LogStatus('PartySession Manager', 'Initialization');
+ PartySession := TParty_Session.Create; //Load PartySession
+
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading PartySession Manager', 1);
+
+ // Graphics
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize 3D', 'Initialization'); Initialize3D(WndTitle);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing 3D', 1);
+
+ // Sound
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize Sound', 'Initialization');
+ Log.LogStatus('Creating Music', 'InitializeSound'); Music := TMusic.Create;
+ InitializeSound;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing Sound', 1);
+
+ // Score Saving System
+ Log.BenchmarkStart(1);
+ Log.LogStatus('DataBase System', 'Initialization');
+ DataBase := TDataBaseSystem.Create;
+
+ if (Params.ScoreFile = '') then
+ DataBase.Init ('Ultrastar.db')
+ else
+ DataBase.Init (Params.ScoreFile);
+
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading DataBase System', 1);
+
+ //Playlist Manager
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Playlist Manager', 'Initialization');
+ PlaylistMan := TPlaylistManager.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Playlist Manager', 1);
+
+ //GoldenStarsTwinkleMod
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Effect Manager', 'Initialization');
+ GoldenRec := TEffectManager.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Particel System', 1);
+
+ // Joypad
+ if (Ini.Joypad = 1) OR (Params.Joypad) then begin
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize Joystick', 'Initialization'); Joy := TJoy.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing Joystick', 1);
+ end;
+
+ Log.BenchmarkEnd(0);
+ Log.LogBenchmark('Loading Time', 0);
+
+
+ //------------------------------
+ //Start- Mainloop
+ //------------------------------
+ //Music.SetLoop(true);
+ //Music.SetVolume(50);
+ //Music.Open(SkinPath + 'Menu Music 3.mp3');
+ //Music.Play;
+ Log.LogStatus('Main Loop', 'Initialization'); MainLoop;
+
+ //------------------------------
+ //Finish Application
+ //------------------------------
+ if Ini.LPT = 1 then LCD.Clear;
+ if Ini.LPT = 2 then Light.TurnOff;
+*}
+ Log.Free;
+end.
|