aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/UltraStar.lpr
blob: e74caf816e691da8a61ce5a1dc0edcff30aa4fa5 (plain) (blame)
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
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
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...
  //
  // ***************************************************************************

  // Interesting stuff... :)
  // http://burningsmell.org/sdl_audioin/


  //------------------------------
  //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',
  sdl_ttf                in 'lib\JEDI-SDLv1.0\SDL_ttf\Pas\sdl_ttf.pas',
  sdlutils               in 'lib\JEDI-SDLv1.0\SDL\Pas\sdlutils.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',
  UMedia_dummy           in 'Classes\UMedia_dummy.pas',  
//  UAudio_FFMpeg          in 'Classes\UAudio_FFMpeg.pas',
{$ifdef win32}
  UAudio_bass            in 'Classes\UAudio_bass.pas',
{$endif}

  UParty                 in 'Classes\UParty.pas',
  UPlaylist              in 'Classes\UPlaylist.pas',
  URecord                in 'Classes\URecord.pas',
  USkins                 in 'Classes\USkins.pas',
  USingScores            in 'Classes\USingScores.pas',
  USongs                 in 'Classes\USongs.pas',
  UTexture               in 'Classes\UTexture.pas',
  UThemes                in 'Classes\UThemes.pas',
  UTime                  in 'Classes\UTime.pas',
  USingNotes 		         in 'Classes\USingNotes.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;
  
  aFormatCtx : PAVFormatContext;//PAVCodecContext;
  aCodecCtx  : PAVCodecContext;
  VideoStreamIndex,
  AudioStreamIndex : integer;

begin



(*

av_register_all;
aFormatCtx := av_alloc_format_context();
if av_open_input_file( aFormatCtx, pchar( Paramstr(1) ), NIL, 0, NIL) = 0 then
begin
  if av_find_stream_info( aFormatCtx ) >= 0 then
  begin
    writeln('');
    dump_format(aFormatCtx, 0, pchar( Paramstr(1) ), 0);
    writeln('');

//    writeln( pchar( filename ) );
    
//    av_read_play( aFormatCtx );
    find_stream_ids( aFormatCtx , VideoStreamIndex , AudioStreamIndex );

    writeln( 'VideoStreamIndex : ' + inttostr(VideoStreamIndex) );
    writeln( 'AudioStreamIndex : ' + inttostr(AudioStreamIndex) );
    
    aCodecCtx := aFormatCtx.streams[ AudioStreamIndex ].codec;
    writeln( 'Audio Codec Channels: '+ inttostr( integer( aCodecCtx.channels ) ) );
    writeln( 'Audio Codec freq: '+ inttostr( integer( aCodecCtx.sample_rate ) ) );
    
    wanted_spec.freq = aCodecCtx->sample_rate;
    wanted_spec.format = AUDIO_S16SYS;
    wanted_spec.channels = aCodecCtx->channels;
    wanted_spec.silence = 0;
    wanted_spec.samples = SDL_AUDIO_BUFFER_SIZE;
    wanted_spec.callback = audio_callback;
    wanted_spec.userdata = aCodecCtx;
    
    if(SDL_OpenAudio(&wanted_spec, aCodecCtx) < 0) then
    begin
      writeln( 'Could not do SDL_OpenAudio' );
      exit;
    end;


  end;
end;

exit;
*)

  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');        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;

  // Insignificant change..

  Log.Free;
end.