-----------------------------------

Morice

Sat Dec 17, 2005 9:48 am


Game question

-----------------------------------


%--------------------------------------------------First Good Game-----------------------------------------------------%
%-----------------------------------------------------By Marius--------------------------------------------------------%


setscreen ("graphics:640;480,nobuttonbar,position:192;100,noecho")
View.Set ("offscreenonly")
var chars : array char of boolean
var x, y : int
var counter : int := 0
var font : int
var this : string
var timeRunning : int
timeRunning := Time.Elapsed

font := Font.New ("Comic Sans MS:10:bold")

x := 285
y := 30
%---------------------------------------------------Background----------------------------------------------------------%
drawfillbox (0, 0, maxx, maxy, 121)
for i : 1 .. 6
    drawbox (0 + i, 0 + i, maxx - i, maxy - i, 69)
end for
drawfillbox (1, 400, maxx - 1, 405, 69)
drawbox (6, 406, maxx - 6, maxy - 6, black)
drawbox (6, 6, maxx - 6, 398, black)
%-------------------------------------------------Background end-------------------------------------------------------%
Font.Draw ("Lap: ", 10, 460, font, 69)
Font.Draw ("Time: ", 10, 440, font, 69)
%-----------------------------------------------------Track------------------------------------------------------------%
proc track
    drawfillbox (300, 7, 304, 40, 0)  %
    drawfillbox (300, 16, 304, 22, 7) %