You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
510 B
20 lines
510 B
{
|
|
:name "bet"
|
|
|
|
:display (fn [p]
|
|
(print (string.format "You have $%d." p.cash))
|
|
(print (string.format "Your current bet is $%d." p.bet))
|
|
(print "Enter a new bet.\n")
|
|
(io.write "> ")
|
|
)
|
|
|
|
:key-pressed (fn key-pressed [p amt set-mode]
|
|
(let [valid? (<= (tonumber amt) p.cash)]
|
|
(when valid?
|
|
(set p.bet amt)
|
|
(set-mode :mode.menu)
|
|
)
|
|
)
|
|
)
|
|
}
|