BBC BASIC

Quiz + Game

I decided to do this for a recent school project. 

It is a quiz with a twist.

If you get a question right, then you can take a shot at a brown blob. If you hit it you get an extra point!

 
All you need to do is change the words - correct and incorrect, in inverted commas to your awnsers.

Those of you who are more advanced can change more.   

    shot%=0
      colour 1, 135, 206, 235
      colour 129
      x%=0
      cls
      sc1%=0
      sc2%=0
      sc3%=0
      print "Question"
      print "1. Incorrect"
      print "2. Correct"
      print "3. Incorrect"
      input ">>>" ans%
      if ans% = 2 then
        sc1%=sc1%+2
        gcol 2
        rectangle fill 0,0, 10000,500
        colour 3, 255, 255, 255
        gcol 3
        circle fill 1000, 1200, 100
        circle fill 1100, 1200, 100
 
        proc_buffy
        cls
        if shot%=1 then
          sc1%=sc1%+1
          shot%=0
   
   
        endif
      else
        print "Team 1's score is " str$ sc1%
        print "Next team's turn"
        wait 100
        cls
      endif
      print "Team 1's score is " str$ sc1%
      print "Next team's turn"
      wait 100
      cls
      rem team 2s turn


      print "Question"
      print "1. corect"
      print "2. imCorrect"
      print "3. Incorrect"
      input ">>>" ans%
      if ans% = 1 then
        sc2%=sc2%+2
        gcol 2
        rectangle fill 0,0, 10000,500
        colour 3, 255, 255, 255
        gcol 3
        circle fill 1000, 1200, 100
        circle fill 1100, 1200, 100
 
        proc_buffy
        cls
        if shot%=1 then
          sc2%=sc2%+1
          shot%=0
   
   
        endif
      else
        print "Team 2's score is " str$ sc2%
        print "Next team's turn"
        wait 100
        cls
      endif
      print "Team 2's score is " str$ sc2%
      print "Next team's turn"
      wait 100
      cls

      endif
      rem team 3's turn
      print "Question"
      print "1. incorect"
      print "2. inCorrect"
      print "3. correct"
      input ">>>" ans%
      if ans% = 3 then
      sc3% =sc3% +2
      gcol 2
      rectangle fill 0,0, 10000,500
      colour 3, 255, 255, 255
      gcol 3
      circle fill 1000, 1200, 100
      circle fill 1100, 1200, 100

      proc_buffy
      cls
      if shot%=1 then
        sc3%=sc3%+1
        shot%=0
      endif
      else
      print "Team 3's score is " str$ sc3%
      print "Next team's turn"
      wait 100
      cls

      endif
      print "Team 3's score is " str$ sc3%
      print "Next team's turn"
      wait 100
      cls

      endif
      print "Question"
      print "1. Incorrect"
      print "2. Correct"
      print "3. Incorrect"
      input ">>>" ans%
      if ans% = 2 then
      sc1%=sc1%+2
      gcol 2
      rectangle fill 0,0, 10000,500
      colour 3, 255, 255, 255
      gcol 3
      circle fill 1000, 1200, 100
      circle fill 1100, 1200, 100

      proc_buffy
      cls
      if shot%=1 then
      sc1%=sc1%+1
      shot%=0


      endif
      else
      print "Team 1's score is " str$ sc1%
      print "Next team's turn"
      wait 100
      cls
      endif
      print "Team 1's score is " str$ sc1%
      print "Next team's turn"
      wait 100
      cls
      endif

      rem team 2s turn


      print "Question"
      print "1. corect"
      print "2. Incorrect"
      print "3. Incorrect"
      input ">>>" ans%
      if ans% = 1 then
      sc2%=sc2%+2
      gcol 2
      rectangle fill 0,0, 10000,500
      colour 3, 255, 255, 255
      gcol 3
      circle fill 1000, 1200, 100
      circle fill 1100, 1200, 100

      proc_buffy
      cls
      if shot%=1 then
      sc2%=sc2%+1
      shot%=0


      endif
      else
      print "Team 2's score is " str$ sc2%
      print "Next team's turn"
      wait 100
      cls

      endif
      print "Team 2's score is " str$ sc2%
      print "Next team's turn"
      wait 100
      cls


      endif
      rem team 3's turn
      print "Question"
      print "1. incorect"
      print "2. inCorrect"
      print "3. correct"
      input ">>>" ans%
      if ans% = 3 then
      sc3%=sc3%+2
      gcol 2
      rectangle fill 0,0, 10000,500
      colour 3, 255, 255, 255
      gcol 3
      circle fill 1000, 1200, 100
      circle fill 1100, 1200, 100

      proc_buffy
      cls
      if shot%=1 then
      sc3%=sc3%+1
      shot%=0
      endif
      else
      print "Team 3's score is " str$ sc3%
      print "Next team's turn"
      wait 100
      cls

      endif
      print "Team 3's score is " str$ sc3%
      print "Next team's turn"
      wait 100
      cls
      endif



      end
      defproc_buffy
      for mve%=1 to 300
      cls
      colour 5, 205, 133,63
      gcol 5

      circle fill mve%*10,500,50
      gcol 2
      rectangle fill 0,0, 10000,500
      colour 3, 255, 255, 255
      gcol 3
      circle fill 1000, 1200, 100
      circle fill 1100, 1200, 100
      line 1500,10000,1500,0

      wait 1

      if mve%=150 then
      a%=inkey (10)

      if a% = -1 then
      else
      shot%=1
      endproc
      endif
      endif
      next
      endproc