Sorry your browser is not supported!

REM Project: Geo Game
REM Created: 1/10/14
REM
REM *****Main Source File*****
REM
autocam off
hide mouse
Title:
load bitmap \\\"E:\\\\images\\\\hi hehe.bmp\\\"
 ink rgb (255,255,255),0 : set text font \\\"elephant\\\" : set text size 30 : set text to normal
center text 320,410,\\\"Devloped by Connor Chapman and Evan Rafferty\\\"
center text 320,440,\\\"Press any key to continue\\\"
wait key
Intructions:
cls
ink rgb(255,100,200),0 : set text font \\\"impact\\\" : set text size 30
center text 320,60,\\\"Instructions\\\"
set text size 15
center text 320,160,\\\"Welcome to The Geography Game!\\\"
center text 320,180,\\\"This game will teach you about the Geography of the United States.\\\"
center text 320,200,\\\"You have to answer as many questions as you can.\\\"
center text 320,220,\\\"You will begin with 60 seconds.\\\"
center text 320,240,\\\"If you get a question right, 3 seconds will be added to the timer.\\\"
center text 320,260,\\\"If you get a question wrong, you will lose 5 seconds\\\"
center text 320,280,\\\"The more questions you get right, the higher your score will be.\\\"
center text 320,300,\\\"If you get at least a score of 1000, you will have a chance to answer the bonus question.\\\"
center text 320,320,\\\"If you get the question right, your score will be doubled!\\\"
center text 320,340,\\\"Good luck and have fun!\\\"
ink rgb(0,255,0),0
center text 320,400,\\\"Press C to Continue\\\"

do
if Inkey$()=\\\"c\\\" then gosub level1:
loop

level1:
cls
ProblemCorrect = 0
AnswerCorrect = 0
Seconds=60
T=Timer()

load bitmap \\\"E:\\\\images\\\\coffee.bmp\\\"
ink rgb(0,0,0),0 :set text font \\\"arial\\\" : set text size 30 : set text to normal
Center text 320,200,\\\"What is the capital of Califorina?\\\"
set text size 15
text 240,280,\\\"A.)Salem\\\"
text 240,300,\\\"B.)Sacremento\\\"
text 240,320,\\\"C.)Trenton\\\"
text 240,340,\\\"D.)Carson city\\\"

wait key
repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed
  Text 20,20,\\\"Seconds Left: \\\"+Str$(TimeLeft)

   if inkey$()=\\\"a\\\"
   do
       if inkey$() <> \\\"a\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = Seconds -5
      gosub level2
endif
  If inkey$()=\\\"b\\\"
      do
         if inkey$() <> \\\"b\\\" then exit
      loop
      ProblemCorrect = 1
      AnswersCorrect = AnswersCorrect + 1
      Seconds = Seconds + 3
      gosub level2
endif
if inkey$()=\\\"c\\\"
   do
      if inkey$() <> \\\"c\\\" then exit
      loop
      ProblemCorrect =  2
      Seconds = Seconds - 5
      gosub level2
endif
   if inkey$()=\\\"d\\\"
   do
      if inkey$() <> \\\"d\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = - 5
      gosub level2
endif
if TimeLeft <=9 then Text 105,20,\\\"  \\\"
if TimeLeft <=99 then Text 111,20,\\\"  \\\"
Until TimeLeft = 0
gosub Endsection

end

level2:
cls
load bitmap \\\"E:\\\\images\\\\coffee.bmp\\\"
ink rgb(0,0,0),0 :set text font \\\"arial\\\" : set text size 30 : set text to normal
Center text 320,200,\\\"What is the capital of New York?\\\"
set text size 15
text 240,280,\\\"A.)Albany\\\"
text 240,300,\\\"B.)Augusta\\\"
text 240,320,\\\"C.)Boston\\\"
text 240,340,\\\"D.)Dover\\\"

wait key
repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed
  Text 20,20,\\\"Seconds Left: \\\"+Str$(TimeLeft)

   if inkey$()=\\\"a\\\"
      do
         if inkey$() <> \\\"a\\\" then exit
      loop
      ProblemCorrect = 1
      AnswersCorrect = AnswersCorrect + 1
      Seconds = Seconds + 3
      gosub level3
endif
   if inkey$()=\\\"b\\\" then exit
   do
       if inkey$() <> \\\"b\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = Seconds -5
      gosub level3

if inkey$()=\\\"c\\\"
   do
      if inkey$() <> \\\"c\\\" then exit
      loop
      ProblemCorrect =  2
      Seconds = Seconds - 5
      gosub level3
endif
   if inkey$()=\\\"d\\\"
   do
      if inkey$() <> \\\"d\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = - 5
      gosub level3
      endif
if TimeLeft <=9 then Text 105,20,\\\"  \\\"
if TimeLeft <=99 then Text 111,20,\\\"  \\\"
Until TimeLeft = 0
gosub Endsection

end

level3:
cls
load bitmap \\\"E:\\\\images\\\\coffee.bmp\\\"
ink rgb(0,0,0),0 :set text font \\\"arial\\\" : set text size 30 : set text to normal
Center text 320,200,\\\"What state is below Kentucky?\\\"
set text size 15
text 240,280,\\\"A.)Kansas\\\"
text 240,300,\\\"B.)North Carolina\\\"
text 240,320,\\\"C.)Missouri\\\"
text 240,340,\\\"D.)Tennessee\\\"

wait key

repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed
  Text 20,20,\\\"Seconds Left: \\\"+Str$(TimeLeft)

   if inkey$()=\\\"a\\\"
      do
         if inkey$() <> \\\"a\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = Seconds - 5
      gosub level4
endif
   if inkey$()=\\\"b\\\" then exit
   do
       if inkey$() <> \\\"b\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = Seconds - 5
      gosub level4

if inkey$()=\\\"c\\\"
   do
      if inkey$() <> \\\"c\\\" then exit
      loop
      ProblemCorrect =  2
      Seconds = Seconds - 5
      gosub level4
endif
   if inkey$()=\\\"d\\\"
   do
      if inkey$() <> \\\"d\\\" then exit
      loop
      ProblemCorrect = 1
      AnswersCorrect = AnswersCorrect + 1
      Seconds = Seconds + 3
      gosub level4
endif
   if TimeLeft <=9 then Text 105,20,\\\"  \\\"
   if TimeLeft <=99 then Text 111,20,\\\"  \\\"
until TimeLeft = 0
gosub Endsection

end

level4:
cls
load bitmap \\\"E:\\\\images\\\\coffee.bmp\\\"
ink rgb(0,0,0),0 :set text font \\\"arial\\\" : set text size 30 : set text to normal
Center text 320,200,\\\"What is the capital of South Dakota?\\\"
set text size 15
text 240,280,\\\"A.)Providence\\\"
text 240,300,\\\"B.)Pierre\\\"
text 240,320,\\\"C.)Bismark\\\"
text 240,340,\\\"D.)Madison\\\"



Wait Key




level5:
cls
load bitmap \\\"E:\\\\images\\\\coffee.bmp\\\"
ink rgb(0,0,0),0 :set text font \\\"arial\\\" : set text size 30 : set text to normal
Center text 320,200,\\\"What state is directly above florida?\\\"
set text size 15
text 240,280,\\\"A.)South Carolina\\\"
text 240,300,\\\"B.)Oklahoma\\\"
text 240,320,\\\"C.)Georgia\\\"
text 240,340,\\\"D.)Delaware\\\"

Wait Key

repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed
  Text 20,20,\\\"Seconds Left: \\\"+Str$(TimeLeft)

   if inkey$()=\\\"a\\\"
      do
         if inkey$() <> \\\"a\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = Seconds - 5
      gosub level6
endif
   if inkey$()=\\\"b\\\" then exit
   do
       if inkey$() <> \\\"b\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = Seconds -5
      gosub level6

if inkey$()=\\\"c\\\"
   do
      if inkey$() <> \\\"c\\\" then exit
      loop
      ProblemCorrect = 1
      AnswersCorrect = AnswersCorrect + 1
      Seconds = Seconds + 3
      gosub level6
endif
   if inkey$()=\\\"d\\\"
   do
      if inkey$() <> \\\"d\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = - 5
      gosub level6
endif
if TimeLeft <=9 then Text 105,20,\\\"  \\\"
if TimeLeft <=99 then Text 111,20,\\\"  \\\"
until TimeLeft = 0
gosub Endsection:

end

level6:
cls
load bitmap \\\"E:\\\\images\\\\coffee.bmp\\\"
ink rgb(0,0,0),0 :set text font \\\"arial\\\" : set text size 30 : set text to normal
Center text 320,200,\\\"Where is Missouri located?\\\"
set text size 15
text 240,280,\\\"A.)The Mideast\\\"
text 240,300,\\\"B.)The Western Coast\\\"
text 240,320,\\\"C.)The Eastern Coast\\\"
text 240,340,\\\"D.)The Midwest\\\"

wait key
repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed
  Text 20,20,\\\"Seconds Left: \\\"+Str$(TimeLeft)

   if inkey$()=\\\"a\\\"
      do
         if inkey$() <> \\\"a\\\" then exit
      loop
      ProblemCorrect = 1
      AnswersCorrect = AnswersCorrect + 1
      Seconds = Seconds + 3
      gosub EndSection
endif
   if inkey$()=\\\"b\\\" then exit
   do
       if inkey$() <> \\\"b\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = Seconds -5
      gosub EndSection

if inkey$()=\\\"c\\\"
   do
      if inkey$() <> \\\"c\\\" then exit
      loop
      ProblemCorrect =  2
      Seconds = Seconds - 5
      gosub Endsection
endif
   if inkey$()=\\\"d\\\"
   do
      if inkey$() <> \\\"d\\\" then exit
      loop
      ProblemCorrect = 2
      Seconds = - 5
      gosub Endsection
      endif
if TimeLeft <=9 then Text 105,20,\\\"  \\\"
if TimeLeft <=99 then Text 111,20,\\\"  \\\"
Until TimeLeft = 0
gosub Endsection

end


EndSection:
cls
ink rgb (255,255,255),0 : set text font \\\"arial\\\" : set text size 30 : set text to normal
center text 320,160,\\\"GAME\\\"
center text 320,200,\\\"OVER\\\"
set text size 15
set cursor 260,250
print \\\"Correct Answers: \\\"; (answerscorrect);\\\"/50\\\"
if AnswersCorrect = 50
   center text 320,270,\\\"Congratulations!\\\"
   if Math50Correct = 0 then MathCorrect = 1
   endif

center text 320,300,\\\"Press the Space Bar to go\\\"
center text 320,320,\\\"back to main menu.\\\"

do
  if SpaceKey()=1 then gosub Title
  sync
loop