anchor.diff:    procedure SaveCommandToMemoryStream(const aCommand: TKMGameInputCommand; aMemoryStream: TKMemoryStream); inline;
     procedure LoadCommandFromMemoryStream(out aCommand: TKMGameInputCommand; aMemoryStream: TKMemoryStream); inline;
   
  -const
  -  GIC_PACKED_DATA_SIZE = 12; //Bytes in the stored GIC command
   
   type
     TKMGicDataPacked = packed record
  
positive.code:                           storedGic.Data.Integers[0] := IntParams[0];
                            for I := 0 to 2 do
                              storedGic.Data.Words[I+2] := WordParams[I];
  
                            AddStoredGic(storedGic, aGicCommand);
                          end;
  
negative.code: 
  procedure TKMGameInputProcess.CmdGameBeacon(const aLocF: TKMPointF; aOwner: TKMHandID; aColor: Cardinal);
  begin
    TakeCommand(MakeCommandSmI(gicGameAlertBeacon, Integer(aColor and $FFFFFF), Round(aLocF.X * 10), Round(aLocF.Y * 10), aOwner));
  end;
  
  
  