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