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