diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 8eaad1226f490e9620fcce2e42fed3a1029f9fc5..a4dddf3342cf16a931003728a6f0abd69121059d 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
ACTION_SCORES = 6;
ACTION_ACTIVATE = 7;
ACTION_STRAFE = 8;
ACTION_SCORES = 6;
ACTION_ACTIVATE = 7;
ACTION_STRAFE = 8;
- ACTION_WEAPNEXT = 9;
- ACTION_WEAPPREV = 10;
FIRST_ACTION = ACTION_JUMP;
FIRST_ACTION = ACTION_JUMP;
- LAST_ACTION = ACTION_WEAPPREV;
+ LAST_ACTION = ACTION_STRAFE;
procedure g_Console_Init;
procedure g_Console_SysInit;
procedure g_Console_Init;
procedure g_Console_SysInit;
function g_Console_Action (action: Integer): Boolean;
function g_Console_MatchBind (key: Integer; down: AnsiString; up: AnsiString = ''): Boolean;
function g_Console_FindBind (n: Integer; down: AnsiString; up: AnsiString = ''): Integer;
function g_Console_Action (action: Integer): Boolean;
function g_Console_MatchBind (key: Integer; down: AnsiString; up: AnsiString = ''): Boolean;
function g_Console_FindBind (n: Integer; down: AnsiString; up: AnsiString = ''): Integer;
-procedure g_Console_BindKey (key: Integer; down: AnsiString; up: AnsiString = '');
+procedure g_Console_BindKey (key: Integer; down: AnsiString; up: AnsiString = ''; rep: Boolean = False);
procedure g_Console_ProcessBind (key: Integer; down: Boolean);
procedure g_Console_ProcessBindRepeat (key: Integer);
procedure g_Console_ResetBinds;
procedure g_Console_ProcessBind (key: Integer; down: Boolean);
procedure g_Console_ProcessBindRepeat (key: Integer);
procedure g_Console_ResetBinds;
function conParseFloat (var res: Single; const s: AnsiString): Boolean;
const
function conParseFloat (var res: Single; const s: AnsiString): Boolean;
const
- defaultConfigScript = 'dfconfig.cfg';
+ {$IFDEF HEADLESS}
+ defaultConfigScript = 'dfserver.cfg';
+ {$ELSE}
+ defaultConfigScript = 'dfconfig.cfg';
+ {$ENDIF}
var
gConsoleShow: Boolean = false; // True - êîíñîëü îòêðûòà èëè îòêðûâàåòñÿ
var
gConsoleShow: Boolean = false; // True - êîíñîëü îòêðûòà èëè îòêðûâàåòñÿ
AddCommand('p2_color', PlayerSettingsCVars);
AddCommand('p1_model', PlayerSettingsCVars);
AddCommand('p2_model', PlayerSettingsCVars);
AddCommand('p2_color', PlayerSettingsCVars);
AddCommand('p1_model', PlayerSettingsCVars);
AddCommand('p2_model', PlayerSettingsCVars);
+ AddCommand('p1_team', PlayerSettingsCVars);
+ AddCommand('p2_team', PlayerSettingsCVars);
AddCommand('g_max_particles', GameCVars);
AddCommand('g_max_shells', GameCVars);
AddCommand('g_max_particles', GameCVars);
AddCommand('g_max_shells', GameCVars);
AddCommand('g_friendlyfire', GameCVars);
AddCommand('g_friendly_hit_trace', GameCVars);
AddCommand('g_friendly_hit_projectile', GameCVars);
AddCommand('g_friendlyfire', GameCVars);
AddCommand('g_friendly_hit_trace', GameCVars);
AddCommand('g_friendly_hit_projectile', GameCVars);
+ AddCommand('g_friendly_absorb_damage', GameCVars);
AddCommand('g_weaponstay', GameCVars);
AddCommand('g_allow_exit', GameCVars);
AddCommand('g_dm_keys', GameCVars);
AddCommand('g_allow_monsters', GameCVars);
AddCommand('g_weaponstay', GameCVars);
AddCommand('g_allow_exit', GameCVars);
AddCommand('g_dm_keys', GameCVars);
AddCommand('g_allow_monsters', GameCVars);
+ AddCommand('g_allow_dropflag', GameCVars);
+ AddCommand('g_throw_flag', GameCVars);
AddCommand('g_bot_vsmonsters', GameCVars);
AddCommand('g_bot_vsplayers', GameCVars);
AddCommand('g_scorelimit', GameCVars);
AddCommand('g_bot_vsmonsters', GameCVars);
AddCommand('g_bot_vsplayers', GameCVars);
AddCommand('g_scorelimit', GameCVars);
AddCommand('clientlist', GameCommands);
AddCommand('event', GameCommands);
AddCommand('screenshot', GameCommands);
AddCommand('clientlist', GameCommands);
AddCommand('event', GameCommands);
AddCommand('screenshot', GameCommands);
+ AddCommand('weapnext', GameCommands);
+ AddCommand('weapprev', GameCommands);
AddCommand('weapon', GameCommands);
AddCommand('weapon', GameCommands);
+ AddCommand('dropflag', GameCommands);
+ AddCommand('p1_weapnext', GameCommands);
+ AddCommand('p1_weapprev', GameCommands);
AddCommand('p1_weapon', GameCommands);
AddCommand('p1_weapon', GameCommands);
+ AddCommand('p1_dropflag', GameCommands);
+ AddCommand('p2_weapnext', GameCommands);
+ AddCommand('p2_weapprev', GameCommands);
AddCommand('p2_weapon', GameCommands);
AddCommand('p2_weapon', GameCommands);
+ AddCommand('p2_dropflag', GameCommands);
AddCommand('god', GameCheats);
AddCommand('notarget', GameCheats);
AddCommand('god', GameCheats);
AddCommand('notarget', GameCheats);
AddAction('scores', ACTION_SCORES);
AddAction('activate', ACTION_ACTIVATE);
AddAction('strafe', ACTION_STRAFE);
AddAction('scores', ACTION_SCORES);
AddAction('activate', ACTION_ACTIVATE);
AddAction('strafe', ACTION_STRAFE);
- AddAction('weapnext', ACTION_WEAPNEXT);
- AddAction('weapprev', ACTION_WEAPPREV);
WhitelistCommand('say');
WhitelistCommand('tell');
WhitelistCommand('say');
WhitelistCommand('tell');
WhitelistCommand('g_friendlyfire');
WhitelistCommand('g_friendly_hit_trace');
WhitelistCommand('g_friendly_hit_projectile');
WhitelistCommand('g_friendlyfire');
WhitelistCommand('g_friendly_hit_trace');
WhitelistCommand('g_friendly_hit_projectile');
+ WhitelistCommand('g_friendly_absorb_damage');
WhitelistCommand('g_weaponstay');
WhitelistCommand('g_allow_exit');
WhitelistCommand('g_dm_keys');
WhitelistCommand('g_weaponstay');
WhitelistCommand('g_allow_exit');
WhitelistCommand('g_dm_keys');
Result := gConsoleShow
end;
Result := gConsoleShow
end;
-procedure g_Console_BindKey (key: Integer; down: AnsiString; up: AnsiString = '');
+procedure g_Console_BindKey (key: Integer; down: AnsiString; up: AnsiString = ''; rep: Boolean = False);
begin
//e_LogWritefln('bind "%s" "%s" <%s>', [LowerCase(e_KeyNames[key]), cmd, key]);
ASSERT(key >= 0);
ASSERT(key < e_MaxInputKeys);
if key > 0 then
begin
begin
//e_LogWritefln('bind "%s" "%s" <%s>', [LowerCase(e_KeyNames[key]), cmd, key]);
ASSERT(key >= 0);
ASSERT(key < e_MaxInputKeys);
if key > 0 then
begin
- gInputBinds[key].rep := False;
+ gInputBinds[key].rep := rep;
gInputBinds[key].down := ParseAlias(down);
gInputBinds[key].up := ParseAlias(up);
end;
gInputBinds[key].down := ParseAlias(down);
gInputBinds[key].up := ParseAlias(up);
end;
g_Console_BindKey(IK_SPACE, '+p1_jump', '-p1_jump');
g_Console_BindKey(IK_H, '+p1_attack', '-p1_attack');
g_Console_BindKey(IK_J, '+p1_activate', '-p1_activate');
g_Console_BindKey(IK_SPACE, '+p1_jump', '-p1_jump');
g_Console_BindKey(IK_H, '+p1_attack', '-p1_attack');
g_Console_BindKey(IK_J, '+p1_activate', '-p1_activate');
- g_Console_BindKey(IK_E, '+p1_weapnext', '-p1_weapnext');
- g_Console_BindKey(IK_Q, '+p1_weapprev', '-p1_weapprev');
g_Console_BindKey(IK_ALT, '+p1_strafe', '-p1_strafe');
g_Console_BindKey(IK_ALT, '+p1_strafe', '-p1_strafe');
+ g_Console_BindKey(IK_E, 'p1_weapnext', '', True);
+ g_Console_BindKey(IK_Q, 'p1_weapprev', '', True);
+ g_Console_BindKey(IK_R, 'p1_dropflag', '');
g_Console_BindKey(IK_1, 'p1_weapon 1');
g_Console_BindKey(IK_2, 'p1_weapon 2');
g_Console_BindKey(IK_3, 'p1_weapon 3');
g_Console_BindKey(IK_1, 'p1_weapon 1');
g_Console_BindKey(IK_2, 'p1_weapon 2');
g_Console_BindKey(IK_3, 'p1_weapon 3');
g_Console_BindKey(e_JoyButtonToKey(i, 2), '+p' + IntToStr(i mod 2 + 1) + '_jump', '-p' + IntToStr(i mod 2 + 1) + '_jump');
g_Console_BindKey(e_JoyButtonToKey(i, 0), '+p' + IntToStr(i mod 2 + 1) + '_attack', '-p' + IntToStr(i mod 2 + 1) + '_attack');
g_Console_BindKey(e_JoyButtonToKey(i, 3), '+p' + IntToStr(i mod 2 + 1) + '_activate', '-p' + IntToStr(i mod 2 + 1) + '_activate');
g_Console_BindKey(e_JoyButtonToKey(i, 2), '+p' + IntToStr(i mod 2 + 1) + '_jump', '-p' + IntToStr(i mod 2 + 1) + '_jump');
g_Console_BindKey(e_JoyButtonToKey(i, 0), '+p' + IntToStr(i mod 2 + 1) + '_attack', '-p' + IntToStr(i mod 2 + 1) + '_attack');
g_Console_BindKey(e_JoyButtonToKey(i, 3), '+p' + IntToStr(i mod 2 + 1) + '_activate', '-p' + IntToStr(i mod 2 + 1) + '_activate');
- g_Console_BindKey(e_JoyButtonToKey(i, 1), '+p' + IntToStr(i mod 2 + 1) + '_weapnext', '-p' + IntToStr(i mod 2 + 1) + '_weapnext');
- g_Console_BindKey(e_JoyButtonToKey(i, 4), '+p' + IntToStr(i mod 2 + 1) + '_weapprev', '-p' + IntToStr(i mod 2 + 1) + '_weapprev');
g_Console_BindKey(e_JoyButtonToKey(i, 7), '+p' + IntToStr(i mod 2 + 1) + '_strafe', '-p' + IntToStr(i mod 2 + 1) + '_strafe');
g_Console_BindKey(e_JoyButtonToKey(i, 7), '+p' + IntToStr(i mod 2 + 1) + '_strafe', '-p' + IntToStr(i mod 2 + 1) + '_strafe');
+ g_Console_BindKey(e_JoyButtonToKey(i, 1), 'p' + IntToStr(i mod 2 + 1) + '_weapnext', '', True);
+ g_Console_BindKey(e_JoyButtonToKey(i, 4), 'p' + IntToStr(i mod 2 + 1) + '_weapprev', '', True);
g_Console_BindKey(e_JoyButtonToKey(i, 10), 'togglemenu');
end;
g_Console_BindKey(e_JoyButtonToKey(i, 10), 'togglemenu');
end;
g_Console_BindKey(VK_JUMP, '+jump', '-jump');
g_Console_BindKey(VK_FIRE, '+attack', '-attack');
g_Console_BindKey(VK_OPEN, '+activate', '-activate');
g_Console_BindKey(VK_JUMP, '+jump', '-jump');
g_Console_BindKey(VK_FIRE, '+attack', '-attack');
g_Console_BindKey(VK_OPEN, '+activate', '-activate');
- g_Console_BindKey(VK_NEXT, '+weapnext', '-weapnext');
- g_Console_BindKey(VK_PREV, '+weapprev', '-weapprev');
g_Console_BindKey(VK_STRAFE, '+strafe', '-strafe');
g_Console_BindKey(VK_STRAFE, '+strafe', '-strafe');
+ g_Console_BindKey(VK_NEXT, 'weapnext', '', True);
+ g_Console_BindKey(VK_PREV, 'weapprev', '', True);
g_Console_BindKey(VK_0, 'weapon 1');
g_Console_BindKey(VK_1, 'weapon 2');
g_Console_BindKey(VK_2, 'weapon 3');
g_Console_BindKey(VK_0, 'weapon 1');
g_Console_BindKey(VK_1, 'weapon 2');
g_Console_BindKey(VK_2, 'weapon 3');
WriteLn(f, name, IfThen(LongBool(gsGameFlags and flag), 1, 0));
end;
WriteLn(f, name, IfThen(LongBool(gsGameFlags and flag), 1, 0));
end;
+ function FormatTeam(team: Byte): string;
+ begin
+ if team = TEAM_BLUE then
+ result := 'blue'
+ else
+ result := 'red';
+ end;
+
begin
AssignFile(f, filename);
Rewrite(f);
begin
AssignFile(f, filename);
Rewrite(f);
WriteFlag('g_friendly_hit_projectile ', GAME_OPTION_TEAMHITPROJECTILE);
WriteFlag('g_allow_exit ', GAME_OPTION_ALLOWEXIT);
WriteFlag('g_allow_monsters ', GAME_OPTION_MONSTERS);
WriteFlag('g_friendly_hit_projectile ', GAME_OPTION_TEAMHITPROJECTILE);
WriteFlag('g_allow_exit ', GAME_OPTION_ALLOWEXIT);
WriteFlag('g_allow_monsters ', GAME_OPTION_MONSTERS);
+ WriteFlag('g_allow_dropflag ', GAME_OPTION_ALLOWDROPFLAG);
+ WriteFlag('g_throw_flag ', GAME_OPTION_THROWFLAG);
WriteFlag('g_dm_keys ', GAME_OPTION_DMKEYS);
WriteFlag('g_weaponstay ', GAME_OPTION_WEAPONSTAY);
WriteFlag('g_bot_vsmonsters ', GAME_OPTION_BOTVSMONSTER);
WriteFlag('g_dm_keys ', GAME_OPTION_DMKEYS);
WriteFlag('g_weaponstay ', GAME_OPTION_WEAPONSTAY);
WriteFlag('g_bot_vsmonsters ', GAME_OPTION_BOTVSMONSTER);
WriteLn(f, 'p1_name ', QuoteStr(Name));
WriteLn(f, 'p1_color ', Color.R, ' ', Color.G, ' ', Color.B);
WriteLn(f, 'p1_model ', QuoteStr(Model));
WriteLn(f, 'p1_name ', QuoteStr(Name));
WriteLn(f, 'p1_color ', Color.R, ' ', Color.G, ' ', Color.B);
WriteLn(f, 'p1_model ', QuoteStr(Model));
+ WriteLn(f, 'p1_team ', FormatTeam(Team));
end;
with gPlayer2Settings do
begin
WriteLn(f, 'p2_name ', QuoteStr(Name));
WriteLn(f, 'p2_color ', Color.R, ' ', Color.G, ' ', Color.B);
WriteLn(f, 'p2_model ', QuoteStr(Model));
end;
with gPlayer2Settings do
begin
WriteLn(f, 'p2_name ', QuoteStr(Name));
WriteLn(f, 'p2_color ', Color.R, ' ', Color.G, ' ', Color.B);
WriteLn(f, 'p2_model ', QuoteStr(Model));
+ WriteLn(f, 'p2_team ', FormatTeam(Team));
end;
// all cvars
end;
// all cvars