----------------------------------- ClaudF Sat Jan 17, 2004 11:36 pm Who Wants to Be a Millionaire... Major Help! ----------------------------------- Hello, I'm making a "Who Wants to be a Millionaire" type game in my technology class, and I have to make lifelines, which can only be used once during the game. I have the game made EXCEPT that I don't know how to add 2 life-lines (Phone-a-friend & 50-50). I already put in Ask the Audience! I also don't know how to make it so that you can't use a life-line more than once! Ok, any help would be greatly appreciated... Thank, you... Please help me put in the other 2 lifelines! I'm desperate! Thanks... Here's my program so far... var answer1, answer2, answer3, answer4, answer5 : string var answer6, answer7, answer8, answer9, answer10 : string var answer11, answer12, answer13, answer14, answer15 : string colorback (18) var picture : int := Pic.FileNew ("millionaire2.bmp") var picturehost : int := Pic.FileNew ("regis.bmp") var picture1 : int := Pic.FileNew ("100dollars.bmp") var picture2 : int := Pic.FileNew ("200dollars.bmp") var picture3 : int := Pic.FileNew ("300dollars.bmp") var picture4 : int := Pic.FileNew ("500dollars.bmp") var picture5 : int := Pic.FileNew ("1000dollars.bmp") var picture6 : int := Pic.FileNew ("2000dollars.bmp") var picture7 : int := Pic.FileNew ("4000dollars.bmp") var picture8 : int := Pic.FileNew ("8000dollars.bmp") var picture9 : int := Pic.FileNew ("16000dollars.bmp") var picture10 : int := Pic.FileNew ("32000dollars.bmp") var picture11 : int := Pic.FileNew ("64000dollars.bmp") var picture12 : int := Pic.FileNew ("125000dollars.bmp") var picture13 : int := Pic.FileNew ("250000dollars.bmp") var picture14 : int := Pic.FileNew ("500000dollars.bmp") var picture15 : int := Pic.FileNew ("1000000dollars.bmp") var picture16 : int := Pic.FileNew ("million.bmp") color (95) put " WHO WANTS TO BE A MILLIONAIRE?" Pic.Draw (picture, 200, 45, picCopy) delay (1600) cls Pic.Draw (picturehost, 250, 1, picCopy) color (34) put " Hello, and Welcome to Who Wants to Be a Millionaire?" put " I'm your host Regis Philbin. The rules are quite simple..." color (52) put "| All Contestants will be asked up to fifteen multiple choice questions, with |" put "| four possible answers. The player must choose the correct answer, in order |" put "| to continue playing the game, and earn more money. Contestants can stop at |" put "| any time to collect the money they've won so far. If a contestant answers |" put "| incorrectly, they will lose a portion of what they've won so far. Contestants|" put "| may use lifelines, which are provided to them. The lifelines are ask the |" put "| audience, where we will poll the audience, Phone-a-friend, where you can |" put "| phone-a-friend, to recieve the answer, and 50-50, where the computer will |" put "| randomly remove two of the wrong answers. No real money will be awarded, so |" put "| don't come crying to us for your winnings. You can use the word 'quit' |" put "| to take the money you have won, and walk away. Use the number '1' for ask |" put "| the audience, the number '2' for Phone-a-Friend, and the number '3' for |" put "| 50-50. Please remember these during game play! Good Luck and have fun! |" delay (15000) cls color (40) Pic.Draw (picture1, 200, 15, picCopy) put "$100 - What is the closest star to the earth?" color (100) put "a. Castor" put "b. Rigel 7" put "c. The Sun" put "d. The Moon" get answer1 if answer1 = "c" then color (67) put "Correct, Try for $200..." delay (400) cls elsif answer1 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. The Sun." put "You did not win any money!" return elsif answer1 = "1" then put " " color (13) put "a - 1% " color (2) put "b - 0% " color (14) put "c - 98%" color (55) put "d - 1% " delay (4000) cls color (40) Pic.Draw (picture1, 200, 15, picCopy) put "$100 - What is the closest star to the earth?" color (100) put "a. Castor" put "b. Rigel 7" put "c. The Sun" put "d. The Moon" get answer1 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. The Sun." put "You leave here with NOTHING!" return end if if answer1 = "c" then color (67) put "Correct, Try for $200..." delay (400) cls elsif answer1 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. The Sun." put "You did not win any money!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. The Sun." put "You leave here with NOTHING!" return end if color (40) Pic.Draw (picture2, 200, 15, picCopy) put "$200 - Who was the first person to walk on the moon?" color (100) put "a. Edwin Aldrin" put "b. Neil Armstrong" put "c. Valentina Tereshkova" put "d. Michael W. Smith" get answer2 if answer2 = "b" then color (67) put "Correct, try for $300..." delay (400) cls elsif answer2 = "quit" then color (66) put "You have chosen to walk away! The correct answer was b. Neil Armstrong." put "You won $100!" return elsif answer2 = "1" then put " " color (13) put "a - 4% " color (2) put "b - 95% " color (14) put "c - 1%" color (55) put "d - 0% " delay (4000) cls color (40) Pic.Draw (picture2, 200, 15, picCopy) put "$200 - Who was the first person to walk on the moon?" color (100) put "a. Edwin Aldrin" put "b. Neil Armstrong" put "c. Valentina Tereshkova" put "d. Michael W. Smith" get answer2 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was b. Neil Armstrong." put "You leave here with NOTHING." return end if if answer2 = "b" then color (67) put "Correct, try for $300..." delay (400) cls elsif answer2 = "quit" then color (66) put "You have chosen to walk away! The correct answer was b. Neil Armstrong." put "You won $100!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was b. Neil Armstrong." put "You leave here with NOTHING." return end if cls color (40) Pic.Draw (picture3, 200, 15, picCopy) put "$300 - What does NASA stand for?" color (100) put "a. National Aeronautics and Space Administration" put "b. Neil Armstrong Space Association" put "c. North American Space Association" put "d. North Africa Space Administration" get answer3 if answer3 = "a" then color (67) put "Correct, try for $500..." delay (400) cls elsif answer3 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. National" put "Aeronautics and Space Administration." put "You won $200!" return elsif answer3 = "1" then put " " color (13) put "a - 90% " color (2) put "b - 1% " color (14) put "c - 8%" color (55) put "d - 0% " delay (4000) cls color (40) Pic.Draw (picture3, 200, 15, picCopy) put "$300 - What does NASA stand for?" color (100) put "a. National Aeronautics and Space Administration" put "b. Neil Armstrong Space Association" put "c. North American Space Association" put "d. North Africa Space Administration" get answer3 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. National " put "Aeronautics and Space Administration." put "You leave here with NOTHING." return end if if answer3 = "a" then color (67) put "Correct, try for $500..." delay (400) cls elsif answer3 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. National" put "Aeronautics and Space Administration." put "You won $200!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. National " put "Aeronautics and Space Administration." put "You leave here with NOTHING." return end if cls color (40) Pic.Draw (picture4, 200, 15, picCopy) put "$500 - What are red giants, white dwarves, supergiants and middleweights?" color (100) put "a. Stars" put "b. Clouds" put "c. Planets" put "d. Professional Wrestlers" get answer4 if answer4 = "a" then color (67) put "Correct, Try for the Milestone $1,000..." delay (400) cls elsif answer4 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. Stars." put "You won $300!" return elsif answer4 = "1" then put " " color (13) put "a - 89% " color (2) put "b - 2% " color (14) put "c - 9%" color (55) put "d - 0% " delay (4000) cls color (40) Pic.Draw (picture4, 200, 15, picCopy) put "$500 - What are red giants, white dwarves, supergiants and middleweights?" color (100) put "a. Stars" put "b. Clouds" put "c. Planets" put "d. Professional Wrestlers" get answer4 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. Stars. " put "You leave here with NOTHING." return end if if answer4 = "a" then color (67) put "Correct, Try for the Milestone $1,000..." delay (400) cls elsif answer4 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. Stars." put "You won $300!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. Stars. " put "You leave here with NOTHING." return end if cls color (40) Pic.Draw (picture5, 200, 15, picCopy) put "$1,000 - What year did man first walk on the moon?" color (100) put "a. 1970" put "b. 1969" put "c. 1968" put "d. 1972" get answer5 if answer5 = "b" then color (67) put "Correct, try for $2,000..." delay (400) cls elsif answer5 = "quit" then color (66) put "You have chosen to walk away! The correct answer was b. 1969." put "You won $500!" return elsif answer5 = "1" then put " " color (13) put "a - 2% " color (2) put "b - 80% " color (14) put "c - 17%" color (55) put "d - 1% " delay (4000) cls color (40) Pic.Draw (picture5, 200, 15, picCopy) put "$1,000 - What year did man first walk on the moon?" color (100) put "a. 1970" put "b. 1969" put "c. 1968" put "d. 1972" get answer5 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was b. 1969." put "You leave here with only $1,000." return end if if answer5 = "b" then color (67) put "Correct, try for $2,000..." delay (400) cls elsif answer5 = "quit" then color (66) put "You have chosen to walk away! The correct answer was b. 1969." put "You won $500!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was b. 1969." put "You leave here with only $1,000." return end if cls color (40) Pic.Draw (picture6, 200, 15, picCopy) put "$2,000 - What planet's orbit cuts across another planet's orbit?" color (100) put "a. Uranus" put "b. Jupiter" put "c. Neptune" put "d. Pluto" get answer6 if answer6 = "d" then color (67) put "Correct, try for $4,000..." delay (400) cls elsif answer6 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. Pluto." put "You won $1000!" return elsif answer6 = "1" then put " " color (13) put "a - 10% " color (2) put "b - 10% " color (14) put "c - 4%" color (55) put "d - 76% " delay (4000) cls color (40) Pic.Draw (picture6, 200, 15, picCopy) put "$2,000 - What planet's orbit cuts across another planet's orbit?" color (100) put "a. Uranus" put "b. Jupiter" put "c. Neptune" put "d. Pluto" get answer6 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. Pluto." put "You leave here with only $1,000." return end if if answer6 = "d" then color (67) put "Correct, try for $4,000..." delay (400) cls elsif answer6 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. Pluto." put "You won $1000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. Pluto." put "You leave here with only $1,000." return end if cls color (40) Pic.Draw (picture7, 200, 15, picCopy) put "$4,000 - Cape Canaveral is in what state?" color (100) put "a. North Dakota" put "b. New Mexico" put "c. South Dakota" put "d. Florida" get answer7 if answer7 = "d" then color (67) put "Correct, try for $8,000..." delay (400) cls elsif answer7 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. Florida." put "You won $2000!" return elsif answer7 = "1" then put " " color (13) put "a - 20% " color (2) put "b - 10% " color (14) put "c - 2%" color (55) put "d - 68% " delay (4000) cls color (40) Pic.Draw (picture7, 200, 15, picCopy) put "$4,000 - Cape Canaveral is in what state?" color (100) put "a. North Dakota" put "b. New Mexico" put "c. South Dakota" put "d. Florida" get answer7 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. Florida." put "You leave here with only $1,000." return end if if answer7 = "d" then color (67) put "Correct, try for $8,000..." delay (400) cls elsif answer7 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. Florida." put "You won $2000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. Florida." put "You leave here with only $1,000." return end if cls color (40) Pic.Draw (picture8, 200, 15, picCopy) put "$8,000 - Who put the first telescope to practical use?" color (100) put "a. Potemia" put "b. Copernicus" put "c. Hybridian" put "d. Galileo" get answer8 if answer8 = "d" then color (67) put "Correct, try for $16,000..." delay (400) cls elsif answer8 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. Galileo." put "You won $4000!" return elsif answer8 = "1" then put " " color (13) put "a - 1% " color (2) put "b - 3% " color (14) put "c - 3%" color (55) put "d - 93% " delay (4000) cls color (40) Pic.Draw (picture8, 200, 15, picCopy) put "$8,000 - Who put the first telescope to practical use?" color (100) put "a. Potemia" put "b. Copernicus" put "c. Hybridian" put "d. Galileo" get answer8 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. Galileo." put "You leave here with only $1,000." return end if if answer8 = "d" then color (67) put "Correct, try for $16,000..." delay (400) cls elsif answer8 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. Galileo." put "You won $4000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. Galileo." put "You leave here with only $1,000." return end if cls color (40) Pic.Draw (picture9, 200, 15, picCopy) put "$16,000 - Who owns one-fifth of the planet Mars?" color (100) put "a. Eric Clapton" put "b. Oprah Winfrey" put "c. Bill Gates" put "d. Trenton Hassell" get answer9 if answer9 = "a" then color (67) put "Correct, try for the Milestone $32,000..." delay (400) cls elsif answer9 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. Eric Clapton." put "You won $8000!" return elsif answer9 = "1" then put " " color (13) put "a - 55% " color (2) put "b - 10% " color (14) put "c - 30%" color (55) put "d - 5% " delay (4000) cls color (40) Pic.Draw (picture9, 200, 15, picCopy) put "$16,000 - Who owns one-fifth of the planet Mars?" color (100) put "a. Eric Clapton" put "b. Oprah Winfrey" put "c. Bill Gates" put "d. Trenton Hassell" get answer9 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. Eric Clapton." put "You leave here with only $1,000." return end if if answer9 = "a" then color (67) put "Correct, try for the Milestone $32,000..." delay (400) cls elsif answer9 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. Eric Clapton." put "You won $8000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. Eric Clapton." put "You leave here with only $1,000." return end if cls color (40) Pic.Draw (picture10, 200, 15, picCopy) put "$32,000 - Which one outer planet was visited by a spaceship from Earth in 1989?" color (100) put "a. Saturn" put "b. Neptune" put "c. Jupitor" put "d. Pluto" get answer10 if answer10 = "b" then color (67) put "Correct, try for $64,000..." delay (400) cls elsif answer10 = "quit" then color (66) put "You have chosen to walk away! The correct answer was b. Neptune." put "You won $16000!" return elsif answer10 = "1" then put " " color (13) put "a - 1% " color (2) put "b - 50% " color (14) put "c - 44%" color (55) put "d - 5% " delay (4000) cls color (40) Pic.Draw (picture10, 200, 15, picCopy) put "$32,000 - Which one outer planet was visited by a spaceship from Earth in 1989?" color (100) put "a. Saturn" put "b. Neptune" put "c. Jupitor" put "d. Pluto" get answer10 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was b. Neptune." put "You leave here with only $1,000." return end if if answer10 = "b" then color (67) put "Correct, try for $64,000..." delay (400) cls elsif answer10 = "quit" then color (66) put "You have chosen to walk away! The correct answer was b. Neptune." put "You won $16000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was b. Neptune." put "You leave here with only $1,000." return end if cls color (40) Pic.Draw (picture11, 200, 15, picCopy) put "$64,000 - Who was the first woman in Space?" color (100) put "a. Valentia Tereshkova" put "b. Nancy Kerrigan" put "c. Roberta Bondar" put "d. Felicia Brown" get answer11 if answer11 = "a" then color (67) put "Correct, try for $125,000..." delay (400) cls elsif answer11 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. Valentia Tereshkova." put "You won $32000!" return elsif answer11 = "1" then put " " color (13) put "a - 40% " color (2) put "b - 6% " color (14) put "c - 51%" color (55) put "d - 3% " delay (4000) cls color (40) Pic.Draw (picture11, 200, 15, picCopy) put "$64,000 - Who was the first woman in Space?" color (100) put "a. Valentia Tereshkova" put "b. Nancy Kerrigan" put "c. Roberta Bondar" put "d. Felicia Brown" get answer11 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. Valentia Tereshkova." put "You leave here with only $32,000." return end if if answer11 = "a" then color (67) put "Correct, try for $125,000..." delay (400) cls elsif answer11 = "quit" then color (66) put "You have chosen to walk away! The correct answer was a. Valentia Tereshkova." put "You won $32000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was a. Valentia Tereshkova." put "You leave here with only $32,000." return end if cls color (40) Pic.Draw (picture12, 200, 15, picCopy) put "$125,000 - When will Haley's Comet make its next appearance?" color (100) put "a. 2167" put "b. 2034" put "c. 2062" put "d. 2222" get answer12 if answer12 = "c" then color (67) put "Correct, try for $250,000..." delay (400) cls elsif answer12 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. 2062." put "You won $64000!" return elsif answer12 = "1" then put " " color (13) put "a - 25% " color (2) put "b - 25% " color (14) put "c - 27%" color (55) put "d - 23% " delay (4000) cls color (40) Pic.Draw (picture12, 200, 15, picCopy) put "$125,000 - When will Haley's Comet make its next appearance?" color (100) put "a. 2167" put "b. 2034" put "c. 2062" put "d. 2222" get answer12 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. 2062." put "You leave here with only $32,000." return end if if answer12 = "c" then color (67) put "Correct, try for $250,000..." delay (400) cls elsif answer12 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. 2062." put "You won $64000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. 2062." put "You leave here with only $32,000." return end if cls color (40) Pic.Draw (picture13, 200, 15, picCopy) put "$250,000 - How many moons does Mars have?" color (100) put "a. 1" put "b. 0" put "c. 3" put "d. 2" get answer13 if answer13 = "d" then color (67) put "Correct, try for $500,000..." delay (400) cls elsif answer13 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. 2." put "You won $125000!" return elsif answer13 = "1" then put " " color (13) put "a - 1% " color (2) put "b - 39% " color (14) put "c - 4%" color (55) put "d - 56% " delay (4000) cls color (40) Pic.Draw (picture13, 200, 15, picCopy) put "$250,000 - How many moons does Mars have?" color (100) put "a. 1" put "b. 0" put "c. 3" put "d. 2" get answer13 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. 2." put "You leave here with only $32,000." return end if if answer13 = "d" then color (67) put "Correct, try for $500,000..." delay (400) cls elsif answer13 = "quit" then color (66) put "You have chosen to walk away! The correct answer was d. 2." put "You won $125000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was d. 2." put "You leave here with only $32,000." return end if cls color (40) Pic.Draw (picture14, 200, 15, picCopy) put "$500,000 - Which of the following stars is the hottest?" color (100) put "a. Capella" put "b. Antares" put "c. Sirius" put "d. Castor" get answer14 if answer14 = "c" then color (67) put "Correct, try for The Million Dollar Question..." delay (400) cls elsif answer14 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. Sirius." put "You won $250000!" return elsif answer14 = "1" then put " " color (13) put "a - 6% " color (2) put "b - 38% " color (14) put "c - 50%" color (55) put "d - 6% " delay (4000) cls color (40) Pic.Draw (picture14, 200, 15, picCopy) put "$500,000 - Which of the following stars is the hottest?" color (100) put "a. Capella" put "b. Antares" put "c. Sirius" put "d. Castor" get answer14 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. Sirius." put "You leave here with only $32,000." return end if if answer14 = "c" then color (67) put "Correct, try for The Million Dollar Question..." delay (400) cls elsif answer14 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. Sirius." put "You won $250000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. Sirius." put "You leave here with only $32,000." return end if cls color (40) Pic.Draw (picture15, 200, 15, picCopy) put "$1,000,000 - What was the first satellite in orbit?" color (100) put "a. RamRod" put "b. Canada-Arm" put "c. Sputnik" put "d. Klee 45" get answer15 if answer15 = "c" then color (67) put "Correct, YOU WIN A MILLION DOLLARS...!!!" delay (400) cls elsif answer15 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. Sputnik." put "You won $500000!" return elsif answer15 = "1" then put " " color (13) put "a - 25% " color (2) put "b - 25% " color (14) put "c - 25%" color (55) put "d - 25% " delay (4000) cls color (40) Pic.Draw (picture15, 200, 15, picCopy) put "$1,000,000 - What was the first satellite in orbit?" color (100) put "a. RamRod" put "b. Canada-Arm" put "c. Sputnik" put "d. Klee 45" get answer15 else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. Sputnik." put "You Lost Out On The Million Dollar Question! You leave here with only $32,000." return end if if answer15 = "c" then color (67) put "Correct, YOU WIN A MILLION DOLLARS...!!!" delay (400) cls elsif answer15 = "quit" then color (66) put "You have chosen to walk away! The correct answer was c. Sputnik." put "You won $500000!" return else color (65) put "No, I'm sorry... you are incorrect. The correct answer was c. Sputnik." put "You Lost Out On The Million Dollar Question! You leave here with only $32,000." return end if Pic.Draw (picture16, 85, 25, picCopy)