added sdl_image to project uses clause

and fixed credits screen to compile in lazarus / linux 
after the minor changes, to use sdl_image

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

3 files changed, 424 insertions, 1135 deletions

diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index 30237f95..7b5e4c00 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -2,6 +2,13 @@ unit UScreenCredits;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+{$I switches.inc}
+
+
 uses
     UMenu,
     SDL,
@@ -313,7 +320,7 @@ begin
     glGenTextures(1,@myTex);
     glBindTexture(GL_TEXTURE_2D, myTex);
     glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
-    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );

+    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );
     glTexImage2D( GL_TEXTURE_2D, 0, 4, myconvertedsdlimage^.w, myconvertedsdlimage^.h, 0,
                       GL_RGBA, GL_UNSIGNED_BYTE, myconvertedsdlimage^.pixels );
     SDL_FreeSurface(mysdlimage);
diff --git a/Game/Code/UltraStar.lpi b/Game/Code/UltraStar.lpi
deleted file mode 100644
index 7dfeb7cc..00000000
--- a/Game/Code/UltraStar.lpi
+++ /dev/null
@@ -1,719 +0,0 @@
-<?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="3"/>

-    </General>

-    <VersionInfo>

-      <ProjectVersion Value=""/>

-      <Language Value=""/>

-      <CharSet Value=""/>

-    </VersionInfo>

-    <PublishOptions>

-      <Version Value="2"/>

-      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>

-      <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>

-    <RequiredPackages Count="1">

-      <Item1>

-        <PackageName Value="ImagesForLazarus"/>

-      </Item1>

-    </RequiredPackages>

-    <Units Count="74">

-      <Unit0>

-        <Filename Value="UltraStar.lpr"/>

-        <IsPartOfProject Value="True"/>

-        <CursorPos X="11" Y="92"/>

-        <TopLine Value="72"/>

-        <EditorIndex Value="0"/>

-        <UsageCount Value="90"/>

-        <Loaded Value="True"/>

-      </Unit0>

-      <Unit1>

-        <Filename Value="lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas"/>

-        <UnitName Value="opengl12"/>

-        <CursorPos X="10" Y="269"/>

-        <TopLine Value="248"/>

-        <UsageCount Value="10"/>

-      </Unit1>

-      <Unit2>

-        <Filename Value="Classes\UTexture.pas"/>

-        <UnitName Value="UTexture"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <EditorIndex Value="3"/>

-        <UsageCount Value="16"/>

-        <Bookmarks Count="2">

-          <Item0 X="87" Y="94" ID="1"/>

-          <Item1 X="7" Y="420" ID="2"/>

-        </Bookmarks>

-        <Loaded Value="True"/>

-      </Unit2>

-      <Unit3>

-        <Filename Value="Classes\UCommandLine.pas"/>

-        <UnitName Value="UCommandLine"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="32"/>

-      </Unit3>

-      <Unit4>

-        <Filename Value="Classes\UIni.pas"/>

-        <UnitName Value="UIni"/>

-        <CursorPos X="35" Y="383"/>

-        <TopLine Value="362"/>

-        <UsageCount Value="32"/>

-      </Unit4>

-      <Unit5>

-        <Filename Value="Classes\ULog.pas"/>

-        <UnitName Value="ULog"/>

-        <CursorPos X="25" Y="219"/>

-        <TopLine Value="201"/>

-        <EditorIndex Value="1"/>

-        <UsageCount Value="14"/>

-        <Loaded Value="True"/>

-      </Unit5>

-      <Unit6>

-        <Filename Value="Classes\UFiles.pas"/>

-        <UnitName Value="UFiles"/>

-        <CursorPos X="9" Y="56"/>

-        <TopLine Value="46"/>

-        <UsageCount Value="12"/>

-      </Unit6>

-      <Unit7>

-        <Filename Value="Classes\USongs.pas"/>

-        <UnitName Value="USongs"/>

-        <CursorPos X="110" Y="151"/>

-        <TopLine Value="122"/>

-        <UsageCount Value="10"/>

-      </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="4"/>

-      </Unit8>

-      <Unit9>

-        <Filename Value="Classes\UMain.pas"/>

-        <UnitName Value="UMain"/>

-        <CursorPos X="99" Y="785"/>

-        <TopLine Value="595"/>

-        <UsageCount Value="10"/>

-      </Unit9>

-      <Unit10>

-        <Filename Value="Classes\UGraphic.pas"/>

-        <UnitName Value="UGraphic"/>

-        <CursorPos X="1" Y="70"/>

-        <TopLine Value="587"/>

-        <UsageCount Value="33"/>

-      </Unit10>

-      <Unit11>

-        <Filename Value="Classes\UThemes.pas"/>

-        <UnitName Value="UThemes"/>

-        <CursorPos X="29" Y="1746"/>

-        <TopLine Value="1691"/>

-        <UsageCount Value="9"/>

-      </Unit11>

-      <Unit12>

-        <Filename Value="Classes\UCovers.pas"/>

-        <UnitName Value="UCovers"/>

-        <CursorPos X="7" Y="11"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="11"/>

-      </Unit12>

-      <Unit13>

-        <Filename Value="Classes\UMusic.pas"/>

-        <UnitName Value="UMusic"/>

-        <CursorPos X="39" Y="17"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="15"/>

-      </Unit13>

-      <Unit14>

-        <Filename Value="Classes\ULyrics.pas"/>

-        <UnitName Value="ULyrics"/>

-        <CursorPos X="1" Y="5"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit14>

-      <Unit15>

-        <Filename Value="Screens\UScreenLoading.pas"/>

-        <UnitName Value="UScreenLoading"/>

-        <CursorPos X="24" Y="33"/>

-        <TopLine Value="13"/>

-        <UsageCount Value="10"/>

-      </Unit15>

-      <Unit16>

-        <Filename Value="Menu\UMenu.pas"/>

-        <UnitName Value="UMenu"/>

-        <CursorPos X="1" Y="8"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="9"/>

-      </Unit16>

-      <Unit17>

-        <Filename Value="Menu\UMenuText.pas"/>

-        <UnitName Value="UMenuText"/>

-        <CursorPos X="14" Y="60"/>

-        <TopLine Value="37"/>

-        <UsageCount Value="11"/>

-      </Unit17>

-      <Unit18>

-        <Filename Value="Menu\UMenuSelectSlide.pas"/>

-        <UnitName Value="UMenuSelectSlide"/>

-        <CursorPos X="6" Y="12"/>

-        <TopLine Value="2"/>

-        <UsageCount Value="4"/>

-      </Unit18>

-      <Unit19>

-        <Filename Value="Screens\UScreenMain.pas"/>

-        <UnitName Value="UScreenMain"/>

-        <CursorPos X="13" Y="37"/>

-        <TopLine Value="16"/>

-        <UsageCount Value="31"/>

-      </Unit19>

-      <Unit20>

-        <Filename Value="Menu\UDisplay.pas"/>

-        <UnitName Value="UDisplay"/>

-        <CursorPos X="17" Y="69"/>

-        <TopLine Value="429"/>

-        <UsageCount Value="14"/>

-      </Unit20>

-      <Unit21>

-        <Filename Value="Classes\ULight.pas"/>

-        <UnitName Value="ULight"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="13"/>

-        <UsageCount Value="10"/>

-        <Bookmarks Count="1">

-          <Item0 X="19" Y="66" ID="1"/>

-        </Bookmarks>

-      </Unit21>

-      <Unit22>

-        <Filename Value="Screens\UScreenSing.pas"/>

-        <UnitName Value="UScreenSing"/>

-        <CursorPos X="1" Y="1027"/>

-        <TopLine Value="1006"/>

-        <UsageCount Value="10"/>

-      </Unit22>

-      <Unit23>

-        <Filename Value="Classes\UVideo.pas"/>

-        <UnitName Value="UVideo"/>

-        <CursorPos X="1" Y="8"/>

-        <TopLine Value="2"/>

-        <UsageCount Value="10"/>

-      </Unit23>

-      <Unit24>

-        <Filename Value="Screens\UScreenScore.pas"/>

-        <UnitName Value="UScreenScore"/>

-        <CursorPos X="9" Y="7"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit24>

-      <Unit25>

-        <Filename Value="Screens\UScreenEditSub.pas"/>

-        <UnitName Value="UScreenEditSub"/>

-        <CursorPos X="1" Y="10"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit25>

-      <Unit26>

-        <Filename Value="switches.inc"/>

-        <CursorPos X="19" Y="12"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="11"/>

-      </Unit26>

-      <Unit27>

-        <Filename Value="lib\midi\Midiout.pas"/>

-        <UnitName Value="MidiOut"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="9"/>

-      </Unit27>

-      <Unit28>

-        <Filename Value="Screens\UScreenEditConvert.pas"/>

-        <UnitName Value="UScreenEditConvert"/>

-        <CursorPos X="22" Y="26"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="32"/>

-      </Unit28>

-      <Unit29>

-        <Filename Value="Screens\UScreenSingModi.pas"/>

-        <UnitName Value="UScreenSingModi"/>

-        <CursorPos X="5" Y="5"/>

-        <TopLine Value="1"/>

-        <EditorIndex Value="2"/>

-        <UsageCount Value="32"/>

-        <Loaded Value="True"/>

-      </Unit29>

-      <Unit30>

-        <Filename Value="Screens\UScreenCredits.pas"/>

-        <UnitName Value="UScreenCredits"/>

-        <CursorPos X="13" Y="119"/>

-        <TopLine Value="98"/>

-        <UsageCount Value="32"/>

-      </Unit30>

-      <Unit31>

-        <Filename Value="Classes\URecord.pas"/>

-        <UnitName Value="URecord"/>

-        <CursorPos X="21" Y="293"/>

-        <TopLine Value="271"/>

-        <UsageCount Value="31"/>

-      </Unit31>

-      <Unit32>

-        <Filename Value="lib\JEDI-SDLv1.0\SDL\Pas\jedi-sdl.inc"/>

-        <CursorPos X="4" Y="237"/>

-        <TopLine Value="217"/>

-        <UsageCount Value="10"/>

-      </Unit32>

-      <Unit33>

-        <Filename Value="..\..\Modis\SDK\ModiSDK.pas"/>

-        <UnitName Value="ModiSDK"/>

-        <CursorPos X="79" Y="145"/>

-        <TopLine Value="104"/>

-        <UsageCount Value="31"/>

-      </Unit33>

-      <Unit34>

-        <Filename Value="Classes\UDLLManager.pas"/>

-        <UnitName Value="UDLLManager"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="32"/>

-      </Unit34>

-      <Unit35>

-        <Filename Value="Classes\UPlaylist.pas"/>

-        <UnitName Value="UPlaylist"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="31"/>

-      </Unit35>

-      <Unit36>

-        <Filename Value="Classes\UDataBase.pas"/>

-        <UnitName Value="UDataBase"/>

-        <CursorPos X="10" Y="211"/>

-        <TopLine Value="189"/>

-        <UsageCount Value="31"/>

-      </Unit36>

-      <Unit37>

-        <Filename Value="Screens\UScreenStatMain.pas"/>

-        <UnitName Value="UScreenStatMain"/>

-        <CursorPos X="76" Y="167"/>

-        <TopLine Value="155"/>

-        <UsageCount Value="32"/>

-        <Bookmarks Count="1">

-          <Item0 X="21" Y="216" ID="1"/>

-        </Bookmarks>

-      </Unit37>

-      <Unit38>

-        <Filename Value="Screens\UScreenPartyOptions.pas"/>

-        <UnitName Value="UScreenPartyOptions"/>

-        <CursorPos X="42" Y="233"/>

-        <TopLine Value="213"/>

-        <UsageCount Value="31"/>

-      </Unit38>

-      <Unit39>

-        <Filename Value="Screens\UScreenPartyNewRound.pas"/>

-        <UnitName Value="UScreenPartyNewRound"/>

-        <CursorPos X="5" Y="422"/>

-        <TopLine Value="382"/>

-        <UsageCount Value="31"/>

-      </Unit39>

-      <Unit40>

-        <Filename Value="Classes\UParty.pas"/>

-        <UnitName Value="UParty"/>

-        <CursorPos X="1" Y="8"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="31"/>

-      </Unit40>

-      <Unit41>

-        <Filename Value="Classes\UDraw.pas"/>

-        <UnitName Value="UDraw"/>

-        <CursorPos X="7" Y="67"/>

-        <TopLine Value="566"/>

-        <UsageCount Value="31"/>

-      </Unit41>

-      <Unit42>

-        <Filename Value="Screens\UScreenSongMenu.pas"/>

-        <UnitName Value="UScreenSongMenu"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="31"/>

-      </Unit42>

-      <Unit43>

-        <Filename Value="Screens\UScreenTop5.pas"/>

-        <UnitName Value="UScreenTop5"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit43>

-      <Unit44>

-        <Filename Value="Classes\UGraphicClasses.pas"/>

-        <UnitName Value="UGraphicClasses"/>

-        <CursorPos X="1" Y="7"/>

-        <TopLine Value="638"/>

-        <UsageCount Value="11"/>

-      </Unit44>

-      <Unit45>

-        <Filename Value="Screens\UScreenSong.pas"/>

-        <UnitName Value="UScreenSong"/>

-        <CursorPos X="13" Y="126"/>

-        <TopLine Value="105"/>

-        <UsageCount Value="10"/>

-      </Unit45>

-      <Unit46>

-        <Filename Value="lib\midi\DELPHMCB.PAS"/>

-        <UnitName Value="Delphmcb"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="9"/>

-      </Unit46>

-      <Unit47>

-        <Filename Value="Classes\UCommon.pas"/>

-        <UnitName Value="UCommon"/>

-        <CursorPos X="21" Y="14"/>

-        <TopLine Value="11"/>

-        <UsageCount Value="15"/>

-      </Unit47>

-      <Unit48>

-        <Filename Value="..\..\..\..\..\lazarus\fpc\2.0.4\source\rtl\objpas\math.pp"/>

-        <UnitName Value="math"/>

-        <CursorPos X="1" Y="1041"/>

-        <TopLine Value="1036"/>

-        <UsageCount Value="9"/>

-      </Unit48>

-      <Unit49>

-        <Filename Value="Classes\Ulazjpeg.pas"/>

-        <UnitName Value="Ulazjpeg"/>

-        <CursorPos X="44" Y="15"/>

-        <TopLine Value="63"/>

-        <UsageCount Value="11"/>

-      </Unit49>

-      <Unit50>

-        <Filename Value="Classes\TextGL.pas"/>

-        <UnitName Value="TextGL"/>

-        <CursorPos X="43" Y="18"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="13"/>

-      </Unit50>

-      <Unit51>

-        <Filename Value="UltraStar.lrs"/>

-        <CursorPos X="17" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit51>

-      <Unit52>

-        <Filename Value="lib\JEDI-SDLv1.0\SDL\Pas\moduleloader.pas"/>

-        <UnitName Value="moduleloader"/>

-        <CursorPos X="10" Y="64"/>

-        <TopLine Value="55"/>

-        <UsageCount Value="10"/>

-      </Unit52>

-      <Unit53>

-        <Filename Value="lib\bass\delphi\bass.pas"/>

-        <UnitName Value="Bass"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="9"/>

-      </Unit53>

-      <Unit54>

-        <Filename Value="lib\ffmpeg\avcodec.pas"/>

-        <UnitName Value="avcodec"/>

-        <CursorPos X="69" Y="1519"/>

-        <TopLine Value="1492"/>

-        <UsageCount Value="12"/>

-      </Unit54>

-      <Unit55>

-        <Filename Value="lib\ffmpeg\rational.pas"/>

-        <UnitName Value="rational"/>

-        <CursorPos X="40" Y="33"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="12"/>

-      </Unit55>

-      <Unit56>

-        <Filename Value="lib\ffmpeg\opt.pas"/>

-        <UnitName Value="opt"/>

-        <CursorPos X="37" Y="46"/>

-        <TopLine Value="17"/>

-        <UsageCount Value="9"/>

-      </Unit56>

-      <Unit57>

-        <Filename Value="lib\ffmpeg\avformat.pas"/>

-        <UnitName Value="avformat"/>

-        <CursorPos X="10" Y="357"/>

-        <TopLine Value="335"/>

-        <UsageCount Value="9"/>

-      </Unit57>

-      <Unit58>

-        <Filename Value="lib\ffmpeg\avio.pas"/>

-        <UnitName Value="avio"/>

-        <CursorPos X="1" Y="34"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit58>

-      <Unit59>

-        <Filename Value="lib\SQLite\SQLiteTable3.pas"/>

-        <UnitName Value="SQLiteTable3"/>

-        <CursorPos X="24" Y="16"/>

-        <TopLine Value="2"/>

-        <UsageCount Value="9"/>

-      </Unit59>

-      <Unit60>

-        <Filename Value="Menu\UMenuButton.pas"/>

-        <UnitName Value="UMenuButton"/>

-        <CursorPos X="13" Y="90"/>

-        <TopLine Value="69"/>

-        <UsageCount Value="11"/>

-      </Unit60>

-      <Unit61>

-        <Filename Value="Classes\UTime.pas"/>

-        <UnitName Value="UTime"/>

-        <CursorPos X="41" Y="44"/>

-        <TopLine Value="35"/>

-        <UsageCount Value="14"/>

-      </Unit61>

-      <Unit62>

-        <Filename Value="Classes\UJoystick.pas"/>

-        <UnitName Value="UJoystick"/>

-        <CursorPos X="1" Y="6"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="11"/>

-      </Unit62>

-      <Unit63>

-        <Filename Value="Classes\ULanguage.pas"/>

-        <UnitName Value="ULanguage"/>

-        <CursorPos X="29" Y="106"/>

-        <TopLine Value="96"/>

-        <UsageCount Value="11"/>

-      </Unit63>

-      <Unit64>

-        <Filename Value="\usr\share\fpcsrc\rtl\unix\sysutils.pp"/>

-        <UnitName Value="sysutils"/>

-        <CursorPos X="7" Y="93"/>

-        <TopLine Value="72"/>

-        <UsageCount Value="10"/>

-      </Unit64>

-      <Unit65>

-        <Filename Value="\usr\share\fpcsrc\rtl\objpas\sysutils\sysutilh.inc"/>

-        <CursorPos X="45" Y="30"/>

-        <TopLine Value="13"/>

-        <UsageCount Value="10"/>

-      </Unit65>

-      <Unit66>

-        <Filename Value="\usr\share\fpcsrc\rtl\objpas\sysutils\sysutils.inc"/>

-        <CursorPos X="86" Y="90"/>

-        <TopLine Value="73"/>

-        <UsageCount Value="10"/>

-      </Unit66>

-      <Unit67>

-        <Filename Value="Classes\ULCD.pas"/>

-        <UnitName Value="ULCD"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit67>

-      <Unit68>

-        <Filename Value="lib\JEDI-SDLv1.0\SDL\Pas\sdl.pas"/>

-        <UnitName Value="sdl"/>

-        <CursorPos X="52" Y="2092"/>

-        <TopLine Value="2071"/>

-        <UsageCount Value="10"/>

-      </Unit68>

-      <Unit69>

-        <Filename Value="\usr\share\fpcsrc\packages\base\libc\libc.pp"/>

-        <UnitName Value="libc"/>

-        <CursorPos X="7" Y="41"/>

-        <TopLine Value="19"/>

-        <UsageCount Value="11"/>

-      </Unit69>

-      <Unit70>

-        <Filename Value="\usr\share\fpcsrc\fv\time.pas"/>

-        <UnitName Value="Time"/>

-        <CursorPos X="3" Y="222"/>

-        <TopLine Value="424"/>

-        <UsageCount Value="11"/>

-      </Unit70>

-      <Unit71>

-        <Filename Value="Classes\UCatCovers.pas"/>

-        <UnitName Value="UCatCovers"/>

-        <CursorPos X="73" Y="74"/>

-        <TopLine Value="107"/>

-        <UsageCount Value="10"/>

-      </Unit71>

-      <Unit72>

-        <Filename Value="Classes\USkins.pas"/>

-        <UnitName Value="USkins"/>

-        <CursorPos X="53" Y="27"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit72>

-      <Unit73>

-        <Filename Value="Classes\ULyrics_bak.pas"/>

-        <UnitName Value="ULyrics_bak"/>

-        <CursorPos X="18" Y="9"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit73>

-    </Units>

-    <JumpHistory Count="30" HistoryIndex="29">

-      <Position1>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="1053" Column="18" TopLine="1019"/>

-      </Position1>

-      <Position2>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="1051" Column="22" TopLine="1019"/>

-      </Position2>

-      <Position3>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="754" Column="10" TopLine="717"/>

-      </Position3>

-      <Position4>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="843" Column="3" TopLine="822"/>

-      </Position4>

-      <Position5>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="845" Column="9" TopLine="814"/>

-      </Position5>

-      <Position6>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="880" Column="13" TopLine="852"/>

-      </Position6>

-      <Position7>

-        <Filename Value="UltraStar.lpr"/>

-        <Caret Line="121" Column="41" TopLine="86"/>

-      </Position7>

-      <Position8>

-        <Filename Value="UltraStar.lpr"/>

-        <Caret Line="406" Column="13" TopLine="375"/>

-      </Position8>

-      <Position9>

-        <Filename Value="UltraStar.lpr"/>

-        <Caret Line="1" Column="1" TopLine="1"/>

-      </Position9>

-      <Position10>

-        <Filename Value="Classes\ULog.pas"/>

-        <Caret Line="5" Column="5" TopLine="5"/>

-      </Position10>

-      <Position11>

-        <Filename Value="UltraStar.lpr"/>

-        <Caret Line="111" Column="43" TopLine="91"/>

-      </Position11>

-      <Position12>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="338" Column="54" TopLine="310"/>

-      </Position12>

-      <Position13>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="344" Column="31" TopLine="323"/>

-      </Position13>

-      <Position14>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="310" Column="16" TopLine="298"/>

-      </Position14>

-      <Position15>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="316" Column="86" TopLine="300"/>

-      </Position15>

-      <Position16>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="345" Column="26" TopLine="305"/>

-      </Position16>

-      <Position17>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="93" Column="20" TopLine="76"/>

-      </Position17>

-      <Position18>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="15" Column="5" TopLine="1"/>

-      </Position18>

-      <Position19>

-        <Filename Value="UltraStar.lpr"/>

-        <Caret Line="415" Column="5" TopLine="375"/>

-      </Position19>

-      <Position20>

-        <Filename Value="UltraStar.lpr"/>

-        <Caret Line="1" Column="1" TopLine="1"/>

-      </Position20>

-      <Position21>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="348" Column="20" TopLine="312"/>

-      </Position21>

-      <Position22>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="314" Column="64" TopLine="310"/>

-      </Position22>

-      <Position23>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="93" Column="79" TopLine="66"/>

-      </Position23>

-      <Position24>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="319" Column="87" TopLine="305"/>

-      </Position24>

-      <Position25>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="419" Column="25" TopLine="394"/>

-      </Position25>

-      <Position26>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="319" Column="18" TopLine="299"/>

-      </Position26>

-      <Position27>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="327" Column="29" TopLine="299"/>

-      </Position27>

-      <Position28>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="343" Column="7" TopLine="304"/>

-      </Position28>

-      <Position29>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="94" Column="16" TopLine="74"/>

-      </Position29>

-      <Position30>

-        <Filename Value="Classes\UTexture.pas"/>

-        <Caret Line="336" Column="48" TopLine="317"/>

-      </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)"/>

-      <CreateMakefileOnBuild Value="True"/>

-    </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
index 51867b87..67d4d9da 100644
--- a/Game/Code/UltraStar.lpr
+++ b/Game/Code/UltraStar.lpr
@@ -1,415 +1,416 @@
-program UltraStar;

-

-{$DEFINE TRANSLATE}

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ELSE}

-  {$R 'UltraStar.res' 'UltraStar.rc'}

-{$ENDIF}

-

-{$I switches.inc}

-

-uses

-

-  // ***************************************************************************

-  //

-  //                         Developers PLEASE NOTE !!!!!!!

-  //

-  //  As of september 2007, I am working towards porting Ultrastar-DX to run

-  //  on Linux.  I will be modifiying the source to make it compile in lazarus

-  //  on windows & linux and I will make sure that it compiles in delphi still

-  //  To help me in this endevour, please can you make a point of remembering

-  //  that linux is CASE SENSATIVE, and file / unit names must be as per

-  //  the filename exactly.

-  //

-  //  EG :  opengl12.pas  must not be OpenGL in the uses cluase.

-  //

-  //  thanks for your help...

-  //

-  // ***************************************************************************

-

-  //------------------------------

-  //Includes - 3rd Party Libraries

-  //------------------------------

-  

-  // SDL / OpenGL

-  moduleloader           in 'lib\JEDI-SDLv1.0\SDL\Pas\moduleloader.pas',

-  opengl12               in 'lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas',

-  sdl                    in 'lib\JEDI-SDLv1.0\SDL\Pas\sdl.pas',

-

-  // Bass

-  {$IFDEF UseBASS}

-  bass                   in 'lib\bass\delphi\bass.pas',

-  {$ENDIF}

-

-  // Midi Units

-  {$IFDEF UseMIDIPort}

-  Circbuf                in 'lib\midi\CIRCBUF.PAS',

-  Delphmcb               in 'lib\midi\Delphmcb.PAS',

-  MidiCons               in 'lib\midi\MidiCons.PAS',

-  MidiDefs               in 'lib\midi\MidiDefs.PAS',

-  MidiFile               in 'lib\midi\MidiFile.PAS',

-  midiin                 in 'lib\midi\midiin.pas',

-  midiout                in 'lib\midi\midiout.pas',

-  MidiType               in 'lib\midi\MidiType.PAS',

-  {$ENDIF}

-

-  // FFMpeg units

-  avcodec                in 'lib\ffmpeg\avcodec.pas',

-  avformat               in 'lib\ffmpeg\avformat.pas',

-  avio                   in 'lib\ffmpeg\avio.pas',

-  avutil                 in 'lib\ffmpeg\avutil.pas',

-  opt                    in 'lib\ffmpeg\opt.pas',

-  rational               in 'lib\ffmpeg\rational.pas',

-

-

-  // Sql Lite

-  SQLiteTable3           in 'lib\SQLite\SQLiteTable3.pas',

-  SQLite3                in 'lib\SQLite\SQLite3.pas',

-

-

-  //------------------------------

-  //Includes - Menu System

-  //------------------------------

-  

-  UDisplay               in 'Menu\UDisplay.pas',

-  UDrawTexture           in 'Menu\UDrawTexture.pas',

-  UMenu                  in 'Menu\UMenu.pas',

-  UMenuButton            in 'Menu\UMenuButton.pas',

-  UMenuButtonCollection  in 'Menu\UMenuButtonCollection.pas',

-  UMenuInteract          in 'Menu\UMenuInteract.pas',

-  UMenuSelect            in 'Menu\UMenuSelect.pas',

-  UMenuSelectSlide       in 'Menu\UMenuSelectSlide.pas',

-  UMenuStatic            in 'Menu\UMenuStatic.pas',

-  UMenuText              in 'Menu\UMenuText.pas',

-

-  //------------------------------

-  //Includes - Classes

-  //------------------------------

-  

-  {$IFDEF FPC}

-  ulazjpeg               in 'Classes\ulazjpeg.pas',

-  {$ENDIF}

-

-  TextGL                 in 'Classes\TextGL.pas',

-  UCatCovers             in 'Classes\UCatCovers.pas',

-  UCommandLine           in 'Classes\UCommandLine.pas',

-  UCommon                in 'Classes\UCommon.pas',

-  UCovers                in 'Classes\UCovers.pas',

-  UDataBase              in 'Classes\UDataBase.pas',

-  UDLLManager            in 'Classes\UDLLManager.pas',

-  UDraw                  in 'Classes\UDraw.pas',

-  UFiles                 in 'Classes\UFiles.pas',

-  UGraphic               in 'Classes\UGraphic.pas',

-  UGraphicClasses        in 'Classes\UGraphicClasses.pas',

-  UIni                   in 'Classes\UIni.pas',

-  UJoystick              in 'Classes\UJoystick.pas',

-  ULanguage              in 'Classes\ULanguage.pas',

-  ULCD                   in 'Classes\ULCD.pas',

-  ULight                 in 'Classes\ULight.pas',

-  ULog                   in 'Classes\ULog.pas',

-  ULyrics                in 'Classes\ULyrics.pas',

-  ULyrics_bak            in 'Classes\ULyrics_bak.pas',

-  UMain                  in 'Classes\UMain.pas',

-  UMusic                 in 'Classes\UMusic.pas',

-  UParty                 in 'Classes\UParty.pas',

-  UPlaylist              in 'Classes\UPlaylist.pas',

-  URecord                in 'Classes\URecord.pas',

-  USkins                 in 'Classes\USkins.pas',

-  USongs                 in 'Classes\USongs.pas',

-  UTexture               in 'Classes\UTexture.pas',

-  UThemes                in 'Classes\UThemes.pas',

-  UTime                  in 'Classes\UTime.pas',

-

-

-  //------------------------------

-  //Includes - Video Support

-  //------------------------------

-  UVideo                 in 'Classes\UVideo.pas',

-

-

-  //------------------------------

-  //Includes - Screens

-  //------------------------------

-  UScreenCredits         in 'Screens\UScreenCredits.pas',

-  UScreenEdit            in 'Screens\UScreenEdit.pas',

-  UScreenEditConvert     in 'Screens\UScreenEditConvert.pas',

-  UScreenEditHeader      in 'Screens\UScreenEditHeader.pas',

-  UScreenEditSub         in 'Screens\UScreenEditSub.pas',

-  UScreenLevel           in 'Screens\UScreenLevel.pas',

-  UScreenLoading         in 'Screens\UScreenLoading.pas',

-  UScreenMain            in 'Screens\UScreenMain.pas',

-  UScreenName            in 'Screens\UScreenName.pas',

-  UScreenOpen            in 'Screens\UScreenOpen.pas',

-  UScreenOptions         in 'Screens\UScreenOptions.pas',

-  UScreenOptionsAdvanced in 'Screens\UScreenOptionsAdvanced.pas',

-  UScreenOptionsGame     in 'Screens\UScreenOptionsGame.pas',

-  UScreenOptionsGraphics in 'Screens\UScreenOptionsGraphics.pas',

-  UScreenOptionsLyrics   in 'Screens\UScreenOptionsLyrics.pas',

-  UScreenOptionsRecord   in 'Screens\UScreenOptionsRecord.pas',

-  UScreenOptionsSound    in 'Screens\UScreenOptionsSound.pas',

-  UScreenOptionsThemes   in 'Screens\UScreenOptionsThemes.pas',

-  UScreenPopup           in 'Screens\UScreenPopup.pas',

-  UScreenScore           in 'Screens\UScreenScore.pas',

-  UScreenSing            in 'Screens\UScreenSing.pas',

-  UScreenSong            in 'Screens\UScreenSong.pas',

-  UScreenSongJumpto      in 'Screens\UScreenSongJumpto.pas',

-  UScreenSongMenu        in 'Screens\UScreenSongMenu.pas',

-  UScreenStatDetail      in 'Screens\UScreenStatDetail.pas',

-  UScreenStatMain        in 'Screens\UScreenStatMain.pas',

-  UScreenTop5            in 'Screens\UScreenTop5.pas',

-  UScreenWelcome         in 'Screens\UScreenWelcome.pas',

-

-  //------------------------------

-  //Includes - Screens PartyMode

-  //------------------------------

-  UScreenPartyNewRound   in 'Screens\UScreenPartyNewRound.pas',

-  UScreenPartyOptions    in 'Screens\UScreenPartyOptions.pas',

-  UScreenPartyPlayer     in 'Screens\UScreenPartyPlayer.pas',

-  UScreenPartyScore      in 'Screens\UScreenPartyScore.pas',

-  UScreenPartyWin        in 'Screens\UScreenPartyWin.pas',

-  UScreenSingModi        in 'Screens\UScreenSingModi.pas',

-

-  //------------------------------

-  //Includes - Modi SDK

-  //------------------------------

-  ModiSDK                in '..\..\Modis\SDK\ModiSDK.pas',

-

-

-  //------------------------------

-  //Includes - Delphi

-  //------------------------------

-  {$IFDEF win32}

-  Windows,

-  {$ENDIF}

-  SysUtils;

-

-const

-  Version = 'UltraStar Deluxe V 1.10 Alpha Build';

-

-var

-  WndTitle: string;

-  hWnd: THandle;

-  I: Integer;

-

-begin

-  WndTitle := Version;

-

-  {$ifdef Win32}

-  //------------------------------

-  //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;

-  {$endif}

-

-  //------------------------------

-  //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;

-  

-  Log.LogStatus('Cleanup', 'Done');

-

-  //------------------------------

-  //Finish Application

-  //------------------------------

-  if Ini.LPT = 1 then LCD.Clear;

-  if Ini.LPT = 2 then Light.TurnOff;

-

-  Log.Free;

-end.

+program UltraStar;
+
+{$DEFINE TRANSLATE}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ELSE}
+  {$R 'UltraStar.res' 'UltraStar.rc'}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+
+  // ***************************************************************************
+  //
+  //                         Developers PLEASE NOTE !!!!!!!
+  //
+  //  As of september 2007, I am working towards porting Ultrastar-DX to run
+  //  on Linux.  I will be modifiying the source to make it compile in lazarus
+  //  on windows & linux and I will make sure that it compiles in delphi still
+  //  To help me in this endevour, please can you make a point of remembering
+  //  that linux is CASE SENSATIVE, and file / unit names must be as per
+  //  the filename exactly.
+  //
+  //  EG :  opengl12.pas  must not be OpenGL in the uses cluase.
+  //
+  //  thanks for your help...
+  //
+  // ***************************************************************************
+
+  //------------------------------
+  //Includes - 3rd Party Libraries
+  //------------------------------
+  
+  // SDL / OpenGL
+  moduleloader           in 'lib\JEDI-SDLv1.0\SDL\Pas\moduleloader.pas',
+  opengl12               in 'lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas',
+  sdl                    in 'lib\JEDI-SDLv1.0\SDL\Pas\sdl.pas',
+  sdl_image              in 'lib\JEDI-SDLv1.0\SDL_Image\Pas\sdl_image.pas',
+
+  // Bass
+  {$IFDEF UseBASS}
+  bass                   in 'lib\bass\delphi\bass.pas',
+  {$ENDIF}
+
+  // Midi Units
+  {$IFDEF UseMIDIPort}
+  Circbuf                in 'lib\midi\CIRCBUF.PAS',
+  Delphmcb               in 'lib\midi\Delphmcb.PAS',
+  MidiCons               in 'lib\midi\MidiCons.PAS',
+  MidiDefs               in 'lib\midi\MidiDefs.PAS',
+  MidiFile               in 'lib\midi\MidiFile.PAS',
+  midiin                 in 'lib\midi\midiin.pas',
+  midiout                in 'lib\midi\midiout.pas',
+  MidiType               in 'lib\midi\MidiType.PAS',
+  {$ENDIF}
+
+  // FFMpeg units
+  avcodec                in 'lib\ffmpeg\avcodec.pas',
+  avformat               in 'lib\ffmpeg\avformat.pas',
+  avio                   in 'lib\ffmpeg\avio.pas',
+  avutil                 in 'lib\ffmpeg\avutil.pas',
+  opt                    in 'lib\ffmpeg\opt.pas',
+  rational               in 'lib\ffmpeg\rational.pas',
+
+
+  // Sql Lite
+  SQLiteTable3           in 'lib\SQLite\SQLiteTable3.pas',
+  SQLite3                in 'lib\SQLite\SQLite3.pas',
+
+
+  //------------------------------
+  //Includes - Menu System
+  //------------------------------
+  
+  UDisplay               in 'Menu\UDisplay.pas',
+  UDrawTexture           in 'Menu\UDrawTexture.pas',
+  UMenu                  in 'Menu\UMenu.pas',
+  UMenuButton            in 'Menu\UMenuButton.pas',
+  UMenuButtonCollection  in 'Menu\UMenuButtonCollection.pas',
+  UMenuInteract          in 'Menu\UMenuInteract.pas',
+  UMenuSelect            in 'Menu\UMenuSelect.pas',
+  UMenuSelectSlide       in 'Menu\UMenuSelectSlide.pas',
+  UMenuStatic            in 'Menu\UMenuStatic.pas',
+  UMenuText              in 'Menu\UMenuText.pas',
+
+  //------------------------------
+  //Includes - Classes
+  //------------------------------
+  
+  {$IFDEF FPC}
+  ulazjpeg               in 'Classes\ulazjpeg.pas',
+  {$ENDIF}
+
+  TextGL                 in 'Classes\TextGL.pas',
+  UCatCovers             in 'Classes\UCatCovers.pas',
+  UCommandLine           in 'Classes\UCommandLine.pas',
+  UCommon                in 'Classes\UCommon.pas',
+  UCovers                in 'Classes\UCovers.pas',
+  UDataBase              in 'Classes\UDataBase.pas',
+  UDLLManager            in 'Classes\UDLLManager.pas',
+  UDraw                  in 'Classes\UDraw.pas',
+  UFiles                 in 'Classes\UFiles.pas',
+  UGraphic               in 'Classes\UGraphic.pas',
+  UGraphicClasses        in 'Classes\UGraphicClasses.pas',
+  UIni                   in 'Classes\UIni.pas',
+  UJoystick              in 'Classes\UJoystick.pas',
+  ULanguage              in 'Classes\ULanguage.pas',
+  ULCD                   in 'Classes\ULCD.pas',
+  ULight                 in 'Classes\ULight.pas',
+  ULog                   in 'Classes\ULog.pas',
+  ULyrics                in 'Classes\ULyrics.pas',
+  ULyrics_bak            in 'Classes\ULyrics_bak.pas',
+  UMain                  in 'Classes\UMain.pas',
+  UMusic                 in 'Classes\UMusic.pas',
+  UParty                 in 'Classes\UParty.pas',
+  UPlaylist              in 'Classes\UPlaylist.pas',
+  URecord                in 'Classes\URecord.pas',
+  USkins                 in 'Classes\USkins.pas',
+  USongs                 in 'Classes\USongs.pas',
+  UTexture               in 'Classes\UTexture.pas',
+  UThemes                in 'Classes\UThemes.pas',
+  UTime                  in 'Classes\UTime.pas',
+
+
+  //------------------------------
+  //Includes - Video Support
+  //------------------------------
+  UVideo                 in 'Classes\UVideo.pas',
+
+
+  //------------------------------
+  //Includes - Screens
+  //------------------------------
+  UScreenCredits         in 'Screens\UScreenCredits.pas',
+  UScreenEdit            in 'Screens\UScreenEdit.pas',
+  UScreenEditConvert     in 'Screens\UScreenEditConvert.pas',
+  UScreenEditHeader      in 'Screens\UScreenEditHeader.pas',
+  UScreenEditSub         in 'Screens\UScreenEditSub.pas',
+  UScreenLevel           in 'Screens\UScreenLevel.pas',
+  UScreenLoading         in 'Screens\UScreenLoading.pas',
+  UScreenMain            in 'Screens\UScreenMain.pas',
+  UScreenName            in 'Screens\UScreenName.pas',
+  UScreenOpen            in 'Screens\UScreenOpen.pas',
+  UScreenOptions         in 'Screens\UScreenOptions.pas',
+  UScreenOptionsAdvanced in 'Screens\UScreenOptionsAdvanced.pas',
+  UScreenOptionsGame     in 'Screens\UScreenOptionsGame.pas',
+  UScreenOptionsGraphics in 'Screens\UScreenOptionsGraphics.pas',
+  UScreenOptionsLyrics   in 'Screens\UScreenOptionsLyrics.pas',
+  UScreenOptionsRecord   in 'Screens\UScreenOptionsRecord.pas',
+  UScreenOptionsSound    in 'Screens\UScreenOptionsSound.pas',
+  UScreenOptionsThemes   in 'Screens\UScreenOptionsThemes.pas',
+  UScreenPopup           in 'Screens\UScreenPopup.pas',
+  UScreenScore           in 'Screens\UScreenScore.pas',
+  UScreenSing            in 'Screens\UScreenSing.pas',
+  UScreenSong            in 'Screens\UScreenSong.pas',
+  UScreenSongJumpto      in 'Screens\UScreenSongJumpto.pas',
+  UScreenSongMenu        in 'Screens\UScreenSongMenu.pas',
+  UScreenStatDetail      in 'Screens\UScreenStatDetail.pas',
+  UScreenStatMain        in 'Screens\UScreenStatMain.pas',
+  UScreenTop5            in 'Screens\UScreenTop5.pas',
+  UScreenWelcome         in 'Screens\UScreenWelcome.pas',
+
+  //------------------------------
+  //Includes - Screens PartyMode
+  //------------------------------
+  UScreenPartyNewRound   in 'Screens\UScreenPartyNewRound.pas',
+  UScreenPartyOptions    in 'Screens\UScreenPartyOptions.pas',
+  UScreenPartyPlayer     in 'Screens\UScreenPartyPlayer.pas',
+  UScreenPartyScore      in 'Screens\UScreenPartyScore.pas',
+  UScreenPartyWin        in 'Screens\UScreenPartyWin.pas',
+  UScreenSingModi        in 'Screens\UScreenSingModi.pas',
+
+  //------------------------------
+  //Includes - Modi SDK
+  //------------------------------
+  ModiSDK                in '..\..\Modis\SDK\ModiSDK.pas',
+
+
+  //------------------------------
+  //Includes - Delphi
+  //------------------------------
+  {$IFDEF win32}
+  Windows,
+  {$ENDIF}
+  SysUtils;
+
+const
+  Version = 'UltraStar Deluxe V 1.10 Alpha Build';
+
+var
+  WndTitle: string;
+  hWnd: THandle;
+  I: Integer;
+
+begin
+  WndTitle := Version;
+
+  {$ifdef Win32}
+  //------------------------------
+  //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;
+  {$endif}
+
+  //------------------------------
+  //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;
+  
+  Log.LogStatus('Cleanup', 'Done');
+
+  //------------------------------
+  //Finish Application
+  //------------------------------
+  if Ini.LPT = 1 then LCD.Clear;
+  if Ini.LPT = 2 then Light.TurnOff;
+
+  Log.Free;
+end.