prog8/compiler/examples/numbergame.p8

41 lines
1.4 KiB
Plaintext
Raw Normal View History

2018-08-14 00:22:59 +00:00
~ main {
sub start() {
2018-09-30 12:19:41 +00:00
str name = " "
str guess = "000000"
2018-10-10 07:21:20 +00:00
ubyte secretnumber = rnd() % 100
2018-08-14 00:22:59 +00:00
2018-09-30 12:19:41 +00:00
_vm_write_str("Let's play a number guessing game!\n")
_vm_write_str("Enter your name: ")
2018-09-30 12:19:41 +00:00
_vm_input_str(name)
_vm_write_str("\nHello, ")
_vm_write_str(name)
_vm_write_str(".\nI am thinking of a number from 1 to 100! You'll have to guess it!\n")
2018-08-14 00:22:59 +00:00
2018-10-10 07:21:20 +00:00
for ubyte attempts_left in 10 to 1 step -1 {
_vm_write_str("\nYou have ")
_vm_write_num(attempts_left)
_vm_write_str(" guess")
if attempts_left>1 _vm_write_str("es")
_vm_write_str(" left. What is your next guess? ")
_vm_input_str(guess)
2018-10-12 12:01:29 +00:00
ubyte guessednumber = str2ubyte(guess)
if guessednumber==secretnumber {
_vm_write_str("\nYou guessed it, impressive!\n")
_vm_write_str("Thanks for playing.\n")
return
} else {
_vm_write_str("That is too ")
if guessednumber<secretnumber
_vm_write_str("low!\n")
else
_vm_write_str("high!\n")
}
}
2018-09-30 12:19:41 +00:00
_vm_write_str("\nToo bad! My number was: ")
_vm_write_num(secretnumber)
_vm_write_str(".\n")
return
}
2018-08-14 00:22:59 +00:00
}