breakout won't get started - GameCreators Forum

Author

Message

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 6th Mar 2006 09:41 Edited at: 6th Mar 2006 09:43

Link

hi. i'm a newb and i've just finished making pong. I'm trying to go on to breakout but i'm having trouble.heres the code

+ Code Snippet

for t = 1 to 5
make object cube t,1
color object t,rgb(255,0,0)
position object t,(t*1.1)-3.2,0,5
next t

make object box 1,1,3,1

position camera 0,10,-5:point camera 0,0,0

do
loop

when i run this it makes the first 5 boxes but then says "Runtime Error at line 9. Object does not exist."
Line 9 is the position camera command. I am completly confused, could somone help me?

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 6th Mar 2006 09:56 Edited at: 6th Mar 2006 09:56

Link

The error is actually "object already exists". You created 5 cubes then a box with object number 1... which has already been used. Change it to a 6 and it'll work fine.

+ Code Snippet

for t = 1 to 5
 make object cube t,1
 color object t,rgb(255,0,0)
 position object t,(t*1.1)-3.2,0,5
next t

make object box 6,1,3,1

position camera 0,10,-5:point camera 0,0,0

wait key

Back to top

Profile PM Email

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 6th Mar 2006 13:32

Link

hehe thanks man

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 6th Mar 2006 20:05

Link

Np.

Back to top

Profile PM Email

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 8th Mar 2006 10:18 Edited at: 8th Mar 2006 10:20

Link

Ok i've made quite a bit of progress and i've got the ball bouncing around. All i need to do now is to program the squares. The only problem is ive got no idea on how to do this.

PS - I'm using DBC
here's the code i'm using:

sync on

for t = 1 to 10
	make object cube t,1
	color object t,rgb(255,0,0)
	position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
	make object cube x,1
	color object x,rgb(0,152,255)
	position object x,(x*1.1)-17,0,3.9
next x

make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

make object sphere 22,1
color object 22,rgb(150,150,150)

make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=155

do
	position object 22,ballx#,0,ballz#
	yrotate object 22,balla#
	
	position object 21,pad#,0,-4.7
	
	if rightkey()=1 and pad#<4 then pad#=pad#+1
	if leftkey()=1 and pad#>-4 then pad#=pad#-1
	
	ballx#=newxvalue(ballx#,balla#,0.3)
	ballz#=newzvalue(ballz#,balla#,0.3)
		if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
		if ballz#>4 then balla#=180-balla#

if ballx#<-5 or ballx#>5 then balla#=360-balla#
	balla#=wrapvalue(balla#)
sync
loop

+ Code Snippet

sync on

for t = 1 to 10
	make object cube t,1
	color object t,rgb(255,0,0)
	position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
	make object cube x,1
	color object x,rgb(0,152,255)
	position object x,(x*1.1)-17,0,3.9
next x

make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

make object sphere 22,1
color object 22,rgb(150,150,150)

make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=155

do
	position object 22,ballx#,0,ballz#
	yrotate object 22,balla#
	
	position object 21,pad#,0,-4.7
	
	if rightkey()=1 and pad#<4 then pad#=pad#+1
	if leftkey()=1 and pad#>-4 then pad#=pad#-1
	
	ballx#=newxvalue(ballx#,balla#,0.3)
	ballz#=newzvalue(ballz#,balla#,0.3)
		if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
		if ballz#>4 then balla#=180-balla#

	if ballx#<-5 or ballx#>5 then balla#=360-balla#
	balla#=wrapvalue(balla#)
sync
loop

Back to top

Profile PM

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 9th Mar 2006 11:46

Link

here is my updated cod and i still need help with my collision

sync on

for t = 1 to 10
	make object cube t,1
	color object t,rgb(255,0,0)
	position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
	make object cube x,1
	color object x,rgb(0,152,255)
	position object x,(x*1.1)-17,0,3.9
next x

make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

make object sphere 22,1
color object 22,rgb(150,150,150)

make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=180

do
	if rightkey()=1 and pad#<4 then pad#=pad#+0.5
	if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
	if rightkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#+8
	if leftkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#-8
	
	ballx#=newxvalue(ballx#,balla#,0.3)
	ballz#=newzvalue(ballz#,balla#,0.3)
		if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
		if ballz#>4 then balla#=180-balla#

if ballx#<-5 or ballx#>5 then balla#=360-balla#
	balla#=wrapvalue(balla#)

position object 22,ballx#,0,ballz#
	yrotate object 22,balla#
	
	position object 21,pad#,0,-4.7

sync
loop

+ Code Snippet

sync on

for t = 1 to 10
	make object cube t,1
	color object t,rgb(255,0,0)
	position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
	make object cube x,1
	color object x,rgb(0,152,255)
	position object x,(x*1.1)-17,0,3.9
next x

make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

make object sphere 22,1
color object 22,rgb(150,150,150)

make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=180

do
	if rightkey()=1 and pad#<4 then pad#=pad#+0.5
	if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
	if rightkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#+8
	if leftkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#-8
	
	ballx#=newxvalue(ballx#,balla#,0.3)
	ballz#=newzvalue(ballz#,balla#,0.3)
		if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
		if ballz#>4 then balla#=180-balla#

	if ballx#<-5 or ballx#>5 then balla#=360-balla#
	balla#=wrapvalue(balla#)

	position object 22,ballx#,0,ballz#
	yrotate object 22,balla#
	
	position object 21,pad#,0,-4.7
	

sync
loop

Back to top

Profile PM

Coder#05

19

Years of Service

User Offline

Joined: 26th Oct 2005

Location: Denmark

Posted: 9th Mar 2006 17:04

Link

okay this checks for collision between the ball and every object in your world.. dident had a chance to try it out, so post here if it dont work out for you...

sync on

for t = 1 to 10
	make object cube t,1
	color object t,rgb(255,0,0)
	position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
	make object cube x,1
	color object x,rgb(0,152,255)
	position object x,(x*1.1)-17,0,3.9
next x

make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

make object sphere 22,1
color object 22,rgb(150,150,150)

make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=180

do
	if rightkey()=1 and pad#<4 then pad#=pad#+0.5
	if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
	if rightkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#+8
	if leftkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#-8
	
	ballx#=newxvalue(ballx#,balla#,0.3)
	ballz#=newzvalue(ballz#,balla#,0.3)
		if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
		if ballz#>4 then balla#=180-balla#

if ballx#<-5 or ballx#>5 then balla#=360-balla#
	balla#=wrapvalue(balla#)

position object 22,ballx#,0,ballz#
	yrotate object 22,balla#
	
	position object 21,pad#,0,-4.7
	
	REM added code...
	REM THE CHECK FOR COLLISION PART
	for c=1 to 20
		if check_dist(22,c)<5
			`do what you want to do wit the briks
			`try to color them just to check if this works
		endif
	next c

REM you could also do this
	REM first make a static collision box around your briks, look in the db help files. or go to TDK_manns page, he got some very  good tuts that will get you started using collision
	if object collision(22,0)>0 :`returns the number of the object that the ball is coliding with
			`do what you want to do wit the briks
			`try to color them just to check if it works
	endif						
sync
loop

REM im note sure if this works!!! :( im a noob my self, and im not at home so i cant try it out..  plz tell me if it does work :)
REm this function returns the distance between two objects
Function check_dist(obj1,obj2)
	obj1x=object position x(obj1)
	obj1y=object position y(obj1)
	obj1z=object position z(obj1)
	obj2x=object position x(obj2)
	obj2y=object position y(obj2)
	obj2z=object position z(obj2)	
	dist#=sqrt(abs((obj1x-obj2x)^2 + (obj1y-obj2y) + (obj1z-obj2z)))
ENDFUNCTION dist#

REM note this code is not tested and may need some minor changes. because im not at home and no db here :( "sad
REM and also note that im also a noob.. but i recomend reading the tuts that TDK_MANN made

+ Code Snippet

sync on

for t = 1 to 10
	make object cube t,1
	color object t,rgb(255,0,0)
	position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
	make object cube x,1
	color object x,rgb(0,152,255)
	position object x,(x*1.1)-17,0,3.9
next x

make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

make object sphere 22,1
color object 22,rgb(150,150,150)

make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=180

do
	if rightkey()=1 and pad#<4 then pad#=pad#+0.5
	if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
	if rightkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#+8
	if leftkey()=1 and ballz#<-4 and ballz>-4.2 then balla#=balla#-8
	
	ballx#=newxvalue(ballx#,balla#,0.3)
	ballz#=newzvalue(ballz#,balla#,0.3)
		if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
		if ballz#>4 then balla#=180-balla#

	if ballx#<-5 or ballx#>5 then balla#=360-balla#
	balla#=wrapvalue(balla#)

	position object 22,ballx#,0,ballz#
	yrotate object 22,balla#
	
	position object 21,pad#,0,-4.7
	
	REM added code...
	REM THE CHECK FOR COLLISION PART
	for c=1 to 20
		if check_dist(22,c)<5
			`do what you want to do wit the briks
			`try to color them just to check if this works
		endif
	next c

	REM you could also do this
	REM first make a static collision box around your briks, look in the db help files. or go to TDK_manns page, he got some very  good tuts that will get you started using collision
	if object collision(22,0)>0 :`returns the number of the object that the ball is coliding with
			`do what you want to do wit the briks
			`try to color them just to check if it works
	endif						
sync
loop

REM im note sure if this works!!! :( im a noob my self, and im not at home so i cant try it out..  plz tell me if it does work :)
REm this function returns the distance between two objects
Function check_dist(obj1,obj2)
	obj1x=object position x(obj1)
	obj1y=object position y(obj1)
	obj1z=object position z(obj1)
	obj2x=object position x(obj2)
	obj2y=object position y(obj2)
	obj2z=object position z(obj2)	
	dist#=sqrt(abs((obj1x-obj2x)^2 + (obj1y-obj2y) + (obj1z-obj2z)))
ENDFUNCTION dist#

REM note this code is not tested and may need some minor changes. because im not at home and no db here :( "sad
REM and also note that im also a noob.. but i recomend reading the tuts that TDK_MANN made

Hope that helped. and sorry if im wrong

Still a noob. easy comes easy goes

Back to top

Profile PM Email Website

Coder#05

19

Years of Service

User Offline

Joined: 26th Oct 2005

Location: Denmark

Posted: 10th Mar 2006 17:13

Link

well did it help?

Still a noob. easy comes easy goes

Back to top

Profile PM Email Website

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 28th Mar 2006 14:17

Link

sry its taken me so long... i've had to stay after school a lot.
i'm still toying with it right now but i think i might get it finished up soon. Maybe. hopefully

Back to top

Profile PM

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 29th Mar 2006 10:38 Edited at: 29th Mar 2006 10:38

Link

ok i've been toying with it and unfortunately i haven't been able to get it work. also i'm having trouble with the death sequence.

rem BREAKOUT!!!!

sync on

rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   position object x,(x*1.1)-17,0,3.9
next x

rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball

rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=170

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
      if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>4 then balla#=180-balla#

rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

rem position paddle
   position object 21,pad#,0,-4.7

rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   gosub make_ball
   endif

rem my first try at collision
if object collision(1,22)>0
   delete object 1
   endif
if object collision(2,22)>0
   delete object 2
   endif
if object collision(3,22)>0
   delete object 3
   endif
if object collision(4,22)>0
   delete object 4
   endif
if object collision(5,22)>0
   delete object 5
   endif
if object collision(6,22)>0
   delete object 6
   endif
if object collision(7,22)>0
   delete object 7
   endif
if object collision(8,22)>0
   delete object 8
   endif
if object collision(9,22)>0
   delete object 9
   endif
if object collision(10,22)>0
   delete object 10
   endif
if object collision(11,22)>0
   delete object 11
   endif
if object collision(12,22)>0
   delete object 12
   endif
if object collision(13,22)>0
   delete object 13
   endif
if object collision(14,22)>0
   delete object 14
   endif
if object collision(15,22)>0
   delete object 15
   endif
if object collision(16,22)>0
   delete object 16
   endif
if object collision(17,22)>0
   delete object 17
   endif
if object collision(18,22)>0
   delete object 18
   endif
if object collision(19,22)>0
   delete object 19
   endif
if object collision(20,22)>0
   delete object 20
   endif

sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
text 100,100,"get ready"
wait 1000
delete object 22
make object sphere 22,1
color object 22,rgb(150,150,150)
position object 22,0,0,0
return

+ Code Snippet

rem BREAKOUT!!!!

sync on

rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   position object x,(x*1.1)-17,0,3.9
next x

rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball

rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

position camera 0,10,-5:point camera 0,0,0

balla#=170

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

   rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
      if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>4 then balla#=180-balla#

   rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

   rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

   rem position paddle
   position object 21,pad#,0,-4.7

   rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   gosub make_ball
   endif

   rem my first try at collision
if object collision(1,22)>0
   delete object 1
   endif
if object collision(2,22)>0
   delete object 2
   endif
if object collision(3,22)>0
   delete object 3
   endif
if object collision(4,22)>0
   delete object 4
   endif
if object collision(5,22)>0
   delete object 5
   endif
if object collision(6,22)>0
   delete object 6
   endif
if object collision(7,22)>0
   delete object 7
   endif
if object collision(8,22)>0
   delete object 8
   endif
if object collision(9,22)>0
   delete object 9
   endif
if object collision(10,22)>0
   delete object 10
   endif
if object collision(11,22)>0
   delete object 11
   endif
if object collision(12,22)>0
   delete object 12
   endif
if object collision(13,22)>0
   delete object 13
   endif
if object collision(14,22)>0
   delete object 14
   endif
if object collision(15,22)>0
   delete object 15
   endif
if object collision(16,22)>0
   delete object 16
   endif
if object collision(17,22)>0
   delete object 17
   endif
if object collision(18,22)>0
   delete object 18
   endif
if object collision(19,22)>0
   delete object 19
   endif
if object collision(20,22)>0
   delete object 20
   endif

sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
text 100,100,"get ready"
wait 1000
delete object 22
make object sphere 22,1
color object 22,rgb(150,150,150)
position object 22,0,0,0
return

Back to top

Profile PM

Coder#05

19

Years of Service

User Offline

Joined: 26th Oct 2005

Location: Denmark

Posted: 30th Mar 2006 12:50

Link

okay..
object collision(22,10) returns a one(1) if the two objects hit each other.
object collision(22,0) returns the number of the object, that object 22 collides with.
(if you looked in the help files you would know that)
so you need to do two things, first check to see if the ball has collided with one of the briks. 2 then delete the brik that the ball collided with and reverse the ball.

The death sequence:

+ Code Snippet

   rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   gosub make_ball
   endif

you make the ball 2 times ,that creates an error, because you already made the object(ball).

the fact is, you dont have to delete the object and then recreate it. you just need to "restart" the balls position variables, ballx# and ballz#.
example:

+ Code Snippet

do
if dead=1 then gosub respawnBall
sync:loop

respawnBall:
ballx#=0
ballz#00
RETURN

Hope that helped!

but remember to check out the help files, and search the forum. in most cases you can find the answer. i know that, because thats what i do.
sorry for my bad english

hope that helped

Still a noob. easy comes easy goes

Back to top

Profile PM Email Website

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 30th Mar 2006 14:32

Link

ya i got the death code figured out before but thanx anyway

Back to top

Profile PM

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 1st Apr 2006 15:38 Edited at: 1st Apr 2006 15:46

Link

ok i've done some work on it and now i can get it to delete the cubes. only problem is i get an object does not exist code. here's what i've done-

rem BREAKOUT!!!!

sync on

rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object x,(x*1.1)-17,0,3.9
next x

rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1

rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem camera position
position camera 0,10,-5:point camera 0,0,0

rem some variables
balla#=171
x=0

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
      if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>4 then balla#=180-balla#

rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

rem position paddle
   position object 21,pad#,0,-4.7

rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif

for t = 1 to 20
      if object collision(t,22)>0 then delete object t
   next t

sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
x=x+1
while x=1
center text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
position object 22,0,0,0
x=0
endwhile
return

+ Code Snippet

rem BREAKOUT!!!!

sync on

rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object x,(x*1.1)-17,0,3.9
next x



rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1


rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem camera position
position camera 0,10,-5:point camera 0,0,0

rem some variables
balla#=171
x=0

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

   rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
      if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>4 then balla#=180-balla#

   rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

   rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

   rem position paddle
   position object 21,pad#,0,-4.7

   rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif


   for t = 1 to 20
      if object collision(t,22)>0 then delete object t
   next t

sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
x=x+1
while x=1
center text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
position object 22,0,0,0
x=0
endwhile
return

Back to top

Profile PM

X_MEN

21

Years of Service

User Offline

Joined: 14th Sep 2003

Location:

Posted: 1st Apr 2006 16:18

Link

try this hope it help

sync on

rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object x,(x*1.1)-17,0,3.9
next x

rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1

rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem camera position
position camera 0,10,-5:point camera 0,0,0

rem some variables
balla#=170
x=0

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
     if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>8 then balla#=180-balla#

rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

rem position paddle
   position object 21,pad#,0,-4.7

rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif
objcol=object hit(22,0)
rem collision the second round
if objcol>0 and objcol<21 then delete object objcol:balla#=160+rnd(20)-balla#

`if object collision(1,22)>0 then delete object 1
`if object collision(2,22)>0 then delete object 2
`if object collision(3,22)>0 then delete object 3
`if object collision(4,22)>0 then delete object 4
`if object collision(5,22)>0 then delete object 5
`if object collision(6,22)>0 then delete object 6
`if object collision(7,22)>0 then delete object 7
`if object collision(8,22)>0 then delete object 8
`if object collision(9,22)>0 then delete object 9
`if object collision(10,22)>0 then delete object 10
`if object collision(11,22)>0 then delete object 11
`if object collision(12,22)>0 then delete object 12
`if object collision(13,22)>0 then delete object 13
`if object collision(14,22)>0 then delete object 14
`if object collision(15,22)>0 then delete object 15
`if object collision(16,22)>0 then delete object 16
`if object collision(17,22)>0 then delete object 17
`if object collision(18,22)>0 then delete object 18
`if object collision(19,22)>0 then delete object 19
`if object collision(20,22)>0 then delete object 20
sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
`x=x+1
`while x=1
text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
position object 22,0,0,0
`x=0
`endwhile
return

+ Code Snippet


sync on

rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
   position object x,(x*1.1)-17,0,3.9
next x



rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1


rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem camera position
position camera 0,10,-5:point camera 0,0,0

rem some variables
balla#=170
x=0

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

   rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
     if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>8 then balla#=180-balla#

   rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

   rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

   rem position paddle
   position object 21,pad#,0,-4.7

   rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif
objcol=object hit(22,0)
rem collision the second round
if objcol>0 and objcol<21 then delete object objcol:balla#=160+rnd(20)-balla#

`if object collision(1,22)>0 then delete object 1
`if object collision(2,22)>0 then delete object 2
`if object collision(3,22)>0 then delete object 3
`if object collision(4,22)>0 then delete object 4
`if object collision(5,22)>0 then delete object 5
`if object collision(6,22)>0 then delete object 6
`if object collision(7,22)>0 then delete object 7
`if object collision(8,22)>0 then delete object 8
`if object collision(9,22)>0 then delete object 9
`if object collision(10,22)>0 then delete object 10
`if object collision(11,22)>0 then delete object 11
`if object collision(12,22)>0 then delete object 12
`if object collision(13,22)>0 then delete object 13
`if object collision(14,22)>0 then delete object 14
`if object collision(15,22)>0 then delete object 15
`if object collision(16,22)>0 then delete object 16
`if object collision(17,22)>0 then delete object 17
`if object collision(18,22)>0 then delete object 18
`if object collision(19,22)>0 then delete object 19
`if object collision(20,22)>0 then delete object 20
sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
`x=x+1
`while x=1
text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
position object 22,0,0,0
`x=0
`endwhile
return

You can do it if you try

Back to top

Profile PM Email

Coder#05

19

Years of Service

User Offline

Joined: 26th Oct 2005

Location: Denmark

Posted: 1st Apr 2006 21:16

Link

here this sould work.

+ Code Snippet

   if object collision(22,0)>0 and object collision(22,0)<>21 then delete object object collision(22,0)

keep on coding

Still a noob. easy comes easy goes

Back to top

Profile PM Email Website

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 2nd Apr 2006 08:31 Edited at: 3rd Apr 2006 12:39

Link

ok first off thank u X MEN and Coder#05 for you help. Second of all i've gotten it to restart and you can win and lose. Problems are-
1.when you restart the cubes come back but i get an error on object already exists (i know i have to do something with object exist and if it does then delete it but i'm not sure how)
2.When i print sumthing it disappears right away
thanks again and heres the code

sync on

game:
rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object x,(x*1.1)-17,0,3.9
next x

rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1

rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem camera position
position camera 0,10,-5:point camera 0,0,0

rem some variables
balla#=170
x=0
lives#=5
score#=0

text 100,100,"Game is starting..."
wait 1000

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
     if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>8 then balla#=180-balla#

rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

rem position paddle
   position object 21,pad#,0,-4.7

rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif

objcol=object hit(22,0)
   rem collision
   if objcol>0 and objcol<21 then delete object objcol:balla#=160+rnd(40)-balla#:score#=score#+10

rem gameending
   if lives#=0 then gosub gameover
   if score#=200 then gosub win

sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
sync off
text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
pad# = 0
lives# = lives#-1
sync on
return

gameover:
print "you lose!"
gosub restart

win:
print "you win!"
gosub restart

restart:
print "press 1 to restart or 2 to exit":input overornot#
if overornot# = 1 then gosub Game
if overornot# = 2 then end

+ Code Snippet

sync on

game:
rem make first and second rows, position them
for t = 1 to 10
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object x,(x*1.1)-17,0,3.9
next x



rem make the paddle
make object box 21,2.5,1,0.3
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1


rem make the side boxes, position them
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem camera position
position camera 0,10,-5:point camera 0,0,0

rem some variables
balla#=170
x=0
lives#=5
score#=0

text 100,100,"Game is starting..."
wait 1000

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

   rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)
     if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#
      if ballz#>8 then balla#=180-balla#

   rem bounce off walls
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   balla#=wrapvalue(balla#)

   rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

   rem position paddle
   position object 21,pad#,0,-4.7

   rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif

   objcol=object hit(22,0)
   rem collision
   if objcol>0 and objcol<21 then delete object objcol:balla#=160+rnd(40)-balla#:score#=score#+10

   rem gameending
   if lives#=0 then gosub gameover
   if score#=200 then gosub win

sync
loop

make_ball:
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
sync off
text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
pad# = 0
lives# = lives#-1
sync on
return

gameover:
print "you lose!"
gosub restart

win:
print "you win!"
gosub restart

restart:
print "press 1 to restart or 2 to exit":input overornot#
if overornot# = 1 then gosub Game
if overornot# = 2 then end

don't you love that code snippet button?

Back to top

Profile PM

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 3rd Apr 2006 15:05 Edited at: 3rd Apr 2006 15:07

Link

Error no. 1 is fixed thankfully. Another error is that sometimes it goes through the paddle and briks which is a no-no.

controls are:
left and right keys move
space restarts it when u lose a life
1 restarts the game when all lives are gone and 2 exits the game

And once again heres the code

rem breakout!!!!
sync on

game:

rem clear the screen
cls

rem make first and second rows, position them
for t = 1 to 10
   if object exist(t) = 1 then delete object t
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   if object exist(x) = 1 then delete object x
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object x,(x*1.1)-17,0,3.9
next x

rem make the paddle
if object exist(21) = 1 then delete object 21
make object box 21,2.5,1,0.3
make object collision box 21,-1.25,-0.5,-0.15,1.25,0.5,0.15,1
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1

rem make the side boxes, position them
if object exist(23) = 1 then delete object 23
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

if object exist(24) = 1 then delete object 24
make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem make lives boxes
remstart for z = 30 to lives# + 30
make object cube z+30,1
color object z+30,rgb(150,0,150)
position object z,7,(z*1.1)1,1
next z
remend

rem camera position
position camera 0,15,-5:point camera 0,0,0

rem some variables
balla#=170
x=0
lives#=5
score#=0
ballx# = 0
ballz# = 0
pad# = 0

text 100,100,"Game is starting..."
wait 1000

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)

rem bounce off paddle
   if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#

rem bounce off walls and top
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   if ballz#>8 then balla#=180-balla#
   balla#=wrapvalue(balla#)

rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

rem position paddle
   position object 21,pad#,0,-4.7

rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif

objcol=object hit(22,0)
   rem collision
   if objcol>0 and objcol<21 then delete object objcol:balla#=180-balla#:score#=score#+10

rem game ending
   if lives#=0 then gosub gameover
   if score#=200 then gosub win

sync
loop

make_ball:
if object exist(22) = 1 then delete object 22
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
sync off
text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
pad# = 0
lives# = lives#-1
sync on
return

gameover:
print "you lose!"
gosub restart

win:
print "you win!"
gosub restart

restart:
print "press 1 to restart or 2 to exit":input overornot#
if overornot# = 1 then gosub Game
if overornot# = 2 then end

+ Code Snippet

rem breakout!!!!
sync on

game:

rem clear the screen
cls

rem make first and second rows, position them
for t = 1 to 10
   if object exist(t) = 1 then delete object t
   make object cube t,1
   color object t,rgb(255,0,0)
   make object collision box t,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object t,(t*1.1)-6,0,5
next t

for x = 11 to 20
   if object exist(x) = 1 then delete object x
   make object cube x,1
   color object x,rgb(0,152,255)
   make object collision box x,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
   position object x,(x*1.1)-17,0,3.9
next x

rem make the paddle
if object exist(21) = 1 then delete object 21
make object box 21,2.5,1,0.3
make object collision box 21,-1.25,-0.5,-0.15,1.25,0.5,0.15,1
color object 21,rgb(0,255,0)

rem make the ball
gosub make_ball
make object collision box 22,-0.5,-0.5,-0.5,0.5,0.5,0.5,1


rem make the side boxes, position them
if object exist(23) = 1 then delete object 23
make object box 23,1,1,9.75
color object 23,rgb(50,50,50)
position object 23,-6,0,0

if object exist(24) = 1 then delete object 24
make object box 24,1,1,9.75
color object 24,rgb(50,50,50)
position object 24,6.1,0,0

rem make lives boxes
remstart for z = 30 to lives# + 30
make object cube z+30,1
color object z+30,rgb(150,0,150)
position object z,7,(z*1.1)1,1
next z
remend

rem camera position
position camera 0,15,-5:point camera 0,0,0

rem some variables
balla#=170
x=0
lives#=5
score#=0
ballx# = 0
ballz# = 0
pad# = 0


text 100,100,"Game is starting..."
wait 1000

do
   rem pad movement and changing ball angle
   if rightkey()=1 and pad#<4 then pad#=pad#+0.5
   if leftkey()=1 and pad#>-4 then pad#=pad#-0.5
   if rightkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#+8
   if leftkey()=1 and ballz#<-4 and ballz>-4.5 then balla#=balla#-8

   rem get the ball moving
   ballx#=newxvalue(ballx#,balla#,0.3)
   ballz#=newzvalue(ballz#,balla#,0.3)

   rem bounce off paddle
   if ballz#<-4 and ballz#>-4.2 and ABS(pad#-ballx#)<1.5 then balla#=180-balla#

   rem bounce off walls and top
   if ballx#<-5 or ballx#>5 then balla#=360-balla#
   if ballz#>8 then balla#=180-balla#
   balla#=wrapvalue(balla#)

   rem position ball and rotate ball
   position object 22,ballx#,0,ballz#
   yrotate object 22,balla#

   rem position paddle
   position object 21,pad#,0,-4.7

   rem return the ball to the middle
   if ballz#<-5.5
   gosub death
   endif

   objcol=object hit(22,0)
   rem collision
   if objcol>0 and objcol<21 then delete object objcol:balla#=180-balla#:score#=score#+10

   rem game ending
   if lives#=0 then gosub gameover
   if score#=200 then gosub win

sync
loop

make_ball:
if object exist(22) = 1 then delete object 22
make object sphere 22,1
color object 22,rgb(150,150,150)
return

death:
sync off
text 100,100,"Press space to restart!"
suspend for key
ballx# = 0
ballz# = 0
balla# = 170
pad# = 0
lives# = lives#-1
sync on
return

gameover:
print "you lose!"
gosub restart

win:
print "you win!"
gosub restart

restart:
print "press 1 to restart or 2 to exit":input overornot#
if overornot# = 1 then gosub Game
if overornot# = 2 then end

Back to top

Profile PM

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 4th Apr 2006 15:47 Edited at: 4th Apr 2006 15:54

Link

i'm making a new thread with a better version of the game and i'll only be posting stuff there. Thanks for the help so far.

new thread here
http://forum.thegamecreators.com/?m=forum_view&t=75902&b=7

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / breakout won't get started