aboutsummaryrefslogtreecommitdiffstats
path: root/Game
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenCredits.pas9
-rw-r--r--Game/Code/UltraStar.lpi719
-rw-r--r--Game/Code/UltraStar.lpr831
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.
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-08 01:00:11 +0000