## Example

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?

## Payouts

outcome multiplier win
! ! ! 2176782336 10883911680
@ @ @ 4251528 21257640
# # # 110592 552960
 \$ 8303 41515
% % % 1114 5570
^ ^ ^ 216 1080
& & & 53 265
* * * 16 80