I am trying to code a simple trivia game, but I'm having some trouble. I have the user input a character to choose what letter in the multiple choice they want to answer with, but only the first answer registers. After that, it tells the user every answer they enter is wrong, even if it should be right. Here is my code:
| Turing: |
< %Only put this once at the beginning of the program----------------
var score, correct: int
var endgame: string
var answer, answer2: char
score: = 0
correct: = 0
%------------------------------------------------------------------
var MeanGirlsTrivia: int
MeanGirlsTrivia: = Window.Open ("position:200;200,graphics:650;470")
colourback(62)
cls
%Remove this and above section when adding to final program--------
var titlefont, subtitlefont, normalfont: int
titlefont := Font.New ("Broadway:40")
subtitlefont := Font.New ("Harrington:20:bold")
normalfont := Font.New ("Calibri:12")
%------------------------------------------------------------------
colourback (62)
cls
Font.Draw ("Who are Cady's first friends at North Shore High?", 165, 375, subtitlefont, magenta)
Font.Draw ("A. Kevin Gnapoor & Damien", 20, 250, normalfont, magenta)
Font.Draw ("B. Regina George & Gretchen Wieners", 20, 200, normalfont, magenta)
Font.Draw ("C. Janis Ian & Damien", 20, 150, normalfont, magenta)
Font.Draw ("D. Kevin Gnapoor & Regina George", 20, 100, normalfont, magenta)
Font.Draw ("Answer: ", 20, 57, normalfont, magenta)
Text.Locate (26, 11)
Text.Colour (magenta)
get answer
if answer= "c" then
score:=score+ 4
correct: = correct+ 1
cls
colourback (62)
cls
Font.Draw ("Correct!", 190, 250, titlefont, magenta)
Font.Draw ("Press Enter to Continue...", 220, 200, normalfont, magenta)
else if answer= "e" then
var MeanGirlsExit: int
MeanGirlsExit: = Window.Open ("position:200;200,graphics:650;470")
colourback(62)
cls
Font.Draw ("Are you sure?", 120, 260, titlefont, magenta)
Font.Draw ("Type 'yes' to quit.", 50, 200, subtitlefont, magenta)
Font.Draw ("Type 'no' to return to the game.", 50, 180, subtitlefont, magenta)
Text.Locate (23, 20)
Text.Colour(magenta)
get endgame
if endgame= "yes" then
Window.Close(MeanGirlsExit )
Window.Close(MeanGirlsTrivia )
else
Window.Close(MeanGirlsExit )
end if
else
cls
colourback (62)
cls
Font.Draw ("Wrong!", 190, 250, titlefont, magenta)
Font.Draw ("Press Enter to Continue...", 220, 200, normalfont, magenta)
end if
end if
Input.Pause
cls
%--------------------------------------Question 2--------------------------------
colourback (62)
cls
Font.Draw ("Who are Cady's second friends at North Shore High?", 165, 375, subtitlefont, magenta)
Font.Draw ("A. Kevin Gnapoor & Damien", 20, 250, normalfont, magenta)
Font.Draw ("B. Regina George & Gretchen Wieners", 20, 200, normalfont, magenta)
Font.Draw ("C. Janis Ian & Damien", 20, 150, normalfont, magenta)
Font.Draw ("D. Kevin Gnapoor & Regina George", 20, 100, normalfont, magenta)
Font.Draw ("Answer: ", 20, 57, normalfont, magenta)
Text.Locate (26, 11)
Text.Colour (magenta)
get answer2
if answer2= "b" then
score:=score+ 4
correct: = correct+ 1
cls
colourback (62)
cls
Font.Draw ("Correct!", 190, 250, titlefont, magenta)
Font.Draw ("Press Enter to Continue...", 220, 200, normalfont, magenta)
else if answer2= "e" then
var MeanGirlsExit: int
MeanGirlsExit: = Window.Open ("position:200;200,graphics:650;470")
colourback(62)
cls
Font.Draw ("Are you sure?", 120, 260, titlefont, magenta)
Font.Draw ("Type 'yes' to quit.", 50, 200, subtitlefont, magenta)
Font.Draw ("Type 'no' to return to the game.", 50, 180, subtitlefont, magenta)
Text.Locate (23, 20)
Text.Colour(magenta)
get endgame
if endgame= "yes" then
Window.Close(MeanGirlsExit )
Window.Close(MeanGirlsTrivia )
else
Window.Close(MeanGirlsExit )
end if
else
cls
colourback (62)
cls
Font.Draw ("Wrong!", 190, 250, titlefont, magenta)
Font.Draw ("Press Enter to Continue...", 220, 200, normalfont, magenta)
end if
end if
Input.Pause
cls
>
|
I think I am using Turing 4.1.1. Any idea/help on why it's not working would be greatly appreciated. If you need anymore information from me, just ask. |