X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2FDoom2DF.lpr;h=8aa1809258ffe8270e8d4681eaa63adc29102e4b;hb=27be3c11b7c197efd13813735285e36f6c7c1485;hp=69cf03426e052d182a4c420038dc5eee71d30a8f;hpb=51374402c2585a179840350b3db9681c418c3e6f;p=d2df-sdl.git diff --git a/src/game/Doom2DF.lpr b/src/game/Doom2DF.lpr index 69cf034..8aa1809 100644 --- a/src/game/Doom2DF.lpr +++ b/src/game/Doom2DF.lpr @@ -41,9 +41,9 @@ uses {$ENDIF} {$IFDEF USE_SDL} - SDL, + SDL in '../lib/sdl/sdl.pas', {$IFDEF USE_SDLMIXER} - SDL_mixer, + SDL_mixer in '../lib/sdl/sdl_mixer.pas', {$ENDIF} {$ENDIF} {$IFDEF USE_SDL2} @@ -81,6 +81,10 @@ uses xmp in '../lib/xmp/xmp.pas', e_soundfile_xmp in '../engine/e_soundfile_xmp.pas', {$ENDIF} + {$IFDEF USE_GME} + gme in '../lib/gme/gme.pas', + e_soundfile_gme in '../engine/e_soundfile_gme.pas', + {$ENDIF} {$IFDEF USE_MPG123} mpg123 in '../lib/mpg123/mpg123.pas', e_soundfile_mp3 in '../engine/e_soundfile_mp3.pas', @@ -101,6 +105,7 @@ uses e_sound in '../engine/e_sound.pas', e_texture in '../engine/e_texture.pas', e_msg in '../engine/e_msg.pas', + e_res in '../engine/e_res.pas', utils in '../shared/utils.pas', xstreams in '../shared/xstreams.pas', sfs in '../sfs/sfs.pas', @@ -199,31 +204,12 @@ var {$ENDIF} //tfo: Text; begin - SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]); //k8: fuck off, that's why - {$IFDEF ANDROID} -{$I-} - e_SetSafeSlowLog(true); - if SDL_AndroidGetExternalStorageState() <> 0 then - begin - storage := SDL_AndroidGetExternalStoragePath(); - Chdir(storage); - e_WriteLog('Use external storage: ' + storage, TMsgType.Notify) - end - else - begin - storage := SDL_AndroidGetInternalStoragePath(); - Chdir(storage); - e_WriteLog('Use internal storage: ' + storage, TMsgType.Notify) - end; - if IOresult <> 0 then - begin - SDL_ShowSimpleMessageBox(SDL_MESSAGEBOX_ERROR, PChar('Invalid path'), PChar('Can''t chdir to ' + storage), nil); - result := 1; - exit - end; - SetEnvVar('TIMIDITY_CFG', 'timidity.cfg'); -{$ENDIF ANDROID} + System.argc := argc; + System.argv := argv; +{$ENDIF} + + SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]); //k8: fuck off, that's why f := 1; while f <= ParamCount do @@ -242,15 +228,6 @@ begin Inc(f) end; - if LogFileName = '' then - begin -{$IFDEF HEADLESS} - LogFileName := 'Doom2DF_H.log'; -{$ELSE} - LogFileName := 'Doom2DF.log'; -{$ENDIF} - end; - if noct then begin Main()