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)
var startscreen : int := Pic.FileNew ("fg.jpg")
var monkey : int := Pic.FileNew ("monkey.jpg")
var fam : int := Pic.FileNew ("fam.jpg")
var koolaid : int := Pic.FileNew ("koolaid.jpg")
var friends : int := Pic.FileNew ("friends.jpg")
var moore : int := Pic.FileNew ("moore.jpg")
var brian : int := Pic.FileNew ("brian.jpg")
var bf : int := Pic.FileNew ("breakfast.jpg")
var ipecac : int := Pic.FileNew ("ipecac.jpg")
var chicken : int := Pic.FileNew ("chicken.jpg")
var bach : int := Pic.FileNew ("bach.jpg")
var carter : int := Pic.FileNew ("carter.jpg")
var chris : int := Pic.FileNew ("chris.jpg")
var clam : int := Pic.FileNew ("clam.jpg")
var congress : int := Pic.FileNew ("congress.jpg")
var genie : int := Pic.FileNew ("genie.jpg")
var meg : int := Pic.FileNew ("meg.jpg")
var voice : int := Pic.FileNew ("voice.jpg")
var stew : int := Pic.FileNew ("stew.jpg")
var diaper : int := Pic.FileNew ("diaper.jpg")
var hartman : int := Pic.FileNew ("hartman.jpg")
var throw : int := Pic.FileNew ("throw.jpg")
var janet : int := Pic.FileNew ("janet.jpg")
var quag : int := Pic.FileNew ("quag.jpg")
var rhode : int := Pic.FileNew ("rhode.jpg")
var piano : int := Pic.FileNew ("piano.jpg")
var stewlois : int := Pic.FileNew ("stewlois.jpg")
var ppiano : int := Pic.FileNew ("ppiano.jpg")
var news : int := Pic.FileNew ("news.jpg")
var rupert : int := Pic.FileNew ("rupert.jpg")
var reporter : int := Pic.FileNew ("reporter.jpg")
var htp : int := Pic.FileNew ("o.jpg")
%NEXT
proc nextscreen
loop
mousewhere (mx, my, mb)
exit when hasch or mb = 1
end loop
end nextscreen
%MUSIC
process playmusic1
Music.PlayFile ("theme.mp3")
end playmusic1
process playmusic2
loop
Music.PlayFile ("back.mp3")
end loop
end playmusic2
%Startscreen
fork playmusic1
Pic.Draw (startscreen, 0, 0, picCopy)
nextscreen
Pic.Draw (htp, 0, 0, picCopy)
delay (25000)
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, blue)
Font.Draw ("MEDIUM", 420, 150, font1, blue)
Font.Draw ("HARD", 695, 150, font1, blue)
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 Easy
fork playmusic2
if currentLevel = "Easy" then
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who is in the Griffin family?", 300, 500, font3, 9)
Font.Draw ("a) Peter, Lois, Chris, Meg, Stewie, Bryan", 300, 450, font3, 8)
Font.Draw ("b) Quagmire, Cleveland, Joe, Loretta", 300, 400, font3, 8)
Font.Draw ("c) Cleveland, Meg, Chris, Loretta, Kool-Aid Man", 300, 350, font3, 8)
Font.Draw ("d) Peter, Quagmire, Joe, Brian, Stewie ", 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, 600, font2, 8)
Pic.Draw (fam, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (fam, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 2 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is the name of Peter's oldest son?", 300, 500, font3, 9)
Font.Draw ("a) Stewie", 300, 450, font3, 8)
Font.Draw ("b) Meg", 300, 400, font3, 8)
Font.Draw ("c) Brian", 300, 350, font3, 8)
Font.Draw ("d) Chris", 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, 600, font2, 8)
Pic.Draw (chris, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (chris, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 3 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What state do the Griffin's live in?", 300, 500, font3, 9)
Font.Draw (" a) California", 300, 450, font3, 8)
Font.Draw (" b) Rhode Island", 300, 400, font3, 8)
Font.Draw (" c) Maryland", 300, 350, font3, 8)
Font.Draw (" d) Florida", 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, 600, font2, 8)
Pic.Draw (rhode, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (rhode, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 4 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who are Peter's closest friends?", 300, 500, font3, 9)
Font.Draw (" a) Brian, Stewie, Chris", 300, 450, font3, 8)
Font.Draw (" b) Quagmire, Joe , Cleveland", 300, 400, font3, 8)
Font.Draw (" c) Loretta, Lois, Janet", 300, 350, font3, 8)
Font.Draw (" d) Meg, Tom, Seth", 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, 600, font2, 8)
Pic.Draw (friends, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (friends, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 5 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is the name of the town the Griffins live in?", 300, 500, font3, 9)
Font.Draw (" a) Quahog", 300, 450, font3, 8)
Font.Draw (" b) Providence", 300, 400, font3, 8)
Font.Draw (" c) Goldman", 300, 350, font3, 8)
Font.Draw (" d) Swanson", 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, 600, font2, 8)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 6 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is the Pub that Peter and his friends go to?", 300, 500, font3, 14)
Font.Draw (" a) The Tavern", 300, 450, font3, 8)
Font.Draw (" b) Happy Town", 300, 400, font3, 8)
Font.Draw (" c) The Drunken Clam", 300, 350, font3, 8)
Font.Draw (" d) Clam's Pub", 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, 600, font2, 8)
Pic.Draw (clam, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (clam, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 7 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is Quagmire's first name?", 300, 500, font3, 14)
Font.Draw (" a) Tom", 300, 450, font3, 8)
Font.Draw (" b) Seth", 300, 400, font3, 8)
Font.Draw (" c) Jerry", 300, 350, font3, 8)
Font.Draw (" d) Glen", 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, 600, font2, 8)
Pic.Draw (quag, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (quag, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 8 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who does Stewie want to kill?", 300, 500, font3, 14)
Font.Draw (" a) Janet", 300, 450, font3, 8)
Font.Draw (" b) Lois", 300, 400, font3, 8)
Font.Draw (" c) His babysitter", 300, 350, font3, 8)
Font.Draw (" d) Peter", 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, 600, font2, 8)
Pic.Draw (stewlois, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (stewlois, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 9 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who is the least favourite child?", 300, 500, font3, 14)
Font.Draw (" a) Brian", 300, 450, font3, 8)
Font.Draw (" b) Chris", 300, 400, font3, 8)
Font.Draw (" c) Meg", 300, 350, font3, 8)
Font.Draw (" d) Stewie", 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, 600, font2, 8)
Pic.Draw (meg, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (meg, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 10 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Which real life T.V. show was Brian on?", 300, 500, font3, 14)
Font.Draw (" a) The Bachelorette", 300, 450, font3, 8)
Font.Draw (" b) Survivor", 300, 400, font3, 8)
Font.Draw (" c) The Amazing Race", 300, 350, font3, 8)
Font.Draw (" d) American Idol", 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, 600, font2, 8)
Pic.Draw (bach, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (bach, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 11 Easy
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What channel is the news on?", 300, 500, font3, 12)
Font.Draw (" a) Channel 6", 300, 450, font3, 8)
Font.Draw (" b) Channel 3", 300, 400, font3, 8)
Font.Draw (" c) Channel 5", 300, 350, font3, 8)
Font.Draw (" d) Channel 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 = "c" then
question := "y"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("CORRECT!", 300, 600, font2, 8)
Pic.Draw (news, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (news, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
nextscreen
end if
if currentLevel = "easy" and sofar = 11 then
Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)
Font.Draw ("Great, you beat the easy level, now try medium", 100, 150, font1, 8)
end if
if sofar < 11 then
sf := intstr (sofar)
Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if
%MEDIUM QUESTIONS
%QUESTION 1 Medium
if currentLevel = "Medium" then
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is the name of Stewie's Teddy Bear?", 100, 500, font3, 12)
Font.Draw (" a) Frank", 300, 450, font3, 8)
Font.Draw (" b) Rupert", 300, 400, font3, 8)
Font.Draw (" c) John", 300, 350, font3, 8)
Font.Draw (" d) Stewart", 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, 600, font2, 8)
Pic.Draw (rupert, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (rupert, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 2 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What animal haunts Chris and lives in his closet?", 300, 500, font3, 12)
Font.Draw (" a) Giraffe", 300, 450, font3, 8)
Font.Draw (" b) Zebra", 300, 400, font3, 8)
Font.Draw (" c) Cow", 300, 350, font3, 8)
Font.Draw (" d) Monkey", 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, 600, font2, 8)
Pic.Draw (monkey, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (monkey, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 3 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Peter has gotten into fights with a random what?", 300, 500, font3, 12)
Font.Draw (" a) Gorilla", 300, 450, font3, 8)
Font.Draw (" b) Chicken", 300, 400, font3, 8)
Font.Draw (" c) Lawyer", 300, 350, font3, 8)
Font.Draw (" d) Dog", 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, 600, font2, 8)
Pic.Draw (chicken, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (chicken, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 4 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is Lois' sisters name?", 300, 500, font3, 12)
Font.Draw (" a) Carol", 300, 450, font3, 8)
Font.Draw (" b) Catherine", 300, 400, font3, 8)
Font.Draw (" c) Christine", 300, 350, font3, 8)
Font.Draw (" d) Carly", 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, 600, font2, 8)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 5 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is Lois' fathers first name?", 300, 500, font3, 14)
Font.Draw (" a) Cadence", 300, 450, font3, 8)
Font.Draw (" b) Leonard", 300, 400, font3, 8)
Font.Draw (" c) Carter", 300, 350, font3, 8)
Font.Draw (" d) Calder", 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, 600, font2, 8)
Pic.Draw (carter, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (carter, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 6 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who was Stewie's first love?", 300, 500, font3, 12)
Font.Draw (" a) Jane", 300, 450, font3, 8)
Font.Draw (" b) Janet", 300, 400, font3, 8)
Font.Draw (" c) Loretta", 300, 350, font3, 8)
Font.Draw (" d) Angelica", 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, 600, font2, 8)
Pic.Draw (janet, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (janet, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 7 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What instrument does Lois play and teach?", 300, 500, font3, 12)
Font.Draw (" a) Guitar", 300, 450, font3, 8)
Font.Draw (" b) Clarinet", 300, 400, font3, 8)
Font.Draw (" c) Flute", 300, 350, font3, 8)
Font.Draw (" d) Piano", 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, 600, font2, 8)
Pic.Draw (piano, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (piano, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 8 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What makes Peter good at playing piano?", 300, 500, font3, 12)
Font.Draw (" a) Lessons", 300, 450, font3, 8)
Font.Draw (" b) Playing with his eyes closed", 300, 400, font3, 8)
Font.Draw (" c) Alcohol", 300, 350, font3, 8)
Font.Draw (" d) Tired/Sleepy", 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, 600, font2, 8)
Pic.Draw (ppiano, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (ppiano, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 9 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who is the Asian reporter on the news channel?", 300, 500, font3, 12)
Font.Draw (" a) Ha-Seung Jin", 300, 450, font3, 8)
Font.Draw (" b) Pati Chang", 300, 400, font3, 8)
Font.Draw (" c) Tricia Takanawa", 300, 350, font3, 8)
Font.Draw (" d) Yoko Ming", 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, 600, font2, 8)
Pic.Draw (reporter, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (reporter, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 10 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who is Peter proud of out-farting in a random public bathroom?", 300, 500, font3, 12)
Font.Draw (" a) Cleveland", 300, 450, font3, 8)
Font.Draw (" b) Mike Myers", 300, 400, font3, 8)
Font.Draw (" c) Bernie Mac", 300, 350, font3, 8)
Font.Draw (" d) Michael Moore", 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, 600, font2, 8)
Pic.Draw (moore, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (moore, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 11 Medium
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Who breaks through the wall of the court when Peter is sentenced to 24 months in prison?", 10, 500, font3, 12)
Font.Draw (" a) Kool-Aid Man", 300, 450, font3, 8)
Font.Draw (" b) Joe", 300, 400, font3, 8)
Font.Draw (" c) Tricia Takanawa", 300, 350, font3, 8)
Font.Draw (" d) Yoko Ming", 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, 600, font2, 8)
Pic.Draw (koolaid, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (koolaid, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
end if
if currentLevel = "medium" and sofar = 11 then
Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)
Font.Draw ("Great, you beat medium, now try hard", 100, 150, font1, 8)
end if
if sofar < 11 then
sf := intstr (sofar)
Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if
%HARD QUESTIONS
%QUESTION 1 Hard
if currentLevel = "Hard" then
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" For what characters does Seth McFarlane provide a voice for?", 300, 500, font3, 14)
Font.Draw (" a) Stewie, Peter and Joe", 300, 450, font3, 8)
Font.Draw (" b) Peter, Cleveland and Brian", 300, 400, font3, 8)
Font.Draw (" c) Peter, Stewie, Brian, Quagmire,", 300, 350, font3, 8)
Font.Draw (" d) Peter, Lois, Chris, Meg", 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, 600, font2, 8)
Pic.Draw (voice, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (voice, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 2 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Which of Peter's relatives owned the first dozen telephones?", 300, 500, font3, 14)
Font.Draw (" a) Peter's Great Great Grandfather, Thomas Griffin", 300, 450, font3, 8)
Font.Draw (" b) Peter's Cousin Rufus", 300, 400, font3, 8)
Font.Draw (" c) Peter's Latin-American ancestor Juarez Griffin", 300, 350, font3, 8)
Font.Draw (" d) Peter's great grandfather Osias Griffin", 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, 600, font2, 8)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 3 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" How many fingers did Stewie say he had when he was still in the womb?", 300, 500, font3, 14)
Font.Draw (" a) 11", 300, 450, font3, 8)
Font.Draw (" b) 8", 300, 400, font3, 8)
Font.Draw (" c) 16", 300, 350, font3, 8)
Font.Draw (" d) 19", 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, 600, font2, 8)
Pic.Draw (stew, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (stew, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 4 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What designer name did Stewie model diapers for?", 300, 500, font3, 14)
Font.Draw (" a) Tommy Hilfiger", 300, 450, font3, 8)
Font.Draw (" b) Calvin Klein", 300, 400, font3, 8)
Font.Draw (" c) Ralph Polo", 300, 350, font3, 8)
Font.Draw (" d) Ecko Unltd", 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, 600, font2, 8)
Pic.Draw (diaper, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (diaper, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 5 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Why did Peter fly to Kentucky?", 300, 500, font3, 14)
Font.Draw (" a) To visit family", 300, 450, font3, 8)
Font.Draw (" b) To pick up Stewie and Brian", 300, 400, font3, 8)
Font.Draw (" c) To drop off Meg and Chris", 300, 350, font3, 8)
Font.Draw (" d) To get fried chicken and see the Kernal", 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, 600, font2, 8)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 6 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What is the name of the doctor in Family Guy?", 300, 500, font3, 14)
Font.Draw (" a) Dr. Hartman", 300, 450, font3, 8)
Font.Draw (" b) Dr. Harman", 300, 400, font3, 8)
Font.Draw (" c) Dr. Mac", 300, 350, font3, 8)
Font.Draw (" d) Dr. Tom", 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, 600, font2, 8)
Pic.Draw (hartman, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (hartman, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 7 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What does the breakfast machine Peter bought do?", 300, 500, font3, 14)
Font.Draw (" a) Cook pancakes", 300, 450, font3, 8)
Font.Draw (" b) Cook bacon and eggs", 300, 400, font3, 8)
Font.Draw (" c) Shoots you with a gun", 300, 350, font3, 8)
Font.Draw (" d) Throws a pie in your face", 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, 600, font2, 8)
Pic.Draw (bf, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (bf, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 8 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What was the prize for being the one to last longest after drinking", 300, 500, font3, 14)
Font.Draw (" a whole bottle of ipecac?", 300, 450, font3, 14)
Font.Draw (" a) Bragging rights", 300, 400, font3, 8)
Font.Draw (" b) A piece of pie", 300, 350, font3, 8)
Font.Draw (" c) Tickets to a concert", 300, 300, font3, 8)
Font.Draw (" d) They did it for fun", 300, 250, font3, 8)
loop
Font.Draw ("---Answer here---", 300, 200, 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, 600, font2, 8)
Pic.Draw (ipecac, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (ipecac, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 9 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" In one episode, Peter was given three wishes from a genie that came", 300, 500, font3, 14)
Font.Draw (" from a beer bottle, which wish was not one of the three?", 300, 450, font3, 14)
Font.Draw (" a) See how Kelly Ripper is off the set", 300, 400, font3, 8)
Font.Draw (" b) Have his own theme music", 300, 350, font3, 8)
Font.Draw (" c) Wish he had no bones", 300, 300, font3, 8)
Font.Draw (" d) Wishes for a holiday hawk", 300, 250, font3, 8)
loop
Font.Draw ("---Answer here---", 300, 200, 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, 600, font2, 8)
Pic.Draw (genie, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (genie, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 10 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" What did Peter say to convince Congress to go to war?", 300, 500, font3, 14)
Font.Draw (" a) Anyone who doesn't want to go to war is gay", 300, 450, font3, 8)
Font.Draw (" b) Action should be taken", 300, 400, font3, 8)
Font.Draw (" c) Yeah", 300, 350, font3, 8)
Font.Draw (" d) We can try", 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, 600, font2, 8)
Pic.Draw (congress, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (congress, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
%QUESTION 11 Hard
nextscreen
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw (" Which did Peter not throw during Chris' open house?", 300, 500, font3, 14)
Font.Draw (" a) Trombone", 300, 450, font3, 8)
Font.Draw (" b) Bunt Cake Filler", 300, 400, font3, 8)
Font.Draw (" c) Dodgeball", 300, 350, font3, 8)
Font.Draw (" d) Chair", 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, 600, font2, 8)
Pic.Draw (throw, 320, 100, picCopy)
else
question := "n"
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("INCORRECT!", 300, 600, font2, 8)
Pic.Draw (throw, 320, 100, picCopy)
end if
if question = "y" then
sofar += 1
else
sofar += 0
end if
end if
if currentLevel = "hard" and sofar = 11 then
Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)
Font.Draw ("Wow! You really know Family Guy!", 300, 150, font1, 8)
end if
if sofar <= 11 then
sf := intstr (sofar)
Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if