i need help with arrays - GameCreators Forum

Author

Message

Coding Beast

12

Years of Service

User Offline

Joined: 13th Dec 2012

Location:

Posted: 22nd Mar 2013 16:14

Link

i have a quiz game that i need help with arrays on. If anyone can help me i give the option of downloading so you can run the game and see what you can help me with.

if i fail i try again

Attachments

Login to view attachments

Back to top

Profile PM Email

BMacZero

19

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 23rd Mar 2013 06:35

Link

You need to be more specific about what your problem is. As much as I want to help you, I can't reasonably scroll through 1000+ lines of code and try to figure out what you need.

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 23rd Mar 2013 12:26 Edited at: 23rd Mar 2013 12:29

Link

The code is here

REM Project: edmutainment math
REM Created: 1/17/2013 7:53:29 AM
REM Creators: Nathan Singiri and Ian Bennett
REM ***** Main Source File *****
REM
Rem load sounds

load sound "C:\Documents and Settings\349114\Desktop\Edmutainment - The Quiz Game\THE QUIZ GAME_SOUNDS\gameover.wav", 2
load sound "C:\Documents and Settings\349114\Desktop\Edmutainment - The Quiz Game\THE QUIZ GAME_SOUNDS\applause.wav", 3

load bitmap "C:\Documents and Settings\349114\Desktop\Edmutainment - The Quiz Game\THE QUIZ GAME_PICTURES\tle.jpg"
   set text font "copperplate gothic bold"
   set text size 60
center text 330,50, "The Quiz Game"
   set text size 35
center text 330,100, "(Please hit any key to continue)"
set text size 32
center text 330,325, "By Nathan Singiri and Ian Bennett"
wait key
cls

starttime = timer()
`*******************************************************************
set text size 20
cls rgb (56,22,112)
`question
center text 330,0, "Question no.1"
center text 330,15,"hit the key of your answer choice"
set text size 30
time_elapsed = timer() - starttime
time_remaining = 120000 - time_elapsed `for 30 seconds
if time_remaining <= 0 then cls `or whatever is supposed to happen
set text size 15
text 10,10, "Time remaining: " + str$(time_remaining/1000.0,1)

center text 330,40, "SCORE:+0"
   set text size 25
center text 330,100, "Which is the greatest decimal value?"
center text 330,150, " 0.45, 0.50, 0.35, 0.75"
center text 200,250, "A) 0.35"
center text 200,300, "B) 0.50"
center text 400,250, "C) 0.75"
center text 400,300, "D) 0.45"

wait key
`answer choices
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,150, "Wrong"
wait key
endif

if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Wrong"
wait key
endif

if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Wrong"

wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key

cls
endif
cls
`*******************************************************************

cls rgb (56,22,112)
   set text size 20
center text 330,0, "Question no.2"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+1"
   set text size 25
center text 330,100, "Which is the greatest decimal value?"
center text 330,150, " 1.68, 1.98, 1.67, 1.69"
center text 200,250, "A) 1.98"
center text 200,300, "B) 1.69"
center text 400,250, "C) 1.67"
center text 400,300, "D) 1.68"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"

wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key

cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.3"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+2"
   set text size 25
center text 330,100, "Which is the lowest decimal value?"
center text 330,150, " 1.68, 1.98, 1.67, 1.69"
center text 200,250, "A) 1.98"
center text 200,300, "B) 1.69"
center text 400,250, "C) 1.67"
center text 400,300, "D) 1.68"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
IF ans$ ="c" THEN inc SCORE, 1
IF ans$ ="a" THEN dec SCORE, 1
IF ans$ ="b" THEN dec SCORE, 1
IF ans$ ="d" THEN dec SCORE, 1
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.4"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+3"
   set text size 25
center text 330,100, "Which is the greatest decimal value?"
center text 330,150, " .007, -.15, .15, .08"
center text 200,250, "A) .007"
center text 200,300, "B) -.15"
center text 400,250, "C) .08"
center text 400,300, "D) .15"
wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
IF ans$ ="d" THEN inc SCORE, 1
IF ans$ ="a" THEN dec SCORE, 1
IF ans$ ="b" THEN dec SCORE, 1
IF ans$ ="c" THEN dec SCORE, 1
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.5"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+4"
   set text size 25
center text 330,100, "Which is the lowest decimal value?"
center text 330,150, " .007, -.15, .15, .08"
center text 200,250, "A) .007"
center text 200,300, "B) -.15"
center text 400,250, "C) .08"
center text 400,300, "D) .15"
wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
set text size 60
center text 330,150, "INTEGERS"
wait key
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.6"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+5"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a weight loss of five pounds?"
center text 200,250, "A) +5"
center text 200,300, "B) -2"
center text 400,250, "C) -5"
center text 400,300, "D) +10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.7"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+6"
   set text size 25
center text 330,100, "What integer represents this senario?"
center text 330,150, " an increase in six pounds?"
center text 200,250, "A) +.6"
center text 200,300, "B) +6"
center text 400,250, "C) -6"
center text 400,300, "D) -.6"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.8"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+7"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a gain in two dollars?"
center text 200,250, "A) +5"
center text 200,300, "B) +2"
center text 400,250, "C) -5"
center text 400,300, "D) +10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.9"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+8"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a loss in ten dollars?"
center text 200,250, "A) +5"
center text 200,300, "B) +2"
center text 400,250, "C) -10"
center text 400,300, "D) +10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.10"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+9"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a gain in twelve dollars?"
center text 200,250, "A) +5"
center text 200,300, "B) +2"
center text 400,250, "C) +12"
center text 400,300, "D) -10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
center text 330,150, "MULTIPLICATION"
wait key
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.11"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+10"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 4 = 16?"
center text 200,250, "A) 12"
center text 200,300, "B) 4"
center text 400,250, "C) 8"
center text 400,300, "D) 7"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.12"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+11"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 2 = 16?"
center text 200,250, "A) 8"
center text 200,300, "B) 12"
center text 400,250, "C) 4"
center text 400,300, "D) 7"
wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.13"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+12"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 2 = 18?"
center text 200,250, "A) 12"
center text 200,300, "B) 4"
center text 400,250, "C) 8"
center text 400,300, "D) 9"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.14"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+13"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 2 = 1?"
center text 200,250, "A) 12"
center text 200,300, "B) 4"
center text 400,250, "C) No Answer"
center text 400,300, "D) 9"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.15"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+14"
   set text size 30
center text 330,100, "what does X equal"
center text 330,150, "21 x 7 = 7 x X"
center text 200,250, "A) 147"
center text 200,300, "B) 7"
center text 400,250, "C) 49"
center text 400,300, "D) 21"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
center text 330,150, "PRIME AND COMPOSITE NUMBERS"
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.16"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+15"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     1     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.17"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+16"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     67     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.18"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+17"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     52     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.19"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+18"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     48     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.20"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+19"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     61     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
center text 330,150, "MONEY SENSE"
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.21"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+20"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest dollar?"
center text 330,150, "     $3.83     "
center text 200,250, "A) $3.90"
center text 200,300, "B) $4.00"
center text 400,250, "C) $3.00"
center text 400,300, "D) $3.80"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.22"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+21"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 10 cents?"
center text 330,150, "     $204.12   "
center text 200,250, "A) $203.90"
center text 200,300, "B) $200.00"
center text 400,250, "C) $204.20"
center text 400,300, "D) $204.10"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.23"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+22"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 10 dollars?"
center text 330,150, "     $63.40   "
center text 200,250, "A) $63.00"
center text 200,300, "B) $64.00"
center text 400,250, "C) $70.00"
center text 400,300, "D) $60.00"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.24"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+23"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 100 dollars?"
center text 330,150, "     $423.29   "
center text 200,250, "A) $300.00"
center text 200,300, "B) $500.00"
center text 400,250, "C) $400.00"
center text 400,300, "D) $424.00"

wait key
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.25"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+24"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 10 cents?"
center text 330,150, "     $56.08   "
center text 200,250, "A) $50.00"
center text 200,300, "B) $56.00"
center text 400,250, "C) $56.10"
center text 400,300, "D) $60.00"
wait key
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)

set text size 45
center text 330,50, "Thank you for playing!!!"
   set text size 35
center text 330,100, "You answered them all correct!!!"
center text 330,150, "Hit any key to End"
wait key
end

+ Code Snippet

REM Project: edmutainment math
REM Created: 1/17/2013 7:53:29 AM
REM Creators: Nathan Singiri and Ian Bennett
REM ***** Main Source File *****
REM
Rem load sounds

load sound "C:\Documents and Settings\349114\Desktop\Edmutainment - The Quiz Game\THE QUIZ GAME_SOUNDS\gameover.wav", 2
load sound "C:\Documents and Settings\349114\Desktop\Edmutainment - The Quiz Game\THE QUIZ GAME_SOUNDS\applause.wav", 3

load bitmap "C:\Documents and Settings\349114\Desktop\Edmutainment - The Quiz Game\THE QUIZ GAME_PICTURES\tle.jpg"
   set text font "copperplate gothic bold"
   set text size 60
center text 330,50, "The Quiz Game"
   set text size 35
center text 330,100, "(Please hit any key to continue)"
set text size 32
center text 330,325, "By Nathan Singiri and Ian Bennett"
wait key
cls

starttime = timer()
`*******************************************************************
set text size 20
cls rgb (56,22,112)
`question
center text 330,0, "Question no.1"
center text 330,15,"hit the key of your answer choice"
set text size 30
time_elapsed = timer() - starttime
time_remaining = 120000 - time_elapsed `for 30 seconds
if time_remaining <= 0 then cls `or whatever is supposed to happen
set text size 15
text 10,10, "Time remaining: " + str$(time_remaining/1000.0,1)


center text 330,40, "SCORE:+0"
   set text size 25
center text 330,100, "Which is the greatest decimal value?"
center text 330,150, " 0.45, 0.50, 0.35, 0.75"
center text 200,250, "A) 0.35"
center text 200,300, "B) 0.50"
center text 400,250, "C) 0.75"
center text 400,300, "D) 0.45"

wait key
`answer choices
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,150, "Wrong"
wait key
endif

if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Wrong"
wait key
endif

if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Wrong"


wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key


cls
endif
cls
`*******************************************************************

cls rgb (56,22,112)
   set text size 20
center text 330,0, "Question no.2"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+1"
   set text size 25
center text 330,100, "Which is the greatest decimal value?"
center text 330,150, " 1.68, 1.98, 1.67, 1.69"
center text 200,250, "A) 1.98"
center text 200,300, "B) 1.69"
center text 400,250, "C) 1.67"
center text 400,300, "D) 1.68"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"

wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key

cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

   set text size 20
center text 330,0, "Question no.3"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+2"
   set text size 25
center text 330,100, "Which is the lowest decimal value?"
center text 330,150, " 1.68, 1.98, 1.67, 1.69"
center text 200,250, "A) 1.98"
center text 200,300, "B) 1.69"
center text 400,250, "C) 1.67"
center text 400,300, "D) 1.68"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
IF ans$ ="c" THEN inc SCORE, 1
IF ans$ ="a" THEN dec SCORE, 1
IF ans$ ="b" THEN dec SCORE, 1
IF ans$ ="d" THEN dec SCORE, 1
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

   set text size 20
center text 330,0, "Question no.4"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+3"
   set text size 25
center text 330,100, "Which is the greatest decimal value?"
center text 330,150, " .007, -.15, .15, .08"
center text 200,250, "A) .007"
center text 200,300, "B) -.15"
center text 400,250, "C) .08"
center text 400,300, "D) .15"
wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
IF ans$ ="d" THEN inc SCORE, 1
IF ans$ ="a" THEN dec SCORE, 1
IF ans$ ="b" THEN dec SCORE, 1
IF ans$ ="c" THEN dec SCORE, 1
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

set text size 20
center text 330,0, "Question no.5"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+4"
   set text size 25
center text 330,100, "Which is the lowest decimal value?"
center text 330,150, " .007, -.15, .15, .08"
center text 200,250, "A) .007"
center text 200,300, "B) -.15"
center text 400,250, "C) .08"
center text 400,300, "D) .15"
wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
set text size 60
center text 330,150, "INTEGERS"
wait key
cls
`*******************************************************************
cls rgb (56,22,112)

   set text size 20
center text 330,0, "Question no.6"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+5"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a weight loss of five pounds?"
center text 200,250, "A) +5"
center text 200,300, "B) -2"
center text 400,250, "C) -5"
center text 400,300, "D) +10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

   set text size 20
center text 330,0, "Question no.7"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+6"
   set text size 25
center text 330,100, "What integer represents this senario?"
center text 330,150, " an increase in six pounds?"
center text 200,250, "A) +.6"
center text 200,300, "B) +6"
center text 400,250, "C) -6"
center text 400,300, "D) -.6"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

   set text size 20
center text 330,0, "Question no.8"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+7"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a gain in two dollars?"
center text 200,250, "A) +5"
center text 200,300, "B) +2"
center text 400,250, "C) -5"
center text 400,300, "D) +10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)

   set text size 20
center text 330,0, "Question no.9"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+8"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a loss in ten dollars?"
center text 200,250, "A) +5"
center text 200,300, "B) +2"
center text 400,250, "C) -10"
center text 400,300, "D) +10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.10"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+9"
   set text size 25
center text 330,100, "What integer represents this scenario?"
center text 330,150, " a gain in twelve dollars?"
center text 200,250, "A) +5"
center text 200,300, "B) +2"
center text 400,250, "C) +12"
center text 400,300, "D) -10"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
center text 330,150, "MULTIPLICATION"
wait key
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.11"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+10"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 4 = 16?"
center text 200,250, "A) 12"
center text 200,300, "B) 4"
center text 400,250, "C) 8"
center text 400,300, "D) 7"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.12"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+11"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 2 = 16?"
center text 200,250, "A) 8"
center text 200,300, "B) 12"
center text 400,250, "C) 4"
center text 400,300, "D) 7"
wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.13"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+12"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 2 = 18?"
center text 200,250, "A) 12"
center text 200,300, "B) 4"
center text 400,250, "C) 8"
center text 400,300, "D) 9"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.14"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+13"
   set text size 30
center text 330,100, "What is the missing number?"
center text 330,150, " __ x 2 = 1?"
center text 200,250, "A) 12"
center text 200,300, "B) 4"
center text 400,250, "C) No Answer"
center text 400,300, "D) 9"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.15"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+14"
   set text size 30
center text 330,100, "what does X equal"
center text 330,150, "21 x 7 = 7 x X"
center text 200,250, "A) 147"
center text 200,300, "B) 7"
center text 400,250, "C) 49"
center text 400,300, "D) 21"
wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`*******************************************************************
center text 330,150, "PRIME AND COMPOSITE NUMBERS"
cls
`*******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.16"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+15"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     1     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.17"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+16"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     67     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.18"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+17"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     52     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.19"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+18"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     48     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.20"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+19"
   set text size 25
center text 330,100, "is this number prime or composite?"
center text 330,150, "     61     "
center text 200,250, "A) prime"
center text 200,300, "B) composite"
center text 400,250, "C) none"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
center text 330,150, "MONEY SENSE"
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.21"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+20"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest dollar?"
center text 330,150, "     $3.83     "
center text 200,250, "A) $3.90"
center text 200,300, "B) $4.00"
center text 400,250, "C) $3.00"
center text 400,300, "D) $3.80"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.22"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+21"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 10 cents?"
center text 330,150, "     $204.12   "
center text 200,250, "A) $203.90"
center text 200,300, "B) $200.00"
center text 400,250, "C) $204.20"
center text 400,300, "D) $204.10"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.23"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+22"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 10 dollars?"
center text 330,150, "     $63.40   "
center text 200,250, "A) $63.00"
center text 200,300, "B) $64.00"
center text 400,250, "C) $70.00"
center text 400,300, "D) $60.00"

wait key
if inkey$()="c"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="d"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.24"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+23"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 100 dollars?"
center text 330,150, "     $423.29   "
center text 200,250, "A) $300.00"
center text 200,300, "B) $500.00"
center text 400,250, "C) $400.00"
center text 400,300, "D) $424.00"

wait key
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)
set text size 20
center text 330,0, "Question no.25"
center text 330,15,"hit the key of your answer choice"
set text size 30
center text 330,40, "SCORE:+24"
   set text size 20
center text 330,100, "What is this amount rounded to the nearest 10 cents?"
center text 330,150, "     $56.08   "
center text 200,250, "A) $50.00"
center text 200,300, "B) $56.00"
center text 400,250, "C) $56.10"
center text 400,300, "D) $60.00"
wait key
if inkey$()="d"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="a"
cls
cls rgb (255,0,0)
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="c"
cls
cls rgb (0,255,0)
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls
endif
cls
`******************************************************************
cls rgb (56,22,112)

   set text size 45
center text 330,50, "Thank you for playing!!!"
   set text size 35
center text 330,100, "You answered them all correct!!!"
center text 330,150, "Hit any key to End"
wait key
end

Insert the code into the forum post field, Use [ code lang=dbp ] [ / code ] without the spaces, or simply press the code button to format code.

Arrays

You are right in asking for help with arrays because using them will reduce your program to less than 200 lines.

You create arrays using the DIM statement outlined here.

In your case you are checking answers to questions using

+ Code Snippet

if inkey$()="a"
cls
cls rgb (255,0,0)
play sound 2
set text size 50
center text 330,50, "Game Over"
center text 330,150, "Please reload the game"
wait key
end
endif
if inkey$()="b"
cls
cls rgb (0,255,0)
play sound 3
set text size 65
center text 330,150, "Correct"
set text size 36
center text 330,225, "(Please hit any key to continue)"
wait key
cls

The rule of thumb is never define the exact same design twice in computing, and in particular in programming.

A good way to implement that rule is to store multiple instances of a structure in an array; here is an example of how to create the quiz:

Creating a quiz in DarkBASIC

Back to top

Profile PM Email Website

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 23rd Mar 2013 14:14

Link

There seems to be a lot of people trying to create a quiz currently?

Check out the post I made here... where I made a very simple quiz engine with scoring. This will help you to create a good quiz game with multiple questions, but is basic enough to learn for yourself by adding features.

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

ShellfishGames

12

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 23rd Mar 2013 14:57 Edited at: 23rd Mar 2013 15:02

Link

Apparently there are not only a lot of people trying to create a quiz game, but also a lot of people helping them out by writing complete "quiz engines".

(here's mine and OBese87 posted one as well as a tutorial here)
No offense to anybody, but it looks like at least three of us have wasted quite some time. Although I have to admit that writing this quiz engine was a welcome distraction.

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 23rd Mar 2013 15:16

Link

Plenty of examples; no excuse for struggling to figure out how to make one now.

Back to top

Profile PM Email Website

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 23rd Mar 2013 16:50

Link

Think I'll add mine to the codebase....

I live for video games! (And beers, and football, and cars!)
See what I live for here: [url]http:\\www.TeamDefiant.co.uk[/url]

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / i need help with arrays

Attachments