diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index 66f0099063c3027084c4b32418d174acf77ed4e3..189d241aae564c6fcd0489e9c0f7f8e4a2105509 100644 (file)
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
FFlag: Byte;
FSecrets: Integer;
FCurrWeap: Byte;
- //FNetForceWeap: Byte; // spam server with this -- this is new weapon we want to use
- FNetForceWeapFIdx: LongWord; // frame index; ignore weapon change if it is lesser than this
- //FCurrFrameIdx: LongWord; // increased in each `Update()`
+ FNetWeapCtr: LongWord; // spam server with our current weapon until we'll receive this in plrpos packet
FNextWeap: WORD;
FNextWeapDelay: Byte; // frames (unused)
FBFGFireCounter: SmallInt;
viewPortX, viewPortY, viewPortW, viewPortH: Integer;
function isValidViewPort (): Boolean; inline;
+ procedure SetCurrWeapProp (newweap: Byte);
constructor Create(); virtual;
destructor Destroy(); override;
property Frags: Integer read FFrags write FFrags;
property Death: Integer read FDeath write FDeath;
property Kills: Integer read FKills write FKills;
- property CurrWeap: Byte read FCurrWeap write FCurrWeap;
- //property NetForceWeap: Byte read FNetForceWeap write FNetForceWeap;
- property NetForceWeapFIdx: LongWord read FNetForceWeapFIdx write FNetForceWeapFIdx;
- //property CurrFrameIdx: LongWord read FCurrFrameIdx write FCurrFrameIdx;
+ property CurrWeap: Byte read FCurrWeap write SetCurrWeapProp;
+ property NetWeapCtr: LongWord read FNetWeapCtr write FNetWeapCtr;
property MonsterKills: Integer read FMonsterKills write FMonsterKills;
property Secrets: Integer read FSecrets;
property GodMode: Boolean read FGodMode write FGodMode;
property eFrags: Integer read FFrags write FFrags;
property eDeath: Integer read FDeath write FDeath;
property eKills: Integer read FKills write FKills;
- property eCurrWeap: Byte read FCurrWeap write FCurrWeap;
+ property eCurrWeap: Byte read FCurrWeap write SetCurrWeapProp;
property eMonsterKills: Integer read FMonsterKills write FMonsterKills;
property eSecrets: Integer read FSecrets write FSecrets;
property eGodMode: Boolean read FGodMode write FGodMode;
gPlayers[a].FSecrets := utils.readLongInt(st);
// Òåêóùåå îðóæèå
gPlayers[a].FCurrWeap := utils.readByte(st);
- //gPlayers[a].FNetForceWeap := gPlayers[a].FCurrWeap;
+ gPlayers[a].FNetWeapCtr := 0;
// Ñëåäóþùåå æåëàåìîå îðóæèå
gPlayers[a].FNextWeap := utils.readWord(st);
// ...è ïàóçà
begin
if gPlayers[i] is TPlayer then
begin
- //if (gPlayers[i].NetForceWeapFIdx > gTime) then writeln('*** PLAYER #', i, '; gTime=', gTime, '; nfwf=', gPlayers[i].NetForceWeapFIdx);
gPlayers[i].Update();
- if (not gPlayers[i].alive) or (gPlayers[i].NetForceWeapFIdx >= gTime+15) then gPlayers[i].NetForceWeapFIdx := 0; // just in case
gPlayers[i].RealizeCurrentWeapon(); // WARNING! DO NOT MOVE THIS INTO `Update()`!
end
else
function TPlayer.isValidViewPort (): Boolean; inline; begin result := (viewPortW > 0) and (viewPortH > 0); end;
+procedure TPlayer.SetCurrWeapProp (newweap: Byte);
+begin
+ if (newweap > High(FWeapon)) then exit;
+ if (not FWeapon[newweap]) then exit;
+ if not g_Game_IsClient then Inc(FNetWeapCtr, 2); // just in case, to really override client's counter
+ if (FCurrWeap <> newweap) then
+ begin
+ if (newweap = WEAPON_SAW) then FSawSoundSelect.PlayAt(FObj.X, FObj.Y);
+ end;
+ FCurrWeap := newweap;
+ FModel.SetWeapon(newweap);
+end;
+
procedure TPlayer.BFGHit();
begin
g_Weapon_BFGHit(FObj.X+FObj.Rect.X+(FObj.Rect.Width div 2),
FJustTeleported := False;
FNetTime := 0;
- //FNetForceWeap := FCurrWeap;
- FNetForceWeapFIdx := 0;
- //FCurrFrameIdx := 0;
+ FNetWeapCtr := 0;
resetWeaponQueue();
releaseAllWeaponSwitchKeys();
exit;
end;
- if (FNetForceWeapFIdx >= gTime+15) then FNetForceWeapFIdx := 0;
-
nw := getNextWeaponIndex();
if nw = 255 then exit; // don't reset anything here
if nw > High(FWeapon) then
if FWeapon[nw] then
begin
//k8: emulate this on client immediately, or wait for server confirmation?
- {
- if g_Game_IsClient then
- begin
- FNetForceWeap := nw;
- //FNetForceWeapFIdx := FCurrFrameIdx+5; // force for ~5 frames
- FNetForceWeapFIdx := gTime+5; // force for ~5 frames
- writeln('NETWEAPONSWITCH: fw=', NetForceWeap, '; fwfidx=', NetForceWeapFIdx, '; cfrm=', gTime);
- end;
- }
- FNetForceWeapFIdx := gTime+5; // force for ~5 frames
+ Inc(FNetWeapCtr);
FCurrWeap := nw;
- if nw = WEAPON_SAW then FSawSoundSelect.PlayAt(FObj.X, FObj.Y);
+ if (nw = WEAPON_SAW) then FSawSoundSelect.PlayAt(FObj.X, FObj.Y);
FModel.SetWeapon(nw);
FTime[T_SWITCH] := gTime+156;
if g_Game_IsNet then MH_SEND_PlayerStats(FUID);
- //if g_Game_IsNet and g_Game_IsClient then
end;
end;
if (not FWeapon[W]) then exit; // server is authority!
if FCurrWeap <> W then
- if (W = WEAPON_SAW) then
- FSawSoundSelect.PlayAt(FObj.X, FObj.Y);
+ begin
+ if (W = WEAPON_SAW) then FSawSoundSelect.PlayAt(FObj.X, FObj.Y);
+ end;
FCurrWeap := W;
- FModel.SetWeapon(CurrWeap);
+ FModel.SetWeapon(W);
//if g_Game_IsClient then resetWeaponQueue();
end;
Include(FRulez, R_BERSERK);
if allowBerserkSwitching then
begin
- FCurrWeap := WEAPON_KASTET;
- //FNetForceWeap := FCurrWeap;
+ CurrWeap := WEAPON_KASTET;
resetWeaponQueue();
FModel.SetWeapon(WEAPON_KASTET);
end;
FMonsterKills := 0;
FDeath := 0;
FSecrets := 0;
- //FCurrFrameIdx := 0;
- //FNetForceWeap := FCurrWeap;
- FNetForceWeapFIdx := 0;
+ if g_Game_IsClient then FNetWeapCtr := 0 else Inc(FNetWeapCtr, 2);
resetWeaponQueue();
if FNoRespawn then
begin
FLastHit := 0;
FLastFrag := 0;
FComboEvnt := -1;
- FNetForceWeapFIdx := 0;
+ if g_Game_IsClient then FNetWeapCtr := 0 else Inc(FNetWeapCtr, 2);
resetWeaponQueue();
FBFGFireCounter := -1;
FShellTimer := -1;
FPain := 0;
FLastHit := 0;
- //FNetForceWeap := FCurrWeap;
- FNetForceWeapFIdx := 0;
+ if g_Game_IsClient then FNetWeapCtr := 0 else Inc(FNetWeapCtr, 2);
resetWeaponQueue();
FBFGFireCounter := -1;
FWeapon[WEAPON_PISTOL] := True;
FWeapon[WEAPON_KASTET] := True;
- FCurrWeap := WEAPON_PISTOL;
- //FNetForceWeap := FCurrWeap;
- FNetForceWeapFIdx := 0;
+ CurrWeap := WEAPON_PISTOL;
+ if g_Game_IsClient then FNetWeapCtr := 0 else Inc(FNetWeapCtr, 2);
resetWeaponQueue();
- FModel.SetWeapon(FCurrWeap);
-
for b := A_BULLETS to A_HIGH do
FAmmo[b] := 0;
if (gPlayer2 = nil) and (gLMSPID2 = FUID) then
gPlayer2 := self;
- //FNetForceWeap := FCurrWeap;
-
if g_Game_IsNet then
begin
MH_SEND_PlayerPos(True, FUID, NET_EVERYONE);
AnyServer: Boolean;
SetSpect: Boolean;
begin
- //Inc(FCurrFrameIdx);
-
NetServer := g_Game_IsNet and g_Game_IsServer;
AnyServer := g_Game_IsServer;
FAir := FSavedState.Air;
FJetFuel := FSavedState.JetFuel;
FCurrWeap := FSavedState.CurrWeap;
- //FNetForceWeap := FCurrWeap;
+ FModel.SetWeapon(FCurrWeap);
FNextWeap := FSavedState.NextWeap;
FNextWeapDelay := FSavedState.NextWeapDelay;
FSecrets := utils.readLongInt(st);
// Òåêóùåå îðóæèå
FCurrWeap := utils.readByte(st);
- //FNetForceWeap := FCurrWeap;
+ if not g_Game_IsClient then Inc(FNetWeapCtr, 2);
// Æåëàåìîå îðóæèå
FNextWeap := utils.readWord(st);
// ...è ïàóçà
Include(FRulez, R_BERSERK);
if FBFGFireCounter < 1 then
begin
- FCurrWeap := WEAPON_KASTET;
- //FNetForceWeap := FCurrWeap;
- FNetForceWeapFIdx := 0;
+ CurrWeap := WEAPON_KASTET;
resetWeaponQueue();
FModel.SetWeapon(WEAPON_KASTET);
end;
FAIFlags := nil;
FSelectedWeapon := FCurrWeap;
- FNetForceWeapFIdx := 0;
+ FNetWeapCtr := 0;
resetWeaponQueue();
FTargetUID := 0;
end;