var gridx : int := 0
var gridy : int := maxy
var space : int := Pic.FileNew ("space.jpg")
var paranoids : int := Pic.FileNew ("paranoids.jpg")
var x : int := 52
var y : int := 42
var sx : int := 350
var sy : int := 350
var charpress : array char of boolean
var enter : char
var fontid := Font.New ("ZapfHumnst BT:40x25")
var cursorx : int := 60
var cursory : int := 102
var key : string (1) := ""
View.Set ("graphics")
drawfillbox (0, 0, maxx, maxy, black)
loop
delay (50)
drawfillbox (gridx, 0, gridx - 1, maxy, brightblue)
gridx := gridx + 25
exit when gridx > maxx
end loop
gridx := 0
loop
delay (50)
drawfillbox (0, gridy, maxx, gridy - 1, brightblue)
gridy := gridy - 25
exit when gridy < 0
end loop
Music.Play ("d")
drawfillbox (0, 0, 10, maxy, black)
delay (500)
Music.Play ("d")
drawfillbox (maxx - 10, 0, maxx, maxy, black)
delay (500)
Music.Play ("d")
drawfillbox (0, maxy, maxx, maxy - 5, black)
delay (500)
Music.Play ("d")
drawfillbox (0, 5, maxx, 0, black)
delay (1000)
Music.Play ("a")
Pic.Draw (space, 11, maxy - 47, picMerge)
delay (200)
Music.Play ("a")
Pic.Draw (paranoids, 11, maxy - 88, picMerge)
delay (1000)
Draw.FillBox (195, 195, 504, 303, black)
for z : 199 .. 500
delay (1)
Draw.Box (z, 199, 500, 299, blue)
end for
Font.Draw ("PLAY", 225, 235, fontid, brightblue)
% Draw.FillBox(,,,,black)
Draw.FillBox (15, 46, 319, 154, black)
for decreasing z : 315 .. 19
delay (1)
Draw.Box (19, 50, z, 150, blue)
end for
Font.Draw ("QUIT", 100, 87, fontid, brightblue)
%*************************************************%
%++++++++++++++draw the characters++++++++++++++++%
%*************************************************%
var keys : array char of boolean
View.Set ("graphics,offscreenonly")
var x1, y1 : int := 0
const size : int := 5
y1 := maxy - size
cls
loop
Draw.FillBox (0, 0, maxx, maxy, black)
drawfillbox (gridx, 0, gridx - 1, maxy, brightblue)
gridx := gridx + 25
delay (50)
drawfillbox (0, gridy, maxx, gridy - 1, brightblue)
gridy := gridy - 25
loop
Input.KeyDown (keys)
if keys (KEY_DOWN_ARROW) then
loop
y1 -= 1
Draw.Cls
Draw.FillBox (x1, y1, x1 + size, y1 + size, brightred)
View.Update
exit when hasch
end loop
end if
if keys (KEY_RIGHT_ARROW) then
loop
x1 += 1
Draw.Cls
Draw.FillBox (x1, y1, x1 + size, y1 + size, brightred)
View.Update
exit when hasch
end loop
end if
if keys (KEY_LEFT_ARROW) then %%%
loop
x1 -= 1
Draw.Cls
Draw.FillBox (x1, y1, x1 + size, y1 + size, brightred)
View.Update
exit when hasch
end loop
end if
if keys (KEY_UP_ARROW) then %%%
loop
y1 += 1
Draw.Cls
Draw.FillBox (x1, y1, x1 + size, y1 + size, brightred)
View.Update
exit when hasch
end loop
end if
end loop
end loop
|