1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
|
{* UltraStar Deluxe - Karaoke Game
*
* UltraStar Deluxe is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
*
* $URL$
* $Id$
*}
program ultrastardx;
{$IFDEF MSWINDOWS}
{$R '..\res\ultrastardx.res' '..\res\ultrastardx.rc'}
{$ENDIF}
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
{$I switches.inc}
{$IFDEF MSWINDOWS}
// Set global application-type (GUI/CONSOLE) switch for Windows.
// CONSOLE is the default for FPC, GUI for Delphi, so we have
// to specify one of the two in any case.
{$IFDEF CONSOLE}
{$APPTYPE CONSOLE}
{$ELSE}
{$APPTYPE GUI}
{$ENDIF}
{$ENDIF}
uses
{$IFDEF Unix}
cthreads, // THIS MUST be the first used unit in FPC if Threads are used!!
// (see http://wiki.lazarus.freepascal.org/Multithreaded_Application_Tutorial)
cwstring, // Enable Unicode support
{$ENDIF}
{$IFNDEF FPC}
ctypes in 'lib\ctypes\ctypes.pas', // FPC compatibility types for C libs
{$ENDIF}
//------------------------------
//Includes - 3rd Party Libraries
//------------------------------
moduleloader in 'lib\JEDI-SDL\SDL\Pas\moduleloader.pas',
gl in 'lib\JEDI-SDL\OpenGL\Pas\gl.pas',
glu in 'lib\JEDI-SDL\OpenGL\Pas\glu.pas',
glext in 'lib\JEDI-SDL\OpenGL\Pas\glext.pas',
sdl in 'lib\JEDI-SDL\SDL\Pas\sdl.pas',
sdl_image in 'lib\JEDI-SDL\SDL_Image\Pas\sdl_image.pas',
sdlutils in 'lib\JEDI-SDL\SDL\Pas\sdlutils.pas',
sdlstreams in 'lib\JEDI-SDL\SDL\Pas\sdlstreams.pas',
UMediaCore_SDL in 'media\UMediaCore_SDL.pas',
zlib in 'lib\zlib\zlib.pas',
png in 'lib\libpng\png.pas',
freetype in 'lib\freetype\freetype.pas',
{$IFDEF UseBass}
bass in 'lib\bass\delphi\bass.pas',
UAudioCore_Bass in 'media\UAudioCore_Bass.pas',
{$ENDIF}
{$IFDEF UsePortaudio}
portaudio in 'lib\portaudio\portaudio.pas',
UAudioCore_Portaudio in 'media\UAudioCore_Portaudio.pas',
{$ENDIF}
{$IFDEF UsePortmixer}
portmixer in 'lib\portmixer\portmixer.pas',
{$ENDIF}
{$IFDEF UseFFmpeg}
{$IFDEF FPC} // This solution is not very elegant, but working
avcodec in 'lib\' + FFMPEG_DIR + '\avcodec.pas',
avformat in 'lib\' + FFMPEG_DIR + '\avformat.pas',
avutil in 'lib\' + FFMPEG_DIR + '\avutil.pas',
rational in 'lib\' + FFMPEG_DIR + '\rational.pas',
avio in 'lib\' + FFMPEG_DIR + '\avio.pas',
{$IFDEF useOLD_FFMPEG}
mathematics in 'lib\' + FFMPEG_DIR + '\mathematics.pas',
opt in 'lib\' + FFMPEG_DIR + '\opt.pas',
{$ENDIF}
{$IFDEF UseSWScale}
swscale in 'lib\' + FFMPEG_DIR + '\swscale.pas',
swresample in 'lib\' + FFMPEG_DIR + '\swresample.pas',
{$ENDIF}
{$ELSE} // speak: This is for Delphi. Change version as needed!
avcodec in 'lib\ffmpeg-0.10\avcodec.pas',
avformat in 'lib\ffmpeg-0.10\avformat.pas',
avutil in 'lib\ffmpeg-0.10\avutil.pas',
rational in 'lib\ffmpeg-0.10\rational.pas',
avio in 'lib\ffmpeg-0.10\avio.pas',
{$IFDEF UseSWScale}
swscale in 'lib\ffmpeg-0.10\swscale.pas',
swresample in 'lib\ffmpeg-0.10\swresample.pas',
{$ENDIF}
{$ENDIF}
UMediaCore_FFmpeg in 'media\UMediaCore_FFmpeg.pas',
{$ENDIF} // UseFFmpeg
{$IFDEF UseSRCResample}
samplerate in 'lib\samplerate\samplerate.pas',
{$ENDIF}
{$IFDEF UseProjectM}
projectM in 'lib\projectM\projectM.pas',
{$ENDIF}
MidiCons in 'lib\midi\MidiCons.pas',
{$IFDEF MSWINDOWS}
CircBuf in 'lib\midi\CircBuf.pas',
DelphiMcb in 'lib\midi\DelphiMcb.pas',
MidiDefs in 'lib\midi\MidiDefs.pas',
MidiFile in 'lib\midi\MidiFile.pas',
MidiOut in 'lib\midi\MidiOut.pas',
MidiType in 'lib\midi\MidiType.pas',
{$IFDEF FPC}
// FPC compatibility file for Allocate/DeallocateHWnd
WinAllocation in 'lib\other\WinAllocation.pas',
{$ENDIF}
DirWatch in 'lib\other\DirWatch.pas',
{$ENDIF}
{$IFDEF DARWIN}
PseudoThread in 'macosx\PseudoThread.pas',
{$ENDIF}
SQLiteTable3 in 'lib\SQLite\SQLiteTable3.pas',
SQLite3 in 'lib\SQLite\SQLite3.pas',
pcre in 'lib\pcre\pcre.pas',
{$IFDEF MSWINDOWS}
// TntUnicodeControls
TntSystem in 'lib\TntUnicodeControls\TntSystem.pas',
TntSysUtils in 'lib\TntUnicodeControls\TntSysUtils.pas',
TntWindows in 'lib\TntUnicodeControls\TntWindows.pas',
TntWideStrUtils in 'lib\TntUnicodeControls\TntWideStrUtils.pas',
TntClasses in 'lib\TntUnicodeControls\TntClasses.pas',
TntFormatStrUtils in 'lib\TntUnicodeControls\TntFormatStrUtils.pas',
{$IFNDEF DELPHI_10_UP} // WideStrings for FPC and Delphi < 2006
TntWideStrings in 'lib\TntUnicodeControls\TntWideStrings.pas',
{$ENDIF}
{$ENDIF}
//------------------------------
//Includes - Lua Support
//------------------------------
ULua in 'lib\Lua\ULua.pas',
ULuaUtils in 'lua\ULuaUtils.pas',
ULuaGl in 'lua\ULuaGl.pas',
ULuaLog in 'lua\ULuaLog.pas',
ULuaTextGL in 'lua\ULuaTextGL.pas',
ULuaTexture in 'lua\ULuaTexture.pas',
UHookableEvent in 'lua\UHookableEvent.pas',
ULuaCore in 'lua\ULuaCore.pas',
ULuaUsdx in 'lua\ULuaUsdx.pas',
ULuaParty in 'lua\ULuaParty.pas',
ULuaScreenSing in 'lua\ULuaScreenSing.pas',
//------------------------------
//Includes - Menu System
//------------------------------
UDisplay in 'menu\UDisplay.pas',
UMenu in 'menu\UMenu.pas',
UMenuStatic in 'menu\UMenuStatic.pas',
UMenuText in 'menu\UMenuText.pas',
UMenuButton in 'menu\UMenuButton.pas',
UMenuInteract in 'menu\UMenuInteract.pas',
UMenuSelectSlide in 'menu\UMenuSelectSlide.pas',
UMenuEqualizer in 'menu\UMenuEqualizer.pas',
UDrawTexture in 'menu\UDrawTexture.pas',
UMenuButtonCollection in 'menu\UMenuButtonCollection.pas',
UMenuBackground in 'menu\UMenuBackground.pas',
UMenuBackgroundNone in 'menu\UMenuBackgroundNone.pas',
UMenuBackgroundColor in 'menu\UMenuBackgroundColor.pas',
UMenuBackgroundTexture in 'menu\UMenuBackgroundTexture.pas',
UMenuBackgroundVideo in 'menu\UMenuBackgroundVideo.pas',
UMenuBackgroundFade in 'menu\UMenuBackgroundFade.pas',
//------------------------------
//Includes - base
//------------------------------
UConfig in 'base\UConfig.pas',
UCommon in 'base\UCommon.pas',
UGraphic in 'base\UGraphic.pas',
UTexture in 'base\UTexture.pas',
ULanguage in 'base\ULanguage.pas',
UMain in 'base\UMain.pas',
UDraw in 'base\UDraw.pas',
URecord in 'base\URecord.pas',
UTime in 'base\UTime.pas',
USong in 'base\USong.pas',
UXMLSong in 'base\UXMLSong.pas',
USongs in 'base\USongs.pas',
UIni in 'base\UIni.pas',
UImage in 'base\UImage.pas',
ULyrics in 'base\ULyrics.pas',
UEditorLyrics in 'base\UEditorLyrics.pas',
USkins in 'base\USkins.pas',
UThemes in 'base\UThemes.pas',
ULog in 'base\ULog.pas',
UJoystick in 'base\UJoystick.pas',
UDataBase in 'base\UDataBase.pas',
UCovers in 'base\UCovers.pas',
UCatCovers in 'base\UCatCovers.pas',
UFiles in 'base\UFiles.pas',
UGraphicClasses in 'base\UGraphicClasses.pas',
UPlaylist in 'base\UPlaylist.pas',
UCommandLine in 'base\UCommandLine.pas',
URingBuffer in 'base\URingBuffer.pas',
USingScores in 'base\USingScores.pas',
USingNotes in 'base\USingNotes.pas',
UPathUtils in 'base\UPathUtils.pas',
UNote in 'base\UNote.pas',
UBeatTimer in 'base\UBeatTimer.pas',
TextGL in 'base\TextGL.pas',
UUnicodeUtils in 'base\UUnicodeUtils.pas',
UFont in 'base\UFont.pas',
UTextEncoding in 'base\UTextEncoding.pas',
UPath in 'base\UPath.pas',
UFilesystem in 'base\UFilesystem.pas',
//------------------------------
//Includes - Plugin Support
//------------------------------
UParty in 'base\UParty.pas', // TODO: rewrite Party Manager as Module, reomplent ability to offer party Mody by Plugin
//------------------------------
//Includes - Platform
//------------------------------
UPlatform in 'base\UPlatform.pas',
{$IF Defined(MSWINDOWS)}
UPlatformWindows in 'base\UPlatformWindows.pas',
{$ELSEIF Defined(DARWIN)}
UPlatformMacOSX in 'base\UPlatformMacOSX.pas',
{$ELSEIF Defined(UNIX)}
UPlatformLinux in 'base\UPlatformLinux.pas',
{$IFEND}
//------------------------------
//Includes - Media
//------------------------------
UMusic in 'base\UMusic.pas',
UAudioPlaybackBase in 'media\UAudioPlaybackBase.pas',
{$IF Defined(UsePortaudioPlayback) or Defined(UseSDLPlayback)}
UFFT in 'lib\fft\UFFT.pas',
UAudioPlayback_SoftMixer in 'media\UAudioPlayback_SoftMixer.pas',
{$IFEND}
UAudioConverter in 'media\UAudioConverter.pas',
//******************************
//Pluggable media modules
// The modules are prioritized as in the include list below.
// This means the first entry has highest priority, the last lowest.
//******************************
{$IFDEF UseFFmpegVideo}
UVideo in 'media\UVideo.pas',
{$ENDIF}
{$IFDEF UseProjectM}
// must be after UVideo, so it will not be the default video module
UVisualizer in 'media\UVisualizer.pas',
{$ENDIF}
{$IFDEF UseBASSInput}
UAudioInput_Bass in 'media\UAudioInput_Bass.pas',
{$ENDIF}
{$IFDEF UseBASSDecoder}
// prefer Bass to FFmpeg if possible
UAudioDecoder_Bass in 'media\UAudioDecoder_Bass.pas',
{$ENDIF}
{$IFDEF UseBASSPlayback}
UAudioPlayback_Bass in 'media\UAudioPlayback_Bass.pas',
{$ENDIF}
{$IFDEF UseSDLPlayback}
UAudioPlayback_SDL in 'media\UAudioPlayback_SDL.pas',
{$ENDIF}
{$IFDEF UsePortaudioInput}
UAudioInput_Portaudio in 'media\UAudioInput_Portaudio.pas',
{$ENDIF}
{$IFDEF UsePortaudioPlayback}
UAudioPlayback_Portaudio in 'media\UAudioPlayback_Portaudio.pas',
{$ENDIF}
{$IFDEF UseFFmpegDecoder}
UAudioDecoder_FFmpeg in 'media\UAudioDecoder_FFmpeg.pas',
{$ENDIF}
// fallback dummy, must be last
UMedia_dummy in 'media\UMedia_dummy.pas',
//------------------------------
//Includes - Screens
//------------------------------
UScreenLoading in 'screens\UScreenLoading.pas',
UScreenMain in 'screens\UScreenMain.pas',
UScreenName in 'screens\UScreenName.pas',
UScreenLevel in 'screens\UScreenLevel.pas',
UScreenSong in 'screens\UScreenSong.pas',
UScreenSing in 'screens\UScreenSing.pas',
UScreenScore in 'screens\UScreenScore.pas',
UScreenJukebox in 'screens\UScreenJukebox.pas',
UScreenOptions in 'screens\UScreenOptions.pas',
UScreenOptionsGame in 'screens\UScreenOptionsGame.pas',
UScreenOptionsGraphics in 'screens\UScreenOptionsGraphics.pas',
UScreenOptionsSound in 'screens\UScreenOptionsSound.pas',
UScreenOptionsLyrics in 'screens\UScreenOptionsLyrics.pas',
UScreenOptionsThemes in 'screens\UScreenOptionsThemes.pas',
UScreenOptionsRecord in 'screens\UScreenOptionsRecord.pas',
UScreenOptionsAdvanced in 'screens\UScreenOptionsAdvanced.pas',
UScreenEditSub in 'screens\UScreenEditSub.pas',
UScreenEdit in 'screens\UScreenEdit.pas',
UScreenEditConvert in 'screens\UScreenEditConvert.pas',
UScreenEditHeader in 'screens\UScreenEditHeader.pas',
UScreenOpen in 'screens\UScreenOpen.pas',
UScreenTop5 in 'screens\UScreenTop5.pas',
UScreenSongMenu in 'screens\UScreenSongMenu.pas',
UScreenSongJumpto in 'screens\UScreenSongJumpto.pas',
UScreenStatMain in 'screens\UScreenStatMain.pas',
UScreenStatDetail in 'screens\UScreenStatDetail.pas',
UScreenCredits in 'screens\UScreenCredits.pas',
UScreenPopup in 'screens\UScreenPopup.pas',
//Includes - Screens PartyMode
UScreenPartyNewRound in 'screens\UScreenPartyNewRound.pas',
UScreenPartyScore in 'screens\UScreenPartyScore.pas',
UScreenPartyPlayer in 'screens\UScreenPartyPlayer.pas',
UScreenPartyOptions in 'screens\UScreenPartyOptions.pas',
UScreenPartyRounds in 'screens\UScreenPartyRounds.pas',
UScreenPartyWin in 'screens\UScreenPartyWin.pas',
SysUtils;
const
sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF}
{$IFDEF DARWIN} AnsiChar(#10) {$ENDIF}
{$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};
var
I: Integer;
Report: string;
begin
try
Main;
except
on E : Exception do
begin
Report := 'Sorry, an error ocurred! Please report this error to the game-developers. Also check the Error.log file in the game folder.' + LineEnding +
'Stacktrace:' + LineEnding;
if E <> nil then begin
Report := Report + 'Exception class: ' + E.ClassName + LineEnding +
'Message: ' + E.Message + LineEnding;
end;
Report := Report + BackTraceStrFunc(ExceptAddr);
for I := 0 to ExceptFrameCount - 1 do
Report := Report + LineEnding + BackTraceStrFunc(ExceptFrames[I]);
ShowMessage(Report);
Halt;
end;
end;
end.
|