YahtzeeGame.ps1

<#
.SYNOPSIS
  Yahzee Game completely in PowerShell
.DESCRIPTION
  Kicks off a game of Yahtzee completely in the console. Currently single player only.
  Now includes ASCII art dice
.NOTES
  Author:         Chris Smith (smithcbp on github)
  Creation Date:  5/14/2021
  Todos:
    -Triple Yahtzee
    -WPF GUI
    -Multiplayer
.EXAMPLE
  Just run YahtzeeGame.ps1 and have fun :)
#>

$title = '
\ /                  
 Y  _ |_ _|_ _  _  _ 
 | (_|| | |_ /_(/_(/_'

#Keep track of scores boolean. Will write a score file to appata if $true. 
$ScoreBool = $true

#Create file to store scores
if ($ScoreBool -eq $true) {
  $ScoresPath = "$env:APPDATA\PowershellYahtzeeHighScore.txt"
  if (!$(Test-Path $ScoresPath)) { 
    Set-Content -Path $ScoresPath -Value '' -Force
  }
}

#Ascii dice function
function Get-AsciiDice {
  Param
(
    [parameter(Mandatory=$true,
    ParameterSetName="Random")]
    [int]$Random,
    [parameter(Mandatory=$true,
    ParameterSetName="Numbers")]
    $Numbers,
    [parameter(Mandatory=$False)]
    [ValidateSet("Black","DarkBlue","DarkGreen","DarkCyan","DarkRed","DarkMagenta","DarkYellow","Gray","DarkGray","Blue","Green","Cyan","Red","Magenta","Yellow","White")]
    [String]$DieColor = "White"
  )

  if ($random) {
      $NumberSet = (1..$random | ForEach-Object {Get-Random -Minimum 1 -Maximum 7})
      $NumberSet = ($NumberSet -join '').ToString().ToCharArray()
  }
  if ($Numbers) {
      $NumberSet = $Numbers.ToString().ToCharArray()
  }

 $NumberSet | ForEach-Object { if ($_ -gt '6'){Write-Error -Message "Only supports digits 1-6" -ErrorAction Stop} }
 if ($($NumberSet.Count) -gt 10){Write-Error -Message "Only supports up to 10 die" -ErrorAction Stop}

  $d = [PSCustomObject]@{
      t1 = '     '
      m1 = '  o  '
      b1 = '     '
      t2 = '   o '
      m2 = '     '
      b2 = ' o   '
      t3 = ' o   '
      m3 = '  o  '
      b3 = '   o '
      t4 = 'o   o'
      m4 = '     '
      b4 = 'o   o'
      t5 = 'o   o'
      m5 = '  o  '
      b5 = 'o   o'
      t6 = 'o   o'
      m6 = 'o   o'
      b6 = 'o   o'
      }
  
$DiePicture = foreach ($n in $Numberset){   
  $t = 't' + $n
  $m = 'm' + $n
  $b = 'b' + $n  
  Write-Output " _____ "
  Write-Output "|$($d.$t)|"
  Write-Output "|$($d.$m)|"
  Write-Output "|$($d.$b)|"
  Write-Output " ----- "
  }

Write-Host -ForegroundColor $DieColor ($DiePicture[0,5,10,15,20,25,30,35,40,45] -join '  ')
Write-Host -ForegroundColor $DieColor ($DiePicture[1,6,11,16,21,26,31,36,41,46] -join '  ')
Write-Host -ForegroundColor $DieColor ($DiePicture[2,7,12,17,22,27,32,37,42,47] -join '  ')
Write-Host -ForegroundColor $DieColor ($DiePicture[3,8,13,18,23,28,33,38,43,48] -join '  ')
Write-Host -ForegroundColor $DieColor ($DiePicture[4,9,14,19,24,29,34,39,44,49] -join '  ')
}

#Menu Function
Function Read-Choice {
  [cmdletbinding()]
  param(
    [parameter(
      Mandatory = $true,
      ValueFromPipeline = $true)]
    $Options,
    [string]$Property,
    [string]$Prompt = "Select you score"
  )
  Begin {
    $ObjectArray = @()
    $ChoiceArray = @()
  }
  Process {
    #Gather up options
    if ($Property -and $Property -notin ($Options[0] | Get-Member | Select-Object -ExpandProperty name)) {
      Throw "Property `"$Property`" is not an attribute of choice $($Options[0])"
    }
    $Options | ForEach-Object {
      $ObjectArray += $_
      if ($Property) {
        $ChoiceArray += $_.$Property
      }
      else {
        $ChoiceArray += $_
      }
    }
  }
  End {
    for ($i = 0; $i -lt $ChoiceArray.Count; $i++) {
      #Show options
      #Write-Host "  " -NoNewline
      #Write-Host ($i + 1) -NoNewline -ForegroundColor Green -BackgroundColor Black
      #Write-Host ". $($ChoiceArray[$i])" 
    }
    Do {
      $Answer = Read-Host -Prompt $Prompt
      if ($Answer -in 1..($ChoiceArray.count)) {
        $Chosen = $ObjectArray[$Answer - 1]
      }
      if (!$Chosen) { 
        Write-Host "Invalid choice '$Answer'.  Please try again or press Ctrl+C to quit." -ForegroundColor Yellow
      }
      else {
        $Chosen
      }
    } While (!$Chosen)
  } 
}

#Dice Roll Function
function Invoke-DiceRoll {
  Param([int]$numberofdice)
  $dicearray = 1..$($numberofdice) 
  foreach ($number in $dicearray) { 1..6 | Get-Random }
}

#Array of Score Names
$ScoreNameArray = @(
  'Ones'
  'Twos'
  'Threes'
  'Fours'
  'Fives'
  'Sixes'
  'ThreeofaKind'
  'FourofaKind'
  'FullHouse'
  'SmStraight'
  'LgStraight'
  'Yahtzee'
  'Chance'
)

#Set TurnNumber Variable to be incremented
$TurnNumber = 1

#Create Scoreboard Object and populate with scorename properties
$ScoreboardObject = New-Object -TypeName psobject
foreach ($ScoreName in $ScoreNameArray) { $ScoreboardObject | Add-Member -MemberType NoteProperty -name $ScoreName -Value '' }

#Kicks off 1 round of Yahtzee
function Invoke-YahtzeeTurn {

  #Set up incrementing variables
  $NumberOfRolls = 1
  $i = 0
  $RollResult = 1..5

  #Build Die Objects
  foreach ($Die in $RollResult) {
    $i++
    $Die | Add-Member -MemberType NoteProperty -name "DicePosition" -Value ($i) -Force
    #$Die | Add-Member -MemberType NoteProperty -name "DicePosition" -Value ([char](64 + $i)) -Force  #Select die with letter instead of number
    $Die | Add-Member -MemberType NoteProperty -name "Held" -Value " " -Force
    $Die | Add-Member -MemberType NoteProperty -name "Value" -Value (Invoke-DiceRoll -numberofdice 1) -Force
  }

  #Roll only 2 more times after initial
  $RollResult = While ($NumberOfRolls -le 2) {
    
    #Display Scoreboard
    Clear-Host
    Write-Host -ForegroundColor Blue "$title"
    Write-Host "~~~~Score Card~~~~"
    Write-Host "$($($ScoreboardObject | Select-Object Ones, Twos, Threes, Fours, Fives, Sixes | Format-List | Out-String ).trim())" 
    Write-Host "~~~~~~~~~~~~~~~~~~"
    Write-Host "$($($ScoreboardObject | Select-Object ThreeofaKind, FourofaKind, FullHouse, SmStraight, LgStraight, Yahtzee, Chance | Format-List | Out-String ).trim())"

    #Clear held property
    foreach ($Die in $RollResult) { $Die.Held = ' '}
    
    #Draw die and selection
    Get-AsciiDice -Numbers ($RollResult.Value -join '') -DieColor Yellow
    Write-Host "   1        2        3        4        5"
 
    #Prompt for die selection
    $HoldAnswer = Read-Host "Enter die to hold or leave blank (ex. 123)"   
    $HoldAnswer = $HoldAnswer.ToCharArray()

    #Modify die object with held property
    foreach ($Die in $RollResult) {
      foreach ($Answer in $HoldAnswer) {
        if ($($Die.DicePosition) -match $Answer) {
          $Die.Held = "Hold"
        }  
      }
      
      #Reroll non-held die
      if ($($Die.Held) -notlike "Hold") {
        $Die.Value = Invoke-DiceRoll -numberofdice 1
        $Die.Held = " "
        $Die.Value
      }
    }
    
    #Indicate held die and pause
    $HeldDieInt = $RollResult | Where-Object Held -Like "Hold" | Select-Object value
    $HeldDieInt = $HeldDieInt.value -join ''
    Write-Host "Holding:"
    if ($HeldDieInt) { Get-AsciiDice -Numbers $HeldDieInt -DieColor Yellow }
    Start-Sleep -Seconds 1
    
    #Check if all 5 die held and end turn
    if ($($HoldAnswer.count) -eq 5) { $NumberOfRolls = 2 }
    
    #Increment number of rolls and output final roll result after 3 rolls
    $NumberOfRolls++
    if ($NumberOfRolls -ge 3) { $RollResult }
  }

  #Display scoreboard
  Clear-Host
  Write-Host -ForegroundColor Blue "$title"
  Write-Host "~~~~Score Card~~~~"
  Write-Host "$($($ScoreboardObject | Select-Object Ones, Twos, Threes, Fours, Fives, Sixes | Format-List | Out-String ).trim())" 
  Write-Host "~~~~~~~~~~~~~~~~~~"
  Write-Host "$($($ScoreboardObject | Select-Object ThreeofaKind, FourofaKind, FullHouse, SmStraight, LgStraight, Yahtzee, Chance | Format-List | Out-String ).trim())"

  #Convert roll result to array of values
  $RollResult = $RollResult.value

  #Create Scoring Table Object, a temporary scoreboard for choosing which score to take
  $SelectScoringTableObject = New-Object -TypeName PSObject
  
  #Make all score values 0
  foreach ($ScoreName in $ScoreNameArray) { $SelectScoringTableObject | Add-Member -MemberType NoteProperty -name $ScoreName -Value '0' }

  #Top section score calculating
  $SelectScoringTableObject.Ones = ($RollResult -match '1' | Measure-Object -sum).sum
  $SelectScoringTableObject.Twos = ($RollResult -match '2' | Measure-Object -sum).sum
  $SelectScoringTableObject.Threes = ($RollResult -match '3' | Measure-Object -sum).sum
  $SelectScoringTableObject.Fours = ($RollResult -match '4' | Measure-Object -sum).sum
  $SelectScoringTableObject.Fives = ($RollResult -match '5' | Measure-Object -sum).sum
  $SelectScoringTableObject.Sixes = ($RollResult -match '6' | Measure-Object -sum).sum

  #Bottom section score calculating
  $SelectScoringTableObject.ThreeofaKind = if ((($RollResult | Group-Object) | Select-Object -expand count) -ge 3) { $RollResult | Measure-Object -sum | Select-Object -ExpandProperty sum }
  else { '0' }
  $SelectScoringTableObject.FourofaKind = if (((($RollResult | Group-Object) | Select-Object -expand count) -ge 4)) { $RollResult | Measure-Object -sum | Select-Object -ExpandProperty sum }
  else { '0' }
  $SelectScoringTableObject.FullHouse = if (((($RollResult | Group-Object) | Select-Object count) -match '3') -and ((($RollResult | Group-Object) | Select-Object count) -match '2')) { '25' }
  else { '0' }
  $SelectScoringTableObject.SmStraight = if ((( -join ($RollResult | Sort-Object -u) -match "1234|2345|3456|12345|23456")) -eq $true ) { '30' }
  else { '0' }
  $SelectScoringTableObject.LgStraight = if ((( -join ($RollResult | Sort-Object -u) -match "12345|23456")) -eq $true ) { '40' }
  else { '0' }
  $SelectScoringTableObject.Yahtzee = if ((($RollResult | Group-Object) | Select-Object count) -match '5') { '50' }
  else { '0' }
  $SelectScoringTableObject.Chance = $RollResult | Measure-Object -sum | Select-Object -ExpandProperty sum

  #Build Score Selection Menu
  $ScoreMenu = $SelectScoringTableObject.psobject.Properties | Select-Object Name, Value 
  $ScoreMenu = foreach ($item in $ScoreMenu) {
    if ($($ScoreboardObject.$($item.name)) -like '') { $item }             
  }

  #Present Score Selection Menu
  $c = 0
  Get-AsciiDice -Numbers ($RollResult -join '') -DieColor Yellow
  Write-Host -ForegroundColor Cyan "Choose a score:"
  foreach ($item in $ScoreMenu) {
    $c++
    Write-Host "$c.) $($item.value) $($item.name) "
  }
    
  #Read menu selection, output selected score object.
  $ScoreChoice = Read-Choice -Options $ScoreMenu.name 
  $SelectedScore = $ScoreMenu | Where-Object name -Like $ScoreChoice
  $SelectedScore
}

#Invoke Yahtzee round for each scorable item. Increment turn number
foreach ($item in $ScoreNameArray) {
  $TurnResult = Invoke-YahtzeeTurn 
  $ScoreboardObject.$($TurnResult.Name) = $TurnResult.Value
  $TurnNumber++
}

#Fresh clean console
Clear-Host

#Write scoreboard to console
Write-Host -ForegroundColor Blue "$title"
Write-Host "~~~~Score Card~~~~"
Write-Host "$($($ScoreboardObject | Select-Object Ones, Twos, Threes, Fours, Fives, Sixes | Format-List | Out-String ).trim())" 
Write-Host "~~~~~~~~~~~~~~~~~~"
Write-Host "$($($ScoreboardObject | Select-Object ThreeofaKind, FourofaKind, FullHouse, SmStraight, LgStraight, Yahtzee, Chance | Format-List | Out-String ).trim())"
Write-Host "~~~~~~~~~~~~~~~~~~"

#Sum up top scores
$TopTotalSum = $ScoreboardObject.Ones + $ScoreboardObject.Twos + $ScoreboardObject.Threes + $ScoreboardObject.Fours + $ScoreboardObject.Fives + $ScoreboardObject.Sixes

#Check for bonus score
if ($TopTotalSum -ge 63) { $TopBonus = 35 }
if ($TopTotalSum -lt 63) { $TopBonus = 0 }

#Sum up bottom scores
$BottomTotalSum = $ScoreboardObject.ThreeofaKind + $ScoreboardObject.FourofaKind + $ScoreboardObject.FullHouse + $ScoreboardObject.SmStraight + $ScoreboardObject.LgStraight + $ScoreboardObject.Yahtzee + $ScoreboardObject.Chance

#Sum up final score
$FinalTotal = $TopTotalSum + $TopBonus + $BottomTotalSum

#Write Final Results to Console
Write-Host "Top Total    : $TopTotalSum"
Write-Host "Top Bonus    : $TopBonus"
Write-Host "Bottom Total : $BottomTotalSum"
Write-Host "~~~~~~~~~~~~~~~~~~"
Write-Host "Total Score  : $FinalTotal"

#Check for highscorebool. If so, write to console.
if ($ScoreBool -eq $true) {
  Add-Content -Path $ScoresPath "$FinalTotal"
  $ScoreContent = Get-Content $ScoresPath
  $GamesPlayed = $ScoreContent.count
  $AverageScore = ($ScoreContent | Measure-Object -Average).Average
  $HighScore = ($ScoreContent | Measure-Object -Maximum).Maximum
  $LowestScore = ($ScoreContent | Measure-Object -Minimum).Minimum
  Write-Host "~~~~~~~~~~~~~~~~~~"
  Write-Host "Highest Score: $HighScore"
  Write-Host "Average Score: $AverageScore"
  Write-Host " Lowest Score: $LowestScore"
  Write-Host " Games Played: $GamesPlayed "

  if ($FinalTotal -gt $HighScore) {
    Write-Host "~~~~~~~~~~~~~~~~~~"
    Write-Host "$FinalTotal is a new high score! Great job!"
  } 
}
Write-Host " "
Pause