Breakout - GameCreators Forum

Author

Message

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 30th Oct 2007 17:32

Link

I'm making a breakout game because I decided it's about time I made a complete game (besides pong!).
I'm not getting very far

I have a bat and ball and it works ok but if the ball is hit into the corners it gets "stuck" behind the screen boundaries; how do I solve this?
I don't know how I'm going to store the positions of all the bricks for each level.

I've set up a little collision effect thing for reflecting the ball's angle so that should work ok with the bricks too.
When the ball hits the bat I want the angle reflection to alter depending on where on the bat the ball hits, I can't work this out

remstart
BREAKOUT
-------------
* player bar
* ball
* bricks for collision
* sides and top of screen collisions
* power-ups
remend

`setup
hide mouse
sync on : sync rate 0

`make 8 colours
dim colour(8)
red=0 : orange=1 : yellow=2 : green=3 : cyan=4 : blue=5 : indigo=6 : violet=7 : white=8
colour(0)=rgb(255,0,0)
colour(1)=rgb(255,128,0)
colour(2)=rgb(255,255,0)
colour(3)=rgb(0,255,0)
colour(4)=rgb(0,255,255)
colour(5)=rgb(0,0,255)
colour(6)=rgb(128,0,255)
colour(7)=rgb(255,0,255)
colour(8)=rgb(255,255,255)

`title format
set text size 40
set text font "impact"
set text to italic
`print title
for c = 0 to 7
   for sh = 7 to 0 step -1
      ink colour(sh),0
      a$=mid$("BREAKOUT",c+1)
      text 210+c*28+sh,150+sh,a$
   next sh
next c

`User prompt
repeat
   c#=c#+.025 : if c#>7 then c#=0
   s=wrapvalue(s+1)

set text size sin(s)*4.+20
   ink colour(c#),0
   center text 320,240,"Press Any Key To Begin"
   sync
   ink 0,0
   box 170,238,480,280
until scancode()>0

`-------------------------------
` Initialisation
`-------------------------------
sl=9 : sr=630 : st=9

batx=320 : baty=400 : batr#=20
ballx#=315 : bally#=390 : ballr#=4 : balla#=225 : ballv#=0
sync rate 60
`-------------------------------
` Main Loop
`-------------------------------
DO
   `* INPUT
   batx=mousex()
   if mouseclick() and ballv#=0 then ballv#=6

`* PROCESS
   `bind bat
   if batx<10+batr# then batx=10+batr#
   if batx>630-batr# then batx=630-batr#
   `move ball
   ballx# = ballx#+sin(balla#)*ballv#
   bally# = bally#+cos(balla#)*ballv#
   `check ball collision
   coll=0
      `screen
      if ballx#-ballr#<=sl or ballx#+ballr#>=sr then coll=1 : ang=360 : `left and right
      if bally#-ballr#<=st or bally#+ballr#>=470 then coll=1 : ang=180 : `top
      `bat
      if bally#+ballr#+ballv#>=baty and bally#+ballr#<baty  and abs(batx-ballx#)<batr#+ballr# then coll=1 : ang=180
   `reflect ball angle
   if coll then balla#=wrapvalue(ang-balla#)

`* OUTPUT
   ink colour(white),0

box batx-batr#,baty,batx+batr#,410 : `bat
   circle ballx#,bally#,ballr# : `ball

sync
   cls
LOOP

END

`Round up
FUNCTION @Round(n#)
   dec# = n# - int(n#)
   n = n# + dec#
ENDFUNCTION n

+ Code Snippet

remstart
BREAKOUT
-------------
* player bar
* ball
* bricks for collision
* sides and top of screen collisions
* power-ups
remend

`setup
hide mouse
sync on : sync rate 0

`make 8 colours
dim colour(8)
red=0 : orange=1 : yellow=2 : green=3 : cyan=4 : blue=5 : indigo=6 : violet=7 : white=8
colour(0)=rgb(255,0,0)
colour(1)=rgb(255,128,0)
colour(2)=rgb(255,255,0)
colour(3)=rgb(0,255,0)
colour(4)=rgb(0,255,255)
colour(5)=rgb(0,0,255)
colour(6)=rgb(128,0,255)
colour(7)=rgb(255,0,255)
colour(8)=rgb(255,255,255)

`title format
set text size 40
set text font "impact"
set text to italic
`print title
for c = 0 to 7
   for sh = 7 to 0 step -1
      ink colour(sh),0
      a$=mid$("BREAKOUT",c+1)
      text 210+c*28+sh,150+sh,a$
   next sh
next c

`User prompt
repeat
   c#=c#+.025 : if c#>7 then c#=0
   s=wrapvalue(s+1)

   set text size sin(s)*4.+20
   ink colour(c#),0
   center text 320,240,"Press Any Key To Begin"
   sync
   ink 0,0
   box 170,238,480,280
until scancode()>0

`-------------------------------
` Initialisation
`-------------------------------
sl=9 : sr=630 : st=9

batx=320 : baty=400 : batr#=20
ballx#=315 : bally#=390 : ballr#=4 : balla#=225 : ballv#=0
sync rate 60
`-------------------------------
` Main Loop
`-------------------------------
DO
   `* INPUT
   batx=mousex()
   if mouseclick() and ballv#=0 then ballv#=6

   `* PROCESS
   `bind bat
   if batx<10+batr# then batx=10+batr#
   if batx>630-batr# then batx=630-batr#
   `move ball
   ballx# = ballx#+sin(balla#)*ballv#
   bally# = bally#+cos(balla#)*ballv#
   `check ball collision
   coll=0
      `screen
      if ballx#-ballr#<=sl or ballx#+ballr#>=sr then coll=1 : ang=360 : `left and right
      if bally#-ballr#<=st or bally#+ballr#>=470 then coll=1 : ang=180 : `top
      `bat
      if bally#+ballr#+ballv#>=baty and bally#+ballr#<baty  and abs(batx-ballx#)<batr#+ballr# then coll=1 : ang=180
   `reflect ball angle
   if coll then balla#=wrapvalue(ang-balla#)

   `* OUTPUT
   ink colour(white),0

   box batx-batr#,baty,batx+batr#,410 : `bat
   circle ballx#,bally#,ballr# : `ball

   sync
   cls
LOOP

END

`Round up
FUNCTION @Round(n#)
   dec# = n# - int(n#)
   n = n# + dec#
ENDFUNCTION n

Thanks in advance

"You must be someone's friend to make comments about them." - MySpace lied.

Back to top

Profile PM Email

Phjon

19

Years of Service

User Offline

Joined: 28th Nov 2005

Location:

Posted: 30th Oct 2007 18:11

Link

This is the first time I've attempted to assist anyone with their programming work.

For storing the positions of the bricks for each level, you could do the following:

1. Calculate how many bricks will fit into your playing area horizontally and vertically.

2. Use a text file to store the relative positions of the bricks. For example, if your playing area was 40 units by 40 units you would input into your text file 40 rows of 40 numbers. Zero would indicate that the position is empty and a number from 1 to 8 in your case would indicate that a brick was present of the indicated colour.

3. To read the file, you use the file commands and two nested for...next loops, and store the data in an array, in this case:

+ Code Snippet


TYPE GAME_ARENA_SETTINGS
COLOUR AS BYTE
ENDTYPE

DIM BRICKS(40,40) AS GAME_ARENA_SETTINGS

If you need something more detailed than the above, please ask, as this is just a general guide to solving this particular problem.

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 31st Oct 2007 03:46

Link

I created a level editor - it's much quicker in the long-run...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Comrade Robski

19

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 31st Oct 2007 13:57 Edited at: 31st Oct 2007 15:42

Link

Hey OBese

I entered a 3d pong game to the DBC challenge a while back:

http://forum.thegamecreators.com/?m=forum_view&b=10&t=97545&p=4

...which changes the angle of the ball depending on where you hit it. Surprisingly for me the code is actually quite readable, so I'll post the relevent subroutine here (but be sure to check out the full game to see how it works

) :

(EDIT: I see that you're using a vector to control the ball movement. In my example I've used separate x,y and z momentums to move the ball - IMHO this makes it easier to do things like bounce the ball off a wall (you simply reverse the appropriate momentum). Doing the same thing with vectors kinda made my brain hurt which is why I did it this way. Anyway, have a look at my example and see it you can take anything from it)

move_ball:
	dec momz#,gravity#
	position object 1,object position x(1)+momx#,object position y(1)+momy#,object position z(1)+momz#
	if object position z(1)<0
		position object 1,object position x(1),object position y(1),0-object position z(1)
		momz#=0-momz#
	endif
	if object position y(1)>200
		rem hit bat
		if ABS(object position x(1)-object position x(3))<20 and ABS(object position z(1)-object position z(3))<20
			position object 1,object position x(1),200+(object position y(1)-200),object position z(1)
			momy#=0-momy#
			momx#=momx#+((object position x(1)-object position x(3))/deflect#)
			blue_bounce=20
			bluex#=(20+object position x(1)-object position x(3))/40
			bluey#=(20+object position z(3)-object position z(1))/40
		else
			rem miss bat
			gosub red_score:
		endif
	endif
	if object position y(1)<-200
		rem hit bat
		if ABS(object position x(1)-object position x(4))<20 and ABS(object position z(1)-object position z(4))<20
			position object 1,object position x(1),200+(object position y(1)-200),object position z(1)
			momy#=0-momy#
			momx#=momx#+((object position x(1)-object position x(4))/deflect#)
			red_bounce=20
			redx#=(20+object position x(1)-object position x(4))/40
			redy#=(20+object position z(4)-object position z(1))/40
			inc momy#,speed_inc#
			offset=0
		else
			rem miss bat
			gosub blue_score:
		endif
	endif
	if object position x(1)<-100
		position object 1,-100-(object position x(1)+100),object position y(1),object position z(1)
		momx#=0-momx#
	endif
	if object position x(1)>100
		position object 1,100-(object position x(1)-100),object position y(1),object position z(1)
		momx#=0-momx#
	endif
return

+ Code Snippet

move_ball:
	dec momz#,gravity#
	position object 1,object position x(1)+momx#,object position y(1)+momy#,object position z(1)+momz#
	if object position z(1)<0
		position object 1,object position x(1),object position y(1),0-object position z(1)
		momz#=0-momz#
	endif
	if object position y(1)>200
		rem hit bat
		if ABS(object position x(1)-object position x(3))<20 and ABS(object position z(1)-object position z(3))<20
			position object 1,object position x(1),200+(object position y(1)-200),object position z(1)
			momy#=0-momy#
			momx#=momx#+((object position x(1)-object position x(3))/deflect#)
			blue_bounce=20
			bluex#=(20+object position x(1)-object position x(3))/40
			bluey#=(20+object position z(3)-object position z(1))/40
		else
			rem miss bat
			gosub red_score:
		endif
	endif
	if object position y(1)<-200
		rem hit bat
		if ABS(object position x(1)-object position x(4))<20 and ABS(object position z(1)-object position z(4))<20
			position object 1,object position x(1),200+(object position y(1)-200),object position z(1)
			momy#=0-momy#
			momx#=momx#+((object position x(1)-object position x(4))/deflect#)
			red_bounce=20
			redx#=(20+object position x(1)-object position x(4))/40
			redy#=(20+object position z(4)-object position z(1))/40
			inc momy#,speed_inc#
			offset=0
		else
			rem miss bat
			gosub blue_score:
		endif
	endif
	if object position x(1)<-100
		position object 1,-100-(object position x(1)+100),object position y(1),object position z(1)
		momx#=0-momx#
	endif
	if object position x(1)>100
		position object 1,100-(object position x(1)-100),object position y(1),object position z(1)
		momx#=0-momx#
	endif
return

Object 1 is the ball
Objects 3 and 4 are the player and computer bats
momx#, momy# and momz# are the x,y,z momentum

The key lines are:

To have the ball bounce at an angle depending upon where on the bat it is hit:

momx#=momx#+((object position x(ball)-object position x(bat))/deflect#)

deflect# is a constant used to adjust the amount of deflection caused by the bat

To have the ball bounce off a wall:

if object position x(ball)<-100
position object ball,-100-(object position x(ball)+100),object position y(ball),object position z(ball)
momx#=0-momx#
endif

-100 is the x position of the wall, so for example if the ball finds itself at x=-105 then it is repositioned back to x=-95, and its x momentum reversed.

If the ball is at x=-120 then it is repositioned back at x=-80, and so on.

This gives a pretty realistic 'bouncing' effect, and the ball should never get stuck.

Hope that helps!

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Breakout