3D Menu Help v2 - GameCreators Forum

Author

Message

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 24th Mar 2014 18:03

Link

I am posting this again since my last post got viewbotted. Basically I am trying to make a menu for my quiz game. I got this code off a website and it works in my game. I have one problem though, I am trying to make the menu so that it goes to each quiz. I have tried to gosub it and it still does not work. Here is what im trying to add:

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

+ Code Snippet

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

This is my whole code (with all the gosubs and such)

#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

+ 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

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

Any helpers

Back to top

Profile PM Email

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 24th Mar 2014 18:26

Link

It seems you didn't heed the advice given on your previous thread.

Cwatson

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 24th Mar 2014 18:30

Link

You haven't stated what the problem is, just that there is a problem so alittle info would be nice. Also your main loop does nothing other than displaying the selected item so it won't execute any of your quiz's.

"Get in the Van!" - Van B

Back to top

Profile PM Email

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 24th Mar 2014 18:34

Link

Well its kind of a problem, I am trying to make the quiz so that it goes to the selected subject. If you run the game currently, you notice that if you click one of the numbers it doesn't go to the selected subject. Basically I am trying to make it so if you click on one of the numbers it goes to the subject.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 24th Mar 2014 18:40 Edited at: 24th Mar 2014 18:40

Link

You have to execute the gosubs in your main loop, this is all that's in yours:

+ Code Snippet

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

All that does is display the menu and show the selected menu item. You need to actual run a gosub.

"Get in the Van!" - Van B

Back to top

Profile PM Email

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 24th Mar 2014 18:48

Link

Sasuke the first code snippet is someone else's code. The OP has no idea how it works.

Cwatson

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 24th Mar 2014 18:55

Link

Quote: "Sasuke the first code snippet is someone else's code. The OP has no idea how it works."

Oh I see. Huh... okay so there's no point giving advice if there not gonna understand it. Also to explain from scratch would take awhile. The answer here would be they need to start with the basics of DBP coding and build from there.

"Get in the Van!" - Van B

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 24th Mar 2014 20:46

Link

Again with the strange view count

"Get in the Van!" - Van B

Back to top

Profile PM Email

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 24th Mar 2014 21:05

Link

The likeness of a failed dos. Probably one of his schoolmates playing a prank.

Cwatson

Back to top

Profile PM

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 24th Mar 2014 23:08

Link

For starters, the SubjectSelect subroutine is all messed up. You should not put functions inside of it. And you shouldn't need any loops inside it either.

The structure is there and you can easily add a menu for selecting the test you want. In fact, I thought we already did this before?

The Main loop:

+ Code Snippet

rem ADD THIS LINE
#CONSTANT MODE_MENU = 9

rem set default mode to display opening title
`mode = MODE_TITLE
mode = MODE_MENU
do
    cls

    rem ADD THIS LINE
    if mode = MODE_MENU           then gosub DisplayMenu

    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

And here's the subroutine for displaying a simple menu.

+ Code Snippet

DisplayMenu:
    center text 320, 20, "Select the number of which quiz you would like to take."
    text 200, 50, "1. Math Test"
    text 200, 50, "2. History Test"
    text 200, 50, "3. Science Test"
    text 200, 50, "4. Random Test"
    s = scancode()
    select s
        case 49 : mode = MODE_MATH_TEST    : endcase
        case 50 : mode = MODE_HISTORY_TEST : endcase
        case 51 : mode = MODE_SCIENCE_TEST : endcase
        case 52 : mode = MODE_RANDOM_TEST  : endcase
    endselect
RETURN

http://zimnox.com

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 25th Mar 2014 17:57 Edited at: 25th Mar 2014 18:19

Link

Is there any way to make the 3D menu work with the subject select though? Also, the code you gave me doesn't work properly. All the text is bundled up in one area for some reason.

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 25th Mar 2014 18:29

Link

Quote: "All the text is bundled up in one area for some reason."

A reason that's really easy to find out.

+ Code Snippet

    text 200, 50, "1. Math Test"
    text 200, 50, "2. History Test"
    text 200, 50, "3. Science Test"
    text 200, 50, "4. Random Test"

All the coordinates are the same. Come one, you could have figured that out yourself, and you can fix that yourself. You're certainly capable and it's a matter of about 5 seconds. I get the feeling you're not believing in yourself enough, if you don't even try.

Quote: "Is there any way to make the 3D menu work with the subject select though?"

Generally speaking, of course there is. But you're really asking for a lot here - basically you want somebody else to comprehend that code that you found somewhere and explain it to you (or even better, write working code for you). And with all due respect, I know better ways to spend my time - especially given that this seems to be a project all about learning to code and the outcome isn't even that important.

Back to top

Profile PM Email Website

tiffer

20

Years of Service

User Offline

Joined: 6th Apr 2006

Location: Scotland

Posted: 25th Mar 2014 22:26

Link

I know it sounds like I'm being harsh but I'm honestly saying this for your own good. If you want to progress to become a games developer you seriously need to re adjust your attitude. All the time you've spent messing around on this forum you should be trying to figure this out. If you're not interested in doing it then what are you even doing here?

Cwatson

Back to top

Profile PM

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 26th Mar 2014 17:11

Link

I am here because I am in a class at school. Currently I have a game that is due in about 2 weeks and since I just started learning this code, I need help. Of course when I cant run my game and there's nothing to do, I have fun. If its not affecting anyone, it shouldn't be a problem.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / 3D Menu Help v2