Trivia game summative help

[progger5]

I am making a trivia game for my isu and i need help with the code. I have no idea how to include a counter for the correct questions. I also need to know how to make the questions random.


setscreen ("graphics")
setscreen ("graphics:800;500")
setscreen ("nocursor")
var answer16,answer17, answer18, answer19, answer20, answer21, answer22, answer23, answer24, answer25: string
var fontID20 : int := Font.New ("Arial:16:bold")
%**************Question 16************
colorback (white)
cls
var pic16 : int := Pic.FileNew ("al.jpg")
Pic.Draw (pic16, 0, -10, picMerge)
Font.Draw ("In what 1972 mafia movie did Al pacino play in?", 19, 465,fontID20, 89)
Font.Draw ("A. Goodfellas", 165, 390, fontID20, 96)
Font.Draw ("B. Scarface", 165, 370, fontID20, 96)
Font.Draw ("C. The Italian Job", 165, 350, fontID20, 96)
Font.Draw ("D. The Godfather", 165, 330, fontID20, 96)
get answer16
if answer16 = "d" or answer16 = "D" or answer16 = "d)" or answer16 = "D)"
then
cls
Pic.Draw (pic16, 0, 0, picMerge)
Font.Draw ("CORRECT!!!", 295, 400, fontID20, 89)
delay (1500)
else
cls
Pic.Draw (pic16, 0, 0, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 89)
delay (1500)
end if
cls
delay (500)

%*************Question #17*******************
colorback (77)
cls
var pic17 : int := Pic.FileNew ("soccer.jpg")
Pic.Draw (pic17, 0, -10, picMerge)
Font.Draw ("How often does the world cup take place?", 150, 465, fontID20, 79)
Font.Draw ("A. Annually", 270, 390, fontID20, 48)
Font.Draw ("B. Every four years", 270, 370, fontID20, 48)
Font.Draw ("C. Once in a while", 270, 350, fontID20, 48)
Font.Draw ("D. Every eight years", 270, 330, fontID20, 48)
get answer17
if answer17 = "b" or answer17 = "B" or answer17 = "b)" or answer17 = "B)"
then
cls
Pic.Draw (pic17, 0, -10, picMerge)
Font.Draw ("CORRECT!!!", 295, 400, fontID20,48)
delay (1500)
else
cls
Pic.Draw (pic17, 0, -10, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 48)
delay (1500)
end if
%************Question #18***********
colorback (white)
cls
var pic18 : int := Pic.FileNew ("simeonee.jpg")
Pic.Draw (pic18, 30, 20, picMerge)
Font.Draw ("Who captained Argentina at World Cup 1998?", 9, 475, fontID20,53)
Font.Draw ("A. Hulio Flores", 105, 370, fontID20, 104)
Font.Draw ("B. Diego Simeone", 105, 350, fontID20, 104)
Font.Draw ("C. Carlos Tevez", 105, 330, fontID20, 104)
Font.Draw ("D. Pablo Aimar", 105, 310, fontID20, 104)
get answer18
if answer18 = "b" or answer18 = "B" or answer18 = "b)" or answer18 = "B)"
then
cls
Pic.Draw (pic18, 0, 40, picMerge)
Font.Draw ("CORRECT!!!", 295, 390, fontID20, 53)
delay (1500)
else
cls
Pic.Draw (pic18, 0, 20, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 53)
delay (1500)
end if
%*********Question #19************
colorback (white)
cls
var pic19 : int := Pic.FileNew ("i.jpg")
Pic.Draw (pic19, 0, -90, picMerge)
Font.Draw ("Italy last won the World Cup in", 9, 465, fontID20, 12)
Font.Draw ("A. 1974", 165, 370, fontID20, 31)
Font.Draw ("B. 1990", 165, 350, fontID20, 2)
Font.Draw ("C. 1982", 165, 330, fontID20, 31)
Font.Draw ("D. 2002", 165, 300, fontID20, 2)
get answer19
if answer19 = "c" or answer19 = "C" or answer19 = "c)" or answer19 = "C)"
then
cls
Pic.Draw (pic19, 0, -90, picMerge)
Font.Draw ("CORRECT!!!", 295, 380, fontID20, 12)
delay (1500)
else
cls
Pic.Draw (pic19, 0, -90, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 340, fontID20, 12)
delay (1500)
end if
%**************Question #20*************************
colorback (white)
cls
var pic20 : int := Pic.FileNew ("world.jpg")
Pic.Draw (pic20, 0, 0, picMerge)
Font.Draw ("Which country besieds Brazil has won the World Cup back to back?", 9, 465, fontID20, 55)
Font.Draw ("A. Italy", 105, 370, fontID20, white)
Font.Draw ("B. Germany", 105, 350, fontID20, white)
Font.Draw ("C. Uruguay", 105, 330, fontID20, white)
Font.Draw ("D. Portugal", 105, 310, fontID20, white)
get answer20
if answer20 = "a" or answer20 = "A" or answer20 = "a)" or answer20 = "A)"
then
cls
Pic.Draw (pic20, 0, 20, picMerge)
Font.Draw ("CORRECT!!!", 295, 390, fontID20, white)
delay (1500)
else
cls
Pic.Draw (pic20, 0, 20, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, white)
delay (1500)
end if

%*********Question #21*****************
colorback (black)
cls
var pic21 : int := Pic.FileNew ("ter.jpg")
Pic.Draw (pic21, 0, 20, picMerge)
Font.Draw ("In 1998 the Denver Broncos won Superbowl XXXII. Who was there MVP?", 9, 465, fontID20, 66)
Font.Draw ("A. John Elway", 165, 390, fontID20, 115)
Font.Draw ("B. Jerry Rice", 165, 370, fontID20, 115)
Font.Draw ("C. Terrell Davis", 165, 350, fontID20, 115)
Font.Draw ("D. Terry Bradshaw", 165, 330, fontID20, 115)
get answer21
if answer21 = "c" or answer21 = "C" or answer21 = "c)" or answer21 = "C)"
then
cls
Pic.Draw (pic21,0, 20, picMerge)
Font.Draw ("CORRECT!!!", 295, 400, fontID20, 66)
delay (1500)
else
cls
Pic.Draw (pic21, 0, 20, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 66)
delay (1500)
end if
%***************Question #22*****************
colorback (black)
cls
var pic22 : int := Pic.FileNew ("ring.jpg")
Pic.Draw (pic22, 0, -30, picMerge)
Font.Draw ("The third installment of the Lord of the Rings was directed by:", 9, 465, fontID20, 65)
Font.Draw ("A. Steven Spielburg", 195, 290, fontID20, 67)
Font.Draw ("B. J.R.R. Tolkien", 195, 270, fontID20, 67)
Font.Draw ("C. Ian McKellan", 195, 250, fontID20, 67)
Font.Draw ("D. Peter Jackson", 195, 230, fontID20, 67)
get answer22
if answer22 = "d" or answer22 = "D" or answer22 = "d)" or answer22 = "D)"
then
cls
Pic.Draw (pic22, 0, -30, picMerge)
Font.Draw ("CORRECT!!!", 295, 400, fontID20, 67)
delay (1500)
else
cls
Pic.Draw (pic22, 0, -30, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 67)
delay (1500)
end if
%***********Question #23**********
colorback (63)
cls
var pic23: int := Pic.FileNew ("fire.jpg")
Pic.Draw (pic23, 20, 20, picMerge)
Font.Draw ("In the 1993 movie Mrs. Doubtfire, Robin Williams played a father, and:", 9, 465, fontID20, white)
Font.Draw ("A. An Elderly Thief", 125, 270, fontID20, white)
Font.Draw ("B. A Babysitter", 125, 250, fontID20, white)
Font.Draw ("C. A police officer", 125, 230, fontID20, white)
Font.Draw ("D. A Teacher", 125, 200, fontID20, white)
get answer23
if answer23 = "b" or answer23 = "B" or answer23 = "b)" or answer23 = "B)"
then
cls
Pic.Draw (pic23, 20, 20, picMerge)
Font.Draw ("CORRECT!!!", 295, 400, fontID20, 55)
delay (1500)
else
cls
Pic.Draw (pic23, 20, 20, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 230, 350, fontID20, 55)
delay (1500)
end if
%*************Question #24******************
colorback (9)
cls
var pic24 : int := Pic.FileNew ("ball.jpg")
Pic.Draw (pic24, 20, 20, picMerge)
Font.Draw ("In the Pistons - Pacers brawl of November, one of the players involved was:", 9, 465, fontID20, 55)
Font.Draw ("A. Ron Artest", 125, 350, fontID20, 12)
Font.Draw ("B. Rick Carlisle", 125, 330, fontID20, 12)
Font.Draw ("C. Morris Peterson", 125, 300, fontID20, 12)
Font.Draw ("D. Roman Kabanov", 125, 270, fontID20, 12)
get answer24
if answer24 = "a" or answer24 = "A" or answer24 = "a)" or answer24 = "A)"
then
cls
Pic.Draw (pic24, 0, 20, picMerge)
Font.Draw ("CORRECT!!!", 295, 400, fontID20, 55)
delay (1500)
else
cls
Pic.Draw (pic24, 0, 20, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 55)
delay (1500)
end if
%******************Question #25*********
colorback (black)
cls
var pic25 : int := Pic.FileNew ("co.jpg")
Pic.Draw (pic25, 20, 20, picMerge)
Font.Draw ("In 1994 a rock star was found dead in his Seattle home. His name was", 9, 465, fontID20, 55)
Font.Draw ("A. Chad Kroeger", 165, 290, fontID20, 43)
Font.Draw ("B. Dave Navarro", 165, 270, fontID20, 43)
Font.Draw ("C. Anthony Kiedis", 165, 250, fontID20, 43)
Font.Draw ("D. Kurt Cobain", 165, 230, fontID20, 43)
get answer25
if answer25 = "d" or answer25 = "D" or answer25 = "d)" or answer25 = "D)"
then
cls
Pic.Draw (pic25, 0, 20, picMerge)
Font.Draw ("CORRECT!!!", 295, 400, fontID20, 55)
delay (1500)
else
cls
Pic.Draw (pic25, 0, 20, picMerge)
Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 55)
delay (1500)
end if

[BitHoarder]

[quote="progger5"]I am making a trivia game for my isu and i need help with the code. I have no idea how to include a counter for the correct questions. I also need to know how to make the questions random.

code:

setscreen ("graphics") setscreen ("graphics:800;500") setscreen ("nocursor") var answer16,answer17, answer18, answer19, answer20, answer21, answer22, answer23, answer24, answer25: string var fontID20 : int := Font.New ("Arial:16:bold") %**************Question 16************ colorback (white) cls var pic16 : int := Pic.FileNew ("al.jpg") Pic.Draw (pic16, 0, -10, picMerge) Font.Draw ("In what 1972 mafia movie did Al pacino play in?", 19, 465,fontID20, 89) Font.Draw ("A. Goodfellas", 165, 390, fontID20, 96) Font.Draw ("B. Scarface", 165, 370, fontID20, 96) Font.Draw ("C. The Italian Job", 165, 350, fontID20, 96) Font.Draw ("D. The Godfather", 165, 330, fontID20, 96) get answer16 if answer16 = "d" or answer16 = "D" or answer16 = "d)" or answer16 = "D)" then     cls     Pic.Draw (pic16, 0, 0, picMerge)     Font.Draw ("CORRECT!!!", 295, 400, fontID20, 89)     delay (1500) else     cls     Pic.Draw (pic16, 0, 0, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 89)     delay (1500) end if cls delay (500) %*************Question #17******************* colorback (77) cls var pic17 : int := Pic.FileNew ("soccer.jpg") Pic.Draw (pic17, 0, -10, picMerge) Font.Draw ("How often does the world cup take place?", 150, 465, fontID20, 79) Font.Draw ("A. Annually", 270, 390, fontID20, 48) Font.Draw ("B. Every four years", 270, 370, fontID20, 48) Font.Draw ("C. Once in a while", 270, 350, fontID20, 48) Font.Draw ("D. Every eight years", 270, 330, fontID20, 48) get answer17 if answer17 = "b" or answer17 = "B" or answer17 = "b)" or answer17 = "B)" then     cls Pic.Draw (pic17, 0, -10, picMerge)     Font.Draw ("CORRECT!!!", 295, 400, fontID20,48)     delay (1500) else     cls     Pic.Draw (pic17, 0, -10, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 48)     delay (1500) end if %************Question #18*********** colorback (white) cls var pic18 : int := Pic.FileNew ("simeonee.jpg") Pic.Draw (pic18, 30, 20, picMerge) Font.Draw ("Who captained Argentina at World Cup 1998?", 9, 475, fontID20,53) Font.Draw ("A. Hulio Flores", 105, 370, fontID20, 104) Font.Draw ("B. Diego Simeone", 105, 350, fontID20, 104) Font.Draw ("C. Carlos Tevez", 105, 330, fontID20, 104) Font.Draw ("D. Pablo Aimar", 105, 310, fontID20, 104) get answer18 if answer18 = "b" or answer18 = "B" or answer18 = "b)" or answer18 = "B)" then     cls     Pic.Draw (pic18, 0, 40, picMerge)     Font.Draw ("CORRECT!!!", 295, 390, fontID20, 53)     delay (1500) else     cls     Pic.Draw (pic18, 0, 20, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 53)     delay (1500) end if %*********Question #19************ colorback (white) cls var pic19 : int := Pic.FileNew ("i.jpg") Pic.Draw (pic19, 0, -90, picMerge) Font.Draw ("Italy last won the World Cup in", 9, 465, fontID20, 12) Font.Draw ("A. 1974", 165, 370, fontID20, 31) Font.Draw ("B. 1990", 165, 350, fontID20, 2) Font.Draw ("C. 1982", 165, 330, fontID20, 31) Font.Draw ("D. 2002", 165, 300, fontID20, 2) get answer19 if answer19 = "c" or answer19 = "C" or answer19 = "c)" or answer19 = "C)" then     cls Pic.Draw (pic19, 0, -90, picMerge)     Font.Draw ("CORRECT!!!", 295, 380, fontID20, 12)     delay (1500) else     cls     Pic.Draw (pic19, 0, -90, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 340, fontID20, 12)     delay (1500) end if %**************Question #20************************* colorback (white) cls var pic20 : int := Pic.FileNew ("world.jpg") Pic.Draw (pic20, 0, 0, picMerge) Font.Draw ("Which country besieds Brazil has won the World Cup back to back?", 9, 465, fontID20, 55) Font.Draw ("A. Italy", 105, 370, fontID20, white) Font.Draw ("B. Germany", 105, 350, fontID20, white) Font.Draw ("C. Uruguay", 105, 330, fontID20, white) Font.Draw ("D. Portugal", 105, 310, fontID20, white) get answer20 if answer20 = "a" or answer20 = "A" or answer20 = "a)" or answer20 = "A)" then     cls     Pic.Draw (pic20, 0, 20, picMerge)     Font.Draw ("CORRECT!!!", 295, 390, fontID20, white)     delay (1500) else     cls     Pic.Draw (pic20, 0, 20, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, white)     delay (1500) end if %*********Question #21***************** colorback (black) cls var pic21 : int := Pic.FileNew ("ter.jpg") Pic.Draw (pic21, 0, 20, picMerge) Font.Draw ("In 1998 the Denver Broncos won Superbowl XXXII.  Who was there MVP?", 9, 465, fontID20, 66) Font.Draw ("A. John Elway", 165, 390, fontID20, 115) Font.Draw ("B. Jerry Rice", 165, 370, fontID20, 115) Font.Draw ("C. Terrell Davis", 165, 350, fontID20, 115) Font.Draw ("D. Terry Bradshaw", 165, 330, fontID20, 115) get answer21 if answer21 = "c" or answer21 = "C" or answer21 = "c)" or answer21 = "C)" then     cls     Pic.Draw (pic21,0, 20, picMerge)     Font.Draw ("CORRECT!!!", 295, 400, fontID20, 66)     delay (1500) else     cls     Pic.Draw (pic21, 0, 20, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 66)     delay (1500) end if %***************Question #22***************** colorback (black) cls var pic22 : int := Pic.FileNew ("ring.jpg") Pic.Draw (pic22, 0, -30, picMerge) Font.Draw ("The third installment of the Lord of the Rings was directed by:", 9, 465, fontID20, 65) Font.Draw ("A. Steven Spielburg", 195, 290, fontID20, 67) Font.Draw ("B. J.R.R. Tolkien", 195, 270, fontID20, 67) Font.Draw ("C. Ian McKellan", 195, 250, fontID20, 67) Font.Draw ("D. Peter Jackson", 195, 230, fontID20, 67) get answer22 if answer22 = "d" or answer22 = "D" or answer22 = "d)" or answer22 = "D)" then     cls     Pic.Draw (pic22, 0, -30, picMerge)     Font.Draw ("CORRECT!!!", 295, 400, fontID20, 67)     delay (1500) else     cls     Pic.Draw (pic22, 0, -30, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 67)     delay (1500) end if %***********Question #23********** colorback (63) cls var pic23: int := Pic.FileNew ("fire.jpg") Pic.Draw (pic23, 20, 20, picMerge) Font.Draw ("In the 1993 movie Mrs. Doubtfire, Robin Williams played a father, and:", 9, 465, fontID20, white) Font.Draw ("A. An Elderly Thief", 125, 270, fontID20, white) Font.Draw ("B. A Babysitter", 125, 250, fontID20, white) Font.Draw ("C. A police officer", 125, 230, fontID20, white) Font.Draw ("D. A Teacher", 125, 200, fontID20, white) get answer23 if answer23 = "b" or answer23 = "B" or answer23 = "b)" or answer23 = "B)" then     cls Pic.Draw (pic23, 20, 20, picMerge)     Font.Draw ("CORRECT!!!", 295, 400, fontID20, 55)     delay (1500) else     cls     Pic.Draw (pic23, 20, 20, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 230, 350, fontID20, 55)     delay (1500) end if %*************Question #24****************** colorback (9) cls var pic24 : int := Pic.FileNew ("ball.jpg") Pic.Draw (pic24, 20, 20, picMerge) Font.Draw ("In the Pistons - Pacers brawl of November, one of the players involved was:", 9, 465, fontID20, 55) Font.Draw ("A. Ron Artest", 125, 350, fontID20, 12) Font.Draw ("B. Rick Carlisle", 125, 330, fontID20, 12) Font.Draw ("C. Morris Peterson", 125, 300, fontID20, 12) Font.Draw ("D. Roman Kabanov", 125, 270, fontID20, 12) get answer24 if answer24 = "a" or answer24 = "A" or answer24 = "a)" or answer24 = "A)" then     cls     Pic.Draw (pic24, 0, 20, picMerge)     Font.Draw ("CORRECT!!!", 295, 400, fontID20, 55)     delay (1500) else     cls     Pic.Draw (pic24, 0, 20, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 55)     delay (1500) end if %******************Question #25********* colorback (black) cls var pic25 : int := Pic.FileNew ("co.jpg") Pic.Draw (pic25, 20, 20, picMerge) Font.Draw ("In 1994 a rock star was found dead in his Seattle home. His name was", 9, 465, fontID20, 55) Font.Draw ("A. Chad Kroeger", 165, 290, fontID20, 43) Font.Draw ("B. Dave Navarro", 165, 270, fontID20, 43) Font.Draw ("C. Anthony Kiedis", 165, 250, fontID20, 43) Font.Draw ("D. Kurt Cobain", 165, 230, fontID20, 43) get answer25 if answer25 = "d" or answer25 = "D" or answer25 = "d)" or answer25 = "D)" then     cls Pic.Draw (pic25, 0, 20, picMerge)     Font.Draw ("CORRECT!!!", 295, 400, fontID20, 55)     delay (1500) else     cls     Pic.Draw (pic25, 0, 20, picMerge)     Font.Draw ("Sorry, but you are incorrect.", 240, 350, fontID20, 55)     delay (1500) end if[/quote]

Talk about a shitty code

[Tony]

so much hard code...

you'd want to count how many times you've displayed Font.Draw ("CORRECT!!!", 295, 400, fontID20, *) though.

[MysticVegeta]

Make 2 procedures:

code:

proc cor    put "YOU ARE CORRECT!" end cor

and

code:

proc wro put " YOU ARE WRONG!" end wro

then back to the question

code:

if guess = answer then cor else wro end if

For a counter, You need to make an interger that will count how many times the person has answered correctly:

code:

var counter: int := 0 if guess = answer then cor counter += 1 else wro end if

And then in the end you can display ->

code:

put "You have answered correctly ", counter, " times!!!"