# Text only millionaire game.

May 16 2005 at 11:09 PM

when you get this game, it would be nice if you could beta test it for me. E-mail: millcreekfarms@kansas.net

INPUT "Would you like blue leters (press 1) or green letters (2)"; x
IF x = 1 THEN Y = 1
IF x = 2 THEN Y = 2
color1:
COLOR Y, 0
PLAY "MBT160O1L8CDEDCDL4ECC"
PRINT x\$; " let's play Who Wants to be Filthy Rich!"
PRINT " By Micah and Nick Warren"
PRINT " Programed by Nick Warren"
PRINT " DISCLAIMER: The winnings in this game are hypotheti-"
PRINT " cal no real money will be given!"
PRINT x\$, "for 100 dollars what is the only bird in the world that has a better sense of smell than humans?"
INPUT "Is it 1-the roadrunner, 2-the ostrich, 3-the kiwi, or 4-the lyre bird? Type your answer here"; N
IF N = 3 THEN PRINT "THAT IS CORRECT!"
IF N = 3 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 200 dollars what are the dark lava filled craters on the moon called?"
INPUT "Is it 1-the mare, 2-the marianas trenches, 3-canals, or 4-the dark side of the moon? Type your answer here"; S
IF S = 1 THEN PRINT "THAT IS CORRECT!"
IF S = 1 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 300 dollars what year was The Beatles seargant peppers lonely hearts club band released?"
INPUT "Is it 1-1963, 2-1967, 3-1969, or 4-1964? Type your answer here"; B
IF B = 2 THEN PRINT "THAT IS CORRECT!"
IF B = 2 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 500 dollars Where are the worlds largest buildings-the Petronas Towers-located?"
INPUT "Is it 1-Seoul, Korea, 2-Sydney, Australia, 3-Chicago, Illinois, or 4-Kuala Lampur, Malasia? Type your answer here"; F
IF F = 4 THEN PRINT "THAT IS CORRECT!"
IF F = 4 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 1000 dollars when did Babylonian troops led by Nebuchadnezzar destroy Jerusalem and take King Zedekiah prisoner?"
INPUT "Is it 1-586 B.C., 2-479 B.C., 3-532 B.C., or 4-661 B.C.? Type your answer here"; Q
IF Q = 1 THEN PRINT "THAT IS CORRECT!"
IF Q = 1 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 2000 dollars When did the last full-scale cavalry charge take place?"
INPUT "Is it 1-November 1941, 2-October 1942, 3-April 1945, or 4- January 2003 ? Type your answer here"; Z
IF Z = 1 THEN PRINT "THAT IS CORRECT!"
IF Z = 1 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 3000 dollars what geological era comes before the Jurasic?"
INPUT "Is it 1-The Cambrian, 2-The Tertiary, 3-The Cretaceous, or 4-The Triasic? Type your answer here"; t
IF t = 4 THEN PRINT "THAT IS CORRECT!"
IF t = 4 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 5000 dollars When was wheat first cultivated by farmers in the middle east?"
INPUT "Is it 1-6000 B.C., 2-999 B.C, 3-8000 B.C., or 4-2000 B.C.? Type your answer here"; W
IF W = 3 THEN PRINT "THAT IS CORRECT!"
IF W = 3 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 100,000 dollars What type of woods is said to be innedible to termites?"
INPUT "Is it 1-oak, 2-pine, 3-Elm, or 4-Walnut? Type your answer here"; G
IF G = 2 THEN PRINT "THAT IS CORRECT!"
IF G = 2 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 200,000 dollars when did the unification of upper and lower Egypt take place?"
INPUT "Is it 1-312 B.C.,2-3100 B.C.,3-2100 B.C., or 4-22,000 B.C.?"; L
IF L = 2 THEN PRINT "THAT IS CORRECT!"
IF L = 2 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 300,000 dollars what is the largest satelite?"
INPUT "Is it 1-the hubble space telescope 2- the international space station 3- the moon or 4-sputnik?"; K
IF K = 3 THEN PRINT "THAT IS CORRECT!"
IF K = 3 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT x\$, "for 500,000 dollars how high is the international space station?"
INPUT "Is it 1-3000 miles 2- 220 miles 3-230 miles or 4- 14 miles?"; Y
IF Y = 2 THEN PRINT "THAT IS CORRECT!"
IF Y = 2 THEN PLAY "T160O1>L20CDEDCDL10ECC" ELSE END
PRINT "and finaly for 1,000,000 dollars what country does Christmass island belong to?"
IF R = 3 THEN PRINT "THAT IS CORRECT! You just won a million dollars!"
IF R = 3 THEN PLAY "MBT160O1L8CDEDCDL4ECC" ELSE END

 Respond to this message

R

# Nice.

May 17 2005, 10:18 AM
 Respond to this message
mennonite

# changing the colors

May 17 2005, 3:57 PM
 'that is a nice program... ha, you ripped the music off nibbles :D 'michael's idea is good, here's a way to change colors... i like blue better than green, 'but i think light blue (color 9) is easier to see than blue (color 1) so here's an exapansion of this code: INPUT "Would you like blue leters (press 1) or green letters (2)"; x IF x = 1 THEN Y = 1 IF x = 2 THEN Y = 2 'to this: PRINT "press a letter for the following color:" PRINT "would you like to see:" PRINT COLOR 1: PRINT "a. blue" COLOR 2: PRINT "b. green" COLOR 3: PRINT "c. cyan" COLOR 4: PRINT "d. red" COLOR 5: PRINT "e. magenta" COLOR 6: PRINT "f. brown" COLOR 7: PRINT "g. white" COLOR 8: PRINT "h. grey" COLOR 9: PRINT "i. light blue" COLOR 10: PRINT "j. light green" COLOR 11: PRINT "k. light cyan" COLOR 12: PRINT "l. light red" COLOR 13: PRINT "m. light magenta" COLOR 14: PRINT "n. yellow" COLOR 15: PRINT "o. bright white" DO sele\$ = LCASE\$(INPUT\$(1)) LOOP UNTIL INSTR("abcdefghijklmno", sele\$) > 0 ' keep going if answer not ok y = INSTR("abcdefghijklmno", sele\$) 'set y to new color (you'll still want to use COLOR y, 0 later)
 Respond to this message
mennonite

# *failing that, at least add IF Y=0 THEN Y=2 'so that you never get black on black

May 17 2005, 4:33 PM
 Respond to this message

R

# Cool.

May 17 2005, 9:58 PM
 Those are clever ways to use INSTR(). I would have used a SELECT CASE to determine correct input and then resolve the choice to a color. INSTR() is much more compact. Nice!
 Respond to this message
mennonite