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