// 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

//  You may renumber all boards in a document starting with 1 in BridgeComposer
//  (using Tools>All Boards; Tools>Renumber All).
//
//  This script does the same, but allows you to choose any arbitrary
//  new first board number.
//
//  In addition, this script allows you to adjust the Dealer and Vulnerability
//  for a set of boards.
//
//  You may also number a set of boards for team play: each board number is
//  applied to two rooms (Open and Closed). In this case, by default the input
//  document must consist of sequential pairs of identical deals.
//
//  If the team play option is not used, the Room tag is cleared in all boards.
//  (See also: RoomClear.js, DupCheck.wsf)

//  $Id: RenumberBoards.wsf 220 2024-11-14 17:06:23Z 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 cb = bc.Boards.Count;
var strMsg = 'This script will sequentially renumber the ' + cb
  + ' boards in the document.'
  + '\n\nEnter the new first board number:'
  + '\n\nAppend the letter "o" to number boards in two rooms (Open and Closed).'
  + '\nAppend the letter "g" to preserve groups of boards with the same number.'
  ;
var nNewBoard;
var strReply = '1';
for (var nTry = 0;; ++nTry) {
  strReply = bc.prompt(strMsg, strReply);
  if (!strReply) WScript.Quit();
  var strLower = strReply.toLowerCase();
  var nOC = strLower.indexOf('o');
  var nGC = strLower.indexOf('g');
   
  nNewBoard = parseInt(strReply);
  if (nNewBoard >= 1) break;
  if (nTry == 0) {
    strMsg = 'Invalid board number, try again.\n\n' + strMsg;
  }
}

var strQueryDealer = 'Select an option to adjust the Dealer of each board:\n\n' +
  '-: No change\n' +
  's: Standard value based on new board number\n' +
  'N: Set all to North\n' +
  'E: Set all to East\n' +
  'S: Set all to South\n' +
  'W: Set all to West\n' +
  '\n' +
  'Append + to an option to rotate the hands\n' +
  'so that the dealer keeps the same cards.\n'
  '';
  
for (var nTry = 0;; ++nTry) {
  var strOptionDealer = bc.prompt(strQueryDealer, '-', 0);
  if (!strOptionDealer) WScript.Quit();
  var len = strOptionDealer.length;
  if (len === 1 || len === 2) {
    if ('-sNESW'.indexOf(strOptionDealer.charAt(0)) >= 0
      && (len === 1 || strOptionDealer.charAt(1) === '+'))
      break;
  }  
  if (nTry === 0)
    strQueryDealer = 'Invalid entry, try again.\n\n' + strQueryDealer;
}

var strQueryVul = 'Select an option to adjust the Vulnerability of each board:\n\n' +
  '-: No change\n' +
  's: Standard value based on new board number\n' +
  'n: Set all boards to None Vulnerable\n' +
  'N: Set all boards to North/South Vulnerable\n' +
  'E: Set all boards to East/West Vulnerable\n' +
  'b: Set all boards to Both Vulnerable\n' +
  '';
var strOptionVul = bc.prompt(strQueryVul, '-', 0);
if (!strOptionVul) WScript.Quit();

var arVul = ['None', 'NS', 'EW', 'All'];
var nMod = 0;
var nRoom = 0;
var strRoom = '';
var strDealOpen = '';
var nBoardPrev;
for (var ix = 0; ix < cb; ++ix) {
  var brd = bc.Boards.Item(ix);
  var nBoard = brd.TagValue('Board');
  if (nGC >= 0 && nOC < 0) {
    if (ix > 0 && nBoard != nBoardPrev) {
      ++nNewBoard;
    }
  }
  nBoardPrev = nBoard;
  if (nBoard != nNewBoard) {
    nBoard = nNewBoard;
    brd.TagValue('Board') = nBoard;
    ++nMod;
  }
  
  var strDealer = brd.TagValue('Dealer');
  switch (strOptionDealer.charAt(0)) {
  case '-':
    break;
    
  case 's':
    var iBoard = nBoard - 1;
    strDealer = 'NESW'.charAt(iBoard & 3);
    break;
    
  case 'N': case 'E': case 'S': case 'W':
    strDealer = strOptionDealer.charAt(0);
    break;
    
  default:
    bc.alert('Invalid Dealer adjust option: ' + strOptionDealer, MB_ICONERROR);
    WScript.Quit(1);
  }
  
  if (brd.TagValue('Dealer') != strDealer) {
    brd.TagValue('Dealer') = strDealer;
    ++nMod;
  }

  // Adjust [Deal] tag to Dealer first (PBN export format requirement)
  var tag = brd.TagValue('Deal');
  if (tag.length > 0 && tag.charAt(0) !== strDealer) {
    if (strOptionDealer.length > 1) {
      var tagnew = strDealer + tag.slice(1);
    } else {
      var deal = new Deal(tag);
      var tagnew = deal.format(strDealer);
    }
    brd.TagValue('Deal') = tagnew;
    ++nMod;
  }
  
  var strVul = brd.TagValue('Vulnerable');
  switch (strOptionVul) {
  case '-':
    break;
  
  case 's':
    var iBoard = nBoard - 1;
    var iVul = ((iBoard >> 2) + iBoard) & 3;
    strVul = arVul[iVul];
    break;
    
  case 'n':
    strVul = arVul[0];
    break;
    
  case 'N':
    strVul = arVul[1];
    break;
    
  case 'E':
    strVul = arVul[2];
    break;
    
  case 'b':
    strVul = arVul[3];
    break;
    
  default:
    bc.alert('Invalid Vulnerability adjust option: ' + strOptionVul, MB_ICONERROR);
    WScript.Quit(1);
  }
    
  if (brd.TagValue('Vulnerable') != strVul) {
    brd.TagValue('Vulnerable') = strVul;
    ++nMod;
  }
  
  if (nOC >= 0)
    strRoom = (nRoom === 0) ? 'Open' : 'Closed';

  //  in absense of the "o" option, we will clear the Room tag if it is set
    
  if (brd.TagValue('Room') !== strRoom)
  {
    brd.TagValue('Room') = strRoom;
    ++nMod;
  }

  if (nOC >= 0) {
    if (nRoom === 0) {
      strDealOpen = brd.TagValue('Deal');
      nRoom = 1;
    } else {
      var bCheck = true;  // set this to false to skip the following check
      if (bCheck) {
        if (brd.TagValue('Deal') !== strDealOpen) {
          var str = 'Board ' + nNewBoard + ' Closed: Deal is not the same as Board ' +
            nNewBoard + ' Open.';
          bc.alert(str, MB_ICONERROR);
          WScript.Quit(1);
        }
      }
      
      nRoom = 0;
      ++nNewBoard;
    }
  } else if (nGC < 0) {
    //  for "g" option, nNewBoard is managed at top of loop, not here
    ++nNewBoard;
  }
}

var msg = 'RenumberBoards complete';
if (nMod) bc.Save();
else msg += ' (no changes)';
bc.alert(msg, MB_ICONINFORMATION);
</script>
</job>