'If you like this game, be sure to visit my QBASIC page at...
'http://ourworld.cs.com/bdtrusnak/qbasichq.html
'I am always updating it! Over 20 games right now! More on the way!!!




CLS
SCREEN 12
COLOR (9): PRINT " "
PRINT " "
PRINT " "
FOR cnt = 1 TO 20
centerCol = INT(RND * 35) + 1
colr = INT(RND * 16)
radius = INT(RND * 100)
CIRCLE (centerCol, centerRow), radius, colr
NEXT cnt

PRINT
PRINT
PRINT
PRINT "                       E N I G M A                                        "
PRINT " "
PRINT "                       A  B R A N D O N  R U S N A K  G A M E ! ! !"
scale$ = "CCADDFCGFDCGFDCGFDCGFDCBGFDCBAACFGFFEACCAABCDEFGFECFADGFDA"
PLAY "L16"
PLAY "x" + VARPTR$(scale$)
COLOR (10): PRINT " "
PRINT " "
PRINT " "
PRINT " "
PRINT "Instructions...  "
PRINT " "
PRINT "You will be given a random code. You must decifer it by using only the"
PRINT "code hints given to you. Have fun!"
PRINT " "
COLOR (5): PRINT " "
scale$ = "CCADDFGFDCAAAAACDGFCDFGCFDCFGCDFA"
PLAY "L16"
PLAY "x" + VARPTR$(scale$)
PRINT "C H O O S I N G  R A N D O M  C O D E"
PRINT " "
PRINT "P L E A S E  W A I T..."

RANDOMIZE TIMER
num = INT(RND * 5) + 1

IF num = 1 THEN GOTO puz1
IF num = 2 THEN GOTO puz2
IF num = 3 THEN GOTO puz3
IF num = 4 THEN GOTO puz4
IF num = 5 THEN GOTO puz5

puz1:
PRINT " "
COLOR (10): PRINT "You have gotten lucky puzzle number one!!!"
PRINT " "
PRINT "C O D E  H I N T S . . . "
PRINT " "
PRINT "A = 22, B = 1 , E = 23, F = 4."
PRINT " "
PRINT "Here is your puzzle!"
PRINT " "
PRINT " 1  23  9  24  23  17  23    24  11    20  25  26  14  15  23  9  4"
PRINT " "
PRINT " "
PRINT " "
INPUT "PLEASE ENTER IN ALL CAPS THE SOLUTION TO MY PUZZLE."; puzanswer1$
PRINT " "
IF puzanswer1$ = "BELIEVE IN YOURSELF" THEN PRINT "YOU GOT MY PUZZLE!!!"
IF puzanswer1$ <> "BELIEVE IN YOURSELF" THEN PRINT "Sorry, you are not correct. :-("
END
puz2:
COLOR (9): PRINT " "
PRINT "You have gotten puzzle number two!"
PRINT " "
PRINT "C O D E  H I N T S . . ."
PRINT " "
PRINT "A = X, Y = Y, Z = Z."
PRINT " "
PRINT "O T F D F  M J T C F  Y J D"
PRINT " "
PRINT " "
PRINT " "
INPUT "PLEASE ENTER IN ALL CAPS THE SOLUTION TO MY PUZZLE."; puzanswer2$
PRINT " "
IF puzanswer2$ = "JESUS LOVES YOU" THEN PRINT "YOU GOT MY PUZZLE!!!"
IF puzanswer2$ <> "JESUS LOVES YOU" THEN PRINT "Sorry. You were incorrect."
END



puz3:
PRINT " "
COLOR (13): PRINT "Puzzle three is the one for thee!"
PRINT ""
PRINT "C O D E  H I N T S"
PRINT " "
PRINT "A = 2, B = 4, I = 512, J = A."
PRINT " "
PRINT " "
PRINT " "
PRINT "128  E  16    4  C  32  J  J    2  D  32  I  512  8  2"
PRINT " "
INPUT "PLEASE ENTER IN ALL CAPS THE SOLUTION TO MY PUZZLE."; puzanswer3$
PRINT " "
IF puzanswer3$ = "GOD BLESS AMERICA" THEN PRINT "YOU GOT MY PUZZLE!!!"
IF puzanswer3$ <> "GOD BLESS AMERICA" THEN PRINT "Sorry, wrong answer!"
END

puz4:
COLOR (2): PRINT " "
PRINT "You lucky---you got puzzle number 4!"
PRINT " "
PRINT "C O D E  H I N T S . . ."
PRINT " "
PRINT "1 = 20, 20 = 1."
PRINT " "
PRINT " "
PRINT " "
PRINT "1 * 8 + 9 * 12 + 17 = ?"
PRINT " "
INPUT "Please enter the solution in number form without commas."; num4
PRINT ""
IF num4 = 2452 THEN PRINT "YOU GOT MY PUZZLE!!!"
IF num4 <> 2452 THEN PRINT "Sorry! Incorrect!"
END
puz5:
COLOR (12): PRINT ""
PRINT "Ha! You got an easy one! Puzzle number 5!"
PRINT " "
PRINT "C O D E  H I N T S . . ."
PRINT " "
PRINT "A = B, B = C, Z = A."
PRINT " "
PRINT " "
PRINT " "
PRINT "G  M  L  D  O    R  H  L  O  N  M"
PRINT " "
INPUT "PLEASE ENTER THE SOLUTION IN ALL CAPS!"; puzans22$
PRINT " "
IF puzans22$ = "HOMER SIMPSON" THEN PRINT "YOU GOT MY PUZZLE!!!"
IF puzans22$ <> "HOMER SIMPSON" THEN PRINT "Sorry! You were incorrect!"
END