Need help on brick like game

[bigmac586]

ok i need help with the collision detection in my program, its for a gr 10 ISU, i need some boundaries, and i need the ball to bounce of the bricks, any help would be very appreciated thanks. This is my code

drawfillbox(0,390,50,400,brightred)
drawfillbox(75,390,125,400,brightred)
drawfillbox(150,390,200,400,brightred)
drawfillbox(225,390,275,400,brightred)
drawfillbox(300,390,350,400,brightred)
drawfillbox(375,390,425,400,brightred)
drawfillbox(450,390,500,400,brightred)
drawfillbox(525,390,575,400,brightred)
drawfillbox(600,390,650,400,brightred)
drawfillbox(0,370,50,380,brightred)
drawfillbox(75,370,125,380,brightred)
drawfillbox(150,370,200,380,brightred)
drawfillbox(225,370,275,380,brightred)
drawfillbox(300,370,350,380,brightred)
drawfillbox(375,370,425,380,brightred)
drawfillbox(450,370,500,380,brightred)
drawfillbox(525,370,575,380,brightred)
drawfillbox(600,370,650,380,brightred)
drawfillbox(0,350,50,360,brightred)
drawfillbox(75,350,125,360,brightred)
drawfillbox(150,350,200,360,brightred)
drawfillbox(225,350,275,360,brightred)
drawfillbox(300,350,350,360,brightred)
drawfillbox(375,350,425,360,brightred)
drawfillbox(450,350,500,360,brightred)
drawfillbox(525,350,575,360,brightred)
drawfillbox(600,350,650,360,brightred)
var stickSpeed := 3
var dir:= 100
var dir2:= 180
var getKey : array char of boolean
var ballSpeed := 2
var x, y : int
var dx, dy := 1
setscreen("offscreenonly")
x := 70
y := 313
drawfillbox (dir2, 20, dir, 30, black)
procedure moveleft
drawfillbox (dir2, 20, dir, 30, white)
dir -= 1
dir2 -= 1
drawfillbox (dir2, 20, dir, 30, black)
drawbox (dir2, 20, dir, 30, black)
delay (stickSpeed)
%View.Update
end moveleft
procedure moveright
drawfillbox (dir2, 20, dir, 30, white)
dir += 1
dir2 += 1
drawfillbox (dir2, 20, dir, 30, black)
drawbox (dir2, 20, dir, 30, black)
delay (stickSpeed)
%View.Update
end moveright
process BouncyBall
loop
locate (1, 1)
colorback (green)
%put " x ", x, " y ", y, " dir ", dir, " dir2 ", dir2, " dir3 ", dir3, " dir4 ", dir4
%Draw.Text ("1P Score = ", 0, maxy - 18, scoreFont, red)

locate (1, 43)

x += dx
y += dy
delay (ballSpeed) % Balls speed
drawfilloval (x, y, 5, 5, brightcyan)
drawoval (x, y, 5, 5, brightcyan)


View.Update
drawfilloval (x, y, 5, 5, white)
% BOUNDARIES




end loop
end BouncyBall
fork BouncyBall


loop
Input.KeyDown (getKey)
if getKey (KEY_LEFT_ARROW) then
moveleft
end if
if getKey (KEY_RIGHT_ARROW) then
moveright
if (dir <= 0) and (dir2 <= 80) then
dir := 0
dir2 := 80
elsif (dir >= maxx - 80) and (dir2 >= maxx - 80) then
dir2 := maxx
dir := maxx - 80
end if
end if
end loop

[Tony]

do you know how to set up collision against just one brick?

Then, to keep the code from turning into a horrible pile of redundant if-statements, use arrays and a for-loop to generalize it.

Also, don't use fork, it's not necessary. Your BouncyBall and Input.KeyDown can happily live inside a single loop.

[bigmac586]

umm no i dont know how to set up collision against just one brick

umm i dont know how to use arrays

if i put the input.keydown inside one loop, then my paddle won't move and if i take away the fork no ball shows up at all

i should know more about arrays and collision detection but my teacher is dumb.

[Nova]

Showing some code would make things much easier to help
Also, there are plenty of tutorials on collisions and arrays
Just search it

[Tony]

bigmac586 @ Mon Jan 05, 2009 11:16 am wrote:

my teacher is dumb.

Turing Walkthrough -- there, I've fixed it for you.