adding my lazarus project..

starting to get somewhere with compilation of it, but
its still not compiling yet.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@393 b956fd51-792f-4845-bead-9b4dfca2ff2c

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.