DEADSOFTWARE

Revert "network: packed some player state bools into bytes"
authorDeaDDooMER <deaddoomer@deadsoftware.ru>
Fri, 4 Jan 2019 19:58:37 +0000 (22:58 +0300)
committerDeaDDooMER <deaddoomer@deadsoftware.ru>
Fri, 4 Jan 2019 19:58:37 +0000 (22:58 +0300)
src/game/g_netmsg.pas

index b170097d80296ec8ad3b7c7ed96e0bea1b54ccb4..01dcc3ce0182044baf67cbcef01a4b57c49e7802 100644 (file)
@@ -1023,7 +1023,6 @@ procedure MH_SEND_PlayerStats(PID: Word; ID: Integer = NET_EVERYONE);
 var
   P: TPlayer;
   I: Integer;
-  ww: Word;
 begin
   P := g_Player_Get(PID);
   if P = nil then Exit;
@@ -1042,10 +1041,8 @@ begin
     NetOut.Write(Lives);
     NetOut.Write(Team);
 
-    // collect all weapons in one word
-    ww := 0;
-    for I := WP_FIRST to WP_LAST do if (FWeapon[I]) then ww := ww or (1 shl (i-WP_FIRST));
-    NetOut.Write(Word(ww));
+    for I := WP_FIRST to WP_LAST do
+      NetOut.Write(Byte(FWeapon[I]));
 
     for I := A_BULLETS to A_HIGH do
       NetOut.Write(FAmmo[I]);
@@ -1056,29 +1053,22 @@ begin
     for I := MR_SUIT to MR_MAX do
       NetOut.Write(LongWord(FMegaRulez[I]));
 
-    // collect all special flags in one byte
-    ww := 0;
-    if (R_ITEM_BACKPACK in FRulez) then ww := ww or $01;
-    if (R_KEY_RED in FRulez) then ww := ww or $02;
-    if (R_KEY_GREEN in FRulez) then ww := ww or $04;
-    if (R_KEY_BLUE in FRulez) then ww := ww or $08;
-    if (R_BERSERK in FRulez) then ww := ww or $10;
-    NetOut.Write(Byte(ww));
+    NetOut.Write(Byte(R_ITEM_BACKPACK in FRulez));
+    NetOut.Write(Byte(R_KEY_RED in FRulez));
+    NetOut.Write(Byte(R_KEY_GREEN in FRulez));
+    NetOut.Write(Byte(R_KEY_BLUE in FRulez));
+    NetOut.Write(Byte(R_BERSERK in FRulez));
 
     NetOut.Write(Frags);
     NetOut.Write(Death);
 
     NetOut.Write(CurrWeap);
 
-    // other flags
-    ww := 0;
-    if (FSpectator) then ww := ww or $01;
-    if (FGhost) then ww := ww or $02;
-    if (FPhysics) then ww := ww or $04;
-    if (FNoRespawn) then ww := ww or $08;
-    if (FJetpack) then ww := ww or $10;
-    NetOut.Write(Byte(ww));
-
+    NetOut.Write(Byte(FSpectator));
+    NetOut.Write(Byte(FGhost));
+    NetOut.Write(Byte(FPhysics));
+    NetOut.Write(Byte(FNoRespawn));
+    NetOut.Write(Byte(FJetpack));
     NetOut.Write(FFireTime);
   end;
 
@@ -2078,7 +2068,6 @@ var
   I: Integer;
   OldJet: Boolean;
   NewTeam: Byte;
-  ww: Word;
 begin
   PID := M.ReadWord();
   Pl := g_Player_Get(PID);
@@ -2097,12 +2086,8 @@ begin
     Lives := M.ReadByte();
     NewTeam := M.ReadByte();
 
-    ww := M.ReadWord();
     for I := WP_FIRST to WP_LAST do
-    begin
-      FWeapon[I] := ((ww and $01) <> 0);
-      ww := ww shr 1;
-    end;
+      FWeapon[I] := (M.ReadByte() <> 0);
 
     for I := A_BULLETS to A_HIGH do
       FAmmo[I] := M.ReadWord();
@@ -2114,23 +2099,23 @@ begin
       FMegaRulez[I] := M.ReadLongWord();
 
     FRulez := [];
-    // unpack special flags
-    ww := M.ReadByte();
-    if ((ww and $01) <> 0) then FRulez := FRulez+[R_ITEM_BACKPACK];
-    if ((ww and $02) <> 0) then FRulez := FRulez+[R_KEY_RED];
-    if ((ww and $04) <> 0) then FRulez := FRulez+[R_KEY_GREEN];
-    if ((ww and $08) <> 0) then FRulez := FRulez+[R_KEY_BLUE];
-    if ((ww and $10) <> 0) then FRulez := FRulez+[R_BERSERK];
+    if (M.ReadByte() <> 0) then
+      FRulez := FRulez + [R_ITEM_BACKPACK];
+    if (M.ReadByte() <> 0) then
+      FRulez := FRulez + [R_KEY_RED];
+    if (M.ReadByte() <> 0) then
+      FRulez := FRulez + [R_KEY_GREEN];
+    if (M.ReadByte() <> 0) then
+      FRulez := FRulez + [R_KEY_BLUE];
+    if (M.ReadByte() <> 0) then
+      FRulez := FRulez + [R_BERSERK];
 
     Frags := M.ReadLongInt();
     Death := M.ReadLongInt();
 
     SetWeapon(M.ReadByte());
 
-    // other flags
-    ww := M.ReadByte();
-
-    FSpectator := ((ww and $01) <> 0);
+    FSpectator := M.ReadByte() <> 0;
     if FSpectator then
     begin
       if Pl = gPlayer1 then
@@ -2151,12 +2136,11 @@ begin
       if (gPlayer2 = nil) and (gLMSPID2 > 0) then
         gPlayer2 := g_Player_Get(gLMSPID2);
     end;
-
-    FGhost := ((ww and $02) <> 0);
-    FPhysics := ((ww and $04) <> 0);
-    FNoRespawn := ((ww and $08) <> 0);
+    FGhost := M.ReadByte() <> 0;
+    FPhysics := M.ReadByte() <> 0;
+    FNoRespawn := M.ReadByte() <> 0;
     OldJet := FJetpack;
-    FJetpack := ((ww and $10) <> 0);
+    FJetpack := M.ReadByte() <> 0;
     FFireTime := M.ReadLongInt();
     if OldJet and not FJetpack then
       JetpackOff