X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_console.pas;h=35530016786688639acf4254fd6435302c00bf47;hb=9b4492224e2e59560931496e925333bdbe6f2b0e;hp=6b8ddc82c2538e53156457e687d7e2a0fa1ae1c5;hpb=414f2873efa0cce84499f64774db7000e6268971;p=d2df-sdl.git diff --git a/src/game/g_console.pas b/src/game/g_console.pas index 6b8ddc8..3553001 100644 --- a/src/game/g_console.pas +++ b/src/game/g_console.pas @@ -594,7 +594,7 @@ begin // writeconfig if Length(p) = 2 then begin - s := e_GetDir(ConfigDirs); + s := e_GetWriteableDir(ConfigDirs); g_Console_WriteConfig(e_CatPath(s, p[1])) end else @@ -860,6 +860,9 @@ begin AddCommand('segfault', segfault, 'make segfault'); + AddCommand('r_reset', g_Options_Commands); + AddCommand('g_language', g_Options_Commands); + AddCommand('bind', BindCommands); AddCommand('bindlist', BindCommands); AddCommand('unbind', BindCommands); @@ -1957,6 +1960,11 @@ begin end end end; + if gAskLanguage then + WriteLn(f, 'g_language ask') + else + WriteLn(f, 'g_language ', gLanguage); + WriteLn(f, 'r_reset'); CloseFile(f) end; @@ -1965,12 +1973,14 @@ procedure g_Console_WriteGameConfig; begin if gParsingBinds = false then begin - s := e_GetDir(ConfigDirs); + s := e_GetWriteableDir(ConfigDirs); g_Console_WriteConfig(e_CatPath(s, configScript)) end end; -initialization +procedure Init; + var i: Integer; +begin conRegVar('chat_at_top', @ChatTop, 'draw chat at top border', 'draw chat at top border'); conRegVar('console_height', @ConsoleHeight, 0.0, 1.0, 'set console size', 'set console size'); conRegVar('console_trans', @ConsoleTrans, 0.0, 1.0, 'set console transparency', 'set console transparency'); @@ -1984,4 +1994,11 @@ initialization {$ENDIF} ConsoleTrans := 0.1; ConsoleStep := 0.07; + conRegVar('d_eres', @debug_e_res, '', ''); + for i := 1 to e_MaxJoys do + conRegVar('joy' + IntToStr(i) + '_deadzone', @e_JoystickDeadzones[i - 1], '', '') +end; + +initialization + Init end.