View.Set ("graphics:max,max")

proc intro
    var wolf : int := Pic.FileNew ("acorn.jpg")
    var explosion : int := Pic.FileNew ("Ex.jpg")
    var mx, my, mb : int
    var font1, font2, font4 : int
    font2 := Font.New ("Vineta BT:50:bold,italic")
    font4 := Font.New ("Castellar:24:bold,italic")
    font1 := Font.New ("Castellar:12:bold,italic")
    drawfillbox (0,0,maxx,maxy,brown)
    Font.Draw ("Welcome to ", 0, 600, font4, green)
    Font.Draw ("Acorn Hunter", 90, 500, font2, blue)
    Font.Draw ("Intructions", 350, 200, font4, 7)
    Font.Draw ("Play", 350, 250, font4, 7)

    loop
        mousewhere (mx, my, mb)
        if mb = 1 and mx > 200 and my < 250 and my > 200 then

            cls
            Font.Draw ("Acorn hunter is a fun game that i hope you will enjoy!", 50, 500, font1, red)
            Font.Draw ("Your objective is simple...COllCET THE ACORNS!! and don't let them hit the ground!", 50, 450, font1, red)
            Font.Draw ("Touch the Acorn to continue", 50, 400, font4, brown)
            Pic.Draw (wolf, 100, 100, picCopy)
        elsif mb = 1 and mx > 100 and my < 150 then
            Pic.Draw (explosion, 100, 100, picCopy)
            delay (1000)
            cls
            Font.Draw ("Welcome to ", 0, 600, font4, green)
            Font.Draw ("POOYAN", 90, 500, font2, blue)
            Font.Draw ("Intructions", 350, 200, font4, 6)
            Font.Draw ("Play", 350, 250, font4, 8)

        end if
        if mb = 1 and mx > 350 and my < 400 and my > 250 then
            exit

        end if

    end loop
    cls