// This script file is licensed under a Creative Commons
// Attribution 4.0 International License (cc by 4.0):
// http://creativecommons.org/licenses/by/4.0/
// You may adapt and/or share this script file for any purpose,
// provided you give credit to http://bridgecomposer.com

//  This script checks for and reports duplicate deals in a PBN file.
//  Duplicate deals could occur, for example, if in preparing a lesson file
//  you copy and paste deals from various other files, and inadvertantly
//  include two copies of the same deal.

//  $Id: DupCheck.wsf 139 2023-06-04 13:21:11Z Ray $

<job>
<script language="JScript" src="BCConst.js" />
<script language="JScript" src="BCDeal.js" />
<script language="JScript">
var bc = WScript.CreateObject('BridgeComposer.Object');
if (WScript.Arguments.length > 0) {
  bc.Open(WScript.Arguments(0));
} else {
  if (!bc.Open()) WScript.Quit();
}

var mapDeal = {};
var nDup = 0;

var strReport = 'Checking for duplicate deals:\n\n';

var bds = bc.Boards;
while (bds.MoveNext()) {
  var brd = bds.Current;
  var d = new Deal(brd.TagValue('Deal'));
  var df = d.format('N');
  if (mapDeal[df]) {
    strReport += 'Board ' + brd.UniqueBoard + ' is a duplicate of board ' + mapDeal[df] + '\n';
    ++nDup;
  } else {
    mapDeal[df] = brd.UniqueBoard;
  }
}

var nAlert = MB_ICONINFORMATION;
if (nDup > 0) {
  strReport += '\n';
  nAlert = MB_ICONWARNING;
}

var plural = (nDup === 1) ? '' : 's';
strReport += nDup + ' duplicate deal' + plural + ' found.';
bc.alert(strReport, nAlert);

</script>
</job>