Adding Sound, Need help - GameCreators Forum

Author

Message

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 3rd Mar 2014 19:17

Link

I need help with 2 things. I am making a quiz game and I want to make it so that if you get it right, it will make a "ding" sound. If you get it wrong, it will be "errr" I don't know where to get those sound files, and I don't know where to put the code. Here is my Quiz Game:

#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
        if timeLeft <= 0 then gosub YouLost
        Text 20, 20, "Seconds Left: "+str$(timeLeft)
    endif
loop

YouLost:
MODE = MODE_YOU_LOST
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 gosub SubjectSelect
RETURN

Title:
    load bitmap "E:\education.bmp"
    set text size 30 : ink rgb (255,0,0),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:
    load bitmap "E:\blackboard.bmp"
    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
    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
                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
                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 45 : set text font "arial"
            center text 320,200, science(currentQuestion).question
            ink rgb(0,0,0),0 : set text size 30 : 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
                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
                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 6
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

HistoryQuestions:
data 5
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", 4
data "What was the first state to leave the United States in the Civil War?" , "South Carolina", "North Caroline", "Louisianna", "Maryland", 1

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", 1
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 2
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

+ Code Snippet

#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
        if timeLeft <= 0 then gosub YouLost
        Text 20, 20, "Seconds Left: "+str$(timeLeft)
    endif
loop

YouLost:
MODE = MODE_YOU_LOST
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 gosub SubjectSelect
RETURN


Title:
    load bitmap "E:\education.bmp"
    set text size 30 : ink rgb (255,0,0),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:
    load bitmap "E:\blackboard.bmp"
    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
    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
                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
                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 45 : set text font "arial"
            center text 320,200, science(currentQuestion).question
            ink rgb(0,0,0),0 : set text size 30 : 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
                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
                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 6
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


HistoryQuestions:
data 5
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", 4
data "What was the first state to leave the United States in the Civil War?" , "South Carolina", "North Caroline", "Louisianna", "Maryland", 1


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", 1
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 2
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

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Mar 2014 19:33

Link

Remember that you're adding or subtracting from the game time depending on whether the user gets the answer correct or not. This is the same spot where you would want to play your sound.

You can find free sounds here: http://www.freesound.org/

Also, I don't remember if I pointed this out in your previous threads or not, but all those different test subroutines can be combined and cut down the amount of code by quite a lot.

http://zimnox.com

Back to top

Profile PM Email Website

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 3rd Mar 2014 22:32

Link

load sound "<myfile>.wav", ID
play sound ID

Quote: "I don't know where to get those sound files"

here.

Quote: "I don't know where to put the code."

Exactly where you want the sound to be played. As Phaelax already pointed out - you want to play it when the user gives a right or wrong answer, so put the play sound just where this is evaluated. Load Sound obviously goes to the beginning of your program.

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 4th Mar 2014 19:29

Link

I put this in:

+ Code Snippet

rem SOUNDS
load sound "E:\failbuz.wav",1 : set sound volume 1,81

then I added play sound here:

+ Code Snippet

YouLost:
MODE = MODE_YOU_LOST
play sound 1
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"

I tried doing it with and without my flash drive and it gives me the error: "Could not load sound at line 19" I spelled my file name correctly and I have no idea what is wrong with it.

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 5th Mar 2014 09:40

Link

Can you upload the sound file? It's probably nothing, but the wav file could have some weird encoding or compression that DB doesn't like.

http://zimnox.com

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 5th Mar 2014 18:54

Link

Here is the sound we are trying to use

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th Mar 2014 04:02

Link

It loads fine for me. But the file you uploaded is failbuz.wav.wav, but your code above says just failbuz.wav

http://zimnox.com

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 6th Mar 2014 18:53

Link

That was the problem, but now I have a new problem:
The Game works fine but I cannot hear the sound. For some reason it doesn't work:

+ Code Snippet

rem SOUNDS
load sound "E:\failbuz.wav",1 : set sound volume 1,81

Back to top

Profile PM Email

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 6th Mar 2014 19:02

Link

can you upload the part of the program that plays the sound?

Cwatson

Back to top

Profile PM

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 6th Mar 2014 19:06

Link

Okay, here it is:

+ Code Snippet

YouLost:
MODE = MODE_YOU_LOST
play sound 1
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"

+ Code Snippet

rem SOUNDS
load sound "E:\failbuz.wav",1 : set sound volume 1,81

Back to top

Profile PM Email

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 6th Mar 2014 19:32 Edited at: 6th Mar 2014 19:34

Link

If you pay attention to the logical structure here you will see that the reason you cant hear the sound is because it is constantly being restarted every loop.

The trouble wih the structure you've gone for is everything is being repeated.

simple fix

+ Code Snippet

if dontplaysound=0 
   play sound 1 : dontplaysound=1
endif

then when you exit the 'you_lost' screen you need to reset dontplaysound to 0

Cwatson

Back to top

Profile PM

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 7th Mar 2014 19:05

Link

I added the code to this and it worked, but it only works once. Whenever I restart the quiz the sound doesn't work anymore. I have to restart my game in order for the sound to work again.

+ Code Snippet

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"

I need it so that it can play the sound every time I restart the quiz.

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 7th Mar 2014 19:20

Link

"then when you exit the 'you_lost' screen you need to reset dontplaysound to 0"

...I assume that should solve the problem.

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 7th Mar 2014 19:22

Link

Doesn't that mean I need to restart my game? Sorry I am new to Dark Basic

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 7th Mar 2014 19:28

Link

No, it means you replace this...

if inkey$() = "b" then gosub SubjectSelect
RETURN

by this...

if inkey$() = "b" then dontplaysound = 0 : gosub SubjectSelect
RETURN

I.e. then when you exit the 'YouLost' screen - which you do once gosub SubjectSelect is called because that stops your program form calling the YouLost subroutine - you need to reset dontplaysound to 0 - which basically means you set dontplaysound back to 0, which means you write dontplaysound = 0 into the code.

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 10th Mar 2014 18:04

Link

New Question: I am trying to add sound for each answer I get right, and since I didn't fully make this game, I have no idea where to add it. Here is the place where I want to add it:

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
                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

+ Code Snippet

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
                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

Please help!

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 10th Mar 2014 18:51

Link

Well, comments are there for a reason - like these two:

+ Code Snippet

                rem if user selected correct answer
                if answer = math(currentQuestion).answer
                    inc gameTime, 5
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif

I guess that sounds kind of promising.

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 11th Mar 2014 18:13

Link

I entered one of the sounds for the correct answer, but the incorrect answer is giving me an error. This is what I tried to put:

+ Code Snippet

 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
                play sound 3

It says I cannot load the sound.

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 11th Mar 2014 18:17

Link

If it cannot load the sound, then the part where you call load sound is important, not the one where you play the sound.

Have you made sure you're using the correct file name? (Remember the failbuz.wav.wav problem from before) If so, are you using appropriate IDs (i.e. loading the sounds using different IDs, and using the correct ones when playing the sound)?

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 11th Mar 2014 18:31

Link

Yes, I redownloaded the sound to make sure that the name wasn't the problem. I have no idea what is the problem

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 11th Mar 2014 18:55

Link

Well, given the error message I assume that (1) you're either using a wrong file name or path, or (2) you're using a sound ID that is already in use. You can find out by replacing the line that causes the problem, which probably looks somewhat like this:

+ Code Snippet

load sound <filename>, <somevalue>

by this:

+ Code Snippet

if file exist(<filename>)=0 then exit prompt "File does not exist - Filename: " get dir$() + " -> " + <filename>, "Error" : end
if sound exist(<somevalue>) then exit prompt "Sound already exists", "Error" : end
load sound <filename>, <somevalue>

(replacing <filename> and <somevalue> with the exact values you've been using so far in the load sound line)

Then execute your code and see what it tells you. If it's still the same error message as before, that's kind of weird. But chances are it isn't.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Adding Sound, Need help