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
|