process gameMenu
var butGame : int := GUI.CreateButton (250, 120, 150, "New Game", newGame)
var butOption : int := GUI.CreateButton (250, 90, 150, "Options", options)
var butScore : int := GUI.CreateButton (250, 60, 150, "High Scores", highScore)
loop
exit when GUI.ProcessEvent
end loop
end gameMenu
loop
var title : int := Pic.FileNew ("title.jpg")
var titleG : int := Pic.FileNew ("titleG.jpg")
var titleB : int := Pic.FileNew ("titleB.jpg")
Pic.SetTransparentColor (title, brightred)
Pic.Draw (title, 180, maxy div 1.5, picMerge)
delay (150)
Pic.SetTransparentColor (titleG, brightred)
Pic.Draw (titleG, 190, maxy div 1.5, picMerge)
delay (150)
Pic.SetTransparentColor (titleB, brightred)
Pic.Draw (titleB, 190, maxy div 1.5, picMerge)
delay (150)
end loop
fork gameMenu
|