Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Who Wants to Be a Millionaire... Major Help!
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
ClaudF




PostPosted: Sat Jan 17, 2004 11:37 pm   Post subject: 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...

code:

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)

Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 1 Posts ]
Jump to:   


Style:  
Search: