R/init_game.yatzy.R

In JerBoon/yahtzR: Play variations of the well-known dice rolling game in an R session

# Game constructor for public domain variation
# AS per https://en.wikipedia.org/wiki/Yatzy

init_game.yatzy <- function(game, no_rolls_allowed) {

  ## table for standard game scorecard

  t <- data.frame(
    half=c(1,1,1,1,1,1,1, 2,2,2,2,2,2,2,2,2, 99,99,99),
    section=c("1s","2s","3s","4s","5s","6s","ub",
              "1p","2p","3k","4k","ss","ls","fh","ch","yz","ut","lt","gt"),
    name=c("Aces","Twos","Threes","Fours","Fives","Sixes","Upper bonus",
           "1 pair","2 pairs","3 of a kind","4 of a kind","Small straight","Large straight",
           "Full house","Chance","Yatzy",
           "Upper total","Lower total","TOTAL"),
    score=NA,
    score.available=NA,
    stringsAsFactors = F
  )


  ## add this and other attributes to the list

  game$dice = NA
  game$rolls = 0
  game$no_rolls_allowed = no_rolls_allowed
  game$no_dice = 5
  game$table=t
  game$title <- "Yatzy"

  ## Done

  return(game)

}