diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index 1dcbcd26c457ddccc8378de1d3d437a0dc5f8d96..de729fae42e2b139d809d3e451dccd8c7afee1b2 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
result := false;
end;
+function isOneKeyPressed (key1: Word): Boolean;
+begin
+ if (key1 <> 0) and e_KeyPressed(key1) then begin result := true; exit; end;
+ result := false;
+end;
+
procedure processPlayerControls (plr: TPlayer; var ctrl: TPlayerControl; var MoveButton: Byte; p2hack: Boolean=false);
var
time: Word;
strafeDir: Byte;
i: Integer;
+ rwk: Boolean;
begin
if (plr = nil) then exit;
if (p2hack) then time := 1000 else time := 1;
if isKeyPressed(KeyUp, KeyUp2) then plr.PressKey(KEY_UP, time);
if isKeyPressed(KeyDown, KeyDown2) then plr.PressKey(KEY_DOWN, time);
if isKeyPressed(KeyFire, KeyFire2) then plr.PressKey(KEY_FIRE);
- if isKeyPressed(KeyNextWeapon, KeyNextWeapon2) then plr.PressKey(KEY_NEXTWEAPON);
- if isKeyPressed(KeyPrevWeapon, KeyPrevWeapon2) then plr.PressKey(KEY_PREVWEAPON);
+ if isKeyPressed(KeyNextWeapon, KeyNextWeapon2) then
+ begin
+ rwk := plr.isWeaponSwitchKeyReleased(-1);
+ if rwk then plr.PressKey(KEY_NEXTWEAPON);
+ plr.weaponSwitchKeysStateChange(-1, true);
+ end
+ else
+ begin
+ plr.weaponSwitchKeysStateChange(-1, false);
+ end;
+ if isKeyPressed(KeyPrevWeapon, KeyPrevWeapon2) then
+ begin
+ rwk := plr.isWeaponSwitchKeyReleased(-2);
+ if rwk then plr.PressKey(KEY_PREVWEAPON);
+ plr.weaponSwitchKeysStateChange(-2, true);
+ end
+ else
+ begin
+ plr.weaponSwitchKeysStateChange(-2, false);
+ end;
if isKeyPressed(KeyOpen, KeyOpen2) then plr.PressKey(KEY_OPEN);
for i := 0 to High(KeyWeapon) do
+ begin
if isKeyPressed(KeyWeapon[i], KeyWeapon2[i]) then
- plr.QueueWeaponSwitch(i); // all choices are passed there, and god will take the best
+ begin
+ rwk := plr.isWeaponSwitchKeyReleased(i);
+ //writeln('rwk:', rwk);
+ plr.weaponSwitchKeysStateChange(i, true);
+ if rwk then plr.QueueWeaponSwitch(i); // all choices are passed there, and god will take the best
+ end
+ else
+ begin
+ plr.weaponSwitchKeysStateChange(i, false);
+ end;
+ end;
end;
// HACK: add dynlight here