X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_main.pas;h=0e349afbbdc61f35e582f3c00d6bf7bcaf147bae;hp=e1e21d8d3de2ea5563dd89df7c88776272646775;hb=97d60066e65ea8b2377a2a7137c3a0c3cb5d63a4;hpb=cd1240f995a9e5be94fe308e9b52b0cc7763d843 diff --git a/src/game/g_main.pas b/src/game/g_main.pas index e1e21d8..0e349af 100644 --- a/src/game/g_main.pas +++ b/src/game/g_main.pas @@ -1,9 +1,8 @@ -(* Copyright (C) DooM 2D:Forever Developers +(* Copyright (C) Doom 2D: Forever Developers * * 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 3 of the License, or - * (at your option) any later version. + * the Free Software Foundation, version 3 of the License ONLY. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -13,151 +12,439 @@ * You should have received a copy of the GNU General Public License * along with this program. If not, see . *) -{$MODE DELPHI} +{$INCLUDE ../shared/a_modes.inc} unit g_main; interface -procedure Main(); -procedure Init(); -procedure Release(); -procedure Update(); -procedure Draw(); -procedure KeyPress(K: Word); -procedure CharPress(C: Char); + uses Utils; + +procedure Main (); +procedure Init (); +procedure Release (); +procedure Update (); +procedure Draw (); +procedure KeyPress (K: Word); +procedure CharPress (C: AnsiChar); var - GameDir: string; - DataDir: string; - MapsDir: string; - ModelsDir: string; + {--- TO REMOVE ---} + //GameDir: string; + {-----------------} + + {--- Read-only dirs ---} GameWAD: string; + DataDirs: SSArray; + ModelDirs: SSArray; + MegawadDirs: SSArray; + MapDirs: SSArray; + WadDirs: SSArray; + AllMapDirs: SSArray; // Maps + Megawads + + {--- Read-Write dirs ---} + LogFileName: string; + LogDirs: SSArray; + SaveDirs: SSArray; + CacheDirs: SSArray; + ConfigDirs: SSArray; + ScreenshotDirs: SSArray; + MapDownloadDirs: SSArray; + WadDownloadDirs: SSArray; implementation uses - SDL2, GL, GLExt, wadreader, e_log, g_window, +{$INCLUDE ../nogl/noGLuses.inc} +{$IFDEF ENABLE_HOLMES} + g_holmes, sdlcarcass, fui_ctls, fui_wadread, fui_style, fui_gfx_gl, +{$ENDIF} +{$IFDEF LINUX} + BaseUnix, +{$ENDIF} + wadreader, e_log, g_window, e_graphics, e_input, g_game, g_console, g_gui, - e_sound, g_options, g_sound, g_player, - g_weapons, SysUtils, g_triggers, MAPDEF, g_map, - MAPSTRUCT, g_menu, g_language, g_net, utils; + e_sound, g_options, g_sound, g_player, g_basic, + g_weapons, SysUtils, g_triggers, MAPDEF, g_map, e_res, + g_menu, g_language, g_net, g_touch, g_system, g_res_downloader, + conbuf, envvars, + xparser; + var - charbuff: Array [0..15] of Char; + charbuff: packed array [0..15] of AnsiChar; + binPath: AnsiString = ''; + forceCurrentDir: Boolean = false; -procedure Main(); + +function GetBinaryPath (): AnsiString; +{$IFDEF LINUX} var - sdlflags: LongWord; + //cd: AnsiString; + sl: AnsiString; +{$ENDIF} begin - e_InitWritelnDriver(); + result := ExtractFilePath(ParamStr(0)); + {$IFDEF LINUX} + // it may be a symlink; do some guesswork here + sl := fpReadLink(ExtractFileName(ParamStr(0))); + if (sl = ParamStr(0)) then + begin + // use current directory, as we don't have anything better + //result := '.'; + GetDir(0, result); + end; + {$ENDIF} + result := fixSlashes(result); + if (length(result) > 0) and (result[length(result)] <> '/') then result := result+'/'; +end; - GetDir(0, GameDir); - MapsDir := GameDir + '/maps/'; - DataDir := GameDir + '/data/'; - ModelsDir := DataDir + 'models/'; - GameWAD := DataDir + 'Game.wad'; - e_InitLog(GameDir + '/' + LOG_FILENAME, WM_NEWFILE); +procedure InitPath; + var i: Integer; rwdir, rodir: AnsiString; + //first: Boolean = true; - e_WriteLog('Read config file', MSG_NOTIFY); - g_Options_Read(GameDir + '/' + CONFIG_FILENAME); + procedure xput (s: AnsiString); + { + var + f: TextFile; + begin + AssignFile(f, 'zzz.log'); + if (first) then + begin + Rewrite(f); + first := false; + end + else + begin + Append(f); + end; + writeln(f, s); + CloseFile(f); + end; + } + begin + end; - e_WriteToStdOut := False; //{$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF} + procedure AddPath (var arr: SSArray; str: AnsiString; usecwd: Boolean=true); + var + ss: ShortString; + begin + if (length(str) = 0) then exit; + //writeln('NEW PATH(0): ['+str+']'); + if (forceCurrentDir or usecwd) then + begin + str := fixSlashes(ExpandFileName(str)); + end + else + begin + str := fixSlashes(str); + if (not isAbsolutePath(str)) then str := binPath+str; + while (length(str) > 0) do + begin + if (isRootPath(str)) then exit; + if (str[length(str)] = '/') then begin Delete(str, length(str), 1); continue; end; + if (length(str) >= 2) and (Copy(str, length(str)-1, 2) = '/.') then begin Delete(str, length(str)-1, 2); continue; end; + break; + end; + end; + if (length(str) = 0) then exit; + if (length(str) > 255) then + begin + xput('path too long: ['+str+']'); + raise Exception.Create(Format('path "%s" too long', [str])); + end; + for ss in arr do + begin + //writeln('<<<', ss, '>>> : [', str, ']'); + if (ss = str) then exit; + end; + SetLength(arr, Length(arr)+1); + //arr[High(arr)] := ExpandFileName(str); + arr[High(arr)] := str; + //writeln('NEW PATH(1): ['+str+']'); + end; - //GetSystemDefaultLCID() + procedure AddDef (var arr: SSArray; str: AnsiString); + begin + if (length(arr) = 0) then AddPath(arr, str, false) + end; - //e_WriteLog('Read language file', MSG_NOTIFY); - //g_Language_Load(DataDir + gLanguage + '.txt'); - e_WriteLog(gLanguage, MSG_NOTIFY); - g_Language_Set(gLanguage); +begin + //GetDir(0, GameDir); + binPath := GetBinaryPath(); + xput('binPath=['+binPath+']'); -{$IFDEF HEADLESS} - sdlflags := SDL_INIT_TIMER or $00004000; -{$ELSE} - {$IFDEF USE_SDLMIXER} - sdlflags := SDL_INIT_EVERYTHING; - {$ELSE} - sdlflags := SDL_INIT_JOYSTICK or SDL_INIT_TIMER or SDL_INIT_VIDEO; - {$ENDIF} + for i := 1 to ParamCount do if (ParamStr(i) = '--cwd') then begin forceCurrentDir := true; break; end; + + i := 1; + while i < ParamCount do + begin + case ParamStr(i) of + '--rw-dir': + begin + Inc(i); + rwdir := ParamStr(i); + (* RW *) + AddPath(LogDirs, e_CatPath(rwdir, '')); + AddPath(SaveDirs, e_CatPath(rwdir, 'data')); + AddPath(CacheDirs, e_CatPath(rwdir, 'data/cache')); + AddPath(ConfigDirs, e_CatPath(rwdir, '')); + AddPath(MapDownloadDirs, e_CatPath(rwdir, 'maps/downloads')); + AddPath(WadDownloadDirs, e_CatPath(rwdir, 'wads/downloads')); + AddPath(ScreenshotDirs, e_CatPath(rwdir, 'screenshots')); + (* RO *) + AddPath(DataDirs, e_CatPath(rwdir, 'data')); + AddPath(ModelDirs, e_CatPath(rwdir, 'data/models')); + AddPath(MegawadDirs, e_CatPath(rwdir, 'maps/megawads')); + AddPath(MapDirs, e_CatPath(rwdir, 'maps')); + AddPath(WadDirs, e_CatPath(rwdir, 'wads')); + end; + '--ro-dir': + begin + Inc(i); + rodir := ParamStr(i); + (* RO *) + AddPath(DataDirs, e_CatPath(rodir, 'data')); + AddPath(ModelDirs, e_CatPath(rodir, 'data/models')); + AddPath(MegawadDirs, e_CatPath(rodir, 'maps/megawads')); + AddPath(MapDirs, e_CatPath(rodir, 'maps')); + AddPath(WadDirs, e_CatPath(rodir, 'wads')); + end; + end; + Inc(i) + end; + + (* RO *) + AddDef(DataDirs, 'data'); + AddDef(ModelDirs, 'data/models'); + AddDef(MegawadDirs, 'maps/megawads'); + AddDef(MapDirs, 'maps'); + AddDef(WadDirs, 'wads'); + (* RW *) + AddDef(LogDirs, '.'); + AddDef(SaveDirs, 'data'); + AddDef(CacheDirs, 'data/cache'); + AddDef(ConfigDirs, '.'); + AddDef(MapDownloadDirs, 'maps/downloads'); + AddDef(WadDownloadDirs, 'wads/downloads'); + AddDef(ScreenshotDirs, 'screenshots'); + + for i := 0 to High(MapDirs) do + AddPath(AllMapDirs, MapDirs[i]); + for i := 0 to High(MegawadDirs) do + AddPath(AllMapDirs, MegawadDirs[i]); + + if LogFileName = '' then + begin + rwdir := e_GetWriteableDir(LogDirs, false); + if rwdir <> '' then + begin + {$IFDEF HEADLESS} + LogFileName := e_CatPath(rwdir, 'Doom2DF_H.log'); + {$ELSE} + LogFileName := e_Catpath(rwdir, 'Doom2DF.log'); + {$ENDIF} + end + end; + + xput('binPath=['+binPath+']'); +end; + +procedure Main(); +{$IFDEF ENABLE_HOLMES} + var flexloaded: Boolean; {$ENDIF} - if SDL_Init(sdlflags) < 0 then - raise Exception.Create('SDL: Init failed: ' + SDL_GetError()); + var s: AnsiString; +begin + InitPath; + if LogFileName <> '' then + e_InitLog(LogFileName, TWriteMode.WM_NEWFILE); + e_InitWritelnDriver(); + +// e_InitLog(GameDir + '/' + LogFileName, TWriteMode.WM_NEWFILE); + + e_WriteLog( + 'Doom 2D: Forever version ' + GAME_VERSION + + ' proto ' + IntToStr(NET_PROTOCOL_VER), + TMsgType.Notify + ); + e_WriteLog( + 'Build date: ' + GAME_BUILDDATE + ' ' + GAME_BUILDTIME, + TMsgType.Notify + ); + + e_LogWritefln('BINARY PATH: [%s]', [binPath], TMsgType.Notify); + + GameWAD := e_FindWad(DataDirs, 'GAME'); + assert(GameWad <> '', 'GAME.WAD not installed?'); {$IFDEF HEADLESS} - SDL_StartTextInput(); + conbufDumpToStdOut := true; {$ENDIF} + e_WriteToStdOut := False; //{$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF} - e_WriteLog('Entering SDLMain', MSG_NOTIFY); + e_InitInput; -{$WARNINGS OFF} - SDLMain(); -{$WARNINGS ON} + sys_Init; -{$IFDEF HEADLESS} - SDL_StopTextInput(); + s := CONFIG_FILENAME; + if e_FindResource(ConfigDirs, s) = true then + begin + g_Options_Read(s) + end + else + begin + g_Options_SetDefault; + g_Options_SetDefaultVideo + end; + if sys_SetDisplayMode(gScreenWidth, gScreenHeight, gBPP, gFullScreen) = False then + raise Exception.Create('Failed to set videomode on startup.'); + + g_Console_SysInit; + e_WriteLog(gLanguage, TMsgType.Notify); + g_Language_Set(gLanguage); + +{$IF not DEFINED(HEADLESS) and DEFINED(ENABLE_HOLMES)} + flexloaded := true; + if not fuiAddWad('flexui.wad') then + begin + if not fuiAddWad('./data/flexui.wad') then fuiAddWad('./flexui.wad'); + end; + try + fuiGfxLoadFont('win8', 'flexui/fonts/win8.fuifont'); + fuiGfxLoadFont('win14', 'flexui/fonts/win14.fuifont'); + fuiGfxLoadFont('win16', 'flexui/fonts/win16.fuifont'); + fuiGfxLoadFont('dos8', 'flexui/fonts/dos8.fuifont'); + fuiGfxLoadFont('msx6', 'flexui/fonts/msx6.fuifont'); + except on e: Exception do + begin + writeln('ERROR loading FlexUI fonts'); + flexloaded := false; + //raise; + end; + else + begin + flexloaded := false; + //raise; + end; + end; + if (flexloaded) then + begin + try + e_LogWriteln('FlexUI: loading stylesheet...'); + uiLoadStyles('flexui/widgets.wgs'); + except on e: TParserException do + begin + writeln('ERROR at (', e.tokLine, ',', e.tokCol, '): ', e.message); + //raise; + flexloaded := false; + end; + else + begin + //raise; + flexloaded := false; + end; + end; + end; + g_holmes_imfunctional := not flexloaded; + + if (not g_holmes_imfunctional) then + begin + uiInitialize(); + uiContext.font := 'win14'; + end; + + if assigned(oglInitCB) then oglInitCB; {$ENDIF} - e_WriteLog('Releasing SDL', MSG_NOTIFY); - SDL_Quit(); + //g_Res_CreateDatabases(true); // it will be done before connecting to the server for the first time + + e_WriteLog('Entering SDLMain', TMsgType.Notify); + + {$WARNINGS OFF} + SDLMain(); + {$WARNINGS ON} + + {$IFDEF ENABLE_HOLMES} + if assigned(oglDeinitCB) then oglDeinitCB; + {$ENDIF} + + sys_Final; end; procedure Init(); var - a: Integer; + NoSound: Boolean; begin Randomize; - e_WriteLog('Init Input', MSG_NOTIFY); - e_InitInput(); +{$IFDEF HEADLESS} + {$IFDEF USE_SDLMIXER} + NoSound := False; // hope env has set SDL_AUDIODRIVER to dummy + {$ELSE} + NoSound := True; // FMOD backend will sort it out + {$ENDIF} +{$ELSE} + NoSound := False; +{$ENDIF} + + g_Touch_Init; +(* if (e_JoysticksAvailable > 0) then - e_WriteLog('Input: Joysticks available.', MSG_NOTIFY) + e_WriteLog('Input: Joysticks available.', TMsgType.Notify) else - e_WriteLog('Input: No Joysticks.', MSG_NOTIFY); + e_WriteLog('Input: No Joysticks.', TMsgType.Notify); +*) if (not gNoSound) then begin - e_WriteLog('Initializing sound system', MSG_NOTIFY); - e_InitSoundSystem({$IFDEF HEADLESS}True{$ELSE}False{$ENDIF}); + e_WriteLog('Initializing sound system', TMsgType.Notify); + e_InitSoundSystem(NoSound); end; - e_WriteLog('Init game', MSG_NOTIFY); + e_WriteLog('Init game', TMsgType.Notify); g_Game_Init(); - for a := 0 to 15 do charbuff[a] := ' '; + FillChar(charbuff, sizeof(charbuff), ' '); end; + procedure Release(); begin - e_WriteLog('Releasing engine', MSG_NOTIFY); + e_WriteLog('Releasing engine', TMsgType.Notify); e_ReleaseEngine(); - e_WriteLog('Releasing Input', MSG_NOTIFY); + e_WriteLog('Releasing input', TMsgType.Notify); e_ReleaseInput(); if not gNoSound then begin - e_WriteLog('Releasing FMOD', MSG_NOTIFY); + e_WriteLog('Releasing sound', TMsgType.Notify); e_ReleaseSoundSystem(); end; end; -procedure Update(); + +procedure Update (); begin g_Game_Update(); end; -procedure Draw(); + +procedure Draw (); begin g_Game_Draw(); end; -function Translit(S: String): String; + +function Translit (const S: AnsiString): AnsiString; var i: Integer; begin Result := S; for i := 1 to Length(Result) do + begin case Result[i] of 'É': Result[i] := 'Q'; 'Ö': Result[i] := 'W'; @@ -192,6 +479,7 @@ begin 'Á': Result[i] := ','; //Chr(188); 'Þ': Result[i] := '.'; //Chr(190); end; + end; end; @@ -222,19 +510,23 @@ begin end; -procedure Cheat(); +procedure Cheat (); const CHEAT_DAMAGE = 500; label Cheated; var s, s2: string; - c: Char16; + c: ShortString; a: Integer; begin + { if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode)) or g_Game_IsNet then Exit; + } + if not gGameOn then exit; + if not conIsCheatsEnabled then exit; s := 'SOUND_GAME_RADIO'; @@ -281,7 +573,8 @@ begin if gTriggers[a].TriggerType = TRIGGER_EXIT then begin gExitByTrigger := True; - g_Game_ExitLevel(gTriggers[a].Data.MapName); + //g_Game_ExitLevel(gTriggers[a].Data.MapName); + g_Game_ExitLevel(gTriggers[a].tgcMap); Break; end; goto Cheated; @@ -290,11 +583,9 @@ begin s2 := Copy(charbuff, 15, 2); if CheckCheat(I_GAME_CHEAT_CHANGEMAP, 2) and (s2[1] >= '0') and (s2[1] <= '9') and (s2[2] >= '0') and (s2[2] <= '9') then begin - if g_Map_Exist(MapsDir+gGameSettings.WAD+':\MAP'+s2) then + if g_Map_Exist(gGameSettings.WAD + ':\MAP' + s2) then begin - c := 'MAP00'; - c[3] := s2[1]; - c[4] := s2[2]; + c := 'MAP' + s2; g_Game_ExitLevel(c); end; goto Cheated; @@ -382,88 +673,62 @@ Cheated: g_Sound_PlayEx(s); end; -procedure KeyPress(K: Word); + +procedure KeyPress (K: Word); +{$IFNDEF HEADLESS} var Msg: g_gui.TMessage; +{$ENDIF} begin +{$IFNDEF HEADLESS} case K of - IK_PAUSE: // : - begin - if (g_ActiveWindow = nil) then - g_Game_Pause(not gPause); - end; - - IK_BACKQUOTE: // <`/~/¨/¸>: - begin - g_Console_Switch(); - end; - - IK_ESCAPE: // : + VK_ESCAPE: // : begin - if gChatShow then + if (g_ActiveWindow <> nil) then begin - g_Console_Chat_Switch(); - Exit; - end; - - if gConsoleShow then - g_Console_Switch() - else - if g_ActiveWindow <> nil then + Msg.Msg := WM_KEYDOWN; + Msg.WParam := VK_ESCAPE; + g_ActiveWindow.OnMessage(Msg); + if (not g_Game_IsNet) and (g_ActiveWindow = nil) then g_Game_Pause(false); //Fn loves to do this + end + else if (gState <> STATE_FOLD) then + begin + if gGameOn or (gState = STATE_INTERSINGLE) or (gState = STATE_INTERCUSTOM) then + begin + g_Game_InGameMenu(True); + end + else if (gExit = 0) and (gState <> STATE_SLIST) then + begin + if (gState <> STATE_MENU) then begin - Msg.Msg := WM_KEYDOWN; - Msg.WParam := IK_ESCAPE; - g_ActiveWindow.OnMessage(Msg); - end - else - if gState <> STATE_FOLD then - if gGameOn - or (gState = STATE_INTERSINGLE) - or (gState = STATE_INTERCUSTOM) - then - g_Game_InGameMenu(True) - else - if (gExit = 0) and (gState <> STATE_SLIST) then - begin - if gState <> STATE_MENU then - if NetMode <> NET_NONE then - begin - g_Game_StopAllSounds(True); - g_Game_Free; - gState := STATE_MENU; - Exit; - end; - - g_GUI_ShowWindow('MainMenu'); - g_Sound_PlayEx('MENU_OPEN'); - end; + if (NetMode <> NET_NONE) then + begin + g_Game_StopAllSounds(True); + g_Game_Free; + gState := STATE_MENU; + Exit; + end; + end; + g_GUI_ShowWindow('MainMenu'); + g_Sound_PlayEx('MENU_OPEN'); + end; + end; end; IK_F2, IK_F3, IK_F4, IK_F5, IK_F6, IK_F7, IK_F10: begin // .. � if gGameOn and (not gConsoleShow) and (not gChatShow) then begin - while g_ActiveWindow <> nil do - g_GUI_HideWindow(False); - - if (not g_Game_IsNet) then - g_Game_Pause(True); - + while (g_ActiveWindow <> nil) do g_GUI_HideWindow(False); + if (not g_Game_IsNet) then g_Game_Pause(True); case K of - IK_F2: - g_Menu_Show_SaveMenu(); - IK_F3: - g_Menu_Show_LoadMenu(); - IK_F4: - g_Menu_Show_GameSetGame(); - IK_F5: - g_Menu_Show_OptionsVideo(); - IK_F6: - g_Menu_Show_OptionsSound(); - IK_F7: - g_Menu_Show_EndGameMenu(); - IK_F10: - g_Menu_Show_QuitGameMenu(); + IK_F2: g_Menu_Show_SaveMenu(); + IK_F3: g_Menu_Show_LoadMenu(); + IK_F4: g_Menu_Show_GameSetGame(); + IK_F5: g_Menu_Show_OptionsVideo(); + IK_F6: g_Menu_Show_OptionsSound(); + IK_F7: g_Menu_Show_EndGameMenu(); + IK_F10: g_Menu_Show_QuitGameMenu(); end; end; end; @@ -472,49 +737,47 @@ begin begin gJustChatted := False; if gConsoleShow or gChatShow then - g_Console_Control(K) - else - if g_ActiveWindow <> nil then - begin - Msg.Msg := WM_KEYDOWN; - Msg.WParam := K; - g_ActiveWindow.OnMessage(Msg); - end - else - begin - if (gState = STATE_MENU) then - begin - g_GUI_ShowWindow('MainMenu'); - g_Sound_PlayEx('MENU_OPEN'); - end; - end; + begin + g_Console_Control(K); + end + else if (g_ActiveWindow <> nil) then + begin + Msg.Msg := WM_KEYDOWN; + Msg.WParam := K; + g_ActiveWindow.OnMessage(Msg); + end + else if (gState = STATE_MENU) then + begin + g_GUI_ShowWindow('MainMenu'); + g_Sound_PlayEx('MENU_OPEN'); + end; end; end; +{$ENDIF} end; -procedure CharPress(C: Char); + +procedure CharPress (C: AnsiChar); var Msg: g_gui.TMessage; a: Integer; begin - if (not gChatShow) and ((C = '`') or (C = '~') or (C = '¸') or (C = '¨')) then - Exit; - if gConsoleShow or gChatShow then + begin g_Console_Char(C) + end + else if (g_ActiveWindow <> nil) then + begin + Msg.Msg := WM_CHAR; + Msg.WParam := Ord(C); + g_ActiveWindow.OnMessage(Msg); + end else - if g_ActiveWindow <> nil then - begin - Msg.Msg := WM_CHAR; - Msg.WParam := Ord(C); - g_ActiveWindow.OnMessage(Msg); - end - else - begin - for a := 0 to 14 do charbuff[a] := charbuff[a+1]; - charbuff[15] := UpCase1251(C); - Cheat(); - end; + begin + for a := 0 to 14 do charbuff[a] := charbuff[a+1]; + charbuff[15] := upcase1251(C); + Cheat(); + end; end; end.