Brickbreak - GameCreators Forum

Author

Message

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 11th May 2007 00:35

Link

I'm making a brickbreak game and have about 30 objects, I know how to make the brick disapear when the ball hits it, but is their an easier way to store the variables for the bricks?

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 11th May 2007 02:39 Edited at: 11th May 2007 02:39

Link

Quote: "is their an easier way to store the variables for the bricks?"

Surely that depends on what you are currently using now - and you didn't tell us! You can't beat arrays.

TDK_Man

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

Back to top

Profile PM Email Website

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 11th May 2007 02:56

Link

oops

hide mouse:sync rate 40
make object box 1,3,1,1:color object 1,rgb(255,0,0)
Make object box 5,1,1,1:color object 5,rgb(0,0,255)
Make object box 6,1,1,1:color object 6,rgb(0,0,255)
Make object box 7,1,1,1:color object 7,rgb(0,0,255)
Make object box 8,1,1,1:color object 8,rgb(0,0,255)
Make object box 9,1,1,1:color object 9,rgb(0,0,255)
Make object box 10,1,1,1:color object 10,rgb(0,0,255)
Make object box 11,1,1,1:color object 11,rgb(0,0,255)
Make object box 12,1,1,1:color object 12,rgb(0,0,255)
Make object box 13,1,1,1:color object 13,rgb(0,0,255)
Make object box 14,1,1,1:color object 14,rgb(0,0,255)
Make object box 15,1,1,1:color object 15,rgb(0,0,255)
Make object box 16,1,1,1:color object 16,rgb(0,0,255)
Make object box 17,1,1,1:color object 17,rgb(0,0,255)
Make object box 18,1,1,1:color object 18,rgb(0,0,255)
Make object box 19,1,1,1:color object 19,rgb(0,0,255)
Make object box 20,1,1,1:color object 20,rgb(0,0,255)
Make object box 21,1,1,1:color object 21,rgb(0,0,255)
Make object box 22,1,1,1:color object 22,rgb(0,0,255)
Make object box 23,1,1,1:color object 23,rgb(0,0,255)
make object sphere 3,1:color object 3,rgb(0,0,50)
make object box 4,15,0.1,20:position object 4,0,-0.55,0
balla#=360
bricks#=19
spc$=" "
TXT$="bricks left="
bounce#=0
sync on:do
set cursor 500,100:print txt$+spc$
set cursor 600,100:print bricks#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF rightkey()=1 and player1pos#<6 then player1pos#=player1pos#+0.5
IF leftkey()=1 and player1pos#>-6 then player1pos#=player1pos#-0.5
if rightkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#+8
if leftkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#-8
if ballx#>6 and ballx#<6.5 then balla#=360-balla#
if ballx#<-6 and ballx#>-6.5 then balla#=360-balla#
if ballz#<-9 and ballz#>-9.5 then balla#=180-balla#
if ballz#>9 and ballz#<9.5 and ABS(player1pos#-ballx#)<1.5:balla#=180-balla#:bounce#=1:endif
if ballz#>12:ballx#=ballx#-ballx#:ballz#=ballz#-ballz#:player1pos#=player1pos#-player1pos#:endif
if
balla#=wrapvalue(balla#)
position object 1,player1pos#,0,10
position object 5,2,0,1
position object 6,1,0,1
position object 20,1,0,2
position object 21,2,0,2
position object 7,-1,0,2
position object 8,-2,0,2
position object 16,-1,0,1
position object 17,-2,0,1
position object 9,0,0,0
position object 10,2,0,-1
position object 11,1,0,-1
position object 18,1,0,-2
position object 19,2,0,-2
position object 12,-2,0,-1
position object 13,-1,0,-1
position object 14,-2,0,-2
position object 15,-1,0,-2
position object 22,0,0,1
position object 23,0,0,-1
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,20,0:point camera 0,0,0
sync:loop

+ Code Snippet

hide mouse:sync rate 40
make object box 1,3,1,1:color object 1,rgb(255,0,0)
Make object box 5,1,1,1:color object 5,rgb(0,0,255)
Make object box 6,1,1,1:color object 6,rgb(0,0,255)
Make object box 7,1,1,1:color object 7,rgb(0,0,255)
Make object box 8,1,1,1:color object 8,rgb(0,0,255)
Make object box 9,1,1,1:color object 9,rgb(0,0,255)
Make object box 10,1,1,1:color object 10,rgb(0,0,255)
Make object box 11,1,1,1:color object 11,rgb(0,0,255)
Make object box 12,1,1,1:color object 12,rgb(0,0,255)
Make object box 13,1,1,1:color object 13,rgb(0,0,255)
Make object box 14,1,1,1:color object 14,rgb(0,0,255)
Make object box 15,1,1,1:color object 15,rgb(0,0,255)
Make object box 16,1,1,1:color object 16,rgb(0,0,255)
Make object box 17,1,1,1:color object 17,rgb(0,0,255)
Make object box 18,1,1,1:color object 18,rgb(0,0,255)
Make object box 19,1,1,1:color object 19,rgb(0,0,255)
Make object box 20,1,1,1:color object 20,rgb(0,0,255)
Make object box 21,1,1,1:color object 21,rgb(0,0,255)
Make object box 22,1,1,1:color object 22,rgb(0,0,255)
Make object box 23,1,1,1:color object 23,rgb(0,0,255)
make object sphere 3,1:color object 3,rgb(0,0,50)
make object box 4,15,0.1,20:position object 4,0,-0.55,0
balla#=360
bricks#=19
spc$=" "
TXT$="bricks left="
bounce#=0
sync on:do
set cursor 500,100:print txt$+spc$
set cursor 600,100:print bricks#
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
IF rightkey()=1 and player1pos#<6 then player1pos#=player1pos#+0.5
IF leftkey()=1 and player1pos#>-6 then player1pos#=player1pos#-0.5
if rightkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#+8
if leftkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#-8
if ballx#>6 and ballx#<6.5 then balla#=360-balla#
if ballx#<-6 and ballx#>-6.5 then balla#=360-balla#
if ballz#<-9 and ballz#>-9.5 then balla#=180-balla#
if ballz#>9 and ballz#<9.5 and ABS(player1pos#-ballx#)<1.5:balla#=180-balla#:bounce#=1:endif
if ballz#>12:ballx#=ballx#-ballx#:ballz#=ballz#-ballz#:player1pos#=player1pos#-player1pos#:endif
if
balla#=wrapvalue(balla#)
position object 1,player1pos#,0,10
position object 5,2,0,1
position object 6,1,0,1
position object 20,1,0,2
position object 21,2,0,2
position object 7,-1,0,2
position object 8,-2,0,2
position object 16,-1,0,1
position object 17,-2,0,1
position object 9,0,0,0
position object 10,2,0,-1
position object 11,1,0,-1
position object 18,1,0,-2
position object 19,2,0,-2
position object 12,-2,0,-1
position object 13,-1,0,-1
position object 14,-2,0,-2
position object 15,-1,0,-2
position object 22,0,0,1
position object 23,0,0,-1
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,20,0:point camera 0,0,0
sync:loop

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 11th May 2007 02:56

Link

that is my code so far

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

Gil Galvanti

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 11th May 2007 04:34

Link

I'll try to help you, but I'm not sure what your trying to do. Right now you just have a sphere deflecting off of the paddle and walls, what do you want that sphere to do, and what boxes do you want to disappear? Also, why do you have 18 boxes and are positioning many of them in the same position or overlapping?

Back to top

Profile PM Website

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 11th May 2007 04:44

Link

no, they are just close, not overlapping, and what i want to happen is when the sphere hits a cube, for it to disapear.

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 11th May 2007 05:04

Link

Just as a little pointer, you need to urgently discover For...Next loops and Data statements!

There are also some pretty glaring basic errors in your code - but that will sort itself out in time. At first glance however, it doesn't look like your snippet would even run as you've posted it!

I think I've told you before that you need to read a few tutorials and get a good understanding of the fundamental stuff - if that is you want to become a decent programmer.

We all started like you, so you're no different to anyone else was when they first started. So, pointing out where you have gone wrong shouldn't be taken as criticism - just friendly advice.

1. Indent your code.

2. Learn about procedural coding and use a proper layout for your code.

3. Stop stacking code lines in such an unorthodox manner. It's not the 20 line code challenge and how you are doing it makes it very hard to read and apply indentation correctly.

In your program:

Turn Sync on before you set the Sync Rate.

What does this do?

balla#=wrapvalue(balla#)

The preceding line has a solitary If on it so maybe it should say:

if balla#=wrapvalue(balla#)

but that makes no sense either... and I can't find any associated Endif to go with it.

Here's your code with a few amendments to help you on your way. I'm not saying it will run yet though...

hide mouse
Sync On: Sync rate 40
make object box 1,3,1,1:color object 1,rgb(255,0,0)
For N=5 To 23
  Make object box N,1,1,1:color object N,rgb(0,0,255)
Next N
make object sphere 3,1:color object 3,rgb(0,0,50)
make object box 4,15,0.1,20:position object 4,0,-0.55,0
balla#=360
bricks#=19
spc$=" "
TXT$="bricks left="
bounce#=0
do
  set cursor 500,100:print txt$+spc$
  set cursor 600,100:print bricks#
  ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
  IF rightkey()=1 and player1pos#<6 then player1pos#=player1pos#+0.5
  IF leftkey()=1 and player1pos#>-6 then player1pos#=player1pos#-0.5
  if rightkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#+8
  if leftkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#-8
  if ballx#>6 and ballx#<6.5 then balla#=360-balla#
  if ballx#<-6 and ballx#>-6.5 then balla#=360-balla#
  if ballz#<-9 and ballz#>-9.5 then balla#=180-balla#
  if ballz#>9 and ballz#<9.5 and ABS(player1pos#-ballx#)<1.5
  balla#=180-balla#
    bounce#=1
  endif
  if ballz#>12:ballx#=ballx#-ballx#
    ballz#=ballz#-ballz#
   player1pos#=player1pos#-player1pos#
  endif
  if balla#=wrapvalue(balla#)
    position object 1,player1pos#,0,10

For N=5 To 23
      Read X,Y,Z
      position object N,X,Y,Z
    Next N

position object 3,ballx#,0,ballz#: yrotate object 3,balla#
    position camera 0,20,0:point camera 0,0,0
  sync
loop
End

Data 2,0,1,1,0,1,-1,0,2,-2,0,2,0,0,0,2,0,-1,1,0,-1,-2,0,-1,-1,0,-1,-2,0,-2
Data -1,0,-2,-1,0,1,-2,0,1,1,0,-2,2,0,-2,1,0,2,2,0,2,0,0,1,0,0,-1

+ Code Snippet

hide mouse
Sync On: Sync rate 40
make object box 1,3,1,1:color object 1,rgb(255,0,0)
For N=5 To 23
  Make object box N,1,1,1:color object N,rgb(0,0,255)
Next N
make object sphere 3,1:color object 3,rgb(0,0,50)
make object box 4,15,0.1,20:position object 4,0,-0.55,0
balla#=360
bricks#=19
spc$=" "
TXT$="bricks left="
bounce#=0
do
  set cursor 500,100:print txt$+spc$
  set cursor 600,100:print bricks#
  ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
  IF rightkey()=1 and player1pos#<6 then player1pos#=player1pos#+0.5
  IF leftkey()=1 and player1pos#>-6 then player1pos#=player1pos#-0.5
  if rightkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#+8
  if leftkey()=1 and ballz#>9 and ballz#<9.5 then balla#=balla#-8
  if ballx#>6 and ballx#<6.5 then balla#=360-balla#
  if ballx#<-6 and ballx#>-6.5 then balla#=360-balla#
  if ballz#<-9 and ballz#>-9.5 then balla#=180-balla#
  if ballz#>9 and ballz#<9.5 and ABS(player1pos#-ballx#)<1.5
  balla#=180-balla#
    bounce#=1
  endif
  if ballz#>12:ballx#=ballx#-ballx#
    ballz#=ballz#-ballz#
   player1pos#=player1pos#-player1pos#
  endif
  if balla#=wrapvalue(balla#)
    position object 1,player1pos#,0,10

    For N=5 To 23
      Read X,Y,Z
      position object N,X,Y,Z
    Next N

    position object 3,ballx#,0,ballz#: yrotate object 3,balla#
    position camera 0,20,0:point camera 0,0,0
  sync
loop
End

Data 2,0,1,1,0,1,-1,0,2,-2,0,2,0,0,0,2,0,-1,1,0,-1,-2,0,-1,-1,0,-1,-2,0,-2
Data -1,0,-2,-1,0,1,-2,0,1,1,0,-2,2,0,-2,1,0,2,2,0,2,0,0,1,0,0,-1

Once again though, I seriously recommend that you check out the tutorials for beginners that cover program layout and style because if you don't, your programs as they get bigger and bigger will become harder and harder to follow and debug.

As it is, this one of yours is starting to give me a headache!

Good luck...

TDK_Man

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

Back to top

Profile PM Email Website

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 12th May 2007 01:07

Link

Thanks, but what do the data strings do?

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 12th May 2007 01:11

Link

Every time "read" is used it gets the next thing in the list of data and sets the variable after "read" to this.

Insanity is just a state of mind.

Back to top

Profile PM Website

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 12th May 2007 01:31

Link

ok, but it says the loop command is out of place, what happened?

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 12th May 2007 01:38 Edited at: 12th May 2007 01:38

Link

Quote: "ok, but it says the loop command is out of place, what happened?"

I covered that in my post:

Quote: "What does this do?

balla#=wrapvalue(balla#)

The preceding line has a solitary If on it so maybe it should say:

if balla#=wrapvalue(balla#)

but that makes no sense either... and I can't find any associated Endif to go with it."

I did say it probably wouldn't run for that reason.

TDK_Man

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

Back to top

Profile PM Email Website

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 12th May 2007 01:53

Link

but Balla# is a variable!

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 12th May 2007 03:51

Link

I know.

What I mean is "what is that line supposed to be doing"?

balla#=wrapvalue(balla#)

is like saying

100 = 100

if balla# was 200 then that line would mean:

200 = 200

There's no point in it.

Even if it should say:

if balla#=wrapvalue(balla#)

then balla# will always equal wrapvalue(balla#), so there's equally no point in it.

However, in the second case, as you've made it an If, there has to be an Endif - and I don't see one.

And that in DB can show up as an out of place loop error as DB treats all start and end blocks as the same. Occasionally it can get confused and say that the wrong type of block hasn't been terminated correctly.

TDK_Man

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

Back to top

Profile PM Email Website

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 12th May 2007 05:43

Link

Actually, it doesn't do anything

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Brickbreak