+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Games (https://qb64phoenix.com/forum/forumdisplay.php?fid=57)
+---- Thread: Numbers Memory Game (/showthread.php?tid=3556)
Numbers Memory Game - SierraKen - 03-25-2025
Tonight I put this game together. It has no graphics like Simon does, or colors, but instead it uses numbers. It also uses completely different numbers for each turn.
It might take 1 or 2 tries to get the hang of it. Don't ask me why I made the limit 1000 turns, most likely nobody on Earth could remember 1000 numbers in sequence with only seeing them for 2 seconds each. I just wanted to be sure. LOL
Code: (Select All)
_Title "Numbers Memory Game by SierraKen"
Screen _NewImage(800, 600, 32)
Dim num(1001)
Dim num2(1001)
begin:
turns = 0
Cls
Clear
Print: Print: Print
Print " Numbers Memory Game by SierraKen"
Print: Print: Print
Print " Remember all of the numbers the computer shows."
Print " Each turn has different numbers."
Print " One number is added per turn."
Print: Print: Print
Input " Press Enter to begin."; a$
Cls
Randomize Timer
Do
turns = turns + 1
For n = 1 To turns
num(n) = Int(Rnd * 9) + 1
Locate 15, 50: Print "Turn: " + Str$(turns)
Locate 20, 50: Print num(n)
_Delay 2
Cls
_Delay 1
Next n
For n = 1 To turns
Locate 20, 50: Print "Number " + Str$(n) + ": ";: Input num2(n)
If num2(n) <> num(n) Then
Sound 100, 2, , , 3
Locate 24, 50: Print "Wrong Answer!"
Locate 26, 50: Print "Right Answer: "; num(n)
Locate 28, 50: Input "Again (Y/N)"; ag$
If Left$(ag$, 1) = "y" Or Left$(ag$, 1) = "Y" Then GoTo begin
End
End If
Cls
Next n
If turns = 1000 Then End
Loop