----------------------------------- 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