my teacher, said i could use procedures, but it's kinda confusing and i tried so many times but it won't work. here's the code
thankz alot for your help
[code]
var myAnswer : string
%Splash Screen
%put ""
%put ""
%put ""
%delay (1000)
%cls
%delay (10)
%end for
%Screen to get users name
%Instructions on how to play the game
%Loading Screen
%background colour
drawfillbox (5, 5, 635, 395, 55)
%Boxes to put the answers and question in: a, b, c, d
drawfillbox (10, 15, 300, 75, 85) %box a
drawfillbox (345, 15, 630, 75, 85) %box b
drawfillbox (12, 85, 300, 150, 85) %box c
drawfillbox (347, 85, 630, 150, 85) %box d
drawfillbox (10, 325, 630, 385, 85) %box to put question in
%place letters a, b, c, d in boxes
locate (17, 4)
color (55)
put "a" ..
locate (17, 46)
color (55)
put "b" ..
locate (22, 4)
color (55)
put "c" ..
locate (22, 46)
color (55)
put "d" ..
%Question # 1 and options, places in the boxes
procedure q1
locate (3, 15)
color (7)
put "With what character was Lisa in constant competition?" ..
locate (18, 15)
color (7)
put "Melissa" .. %INCORRECT
locate (23, 15)
color (7)
put "Allison" .. %CORRECT
locate (18, 60)
color (7)
put "Sherry" .. %INCORRECT
locate (23, 60)
color (7)
put "Jeanie" .. %INCORRECT
end q1
q1
get myAnswer:
if myAnswer = "Allison"
then
cls
end if
%question # 2
procedure q2
locate (3, 15)
color (7)
put "What club from springfield got stranded on the island?" ..
locate (18, 15)
color (7)
put "book club" .. %INCORRECT
locate (23, 15)
color (7)
put "Travel Club" .. %INCORRECT
locate (18, 60)
color (7)
put "UN club" .. %CORRECT
locate (23, 60)
color (7)
put "SH club" .. %INCORRECT
end q2
q2
%question # 3
procedure q3
locate (3, 15)
color (7)
put "What was the signa, it was time for Apu's wedding?" ..
locate (18, 15)
color (7)
put "a lotus flower" .. %CORRECT
locate (23, 15)
color (7)
put "lilly wrapped in a lilly pad" .. %INCORRECT
locate (18, 60)
color (7)
put "two attached skulls" .. %INCORRECT
locate (23, 60)
color (7)
put "a silver tongue" .. %INCORRECT
end q3
%question #4
procedure q4
locate (3, 15)
color (7)
put "How much money did bart get when he ate the jagged metal krusty-O?"
..
locate (18, 15)
color (7)
put "$5000" .. %INCORRECT
locate (23, 15)
color (7)
put "$100" .. %INCORRECT
locate (18, 60)
color (7)
put "$500" .. %CORRECT
locate (23, 60)
color (7)
put "$6000" .. %INCORRECT
end q4
%question # 5
procedure q5
locate (3, 15)
color (7)
put "In what part of the Nuclear plant does Homer work?" ..
locate (18, 15)
color (7)
put "Sector 7B" .. %INCORRECT
locate (23, 15)
color (7)
put "Area 7F" .. %INCORRECT
locate (18, 60)
color (7)
put "Sector 7S" .. %INCORRECT
locate (23, 60)
color (7)
put "Sector 7G" .. %CORRECT
end q5
%question # 6
procedure q6
locate (3, 15)
color (7)
put
"What was Homer's campain clogan when applied for Sanitation Commissioner?"
..
locate (18, 15)
color (7)
put "We do it for you!" .. %INCORRECT
locate (23, 15)
color (7)
put "We air out your stinkables!" .. %INCORRECT
locate (18, 60)
color (7)
put "I didn't do it!" .. %INCORRECT
locate (23, 60)
color (7)
put "Can't someone else do it!" .. %CORRECT
end q6
%question # 7
procedure q7
locate (3, 15)
color (7)
put "What dotor wanted to keep Itchy and Scartchy on the air" ..
locate (18, 15)
color (7)
put "Dr.Hibert" .. %INCORRECT
locate (23, 15)
color (7)
put "Dr.Nick" .. %INCORRECT
locate (18, 60)
color (7)
put "Dr.Frink" .. %INCORRECT
locate (23, 60)
color (7)
put "Dr.Monroe" .. %CORRECT
end q7
%question # 8
procedure q8
locate (3, 15)
color (7)
put "What famous singer helped to stop whacking day?" ..
locate (18, 15)
color (7)
put "Barry White" .. %CORRECT
locate (23, 15)
color (7)
put "James Brown" .. %INCORRECT
locate (18, 60)
color (7)
put "Tom Jones" .. %INCORRECT
locate (23, 60)
color (7)
put "Micheal Jackson" .. %INCORRECT
end q8
%question # 9
procedure q9
locate (3, 15)
color (7)
put "Who often says worst episode ever ?" ..
locate (18, 15)
color (7)
put "Comic book guy" .. %CORRECT
locate (23, 15)
color (7)
put "Captain McCallistine" .. %INCORRECT
locate (18, 60)
color (7)
put "Krusty the clown" .. %INCORRECT
locate (23, 60)
color (7)
put "Otto" .. %INCORRECT
end q9
%question # 10
procedure q10
locate (3, 15)
color (7)
put "What Fake name did bart use to buy a credit card?" ..
locate (18, 15)
color (7)
put "Bort Simons" .. %INCORRECT
locate (23, 15)
color (7)
put "Ivana Creditcard" .. %INCORRECT
locate (18, 60)
color (7)
put "Santos Al Halper" .. %CORRECT
locate (23, 60)
color (7)
put "John Doe" .. %INCORRECT
end q10
% to tell user if the box they clicked on is Correct or Incorrect
var x, y, b, c : int
c := 0
loop
mousewhere (x, y, b)
if x > 10 and y > 15 and x < 300 and y < 75 and b = 1
then
cls
put "CORRECT"
elsif x > 345 and y > 15 and x < 630 and y < 75 and b = 1
then
cls
put "INCORRECT"
elsif x > 12 and y > 85 and x < 300 and y < 150 and b = 1
then
cls
put "INCORRECT"
elsif x > 347 and y > 85 and x < 630 and y < 150 and b = 1
then
cls
put "INCORRECT"
end if
end loop
[/code]