dim cups(1 to 3)

label Main
ExitGame = false
while(ExitGame = false)
cls
print "===== Cups ====="
print
print "E.K.Virtanen 2009"
print
print "This is a Cups game"
print "Choose 'H' for help, 'Q' to quit or to play"; : input ""; Choice$
Choice$ = upper(Choice$)

if Choice$ = "H" then gosub instructions
if Choice$ = "Q" then gosub endGame
if Choice$ = "" then gosub playGame
wend
end

label instructions
cls
print
print "Idea of Cups is very simple."
print "There is three cups in a line, turned upside down."
print "Under one cup (the one in the middle) is placed a coin."
print "Then the game will shuffle cups for a ten time. Practically two cups changes their places."
print "For example, if cup number 2 and 3 changes places, coin will be then under cup position 3."
print "This is repeated for a ten times, and you must follow where the cup with a coin is moved."
print "Game will shuffle cups once in a second, and it will tell you what cups are changed."
print
print "Sounds easy? I guess there is no reason why not to try then ;)"
print "Press some key to go back for the game menu..."
pause
return

label endGame
cls
input "Really want to quit (Y/N)"; Choice$
if upper(Choice$) = "Y" then ExitGame = true
return

label playGame
cls
gosub makeCups
for i = 1 to 10
print "This is round: "; i
gosub shuffleCups
delay 1000
cls
next i
print "Ok, now can you say under which cup the coin is?"
input "What's you'r guess", guess
if guess < 1 or guess > 3 then
print
print "You cant choose that jerk..."
print "Press some key to go back at menu."
pause
goto Main
endif

if cups(guess) = 1 then
print "HOORAY!!!!!!!!!"
print "You got it."
print "Youre a real sharp-eye"
else
print "Wrong wrong wrong."
print "Are you blind or just a slow?"
if cups(1) = 1 then print "It was under cup 1"
if cups(2) = 1 then print "It was under cup 2"
if cups(3) = 1 then print "It was under cup 3"
endif
print "Press any key to go back at menu"
pause
goto Main

label makeCups
cups(1) = 0
cups(2) = 1
cups(3) = 0
return