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
 
  |