Sorry your browser is not supported!

Q1:
do
Rem Question 1
cls
Center text 320,240, "1. What are igneous rocks made of?"
Center Text 320,260, "A) Magma"
Center Text 320,280, "B) Sand"
Center text 320,300, "C) Metal"
Center text 320,320, "D) Milk"
if keystate(2)=1 then gosub good1:
if keystate(3)=1 then gosub bad1:
if keystate(4)=1 then gosub bad1:
if keystate(5)=1 then gosub bad1:
loop

good1:
cls
play music 3
load bitmap "E:\Nathan\Doomsday Rocks\Pictures\correct orig.bmp"
wait 2000
delete music 3
delete music 4
load music "E:\Nathan\Doomsday Rocks\music\wrong.mp3", 4
load music "E:\Nathan\Doomsday Rocks\music\correct.mp3", 3
gosub Q2:

bad1:
cls
play music 4
load bitmap "E:\Nathan\Doomsday Rocks\Pictures\wrong orig.bmp"
wait 2000
cls
Center Text 320,240, "The correct answer was MAGMA!"
Wait 3000
delete music 3
delete music 4
load music "E:\Nathan\Doomsday Rocks\music\wrong.mp3", 4
load music "E:\Nathan\Doomsday Rocks\music\correct.mp3", 3
gosub Q2:

Load Music 1, "Correct.mp3"
Load Music 2, "InCorrect.mp3"
Type tQuestion
   Question$
   Answer1$
   Answer2$
   Answer3$
   Answer5$
   CorrectAnswer
EndType
Dim Questions( 10 ) As tQuestions

Questions( 1 ).Question$ = "What is 1 + 1?"
Questions( 1 ).Answer1$ = "1"
Questions( 1 ).Answer2$ = "2"
Questions( 1 ).Answer3$ = "3"
Questions( 1 ).Answer4$ = "4"
Questions( 1 ).CorrectAnswer = 2

Questions( 2 ).Question$ = "What is 10 * 10?"
Questions( 2 ).Answer1$ = "1"
Questions( 2 ).Answer2$ = "10"
Questions( 2 ).Answer3$ = "100"
Questions( 2 ).Answer4$ = "1000"
Questions( 2 ).CorrectAnswer = 3


CurrentQuestion = 1
Correct = 0
InCorrect = 0

While Questions( CurrentQuestion ).Question$ <> ""
   Print "Correct: " + Str$( Correct ) + " : Incorrect: " + Str$( Incorrect )
   Print Questions( CurrentQuestion ).Question$
   Print "1) " + Questions( CurrentQuestion ).Answer1$
   Print "2) " + Questions( CurrentQuestion ).Answer2$
   Print "3) " + Questions( CurrentQuestion ).Answer3$
   Print "4) " + Questions( CurrentQuestion ).Answer4$
   Sync
   Input Answer$
   If Int( Answer$ ) = Questions( CurrentQuestion ).CorrectAnswer
      Correct = Correct + 1
      Play Music 1 : Repeat : Sync : Until Music Playing( 1 ) = 0
   Else
      InCorrect = InCorrect + 1
      Play Music 2 : Repeat : Sync : Until Music Playing( 2 ) = 0
   EndIf
   CurrentQuestion = CurrentQuestion + 1
EndWhile