X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2FDoom2DF.lpr;h=caa29550b00976720daa4d3c396c269dfc6ec300;hb=17a3d3f944849de3be0b3fae36c935367648a179;hp=69cf03426e052d182a4c420038dc5eee71d30a8f;hpb=51374402c2585a179840350b3db9681c418c3e6f;p=d2df-sdl.git diff --git a/src/game/Doom2DF.lpr b/src/game/Doom2DF.lpr index 69cf034..caa2955 100644 --- a/src/game/Doom2DF.lpr +++ b/src/game/Doom2DF.lpr @@ -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', @@ -148,6 +153,15 @@ uses g_touch in 'sdl2/g_touch.pas', {$ENDIF} + r_console in 'opengl/r_console.pas', + r_game in 'opengl/r_game.pas', + r_gfx in 'opengl/r_gfx.pas', + r_items in 'opengl/r_items.pas', + r_map in 'opengl/r_map.pas', + r_monsters in 'opengl/r_monsters.pas', + r_panel in 'opengl/r_panel.pas', + r_weapons in 'opengl/r_weapons.pas', + {$IFDEF USE_FMOD} fmod in '../lib/FMOD/fmod.pas', fmoderrors in '../lib/FMOD/fmoderrors.pas', @@ -201,30 +215,6 @@ var 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} - f := 1; while f <= ParamCount do begin @@ -242,15 +232,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()