rendered paste bodysetscreen ("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