Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|39|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Who Wants to Win a Lump of Money

by Blitz3DMan for Workshop #097
Answer the questions to win the cash.
1, 2, 3 or 4
Graphics 640,480,0,2
SeedRnd MilliSecs()
SetBuffer BackBuffer()

Const num_of_Qs=50

;Const num_of_Qs=50
Dim question$(num_of_Qs)
Dim o1$(num_of_Qs)
Dim o2$(num_of_Qs)
Dim o3$(num_of_Qs)
Dim o4$(num_of_Qs)
Dim oreal$(num_of_Qs)

Restore questions
For dump=1 To 6
Read dumpdata
Next
For getq=1 To num_of_Qs
Read question(getq)
Read o1(getq)
Read o2(getq)
Read o3(getq)
Read o4(getq)
Read oreal(getq)
Next



Global money=0


Repeat
q=Rand(1,num_of_Qs)
display$=""
done=0
correct=0
Repeat
Cls

Text 10,10,question(q)
Text 10,100,"1. "+o1(q)
Text 10,130,"2. "+o2(q)
Text 10,160,"3. "+o3(q)
Text 10,190,"4. "+o4(q)
Text 10,400,"Current score: $"+money

If KeyHit(2) Then done=1:c=1:display=o1(q):If oreal(q)=1 Then correct=1
If KeyHit(3) Then done=1:c=2:display=o1(q):If oreal(q)=2 Then correct=1
If KeyHit(4) Then done=1:c=3:display=o1(q):If oreal(q)=3 Then correct=1
If KeyHit(5) Then done=1:c=4:display=o1(q):If oreal(q)=4 Then correct=1

Flip
If KeyDown(1) Then End
Until done=1

FlushKeys

If correct=0 Then
Repeat
Cls
Text 320,220,"You answered incorrectly. You chose "+c+". The correct answer was:",1,1
Text 320,240,oreal(q)+" - "+display,1,1
Text 320,260,"Your final score: $"+money,1,1
Flip
If KeyDown(1) Then End
Until KeyDown(57)
End
Else
Repeat
Cls
Text 320,240,"Correct!",1,1
Flip
If KeyDown(1) Then End
Until KeyDown(57)
If money=0 Then money=100 Else money=money*1.1
EndIf

Forever


.questions
Data"#: ?","","","","",0
Data"#001: What company published Blitz Basic?","Pascal","Idigicon","Silby","BlitzCoder",2
Data"#002: What is the chemical symbol for Sodium?","Na","So","Iu","Fe",1
Data"#003: Approximately what is the square root of 3?","1.4","1.5","1.6","1.7",4
Data"#004: How many millions of miles is the Earth from the Sun?","93,000,000","604","93","10,804",3
Data"#005: Which of the following is a semicolon?",":","\",";","#",3
Data"#006: Which of these gaming systems was made by Sega?","Dreamcast","Wii","Xbox","SNES",1
Data"#007: How many chambers are there in a human heart?","1","3","4","2",3
Data"#008: Which of these colors is not primary (referring to light)?","Green","Blue","Yellow","Red",3
Data"#009: Which of the following elements is flammable?","Helium","Chlorine","Sodium","Hydrogen",4
Data"#010: What did Nintendo sell before it sold video games?","Trading cards","Board games","Books","Nothing",1
Data"#011: As of 2007, what is Pluto considered to be?","An asteroid","A panet","A minor planet","Space debris",3
Data"#012: What is the cube root of 8?","3","4","1.6","2",4
Data"#013: Which of the following is a valid scientific definition of inertia?","The state of being lazy","The fact that every action has an equal and opposite reaction","When momentum continues to move an object after it stops","Inertia is not a real scientific term",3
Data"#014: In what language does 'enero' mean February?","Spanish","French","Russian","None of the above",4
Data"#015: Which of these is an actor in TV Land's The Andy Griffith Show?","Ronny Howard","Sally Robinson","Barney Fife","Jeffrey Wilcocks",1
Data"#016: How many continents are there on the Earth?","6","7","8","9",2
Data"#017: How many feet are in a mile?","3,440","5,280","5,000","5,420",2
Data"#018: A rectangular prism has sides 12, 16, and 40. What is its area?","6730","7680","5860","8760",2
Data"#019: How many faces does a cube have?","4","6","5","8",2
Data"#020: What is 1^2352?","2352","4322","7","1",4
Data"#021: Approximately what is the square root of 2?","1.2","1.3","1.4","1.5",3
Data"#022: What is the cube root of 27?","4","3","2","1",2
Data"#023: What is the cube root of 125?","4","25","5","50",3
Data"#024: Which of the following is a prime number?","69","67","63","68",2
Data"#025: What is the chemical makeup of table salt?","H2O","Na2O","2NC","NaCl",4
Data"#026: What is the mathematical term LCM short for?","Least Common Multiple","Length of Connical Math","Least Confusing Math","Length of Confusing Multiples",1
Data"#027: Sonic is a character created by which company?","Nintendo","Sega","Sony","Microsoft",2
Data"#028: Who signed the Constitution of the US in remarkably big letters?","George Washington","John Hancock","Benjamin Franklin","Thomas Jefferson",2
Data"#029: Which was not one of the 12 disciples of Jesus in the Bible?","Matthias","Peter","James","Methuselah",4
Data"#030: What does 'un poco' mean in Spanish?","a little","big mouth","funny comedian","very huge",1
Data"#031: Which of the following is not an element?","Gold","Uranium","Helium","Water",4
Data"#032: Which of the following is not a state of matter?","Gas","Plasma","Solid","Sugar",4
Data"#033: Approximately what is the cube root of 3?","1.00","1.44","1.50","1.63",2
Data"#034: Which of the following most accurately shows Pi?","3.141596","3.151496","3.141569","3.149615",0
Data"#035: What is not a characteristic of all mammals?","Give birth to live young","Have hair","Have lungs","Care for their young",1
Data"#036: What does CIA stand for?","Center of Intelligent Animals","Cats of Independance of Alabama","Cheese Is Awesome","Central Intelligence Agency",4
Data"#037: What was Mario's original name before he was named Mario?","Jumpman","Luigi","Donkey King","Donkey Kong",1
Data"#038: Who was Nintendo's Mario named after?","Nintendo's Landlord","The CEO of Nintendo","Animal Planet's Mario Lopez","Nobody, they just came up with the name",1
Data"#039: What game show is this based off of?","Deal or no Deal","Who Wants to be a Millionare","Jeapordy","The Price is Right",2
Data"#040: Which of the following is a composite number?","1422","1","57","76",1
Data"#041: What is the square root of 400?","10","20","30","40",2
Data"#042: Which of the following is not a valid Blitz3D command?","Pi","Graphics","DebugText","Write",3
Data"#043: How many different seasons are there in a year?","2","3","4","5",3
Data"#044: Which is not a force?","Gravity","Inertia","Friction","Centrifugal force",2
Data"#045: A pie a day causes what?","Happiness","Heart failure","Good hearing","Brain freeze",2
Data"#046: Which of the following was not used by Roman soldiers as a weapon?","Shield","Sword","Spear","Battleaxe",4
Data"#047: What two rivers border Mesopotamia?","Tigris and Euphrates","Nile and Po","Po and Tigris","Nile and Euphrates",1
Data"#048: The Sahara Desert is located on which continent?","Africa","Asia","Antarctica","Australia",1
Data"#049: The Gobi Desert is located on which continent?","Africa","Asia","Antarctica","Australia",2
Data"#050: Which country does not contain part of the Hymalayan mountain range?","China","India","Nepaul","Mongolia",4