View.Set ("graphics:max,max;offscreenonly")
proc intro
var mx, my, mb : int
var font1, font2, font4 : int
var horseintro : int := Pic.FileNew ("horse9.jpg")
font2 := Font.New ("Hollywood Hills:50:bold,italic")
font4 := Font.New ("Hollywood Hills:24:bold,italic")
font1 := Font.New ("Hollywood Hills:12:bold,italic")
loop
mousewhere (mx, my, mb)
drawfillbox (0, 0, maxx, maxy, black)
Font.Draw ("Welcome to ", 0, 600, font4, red)
Font.Draw ("Horse Racing", 90, 500, font2, red)
Font.Draw ("Intructions", 350, 200, font4, red)
Font.Draw ("Race", 350, 250, font4, red)
View.Update
if mb = 1 and mx > 200 and my < 250 and my > 200 then
loop
mousewhere (mx, my, mb)
exit when mb = 0
end loop
loop
mousewhere (mx, my, mb)
cls
drawfillbox (0, 0, maxx, maxy, black)
Pic.Draw (horseintro, 250, 150, picCopy)
Font.Draw ("Bet your money on the horse you think will win!", 50, 500, font1, red)
Font.Draw ("Your objective is simple... Win as much money as you can!", 50, 450, font1, red)
Font.Draw ("Click the horse to continue", 50, 400, font4, brown)
View.Update
if mb = 1 and mx > 250 and my < 400 and my > 150 then
exit
end if
end loop
loop
mousewhere (mx, my, mb)
exit when mb = 0
end loop
end if
if mb = 1 and mx > 350 and my < 350 and my > 250 then
exit
end if
end loop
cls
end intro
intro