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

smith_scott_04

Tue Dec 02, 2003 6:31 pm


Breakout Game

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

This is Version 0.02, there is no continous loop but the basics are there. There is going to be specila powerups, levels, lives and that sort of thing but for now i need feedback.


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

smith_scott_04

Tue Dec 02, 2003 6:38 pm



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

OOPS here is the Code



%Designed By Mike Petrov and Scott Smith

View.Set ("offscreenonly")

var boxesbroken : int := 0
var boxcolor : int := 30
var mx, my, button : int %Mouse
var x, y, colo : int %Paddle
var blx, bly, speed : real %Ball
var ball : boolean := false
var borderx1, bordery1, borderx2, bordery2 : int
var bangle : real := 75
speed := 3
var works : boolean := true
var xbound, ybound : int
xbound := 10
ybound := 6
var box : array 1 .. xbound, 1 .. ybound of boolean

for i : 1 .. xbound
    for j : 1 .. ybound
        box (i, j) := true
    end for
end for

borderx1 := 3
bordery1 := 5
borderx2 := maxx - 2
bordery2 := maxy - 5

colorback (black)
cls %Clears the screen making it black

x := (maxx div 2) - 50
y := 10
colo := 0

blx := (maxx div 2) - 50
bly := 20

%-------------------------PROCEDURES START-------------------------------

procedure DrawBoxes ()
    for i : 1 .. xbound
        for j : 1 .. ybound
            if box (i, j) = true then
                drawfillbox (borderx1 + i * 4 + i * 59, bordery2 - j * 4 - j * 15, borderx1 +
                    i * 4 + (i - 1) * 59, bordery2 - j * 4 - (j - 1) * 15, boxcolor)
            end if
        end for
    end for
end DrawBoxes

%------------------------------------------------------------------------

procedure FindBox (fbX, fbY : int)
    for i : 1 .. xbound
        for j : 1 .. ybound
            if fbX = borderx1 + i * 4 + (i - 1)
                    * 59 and fbY >= bordery2 - j * 4 - j * 15 and fbY