The QBasic / QB64 Discussion Forum      Other Subforums, Links and Downloads
 
Respond to this messageReturn to Index
Original Message
  • Text only millionaire game.
    • New Kid (no login)
      Posted May 16, 2005 11:09 PM

      when you get this game, it would be nice if you could beta test it for me. E-mail: [email protected]

      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"
      INPUT "What's your name?"; x$
      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?"
      INPUT "Is it 1-Panama 2-Madascar 3-Australia or 4-Ecuador?"; R
      IF R = 3 THEN PRINT "THAT IS CORRECT! You just won a million dollars!"
      IF R = 3 THEN PLAY "MBT160O1L8CDEDCDL4ECC" ELSE END

















    Login Status
  • You are not logged in
    • Login
      Password
       

      Optional
      Provides additional benefits such as notifications, signatures, and user authentication.


      Create Account
    Your Name
    Your Email
    (Optional)
    Message Title
    Message Text
    Options Also send responses to my email address
          


    Newbies usually go to www.qbasic.com and click on The QBasic Forum
    Forum regulars have their own ways, which include The QBasic Community Forums