anchor.diff:  
   procedure TKMHand.SetShareFOW(aIndex: Integer; aValue: Boolean);
   begin
  +  if Self = nil then Exit;
  +
     fShareFOW[aIndex] := aValue;
   end;
   
  
positive.code: 
  procedure TKMHand.SetShareBeacons(aIndex: Integer; aValue: Boolean);
  begin
    fShareBeacons[aIndex] := aValue;
  end;
  
  
negative.code: 
  procedure TKMHand.SetAlliances(aIndex: Integer; aValue: TKMAllianceType);
  begin
    if Self = nil then Exit;
  
    fAlliances[aIndex] := aValue;
    gAIFields.Supervisor.UpdateAlliances();
  
  