setscreen ("graphics:700;500") % Sets the screen to a certain amount of pixels.


proc map
    Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge) %Loads picture of the Canadian map so it can be used through out the program.
end map

%All the declarations.
var answer : string %the variable for the users answer to the question.
var s : int % Score of the user
s := 0 %Score = 0 depending on the users correct answer.
var c : real := 0

var bname : string %The beaver's name.

var font1 : int %declare font 1 so I can use it anywhere in the program.
font1 := Font.New ("Castellar:18") %Type of font & size of font.
assert font1 > 0 %Makes sure that the program is true, if not program is terminated.

var font2 : int
font2 := Font.New ("Curlz MT:18")
assert font2 > 0

var font3 : int
font3 := Font.New ("Georgia:18")
assert font3 > 0

var font4 : int
font4 := Font.New ("Forte:18")
assert font4 > 0

var font5 : int
font5 := Font.New ("Castellar:35")
assert font5 > 0

var font6 : int
font6 := Font.New ("Georgia:30")
assert font6 > 0

var font7 : int
font7 := Font.New ("Arial Black:30")
assert font7 > 0

var font8 : int
font8 := Font.New ("Arial:14")
assert font8 > 0

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%The "flash" screen. Has loading written in big with an alternation of black and white background with all the Canadian province/territory flags.
proc splash
    Font.Draw ("LOADING", 50, 280, font5, 111) %Font.Draw makes the text you want into a certaon font and size. (Makes it look much better!)
    Pic.ScreenLoad ("quebec flag.jpg", 330, 250, picMerge) %Loads picture of the Flag.
    delay (1000) %Delay's the next flag.
    cls %Clears the screen
    drawfillbox (700, 0, 0, 700, 7) %This is a black box. With every flag there is a white and black background flashing.
    Font.Draw ("LOADING", 50, 280, font5, 55)
    Pic.ScreenLoad ("BC Flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    Font.Draw ("LOADING", 50, 280, font5, 111)
    Pic.ScreenLoad ("nova scotia flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    drawfillbox (700, 0, 0, 700, 7)
    Font.Draw ("LOADING", 50, 280, font5, 55)
    Pic.ScreenLoad ("Alberta Flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    Font.Draw ("LOADING", 50, 280, font5, 111)
    Pic.ScreenLoad ("pei flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    drawfillbox (700, 0, 0, 700, 7)
    Font.Draw ("LOADING", 50, 280, font5, 55)
    Pic.ScreenLoad ("saskatchewan flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    Font.Draw ("LOADING", 50, 280, font5, 111)
    Pic.ScreenLoad ("newfoundland flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    drawfillbox (700, 0, 0, 700, 7)
    Font.Draw ("LOADING", 50, 280, font5, 55)
    Pic.ScreenLoad ("manitoba flag.jpg.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    Font.Draw ("LOADING", 50, 280, font5, 111)
    Pic.ScreenLoad ("nunavut flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    drawfillbox (700, 0, 0, 700, 7)
    Font.Draw ("LOADING", 50, 280, font5, 55)
    Pic.ScreenLoad ("Ontario Flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    Font.Draw ("LOADING", 50, 280, font5, 111)
    Pic.ScreenLoad ("north west territories flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    drawfillbox (700, 0, 0, 700, 7)
    Font.Draw ("LOADING", 50, 280, font5, 55)
    Pic.ScreenLoad ("New brunswick flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
    Font.Draw ("LOADING", 50, 280, font5, 111)
    Pic.ScreenLoad ("yukon flag.jpg", 330, 250, picMerge)
    delay (1000)
    cls
end splash

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%The introduction screen with a set of rules. Canadian flag as the back ground and before starting the actual game you must give mister beaver a name. (kinda lame I know but I couldn't use a GUI so we could click on it.)
proc intro
    Pic.ScreenLoad ("CanadianFlag.jpg", -60, 0, picMerge) %Loads picture of the Canadian Flag.
    Font.Draw ("Are you a TRUE Canadian?", 55, 450, font6, 7)
    delay (1000) % delay for "EH?"
    Font.Draw ("EH?", 550, 450, font7, 7)
    delay (1000) %Delay for sets instrutions.
    Font.Draw ("This is the 'Are you a TRUE Candadian EH?' Quiz", 5, 350, font8, 7)
    Font.Draw ("This quiz is on the capitals of the Canadian Provinces and Territories.", 5, 330, font8, 7)
    Font.Draw ("You have 3 tries for each province/territory. Your score will be displayed at the end.", 5, 310, font8, 7)
    Font.Draw ("Pretty Simple? Good LUCK!", 5, 290, font8, 7)
    Font.Draw ("PS. Turn up the volume!", 5, 250, font8, 7)
    Font.Draw ("Please give a name to mister beaver before starting!", 5, 270, font8, 7)
    Pic.ScreenLoad ("beaver.gif", 50, 40, picMerge) %Loads picture of beaver.
    locatexy (300, 400) %Location for the user's writing.
    get bname %Gets the name of the beaver.
    cls %Clears screen for actual game.
end intro

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Music.PlayFileLoop ("Techno - O Canada.mp3") %Begining of O canada (techno version.
%The actual quiz! Shows the Canadian Map as a background, the question with font.draw ontop, the amount of tries the user has left at the bottom right corner and all accompanied by the National Anthem Techno version ;)
proc bc
    Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)
    c := c + 1
    cls

    % British Colombia
    Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)
    Font.Draw ("What is the Capital of British Colombia?", 0, 450, font1, 111)
    locatexy (300, 400)     %user enters there answer.
    get answer     %Gets the answer
    cls
    Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)     %Loads the picture of the Canadian Map as a background.
    if answer = "Victoria" or answer = "victoria" or answer = "VICTORIA" then      % I have them in capitals and lower case just to give the user a wider variety.
        Font.Draw ("WOOT -happy dance-", 400, 250, font2, 79)     %if the answer is correct it puts a happy comment.
        s := s + 1     %if the asnwer is correct one point is given, the program keeps a tally of the points aside to give out a total at the end.
        c := 0
        delay (2000)
        cls
    elsif c = 3 then
        cls
        Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)
        Font.Draw ("The answer is Victoria", 300, 400, font2, 55)
        delay (2000)
        cls
    else
        Font.Draw ("YOU ARE SO...NOT RIGHT!", 350, 250, font4, 79)     %If the asnwer is not correct a comment is put for them to try again.
        Font.Draw ("Number of gueses of 3", 420, 10, font2, 38)     %Shows the number of guesses they have left decreasing from 2.
        locatexy (650, 10)     % Locates the amount of tries left.
        put c     % Puts the amount of tries left.
        delay (2000)
        cls
        bc
    end if %ends if statement.
end bc

cls

proc ab
    Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)
    c := c + 1
    cls
   
    % Alberta
     Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)
    Font.Draw ("What is the Capital of Alberta?", 0, 450, font1, 111)
    locatexy (300, 400)
    get answer
    cls
    Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)
    if answer = "Edmonton" or answer = "edmonton" or answer = "EDMONTON" then
        Font.Draw ("RIGHTO", 400, 250, font2, 79)
        s := s + 1
        c := 0
        delay (1000)
        cls
    elsif c = 3 then
        cls
        Pic.ScreenLoad ("Map.jpg", 50, 10, picMerge)
        Font.Draw ("The answer is Edmonton", 300, 400, font2, 55)
        delay (2000)
        cls
    else
        Font.Draw ("hahaha... no", 350, 250, font4, 79)
        Font.Draw ("Number of gueses left", 420, 10, font2, 38)
        locatexy (650, 10)
        put c
        delay(2000)
        cls
        ab
    end if
end ab



splash
intro
bc
ab

if c = 3 and s = 0 then
%Your Next Map
end if

if c = 3 and s = 0 then
c := 0
%Next Flag Question
end if

var answer : string %the variable for the users answer to the question.
var s : int % Score of the user
s := 0 %Score = 0 depending on the users correct answer.
var c : real := 0
var bname : string %The beaver's name.

var answer, beaver_name : string
var score : int := 0
var chances : real := 0