Sorry your browser is not supported!

#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


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
        Text 20, 20, "Seconds Left: "+str$(timeLeft)
    endif

loop




Title:
    set text size 30 : ink rgb (255,255,255),0
    center text 320,60, "Welcome  Edumania!"
    set text size 15
    center text 320,160, "Press X if you don't want to read the instructions"
    center text 320,180, "Press H if you want to read the instructions"
    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
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:
    ink rgb (255,255,255),0 : set text size 30
    center text 320,200,"Which subject do you want to select?"
    set text size 15
    text 240,280,"1.)Math"
    text 240,300,"2.)History"
    text 240,320,"3.)Science"
    text 240,340,"4.)Random"
    center text 320,380, "Press B to go back"

    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
    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
                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 timeLeft <= 0 then gosub ResetGame
                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
    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, history(currentQuestion).question
            set text size 15
            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
                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 timeLeft <= 0 then gosub ResetGame
                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
    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, science(currentQuestion).question
            set text size 15
            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
                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 timeLeft <= 0 then gosub ResetGame
                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
    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, random(currentQuestion).question
            set text size 15
            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
                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
                    remainingTime = gameTime - elapsedTime
                    if timeLeft <= 0 then gosub ResetGame
                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

ResetGame:
    mode = MODE_TITLE
    startTest = FALSE
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


MathQuestions:
data 5
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


HistoryQuestions:
data 3
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", 1

ScienceQuestions:
data 2
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

RandomizeQuestions:
data 2
data "What is in the center of Earth?", "Volcanoes", "Nothing", "The Core", "Snow", 3
data "What color is a mirror?", "Silver", "Green", "White", "No color", 2

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, February 12, 2014

Rem ***** Main Source File *****

x = screen width()/2

cls 0xFFFFFF

set text font "Helvetica"
set text size 40
set text to bold

fancyText(x, 40, "Text with outline", 0xFFC0C0C0, 0xFFFF0000)
shadowedText(x, 80, "Text with simple shadow", 0xFFF03000)
fancyShadowedText(x, 120, "Text with blurred shadow", 0xFFF03000)
fancy3DText(x,160,"Fancy 3D Text Effect", 0xFFFF0000, 0x00300000, 8)

wait key
end



function fancyText(x,y,s$,color as dword, color2 as dword)
    ink color2,0
    center text x-1,y, s$
    center text x+1,y, s$
    center text x,y-1, s$
    center text x,y+1, s$
    ink color,0
    center text x,y, s$
endfunction

function shadowedText(x,y,s$,color as dword)
    ink getRGBA(0,0,0,128),0
    center text x+2,y+2, s$
    ink color,0
    center text x,y, s$
endfunction

function fancyShadowedText(x,y,s$,color as dword)
    ink getRGBA(0,0,0,60),0
    center text x+1,y+2, s$
    center text x+3,y+2, s$
    center text x+2,y+1, s$
    center text x+2,y+3, s$
    ink color,0
    center text x,y, s$
endfunction

function fancy3DText(x,y,s$, color1 as dword, color2 as dword, depth as integer)
    for i = depth to 1 step -1
        f# = (i-1)/(1.0*(depth-1))
        color = blendColors(color1, color2, f#)
        ink color, 0
        center text x+i, y+i, s$
    next
endfunction

function getRGBA(r as byte,g as byte,b as byte,a as byte)
    c = b + (g << 8) + (r << 16) + (a << 24)
endfunction c

function blendColors(c1 as dword, c2 as dword, f#)
    f1# = 1.0-f#
    r = f#*rgbr(c2) + f1#*rgbr(c1)
    g = f#*rgbg(c2) + f1#*rgbg(c1)
    b = f#*rgbb(c2) + f1#*rgbb(c1)
    a = f#*(c2 >> 24) + f1#*(c1 >> 24)
    color = getRGBA(r,g,b,a)
endfunction color

MathQuestions:
data 5
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


HistoryQuestions:
data 3
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", 1

ScienceQuestions:
data 2
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

RandomizeQuestions:
data 1
data "What is in the center of Earth?", "volcanoes", "Nothing", "The Core", "Snow", 3

n1 = rnd(100)
n2 = rnd(100)
k = rnd(3)


select k
    case 0
        question$ = str$(n1)+" + "+str$(n2)+" = ?"
        answer = n1 + n2
    endcase
    case 1
        question$ = str$(n1)+" - "+str$(n2)+" = ?"
        answer = n1 - n2
    endcase
    case 2
        question$ = str$(n1)+" * "+str$(n2)+" = ?"
        answer = n1 * n2
    endcase
    case 3
        question$ = str$(n1)+" / "+str$(n2)+" = ?"
        answer = n1 / n2
    endcase
endselect


fancyShadowedText(300,50,question$, rgb(255,0,0))