// 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 generates random deals for use with the BridgeComposer
//  View>Practice Play menu command. Each time it is run, six
//  boards are added to the document. The contract is set to the
//  par contract, but you won't know if you're supposed to make
//  it exactly, make overtricks, or hold undertricks to the minimum.
//  All hands except for declarer are initially hidden.

//  $Id: GenPracticePlay.wsf 153 2023-09-02 01:07:25Z Ray $

<job>
<script language="JScript" src="BCConst.js" />
<script language="JScript" src="BCDeal.js" />
<script language="JScript">

var bc = GetBC('5.97');    // BridgeComposer object (global)
var fso = WScript.CreateObject('Scripting.FileSystemObject');

var vLayout = [
    'BCOptions Center'
  , 'BoardsPerPage 1'
  , 'ShowBoardLabels 1'
  , 'ShowCardTable 1'
];

function CreateTempFile()
{
   var tfolder, tfile, tname, fname, TemporaryFolder = 2;
   tfolder = fso.GetSpecialFolder(TemporaryFolder);
   tname = fso.GetTempName();
   tfile = tfolder.CreateTextFile(tname);
   var obj = {};
   obj.path = tfolder.path + '\\' + tname;
   obj.file = tfile;
   return obj;
}

function SetLayout()
{
  var obj = CreateTempFile();
  for (var i = 0; i < vLayout.length; ++i) {
    var strLine = '%' + vLayout[i];
    obj.file.WriteLine(strLine);
  }

  obj.file.Close();
  bc.LoadLayout(obj.path);
  fso.DeleteFile(obj.path);
}

function ClearDD(bd)
{
  bd.ClearTag('DoubleDummyTricks');
  bd.ClearTag('OptimumResultTable');
  bd.ClearTag('ParContract');
  bd.ClearTag('OptimumOpeningLeadTable');
}

function AdjustBoard(iBoard)
{
  var bd = bc.Boards.Item(iBoard);
  var strPar = bd.ParContracts;
  strPar = strPar.toUpperCase();
  var ix = 0;
  var chDeclarer = strPar.charAt(ix++);
  var nDeclarer = deal_strHand.indexOf(chDeclarer);
  if (nDeclarer < 0)
    return false;

  var ch = strPar.charAt(ix);
  var n = deal_strHand.indexOf(ch);
  if (n >= 0)
  {
    //  take S if both NS make par; same for W and EW
    //  very rare: it could be like NE making same par contract
    //  this code will pick E

    chDeclarer = ch;
    nDeclarer = n;
    ++ix;
  }

  var strDeclarer = ['North', 'East', 'South', 'West'][nDeclarer];
  
  while (ix < strPar.length)
  {
    var ch = strPar.charAt(ix++);
    if (ch >= '1' && ch <= '7')
      break;
  }

  if (ix >= strPar.length)
    return false;

  var nLevel = parseInt(ch);

  var strStrain = strPar.charAt(ix++);
  if (strStrain == 'N')
    strStrain += 'T';

  var nRisk = 0;
  var strRisk = '';
  while (nRisk < 2 && ix < strPar.length)
  {
    var ch = strPar.charAt(ix++);
    if (ch === 'X')
    {
      ++nRisk;
      strRisk += 'X';
    }
    else
    {
      break;
    }
  }

  var strContract = nLevel + strStrain;
  bd.TagValue('Contract') = strContract;
  bd.TagValue('Declarer') = chDeclarer;

  var strHidden = deal_strHand;
  strHidden = strHidden.replace(chDeclarer, '');
  bd.TagValue('Hidden') = strHidden;

  ClearDD(bd);
}

(function ()
{
  if (WScript.Arguments.length > 0 && WScript.Arguments(0) !== '-')
    bc.Open(WScript.Arguments(0));
  else
    if (!bc.Open()) WScript.Quit();

  SetLayout();
  var cBoards = bc.Boards.Count;
  var cGen = 6;
  bc.GenerateRandomBoards(cGen);

  if (bc.Boards.Count === cGen)
    cBoards = 0;    // original empty board was removed

  bc.Noui = true;
  bc.DoubleDummyAllBoards();
  bc.Noui = false;
  for (var iBoard = cBoards; iBoard < cBoards + cGen; ++iBoard)
  {
    AdjustBoard(iBoard);
  }

  bc.SelectedBoard = cBoards;
  bc.Save();
})();
</script>
</job>