library(casino)
# Setup a new casino
setup(".mgm")
#> No records found.
#> Storing player records at '.mgm'
#> Updating value for environment variable 'CASINO_FILE'.
# Sit at a slot machine with default bet of 5
x <- Slots$new(who = "Gritty", bet = 5)
#> You have no money!
# Play a game
x$play()
#> You bet 5; you have 95 left.
#> Reels: ^ $ #
#> You lost -5!
#> Now you have 95 in your account.
#> Do you want to `play()` again?
# Play 5 games
x$play(spins = 5)
#> You bet 5; you have 90 left.
#> Reels: ^ & &
#> You lost -5!
#> Now you have 90 in your account.
#> You bet 5; you have 85 left.
#> Reels: # & *
#> You lost -5!
#> Now you have 85 in your account.
#> You bet 5; you have 80 left.
#> Reels: # & *
#> You lost -5!
#> Now you have 80 in your account.
#> You bet 5; you have 75 left.
#> Reels: & & *
#> You lost -5!
#> Now you have 75 in your account.
#> You bet 5; you have 70 left.
#> Reels: ^ & &
#> You lost -5!
#> Now you have 70 in your account.
#> Do you want to `play()` again?