Trivia Game Glitch Related to Variables

[kristinnugent]

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.

[Insectoid]

You might want to indent your code. It's not the problem, but I can't read it like this.

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

Looks to me like this code shouldn't even compile. You've got two extra 'end if's that don't need to be there.

[kristinnugent]

When I first programmed the code, I didn't have the last end if, but Turing wouldn't let me run the program without it, because it said it was missing, though I could not figure out from where.

[kristinnugent]

It specifically says "Syntax error at 'End of File', expected 'end if'

[Dreadnought]

I think the confusion is that in Turing "else if" is "elsif".