setscreen ("graphics:max,max")
setscreen ("nocursor")
var answer : string
var fAnswer : string
var question : string
var sofar : int := 0
var mb, mx, my : int := 0
var font1 := Font.New ("sans serif:28")
var font2 := Font.New ("serif:36")
var font3 := Font.New ("comic sans:18")
var currentLevel : string
var ch : string (1)
var fontC : int := 300
var fa : string (1)
var sf : string (1)

proc nextscreen
    loop
        mousewhere (mx, my, mb)
        exit when hasch or mb = 1
    end loop
end nextscreen



drawfillbox (0, 0, maxx, maxy, black)
drawbox (350, 230, 570, 300, white)
Font.Draw ("Click to Enter", 350, 250, font1, 12)
Font.Draw ("", 200, 500, font2, white)
nextscreen
cls

nextscreen

drawfillbox (0, 0, maxx, maxy, black)
drawbox (200, 125, 325, 200, white)
drawbox (400, 125, 600, 200, white)
drawbox (675, 125, 815, 200, white)
Font.Draw ("CHOOSE DIFFICULTY", 250, 500, font1, white)
Font.Draw ("EASY", 220, 150, font1, red)
Font.Draw ("MEDIUM", 420, 150, font1, red)
Font.Draw ("HARD", 695, 150, font1, red)

loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 200 and my > 125 and mx < 325 and my < 200 then
        currentLevel := "Easy"
        cls
        exit
    elsif mb = 1 and mx > 400 and my > 125 and mx < 600 and my < 200 then
        currentLevel := "Medium"
        cls
        exit
    elsif mb = 1 and mx > 675 and my > 125 and mx < 815 and my < 200 then
        currentLevel := "Hard"
        cls
        exit
    end if
end loop

% EASY QUESTIONS
%Question 1
if currentLevel = "Easy" then
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who wrote Flanders Field?", 300, 500, font3, 9)
    Font.Draw ("A. Stephen Leacock", 300, 450, font3, 8)
    Font.Draw ("B. John McCrae", 300, 400, font3, 8)
    Font.Draw ("C. Charlie Chaplin", 300, 350, font3, 8)
    Font.Draw ("D. S.E. Hinton", 300, 300, font3, 8)


    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop


    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)

    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 2
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is the official language of Austrailia?", 300, 500, font3, 9)
    Font.Draw ("A.) English", 300, 450, font3, 8)
    Font.Draw ("B.) German", 300, 400, font3, 8)
    Font.Draw ("C.) Chinese", 300, 350, font3, 8)
    Font.Draw ("D.) Polish", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 3
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What does the DC int Washington DC stand for?", 300, 500, font3, 9)
    Font.Draw (" A.) District of Columbine", 300, 450, font3, 8)
    Font.Draw (" B.) District of Colorado", 300, 400, font3, 8)
    Font.Draw (" C.) District of Canada", 300, 350, font3, 8)
    Font.Draw (" D.) District of Columbia", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 4
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" How do watermelons grow?", 300, 500, font3, 9)
    Font.Draw (" A.) In a Tree", 300, 450, font3, 8)
    Font.Draw (" B.) Underground", 300, 400, font3, 8)
    Font.Draw (" C.) On a Vine", 300, 350, font3, 8)
    Font.Draw (" D.) In the Water", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1

    end if
    %QUESTION 5
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" If you were at the North Pole, then went South 5 km, ", 300, 500, font3, 9)
    Font.Draw (" then East 5 km, then North 5 km, where would you be?", 300, 475, font3, 9)
    Font.Draw (" A.) 5 km East", 300, 450, font3, 8)
    Font.Draw (" B.) 5 km West", 300, 400, font3, 8)
    Font.Draw (" C.) 5 km North", 300, 350, font3, 8)
    Font.Draw (" D.) Where you started", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0
    end if
end if
if currentLevel = "easy" and sofar = 5 then

    Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)

    Font.Draw ("Great, you beat EASY, easily , now try MEDIUM", 100, 150, font1, 8)
end if
if sofar < 5 then
    sf := intstr (sofar)
    Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if


%MEDIUM QUESTIONS

%QUESTION 1
if currentLevel = "Medium" then
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" In Reservoir Dogs, what song was played in the famous torture scene?", 100, 500, font3, 12)
    Font.Draw (" A. Stuck In The Middle With You", 300, 450, font3, 8)
    Font.Draw (" B. I Shot The Sheriff", 300, 400, font3, 8)
    Font.Draw (" C. Welcome To Jamrock", 300, 350, font3, 8)
    Font.Draw (" D. no song was played", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
    %QUESTION 2
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" In HALO2, what are the names of the 3 Covenant prophets?", 300, 500, font3, 12)
    Font.Draw (" A. Truth,Death,Liberty", 300, 450, font3, 8)
    Font.Draw (" B. Mercy, Regret, Vengence", 300, 400, font3, 8)
    Font.Draw (" C. Regret, Truth, Mercy", 300, 350, font3, 8)
    Font.Draw (" D. Regret, Havoc, Honor", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
    %QUESTION 3
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What year was the Stock Market Crash?", 300, 500, font3, 12)
    Font.Draw (" A. 1928", 300, 450, font3, 8)
    Font.Draw (" B. 1929", 300, 400, font3, 8)
    Font.Draw (" C. 1930", 300, 350, font3, 8)
    Font.Draw (" D. 1931", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
    %QUESTION 4
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" In the 1979 film The Warriors, who gets killed that causes the gang warring?", 300, 500, font3, 12)
    Font.Draw (" A. Cleon", 300, 450, font3, 8)
    Font.Draw (" B. Cyrus", 300, 400, font3, 8)
    Font.Draw (" C. Ajax", 300, 350, font3, 8)
    Font.Draw (" D. Virgil", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
    %QUESTION 5
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What video game company is best known for the Grand Theft Auto series?", 300, 500, font3, 14)
    Font.Draw (" A. Bungie", 300, 450, font3, 8)
    Font.Draw (" B. Ubisoft", 300, 400, font3, 8)
    Font.Draw (" C. Activision", 300, 350, font3, 8)
    Font.Draw (" D. Rockstar", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
end if
if currentLevel = "medium" and sofar = 5 then

    Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)

    Font.Draw ("Great, you beat MEDIUM, easily , now try HARD", 100, 150, font1, 8)
end if
if sofar < 5 then
    sf := intstr (sofar)
    Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if
%HARD QUESTIONS

%QUESTION 1
if currentLevel = "Hard" then
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" In Reservoir Dogs, which character is torturing the cop?", 300, 500, font3, 14)
    Font.Draw (" A. Mr.Orange", 300, 450, font3, 8)
    Font.Draw (" B. Mr.Pink", 300, 400, font3, 8)
    Font.Draw (" C. Mr.Blonde", 300, 350, font3, 8)
    Font.Draw (" D. Mr.Black", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
    %QUESTION 2
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who is the CEO and founder of The Diplomats/DIPSET?", 300, 500, font3, 14)
    Font.Draw (" A. Cam'ron", 300, 450, font3, 8)
    Font.Draw (" B. Juelz Santana", 300, 400, font3, 8)
    Font.Draw (" C. SAS", 300, 350, font3, 8)
    Font.Draw (" D. Duke Da God", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
    %QUESTION 3
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who is in D-Block?", 300, 500, font3, 14)
    Font.Draw (" A. Jadakiss, Havoc, Ransom", 300, 450, font3, 8)
    Font.Draw (" B. Sheek Louch, Jadakiss, Styles P., J-Hood", 300, 400, font3, 8)
    Font.Draw (" C. Bun B, Styles P., Jha Jha", 300, 350, font3, 8)
    Font.Draw (" D. J-Hood, J.R. Writer, Hell Rell, Stack Bundles, Papoose", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if

    %QUESTION 4
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" In the Outsider's, how does Johnny die?", 300, 500, font3, 14)
    Font.Draw (" A. Stabbed by a Soc", 300, 450, font3, 8)
    Font.Draw (" B. Hit by a Car", 300, 400, font3, 8)
    Font.Draw (" C. Trapped in a Burning Church", 300, 350, font3, 8)
    Font.Draw (" D. Injury Wounds From a Rumble", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
    %QUESTION 5
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" How many stars make up Orion and Orion's Belt?", 300, 500, font3, 14)
    Font.Draw (" A. 4", 300, 450, font3, 8)
    Font.Draw (" B. 9", 300, 400, font3, 8)
    Font.Draw (" C. 11", 300, 350, font3, 8)
    Font.Draw (" D. 7", 300, 300, font3, 8)

    loop
        Font.Draw ("answer here", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 400, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 400, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    end if
end if
if currentLevel = "hard" and sofar = 5 then
    Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)
    Font.Draw ("AMAZING! you beat the entire game! good job!", 300, 150, font1, 8)
end if
if sofar <= 5 then
    sf := intstr (sofar)
    Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if