import GUI in "%oot/support/lib/GUI"
 
setscreen ("graphics:vga")
 
setscreen ("nocursor")
 
var pic : int := Pic.FileNew ("soccer_stadium.jpg")
 
var font1 : int := Font.New ("Arial:50:bold")
 
var font2 : int := Font.New ("Arial:50:bold")
 
var font3 : int := Font.New ("Arial:16:bold")
 
var becknum, beckham : int
 
becknum := 1
 
forward proc b1
 
forward proc b2
 
forward proc b3
 
forward proc b4
 
 
forward proc right1
 
forward proc right2
 
forward proc right3
 
forward proc right4
 
 
forward proc wrong1
 
forward proc wrong2
 
forward proc wrong3
 
forward proc wrong4
 
 
 
%***************question 1**************
 
%below displays what will appear after a button is selected
 
body proc wrong1
 
    cls
 
    Font.Draw ("Wrong", 0, 50, font2, black)
 
    b2
 
end wrong1
 
body proc right1
 
    cls
 
    Font.Draw ("Right", 0, 50, font1, black)
 
    delay (1250)
 
    cls
 
    %omit comments below
 
    %loop
 
    %        delay (60)
 
    %        beckham := Pic.FileNew ("beckham" + intstr (becknum) + ".BMP")
 
    %        Pic.Draw (beckham, 175, 100, picCopy)
 
    %        becknum := becknum + 1
 
    %        exit when becknum = 210
 
    %    end loop
 
    b2
 
end right1
 
 
body proc b1
 
    delay (1250)
 
    cls
 
    Pic.Draw (pic, 0, 0, picMerge)
 
    Font.Draw ("From which country did Soccer originate?", 0, 375, font3, white)
 
    %buttons below (location and what will be displayed on the button)
 
    var button1 : int := GUI.CreateButton (100, 100, 20, "France", wrong1)
 
    var button2 : int := GUI.CreateButton (100, 130, 20, "England", right1)
 
    var button3 : int := GUI.CreateButton (100, 160, 20, "Spain", wrong1)
 
    var button4 : int := GUI.CreateButton (100, 190, 20, "Brazil", wrong1)
 
    var button5 : int := GUI.CreateButton (100, 220, 20, "Italy", wrong1)
 
    var button6 : int := GUI.CreateButton (100, 250, 20, "Germany", wrong1)
 
end b1
 
 
%**********question 2**********
 
body proc wrong2
 
    cls
 
    Font.Draw ("Wrong", 0, 50, font1, black)
 
    b3
 
end wrong2
 
body proc right2
 
    cls
 
    Font.Draw ("Right", 0, 50, font1, black)
 
    b3
 
end right2
 
 
body proc b2
 
delay (1250)
 
    cls
 
    Pic.Draw (pic, 0, 0, picMerge)
 
    Font.Draw ("When did the sport become recognized?", 0, 375, font3, white)
 
    %buttons below (location and what will be displayed on the button)
 
    var button7 : int := GUI.CreateButton (100, 100, 20, "1894", wrong2)
 
    var button8 : int := GUI.CreateButton (100, 130, 20, "1855", wrong2)
 
    var button9 : int := GUI.CreateButton (100, 160, 20, "1848", wrong2)
 
    var button10 : int := GUI.CreateButton (100, 190, 20, "1877", wrong2)
 
    var button11 : int := GUI.CreateButton (100, 220, 20, "1863", right2)
 
    var button12 : int := GUI.CreateButton (100, 250, 20, "1886", wrong2)
 
end b2
 
 
%**********question 3**********
 
body proc right3
 
    cls
 
    Font.Draw ("Right", 0, 50, font1, black)
 
end right3
 
body proc wrong3
 
    cls
 
    Font.Draw ("Wrong", 0, 50, font1, black)
 
end wrong3
 
 
body proc b3
 
    delay (1250)
 
    cls
 
    Pic.Draw (pic, 0, 0, picMerge)
 
    Font.Draw ("What country and City does FIFA originate?", 0, 375, font3, white)
 
    %buttons below (location and what will be displayed on the button)
 
    var button13 : int := GUI.CreateButton (100, 100, 20, "Paris, France", right3)
 
    var button14 : int := GUI.CreateButton (100, 130, 20, "London, England", wrong3)
 
    var button15 : int := GUI.CreateButton (100, 160, 20, "Toronto, Canada", wrong3)
 
    var button16 : int := GUI.CreateButton (100, 190, 20, "Budapest, Hungary", wrong3)
 
    var button17 : int := GUI.CreateButton (100, 220, 20, "New York, United States", wrong3)
 
    var button18 : int := GUI.CreateButton (100, 250, 20, "Berlin, Germany", wrong3)
 
end b3
 
 
%*********question 4**********
 
body proc right4
 
    cls
 
    Font.Draw ("Right", 0, 50, font1, black)
 
end right4
 
body proc wrong4
 
    cls
 
    Font.Draw ("Wrong", 0, 50, font1, black)
 
end wrong4
 
 
body proc b4
 
    delay (1250)
 
    cls
 
    Pic.Draw (pic, 0, 0, picMerge)
 
    Font.Draw ("Where did the first Olympic Soccer Tournament take place?", 0, 375, font3, white)
 
    %buttons below (location and what will be displayed on the button)
 
    var button19 : int := GUI.CreateButton (100, 100, 20, "Poland", wrong4)
 
    var button20 : int := GUI.CreateButton (100, 130, 20, "Scotland", wrong4)
 
    var button21 : int := GUI.CreateButton (100, 160, 20, "England", wrong4)
 
    var button22 : int := GUI.CreateButton (100, 190, 20, "Portugal", right4)
 
    var button23 : int := GUI.CreateButton (100, 220, 20, "Brazil", right4)
 
    var button24 : int := GUI.CreateButton (100, 250, 20, "Spain", wrong4)
 
end b4
 
 
b1
 
loop
 
    exit when GUI.ProcessEvent
 
end loop
 
 
  |