my breakout game...

[rhomer]

This is my breakout game i just started

I have moved the code down below to save space

[SuperGenius]

Just your luck, My summative is super breakout. One thing that I would do right away is change the control to mouse; the gameplay is better. Also you have made it so the ball's path always has a slope of 1; this means that it is possible for the ball to settle onto a certain pattern, and it may never hit the last couple of bricks. Also you can make the x2 and y2 values for the paddle relative to x1 and y1, so there is only two numbers to manage instead of 4:

code:

Draw.FillBox(paddlex,paddley,paddlex+paddlesize, paddley+5,colour)

As for your question about the paddle: look at what I've done; a bit of debugging built in. I put in some put statements to see when certain code was executed. In the place where you have your boxes being drawn, there is a line that says

code:

ychange := -2

this is activated hundreds of times per second as you can see by the counter that I put it. Your detection for the paddle is good, but the y direction is being reset by the code for the boxes, it needs some work.

[SuperGenius]

Just your luck, My summative is super breakout. One thing that I would do right away is change the control to mouse; the gameplay is better. Also you have made it so the ball's path always has a slope of 1; this means that it is possible for the ball to settle onto a certain pattern, and it may never hit the last couple of bricks. Also you can make the x2 and y2 values for the paddle relative to x1 and y1, so there is only two numbers to manage instead of 4:

code:

Draw.FillBox(paddlex,paddley,paddlex+paddlesize, paddley+5,colour)

As for your question about the paddle: look at what I've done; a bit of debugging built in. I put in some put statements to see when certain code was executed. In the place where you have your boxes being drawn, there is a line that says

code:

ychange := -2

this is activated hundreds of times per second as you can see by the counter that I put in it. Your detection for the paddle is good, but the y direction is being reset by the code for the boxes, it needs some work.

[SuperGenius]

oops, how did that double post happen? oh well.

[Paul]

Hehehe, my summative is breakout too, or part of it is, I already made the other game for the other part, and now Im on breakout. What I did was have a level editor which saves whatever level you make onto a text file and the actual game loads the text files and makes levels. Hehehe, now all I need to do is make powerups and level change.

[rhomer]

Ok...I have updated it a bit. All the bugs are gone, i think...
Please give me advice on what to add...iff you had any (i was think of powerups and levels)...

code:

setscreen ("offscreenonly") setscreen ("graphics:500;500") const radius := 5 const paddley1 := 10 const paddley2 := 20 var chars : array char of boolean var ballx, bally, xchange, ychange : int var paddlex1, paddlex2 : int var blockx1, blocky1, blockx2, blocky2 : int var alreadyhit : array 1 .. 44 of boolean var boxx1 : array 1 .. 44 of int var boxy1 : array 1 .. 44 of int var boxx2 : array 1 .. 44 of int var boxy2 : array 1 .. 44 of int var holding : boolean := true var mousex, mousey, button : int paddlex1 := (maxx div 2) - 40 paddlex2 := (maxx div 2) + 40 ballx := paddlex1 + 40 bally := paddley2 + 5 xchange := 0 ychange := 0 boxx1 (1) := 20 boxy1 (1) := maxy - 20 boxx2 (1) := 60 boxy2 (1) := maxy - 10 proc makeboxes     for i : 1 .. 43         if i = 9 then             boxx1 (9) := 20             boxx2 (9) := 60             boxy1 (9) := maxy - 40             boxy2 (9) := maxy - 30         elsif i = 18 then             boxx1 (18) := 20             boxx2 (18) := 60             boxy1 (18) := maxy - 60             boxy2 (18) := maxy - 50         elsif i = 27 then             boxx1 (27) := 20             boxx2 (27) := 60             boxy1 (27) := maxy - 80             boxy2 (27) := maxy - 70         elsif i = 36 then             boxx1 (36) := 20             boxx2 (36) := 60             boxy1 (36) := maxy - 100             boxy2 (36) := maxy - 90         end if         boxx1 (i + 1) := boxx1 (i) + 60         boxy1 (i + 1) := boxy1 (i)         boxx2 (i + 1) := boxx2 (i) + 60         boxy2 (i + 1) := boxy2 (i)         alreadyhit (i) := false     end for end makeboxes proc game     loop         Mouse.Where (mousex, mousey, button)         Input.KeyDown (chars)         ballx += xchange         bally += ychange         if ballx > (maxx - 5) then             xchange *= -1         elsif bally > (maxy - 5) then             ychange := -2         elsif bally < 0 then             exit         elsif ballx < 5 then             xchange *= -1         elsif bally < (paddley2 + 5) and bally > (paddley1) and ballx > paddlex1 and ballx < paddlex2 then             if ballx < paddlex1 + 40 then                 ychange := 2                 xchange -= round (Math.Distance (paddlex1 + 40, bally, ballx, bally) / 10)             elsif ballx > paddlex2 - 40 then                 ychange := 2                 xchange += round (Math.Distance (paddlex2 - 40, bally, ballx, bally) / 10)             end if         end if         paddlex1 := mousex - 40         paddlex2 := mousex + 40         if button = 1 and holding = true then             holding := false             xchange := 2             ychange := 2         end if         if holding = true then             ballx := paddlex1 + 40             bally := paddley2 + 5         end if         if paddlex1 < 0 then             paddlex1 := 0             paddlex2 := 80         elsif paddlex2 > maxx then             paddlex2 := maxx             paddlex1 := maxx - 80         end if         for i : 1 .. 43             drawfillbox (boxx1 (i), boxy1 (i), boxx2 (i), boxy2 (i), green)             if (bally > boxy1 (i) - 5 and bally < boxy2 (i) and ballx > boxx1 (i) and ballx < boxx2 (i)) and alreadyhit (i) = false then                 alreadyhit (i) := true                 if ychange = 2 then                     ychange := -2                 elsif ychange = -2 then                     ychange := 2                 end if             end if             if alreadyhit (i) = true then                 drawfillbox (boxx1 (i), boxy1 (i), boxx2 (i), boxy2 (i), white)             end if         end for         drawfilloval (ballx, bally, radius, radius, red)         drawfillbox (paddlex1, paddley1, paddlex2, paddley2, blue)         delay (5)         View.Update         cls     end loop end game makeboxes loop     game     if bally < 0 then         exit     end if end loop cls put "YOU LOST" View.Update

[SuperGenius]

you could make a level editor... curiously, paul and I seem to have done the same thing. I made powerups for my game already, but I had to take off the through effect cause the powerups messed up. Ill probably program a fix so that I can put it back in though.

Paul: Can I see your editor, to compare with mine?

[Paul]

My editor is very basic, just using drawfill and whatdotcolor to find the values for the 2d array of boolean, and then it inputs that as 0's or 1's on the text file, I think Im going to add blocks with different properties later, but thats if I have time. I have a better version at school, where you choose numbers of rows, but that isn't very different from this one.

[noobprogrammer123]

Why doesn't Math.Distance work, is it just me?

[rhomer]

thanks paul bian....


and noob, do you have version 4.0.5?

[SuperGenius]

nice work paul. I think it would be more interesting though if it alllowed people to make blocks in different colours; thats what mine does... it outputs the colour number to the text file, and the game doesnt do anything if it reads a 0. Also this lets people choose the colour white to erase any bricks that they dont want, so they dont have to close the program and start all over.

[Paul]

Yea, I made that already, 3 different kinds of blocks, 3 different colors, orange block when hit turns to purple, and purple block when hit turns to green, and green dissappears after being hit. Made it this morning in the library while the grade 9's had their exam in the caf.