proc intro
    var wolf : int := Pic.FileNew ("Wolf.jpg")
    var explosion : int := Pic.FileNew ("explosion.jpg")
    var mx, my, mb : int
    var font1, font2, font4 : int
    font2 := Font.New ("VinetaBT:90:bold,italic")
    font4 := Font.New ("Palatino:24:bold,italic")
    font1 := Font.New ("Palatino:12:bold,italic")
    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)

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

            cls
            Font.Draw ("Pooyan is a game of class...a game of skill and most of all a game of fun", 50, 500, font1, red)
            Font.Draw ("Your objective is simple...STOP THE WOLVES!!", 50, 450, font1, red)
            Font.Draw ("Touch the wolf to continue", 50, 400, font4, blue)
            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

end intro