setscreen ("graphics:max,max")

var mx, my, mb : int
var b : int
var splash : int := Pic.FileNew ("full_intro.jpg")
var q1 : int := Pic.FileNew ("full_question1.jpg")
var q2 : int := Pic.FileNew ("full_question2.jpg")
var q3 : int := Pic.FileNew ("full_question3.jpg")
var q4 : int := Pic.FileNew ("full_question4.jpg")
var q5 : int := Pic.FileNew ("full_question5.jpg")
var q6 : int := Pic.FileNew ("full_question6.jpg")
var q7 : int := Pic.FileNew ("full_question7.jpg")
var q8 : int := Pic.FileNew ("full_question8.jpg")
var q9 : int := Pic.FileNew ("full_question9.jpg")
var q10 : int := Pic.FileNew ("full_question10.jpg")
var font : int := Font.New ("comic sans MS:14:bold")
var correct : int := Pic.FileNew ("Correct.jpg")
var fail : int := Pic.FileNew ("losehahahafail.jpg")
var ply : string
var plyflag : int := 0
var answer1 : string
var answer2 : string
var answer3 : string
var answer4 : string
var answer5 : string
var answer6 : string
var answer7 : string
var answer8 : string
var answer9 : string
var answer10 : string
var counter : int := 0


loop
    loop

        Pic.Draw (splash, 70, 0, picCopy)

        get ply

        if ply = "a" then
            cls
            plyflag := 1

        elsif ply = "b" then
            cls
            locatexy (280, maxy div 2 + 60)
            put "Sorry, you lost your chance of winning $5USD"

        end if

        if plyflag = 1 then
            Pic.Draw (q1, 70, 0, picCopy) %QUESTION1
            get answer1
        end if
        if answer1 = "b" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer1 not= "b" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION2

        delay (2000)
        Pic.Draw (q2, 70, 0, picCopy)

        get answer2

        if answer2 = "a" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer2 not= "a" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION3
        delay (2000)
        Pic.Draw (q3, 70, 0, picCopy)

        get answer3

        if answer3 = "a" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer3 not= "a" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION4

        delay (2000)
        Pic.Draw (q4, 70, 0, picCopy)

        get answer4

        if answer4 = "b" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer4 not= "b" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION5

        delay (2000)
        Pic.Draw (q5, 70, 0, picCopy)

        get answer5

        if answer5 = "a" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer5 not= "a" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION6

        delay (2000)
        Pic.Draw (q6, 70, 0, picCopy)

        get answer6

        if answer6 = "d" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer6 not= "d" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION7

        delay (2000)
        Pic.Draw (q7, 70, 0, picCopy)

        get answer7

        if answer7 = "c" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer7 not= "c" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION8

        delay (2000)
        Pic.Draw (q8, 70, 0, picCopy)

        get answer8

        if answer8 = "d" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer8 not= "d" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION9

        delay (2000)
        Pic.Draw (q9, 70, 0, picCopy)

        get answer9

        if answer9 = "b" then
            cls
            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
        elsif answer9 not= "b" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

        %QUESTION10

        delay (2000)
        Pic.Draw (q10, 70, 0, picCopy)

        get answer9

        if answer10 = "b" then

            Pic.Draw (correct, 70, 0, picCopy)
            counter += 1
            delay (1000)
            exit

        elsif answer10 not= "b" then
            cls
            Pic.Draw (fail, 70, 0, picCopy)
            delay (1000)
            exit
        end if

    end loop

    exit when counter = 10

end loop