So I got this code from this website and it is great. There is one thing I want to add to it. I want to make it so that if I click a number on the menu it will take me to one of my quizzes. Sadly, Im not good at coding and I do not know how to do this "wizardry." Also, instead of numbers I want it to display the subject name for each quiz. Here is the menu:
SubjectSelect:
`load bitmap "E:\blackboard.bmp"
set display mode 1024,768,32 : sync on : sync rate 60 : autocam off : color backdrop 0
set cursor 0,0;print "Rotating 3D Menu By Jason Clogg (DBPro 5.7)"
print "Click on any menu item to bring to front."
print "Click on front object to select item."
Print "Cursor keys move through items one at a time."
get image 1000,0,0,500,100,1
make object plain 1000,500,100
texture object 1000,1000
position object 1000,-252,350,640
set object light 1000,0
`lock object on 1000
rem Global variables required by the menu functions
global maxitems
global angle#
global objectbase
global texturebase
`global baseangle#
rem Number of items in menu
maxitems=4
rem first object number to use when building the menu
objectbase=1
rem first texture number to use when building the menu
texturebase=1
rem Generate some textures for menu
set text opaque:set text size 16
for i=1 to maxitems
cls rgb(255,0,0):ink rgb(255,255,255),rgb(rnd(255),rnd(255),rnd(255))
set cursor 15-text width(str$(i))/2,12.5-text height(str$(i))/2:print str$(i)
get image i,0,0,30,25,1
next i
cls 0:ink rgb(255,255,255),rgb(0,0,0):set text transparent
rem main loop. Run menu and return item
do
item=display_rotating_menu()
while spacekey()=0
set cursor 0,710
print "Menu Item Selected=",item
print "Press SPACEBAR to continue"
sync
endwhile
loop
function display_rotating_menu()
set ambient light 50
hide light 0
angle#=360/maxitems
baseangle#=0
rem create menu objects. Ive used textured plains but you could load objects
rem and create and object browser.
for i=0 to maxitems-1
objnum=i+objectbase
make object plain objnum,3,2.25
set object light objnum,1
set object transparency objnum,2
disable object zwrite objnum
ghost object on objnum
fade object objnum,100
position object objnum,sin(angle#*i)*-10,0,cos(angle#*i)*-10
texture object objnum,i+texturebase
set object texture objnum,0,0
next i
fade object objectbase,180
rem set initial selected item
selitem=0
previtem=maxitems
rem set camera position and direction
position camera 0,3,-20
point camera 0,-1,0
do
if mouseclick()=1
clicked=pick object(mousex(),mousey(),objectbase,objectbase+maxitems-1)
rem if you click currently selected item, delete objects and return selected item number
if clicked-objectbase=selitem
for i=objectbase to objectbase+maxitems-1
delete object i
next i
retval=clicked-objectbase+1
exitfunction retval
rem otherwise move clicked item to front
else
if clicked>0
previtem=selitem
selitem=clicked-objectbase
show_menu_item(previtem,selitem)
endif
endif
endif
mwheel=mousemovez()
if rightkey()=1 or mwheel>0
previtem=selitem
inc selitem
if selitem>maxitems-1 then selitem=0
show_menu_item(previtem,selitem)
endif
if leftkey()=1 or mwheel<0
previtem=selitem
dec selitem
if selitem<0 then selitem=maxitems-1
show_menu_item(previtem,selitem)
endif
rem make sure objects point at the camera
for i=0 to maxitems-1
objnum=i+objectbase
set object to camera orientation objnum
turn object right objnum,180
next i
sync
loop
endfunction 0
function show_menu_item(previtem,selitem)
rem ca# is the current angle, a# is the angle of the selected item
ca#=wrapvalue(360-(previtem*angle#))
a#=360-(selitem*angle#)
rem Variables used to fade in an out items
pfd#=100
pfs#=180
sfd#=180
sfs#=100
if ca#<180 then a#=wrapvalue(a#)
rem move selected item to the front
repeat
ca#=curveangle(a#,ca#,20)
pfs#=curvevalue(pfd#,pfs#,20)
sfs#=curvevalue(sfd#,sfs#,20)
fade object previtem+objectbase,int(pfs#)
fade object selitem+objectbase,int(sfs#)
for i=0 to maxitems-1
objnum=i+objectbase
position object objnum,sin(ca#+angle#*i)*-10,0,cos(ca#+angle#*i)*-10
set object to camera orientation objnum
turn object right objnum,180
next i
sync
until abs(ca#-a#)<1
endfunction
startTest = FALSE
Here is the whole quiz
#CONSTANT TRUE = 1
#CONSTANT FALSE = 0
#CONSTANT MODE_TITLE = 1
#CONSTANT MODE_INSTRUCTIONS = 2
#CONSTANT MODE_SUBJECT_SELECT = 3
#CONSTANT MODE_MATH_TEST = 4
#CONSTANT MODE_HISTORY_TEST = 5
#CONSTANT MODE_SCIENCE_TEST = 6
#CONSTANT MODE_RANDOM_TEST = 7
rem SOUNDS
rem load sound "E:\failbuz.wav",1 : set sound volume 1,81
rem load sound "E:\correct.wav",2 : set sound volume 2,81
rem load sound "E:\wrong.wav",3 : set sound volume 3,81
rem music
rem load music "E:\math.mp3",1
Type TestQuestion
question as string
choice1 as string
choice2 as string
choice3 as string
choice4 as string
answer as integer
EndType
rem read the math questions data into the math array
restore MathQuestions
read size
dim math(size) as TestQuestion
for i = 1 to size
read math(i).question
read math(i).choice1
read math(i).choice2
read math(i).choice3
read math(i).choice4
read math(i).answer
next i
rem read the history questions data into the history array
restore HistoryQuestions
read size
dim history(size) as TestQuestion
for i = 1 to size
read history(i).question
read history(i).choice1
read history(i).choice2
read history(i).choice3
read history(i).choice4
read history(i).answer
next i
rem read the science questions data into the history array
restore ScienceQuestions
read size
dim science(size) as TestQuestion
for i = 1 to size
read science(i).question
read science(i).choice1
read science(i).choice2
read science(i).choice3
read science(i).choice4
read science(i).answer
next i
rem read the random questions data into the history array
restore RandomizeQuestions
read size
dim random(size) as TestQuestion
for i = 1 to size
read random(i).question
read random(i).choice1
read random(i).choice2
read random(i).choice3
read random(i).choice4
read random(i).answer
next i
set text font "arial"
rem set default mode to display opening title
mode = MODE_TITLE
do
cls
if mode = MODE_TITLE then gosub Title
if mode = MODE_INSTRUCTIONS then gosub Instructions
if mode = MODE_SUBJECT_SELECT then gosub SubjectSelect
if mode = MODE_MATH_TEST then gosub MathTest
if mode = MODE_HISTORY_TEST then gosub HistoryTest
if mode = MODE_SCIENCE_TEST then gosub ScienceTest
if mode = MODE_RANDOM_TEST then gosub RandomTest
if inkey$() = "" then kFlag = 0
rem Display timer only during the test
if startTest = TRUE and finishedTest = FALSE
elapsedTime = (timer() - startingTime) / 1000
timeLeft = gameTime - elapsedTime
if timeLeft <= 0 then gosub YouLost
Text 20, 20, "Seconds Left: "+str$(timeLeft)
endif
loop
YouLost:
MODE = MODE_YOU_LOST
if dontplaysound=0
play sound 1 : dontplaysound=1
endif
load bitmap "E:\fail.bmp"
ink rgb(255,0,0),0 : set text size 60 : set text font "arial"
center text 320,120, "You Lost"
ink rgb(255,0,0),0 : set text size 30 : set text font "arial"
center text 320,200, "Press B to go back to Title"
if inkey$() = "b" then dontplaysound = 0 : gosub SubjectSelect
RETURN
Title:
center text 320,180, "Press X to go to mode select"
if inkey$() = "x" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
if inkey$() = "h" and kFlag = 0 then mode = MODE_INSTRUCTIONS : kFlag = 1
if inkey$() = "m" then play music 1
RETURN
Instructions:
ink rgb (0,50,500),0 : set text size 30
center text 320,60, "Instructions"
ink rgb (255,255,255),0
set text size 15
Center text 320,160, "Welcome to the Edumania Test Prep! In this Game"
center text 320,180, "you have to answer as many problems as you can"
center text 320,200, "before the timer runs out."
center text 320,220, "Good Luck!"
ink rgb (200,150,0),0
center text 320,420, "Press SPACE to start"
center text 320,400, "Press B to go back"
if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
if spacekey() = 1 and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
RETURN
SubjectSelect:
`load bitmap "E:\blackboard.bmp"
set display mode 1024,768,32 : sync on : sync rate 60 : autocam off : color backdrop 0
set cursor 0,0;print "Rotating 3D Menu By Jason Clogg (DBPro 5.7)"
print "Click on any menu item to bring to front."
print "Click on front object to select item."
Print "Cursor keys move through items one at a time."
get image 1000,0,0,500,100,1
make object plain 1000,500,100
texture object 1000,1000
position object 1000,-252,350,640
set object light 1000,0
`lock object on 1000
rem Global variables required by the menu functions
global maxitems
global angle#
global objectbase
global texturebase
`global baseangle#
rem Number of items in menu
maxitems=4
rem first object number to use when building the menu
objectbase=1
rem first texture number to use when building the menu
texturebase=1
rem Generate some textures for menu
set text opaque:set text size 16
for i=1 to maxitems
cls rgb(255,0,0):ink rgb(255,255,255),rgb(rnd(255),rnd(255),rnd(255))
set cursor 15-text width(str$(i))/2,12.5-text height(str$(i))/2:print str$(i)
get image i,0,0,30,25,1
next i
cls 0:ink rgb(255,255,255),rgb(0,0,0):set text transparent
rem main loop. Run menu and return item
do
item=display_rotating_menu()
while spacekey()=0
set cursor 0,710
print "Menu Item Selected=",item
print "Press SPACEBAR to continue"
sync
endwhile
loop
function display_rotating_menu()
set ambient light 50
hide light 0
angle#=360/maxitems
baseangle#=0
rem create menu objects. Ive used textured plains but you could load objects
rem and create and object browser.
for i=0 to maxitems-1
objnum=i+objectbase
make object plain objnum,3,2.25
set object light objnum,1
set object transparency objnum,2
disable object zwrite objnum
ghost object on objnum
fade object objnum,100
position object objnum,sin(angle#*i)*-10,0,cos(angle#*i)*-10
texture object objnum,i+texturebase
set object texture objnum,0,0
next i
fade object objectbase,180
rem set initial selected item
selitem=0
previtem=maxitems
rem set camera position and direction
position camera 0,3,-20
point camera 0,-1,0
do
if mouseclick()=1
clicked=pick object(mousex(),mousey(),objectbase,objectbase+maxitems-1)
rem if you click currently selected item, delete objects and return selected item number
if clicked-objectbase=selitem
for i=objectbase to objectbase+maxitems-1
delete object i
next i
retval=clicked-objectbase+1
exitfunction retval
rem otherwise move clicked item to front
else
if clicked>0
previtem=selitem
selitem=clicked-objectbase
show_menu_item(previtem,selitem)
endif
endif
endif
mwheel=mousemovez()
if rightkey()=1 or mwheel>0
previtem=selitem
inc selitem
if selitem>maxitems-1 then selitem=0
show_menu_item(previtem,selitem)
endif
if leftkey()=1 or mwheel<0
previtem=selitem
dec selitem
if selitem<0 then selitem=maxitems-1
show_menu_item(previtem,selitem)
endif
rem make sure objects point at the camera
for i=0 to maxitems-1
objnum=i+objectbase
set object to camera orientation objnum
turn object right objnum,180
next i
sync
loop
endfunction 0
function show_menu_item(previtem,selitem)
rem ca# is the current angle, a# is the angle of the selected item
ca#=wrapvalue(360-(previtem*angle#))
a#=360-(selitem*angle#)
rem Variables used to fade in an out items
pfd#=100
pfs#=180
sfd#=180
sfs#=100
if ca#<180 then a#=wrapvalue(a#)
rem move selected item to the front
repeat
ca#=curveangle(a#,ca#,20)
pfs#=curvevalue(pfd#,pfs#,20)
sfs#=curvevalue(sfd#,sfs#,20)
fade object previtem+objectbase,int(pfs#)
fade object selitem+objectbase,int(sfs#)
for i=0 to maxitems-1
objnum=i+objectbase
position object objnum,sin(ca#+angle#*i)*-10,0,cos(ca#+angle#*i)*-10
set object to camera orientation objnum
turn object right objnum,180
next i
sync
until abs(ca#-a#)<1
endfunction
startTest = FALSE
`if inkey$() = "1" and kFlag = 0 then mode = MODE_MATH_TEST : kFlag = 1
`if inkey$() = "2" and kFlag = 0 then mode = MODE_HISTORY_TEST : kFlag = 1
`if inkey$() = "3" and kFlag = 0 then mode = MODE_SCIENCE_TEST : kFlag = 1
`if inkey$() = "4" and kFlag = 0 then mode = MODE_RANDOM_TEST : kFlag = 1
`if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
RETURN
MathTest:
rem Display get ready message until user has pressed space bar
hide mouse
load bitmap "E:\math.bmp"
if startTest = FALSE
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Get Ready!"
set text size 15
center text 320,260, "Press the space bar to go start"
center text 320,280, "Press B to go back"
if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
rem user pressed space bar to start the test
if Spacekey() = 1 and kFlag = 0
startTest = TRUE
kFlag = 1
rem reset variables needed for test
gosub ResetTest
endif
else : `Test has started
rem if test is not finished (test is still running)
if finishedTest = FALSE
rem Display test question and possible choices
ink rgb(255,255,255),0 : set text size 30
center text 320,200, math(currentQuestion).question
set text size 15
text 240,280, "A.) " + math(currentQuestion).choice1
text 240,300, "B.) " + math(currentQuestion).choice2
text 240,320, "C.) " + math(currentQuestion).choice3
text 240,340, "D.) " + math(currentQuestion).choice4
rem Read user input
answer = asc(lower$(inkey$())) - 96
rem If user selected a valid choice
if answer > 0 and answer < 5 and kFlag = 0
kFlag = 1
rem if user selected correct answer
if answer = math(currentQuestion).answer
inc gameTime, 5
play sound 2
else : `User selected incorrect answer
dec gameTime, 5
endif
rem move onto the next question
inc currentQuestion
rem if no more questions in this test, mark test as finished
if currentQuestion > array count(math())
finishedTest = TRUE
elapsedTime = (timer() - startingTime) / 1000
remainingTime = gameTime - elapsedTime
if remainingTime = 0 then gosub YouLost
endif
endif
else : `Test is finished
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Test Results"
ink rgb(0,255,0),0 : set text size 20
center text 320,280, "Congratulations! You finished the Math test with "+str$(remainingTime)+" seconds left."
ink rgb(255,255,0),0
center text 320,340, "Press any key to continue."
if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
endif
endif
RETURN
HistoryTest:
rem Display get ready message until user has pressed space bar
load bitmap "E:\history.bmp"
if startTest = FALSE
hide mouse
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Get Ready!"
set text size 15
center text 320,260, "Press the space bar to go start"
center text 320,280, "Press B to go back"
if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
rem user pressed space bar to start the test
if Spacekey() = 1 and kFlag = 0
startTest = TRUE
kFlag = 1
rem reset variables needed for test
gosub ResetTest
endif
else : `Test has started
rem if test is not finished (test is still running)
if finishedTest = FALSE
rem Display test question and possible choices
ink rgb(255,255,0),0 : set text size 30
center text 320,200, history(currentQuestion).question
ink rgb(255,255,0),0 : set text size 30
text 240,280, "A.) " + history(currentQuestion).choice1
text 240,300, "B.) " + history(currentQuestion).choice2
text 240,320, "C.) " + history(currentQuestion).choice3
text 240,340, "D.) " + history(currentQuestion).choice4
rem Read user input
answer = asc(lower$(inkey$())) - 96
rem If user selected a valid choice
if answer > 0 and answer < 5 and kFlag = 0
kFlag = 1
rem if user selected correct answer
if answer = history(currentQuestion).answer
inc gameTime, 5
play sound 2
else : `User selected incorrect answer
dec gameTime, 5
endif
rem move onto the next question
inc currentQuestion
rem if no more questions in this test, mark test as finished
if currentQuestion > array count(history())
finishedTest = TRUE
elapsedTime = (timer() - startingTime) / 1000
remainingTime = gameTime - elapsedTime
if remainingTime = 0 then gosub YouLost
endif
endif
else : `Test is finished
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Test Results"
ink rgb(0,255,0),0 : set text size 20
center text 320,280, "Congratulations! You finished the History test with "+str$(remainingTime)+" seconds left."
ink rgb(255,255,0),0
center text 320,340, "Press any key to continue."
if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
endif
endif
RETURN
ScienceTest:
rem Display get ready message until user has pressed space bar
load bitmap "E:\science2.bmp"
if startTest = FALSE
hide mouse
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Get Ready!"
set text size 15
center text 320,260, "Press the space bar to go start"
center text 320,280, "Press B to go back"
if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
rem user pressed space bar to start the test
if Spacekey() = 1 and kFlag = 0
startTest = TRUE
kFlag = 1
rem reset variables needed for test
gosub ResetTest
endif
else : `Test has started
rem if test is not finished (test is still running)
if finishedTest = FALSE
rem Display test question and possible choices
ink rgb(0,0,0),0 : set text size 35 : set text font "arial"
center text 320,200, science(currentQuestion).question
ink rgb(255,0,0),0 : set text size 25 : set text font "arial"
text 240,280, "A.) " + science(currentQuestion).choice1
text 240,300, "B.) " + science(currentQuestion).choice2
text 240,320, "C.) " + science(currentQuestion).choice3
text 240,340, "D.) " + science(currentQuestion).choice4
rem Read user input
answer = asc(lower$(inkey$())) - 96
rem If user selected a valid choice
if answer > 0 and answer < 5 and kFlag = 0
kFlag = 1
rem if user selected correct answer
if answer = science(currentQuestion).answer
inc gameTime, 5
play sound 2
else : `User selected incorrect answer
dec gameTime, 5
endif
rem move onto the next question
inc currentQuestion
rem if no more questions in this test, mark test as finished
if currentQuestion > array count(science())
finishedTest = TRUE
elapsedTime = (timer() - startingTime) / 1000
remainingTime = gameTime - elapsedTime
if remainingTime = 0 then gosub YouLost
endif
endif
else : `Test is finished
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Test Results"
ink rgb(0,255,0),0 : set text size 20
center text 320,280, "Congratulations! You finished the Science test with "+str$(remainingTime)+" seconds left."
ink rgb(255,255,0),0
center text 320,340, "Press any key to continue."
if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
endif
endif
RETURN
RandomTest:
rem Display get ready message until user has pressed space bar
load bitmap "E:\random.bmp"
if startTest = FALSE
hide mouse
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Get Ready!"
set text size 15
center text 320,260, "Press the space bar to go start"
center text 320,280, "Press B to go back"
if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
rem user pressed space bar to start the test
if Spacekey() = 1 and kFlag = 0
startTest = TRUE
kFlag = 1
rem reset variables needed for test
gosub ResetTest
endif
else : `Test has started
rem if test is not finished (test is still running)
if finishedTest = FALSE
rem Display test question and possible choices
ink rgb(0,0,0),0 : set text size 45 : set text font "arial"
center text 320,200, random(currentQuestion).question
ink rgb(0,0,0),0 : set text size 30 : set text font "ariral"
text 240,280, "A.) " + random(currentQuestion).choice1
text 240,300, "B.) " + random(currentQuestion).choice2
text 240,320, "C.) " + random(currentQuestion).choice3
text 240,340, "D.) " + random(currentQuestion).choice4
rem Read user input
answer = asc(lower$(inkey$())) - 96
rem If user selected a valid choice
if answer > 0 and answer < 5 and kFlag = 0
kFlag = 1
rem if user selected correct answer
if answer = random(currentQuestion).answer
inc gameTime, 5
play sound 2
else : `User selected incorrect answer
dec gameTime, 5
endif
rem move onto the next question
inc currentQuestion
rem if no more questions in this test, mark test as finished
if currentQuestion > array count(random())
finishedTest = TRUE
elapsedTime = (timer() - startingTime) / 1000
timeLeft = gameTime - elapsedTime
if timeLeft = 0 then gosub YouLost
endif
endif
else : `Test is finished
ink rgb(255,255,255),0 : set text size 30
center text 320,200, "Test Results"
ink rgb(0,255,0),0 : set text size 20
center text 320,280, "Congratulations! You finished the Random test with "+str$(remainingTime)+" seconds left."
ink rgb(255,255,0),0
center text 320,340, "Press any key to continue."
if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
endif
endif
RETURN
ResetTest:
rem start test with question 1
currentQuestion = 1
rem start test with 15 seconds
gameTime = 15
rem record when test started
startingTime = timer()
rem mark test as unfinished
finishedTest = FALSE
RETURN
ResetGame:
mode = MODE_TITLE
startTest = FALSE
RETURN
MathQuestions:
data 9
data "What is 10+45?", "22", "11", "33", "55", 4
data "What is 30x5?", "50", "60", "150", "98", 3
data "What is 56.1 + 82.3?", "138.4", "125.4", "116.2", "118.4", 1
data "What is 50 - 35 ?", "117", "104.3", "15", "89", 3
data "What is 116x2?", "201", "232", "190", "212", 2
data "What is 120/5?", "20", "24", "18", "10", 2
data "What is -6 + 9?", "2", "-3", "3", "-2" , 3
data "What is (5+8)-(6-10)?", "17", "-11", "11", "-17", 1
data "What is x? x+9=12", "-3", "6", "4", "3", 4
HistoryQuestions:
data 7
data "Who is the second president of the United States?", "Theodore Rosevelt", "John Adams", "George Washington", "Andrew Jackson", 2
data "What was the first war in the United States?", "The War of 1812", "The Indian American War", "The Revolutionary War", "World War II", 3
data "Where did the gold rush take place?", "Boston", "New York City", "Los Angeles", "San Fransisco", 4
data "Who was the president during the Civil War?", "James Buchanan", "Franklin Pierce", "Abraham Lincoln", "John Adams", 3
data "What was the first state to leave the United States in the Civil War?", "South Carolina", "North Caroline", "Louisianna", "Maryland", 1
data "When did World War 2 end?", "1930", "1896", "1945", "1980", 3
data "Which person was the first one to find the United States By Boat?", "George Washington", "Christopher Columbus", "Native Americans", "Abraham Licoln", 2
ScienceQuestions:
data 8
data "What is the smallest thing on Earth?", "molecule", "atom", "piece of dust", "protons", 2
data "What do plants release after photosynthesis?", "carbon dioxide", "iron", "sugar", "oxygen", 4
data "What is the formula for Density?", "v/m (Volume Over Mass)", "p/n (Protons Over Neutrons)", "m/v (Mass Over Volume)", "n/p (Neutrons Over Protons)", 3
data "What is the basic unit of life?", "cell", "organ", "organelle", "tissue", 1
data "When tectonic plates slide against each other, which of the following may result?", "volcanoes", "earthquakes", "constructive plate margins", "destructive plate margins", 2
data "Which is an example of a physical change?", "boiling water", "cooking an egg", "burning wood", "tarnishing silver", 3
data "Which of these is considered a gaseous planet?", "Earth", "Moon", "Pluto", "Neptune", 4
data "What is the esitmate age of Earth?", "64 million years", "64 billion years", "48 million years", "48 billion years", 2
RandomizeQuestions:
data 3
data "What is in the center of Earth?", "Volcanoes", "Nothing", "The Core", "Snow", 3
data "What color is a mirror?", "White", "Green", "No Color", "Blue", 2
data "What is the 20th letter in the alphabet?", "T", "S", "Q", "J", 1
Please halp
