setscreen ("graphics:v256")
setscreen ("graphics:640,480")
%Set variable choice.
var startgame: string
var choice: string
var choice2: string
var leave: string
%OUTPUT TITLE
%--------------------------------------------------------------------
%Draws the title page.
drawfillbox (0,0,640,480,16)
for movingfont : 0 .. 160
%Set variable and font.
var height, ascent, descent, internalLeading : int
var font : int
font := Font.New ("Arial Black:50")
Draw.Text ("PACMAN", 150, 540-movingfont, font, 42)
delay (3)
var font3 : int
font3 := Font.New ("Arial Black:50")
Draw.Text ("PACMAN", 150, 540-movingfont, font3, 254)
end for
var font4 : int
font4 := Font.New ("Arial Black:50")
Draw.Text ("PACMAN", 150, 380, font4, yellow)
var font2 : int
font2 := Font.New ("timesroman:30")
Draw.Text ("Created By Jordan Cheng", 120, 65, font2, green)
Draw.Text ("Press #1 to start the game", 120,30 , font2, green)
for movingpacman : 0 .. 740
Draw.FillArc (-80+movingpacman,230,80,80,10,310,yellow)
delay (3)
Draw.FillArc (-80+movingpacman,230,80,80,10,310,0)
end for
|