The balls won't move down... - GameCreators Forum

Author

Message

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 12th Sep 2006 12:53

Link

Hey guys. I'm working on my first game for DBP but i've run into a small problem. In the game you have to dodge these balls that come down from the sky. If you get hit by a ball then you lose the game. Unfortunately you can't get hit by a ball because the balls don't move down. I'm sure it just a small problem but i can't seem to find it. Help is greatly appreaciated.

And my code:

sync on
sync rate 50
hide mouse

make object sphere 11,2
playerzpos#=-10

for x = 1 to 10
make object sphere x,1
next x

dim rotation(10)
for x = 1 to 10
rotationp1:
rotation(x)=rnd(270)
if rotation(x)<120 or rotation(x)>240:goto rotationp1:endif
next x

dim ballxpos(10)
ballxpos(1)=0
ballxpos(2)=-3
ballxpos(3)=-7
ballxpos(4)=15
ballxpos(5)=-19
ballxpos(6)=20
ballxpos(7)=5
ballxpos(8)=10
ballxpos(9)=-12
ballxpos(10)=8

dim ballzpos(10)
for x = 1 to 10
ballzpos(x)=20
next x

score#=0
speed#=1

make object box 12,3,3,50
make object box 13,3,3,50
position object 12,22.5,0,0
position object 13,-22.5,0,0

position camera 0,40,0
point camera 0,0,0

do

if leftkey()=1:playerpos#=playerpos#-1:endif
if rightkey()=1:playerpos#=playerpos#+1:endif
if playerpos#>20:playerpos#=playerpos#-1:endif
if playerpos#<-20:playerpos#=playerpos#+1:endif

if upkey()=1:playerzpos#=playerzpos#+1:endif
if downkey()=1:playerzpos#=playerzpos#-1:endif
if playerzpos#>0:playerzpos#=playerzpos#-1:endif
if playerzpos#<-20:playerzpos#=playerzpos#+1:endif

position object 11,playerpos#,0,playerzpos#

objcol=object collision(11,0)
if objcol>0 or objcol<11:text 100,100,"Gameover!":sleep 1000:end:endif

for x = 1 to 10
 rotation(x)=wrapvalue(rotation(x))
if ballxpos(x)>22.5 or ballxpos(x)<22.5 then rotation(x)=360-rotation(x)
yrotate object x,rotation(x)
ballxpos(x)=newxvalue(ballxpos(x),rotation(x),speed#)
ballzpos(x)=newzvalue(ballzpos(x),rotation(x),speed#)
if ballzpos(x)<-22:inc score#,1:ballzpos(x)=30:endif
position object x,ballxpos(x),0,ballzpos(x)
next x

sync
loop

+ Code Snippet

sync on
sync rate 50
hide mouse

make object sphere 11,2
playerzpos#=-10

for x = 1 to 10
make object sphere x,1
next x

dim rotation(10)
for x = 1 to 10
rotationp1:
rotation(x)=rnd(270)
if rotation(x)<120 or rotation(x)>240:goto rotationp1:endif
next x

dim ballxpos(10)
ballxpos(1)=0
ballxpos(2)=-3
ballxpos(3)=-7
ballxpos(4)=15
ballxpos(5)=-19
ballxpos(6)=20
ballxpos(7)=5
ballxpos(8)=10
ballxpos(9)=-12
ballxpos(10)=8

dim ballzpos(10)
for x = 1 to 10
ballzpos(x)=20
next x

score#=0
speed#=1

make object box 12,3,3,50
make object box 13,3,3,50
position object 12,22.5,0,0
position object 13,-22.5,0,0

position camera 0,40,0
point camera 0,0,0

do

if leftkey()=1:playerpos#=playerpos#-1:endif
if rightkey()=1:playerpos#=playerpos#+1:endif
if playerpos#>20:playerpos#=playerpos#-1:endif
if playerpos#<-20:playerpos#=playerpos#+1:endif

if upkey()=1:playerzpos#=playerzpos#+1:endif
if downkey()=1:playerzpos#=playerzpos#-1:endif
if playerzpos#>0:playerzpos#=playerzpos#-1:endif
if playerzpos#<-20:playerzpos#=playerzpos#+1:endif

position object 11,playerpos#,0,playerzpos#

objcol=object collision(11,0)
if objcol>0 or objcol<11:text 100,100,"Gameover!":sleep 1000:end:endif

for x = 1 to 10
 rotation(x)=wrapvalue(rotation(x))
if ballxpos(x)>22.5 or ballxpos(x)<22.5 then rotation(x)=360-rotation(x)
yrotate object x,rotation(x)
ballxpos(x)=newxvalue(ballxpos(x),rotation(x),speed#)
ballzpos(x)=newzvalue(ballzpos(x),rotation(x),speed#)
if ballzpos(x)<-22:inc score#,1:ballzpos(x)=30:endif
position object x,ballxpos(x),0,ballzpos(x)
next x


sync
loop

____ ____ ____ ___ _ _ __ _ _ __ _ _ ____
|___ |--< |--| /__ Y | \| | | \| ___| |--|

Back to top

Profile PM

Prosaic

18

Years of Service

User Offline

Joined: 5th Aug 2006

Location: Athens

Posted: 12th Sep 2006 13:33 Edited at: 12th Sep 2006 13:39

Link

First
Make colision spheres at size of 2 and half scale them...
Then
above the score#=0 add a loop to position them...
Disable your collision code temporarily
and use this in the positions loop

+ Code Snippet

for x=1 to 10
 rotation(x,1)=wrapvalue(rotation(x,1))
 rotation(x,2)=wrapvalue(rotation(x,2))
if ballxpos(x)>22.5 or ballxpos(x)<22.5
 rotation(x,1)=360-rotation(x,1)
 rotation(x,2)=360-rotation(x,2)
endif
yrotate object x,rotation(x,1)
elGato#=rotation(x,2)
X#=ballxpos(x)
Z#=ballzpos(x)
nux#=cos(elGato#)*speed#+X#
nuz#=sin(elGato#)*speed#+Z#
ballxpos(x)=nux#
ballzpos(x)=nuz#
if ballzpos(x)<-22
 inc score#,1
 ballzpos(x)=30
endif
position object x,ballxpos(x),0,ballzpos(x)
next x

Back to top

Profile PM Email

Prosaic

18

Years of Service

User Offline

Joined: 5th Aug 2006

Location: Athens

Posted: 12th Sep 2006 13:51

Link

Here is the full code.
Collision im not good at.its yours...

sync on
sync rate 50
hide mouse

make object sphere 11,2
playerzpos#=-10

for x = 1 to 10
make object sphere x,2
scale object x,50,50,50
next x
rem value 1 rotation angle clockwise with zero on the highest part of the circle
rem value 2 calculation angle counter-clockwise with zero on the right-est part of the circle
dim rotation(10,2)
for x = 1 to 10
rotationp1:
rotation(x,1)=rnd(270)
rem angle calculations
dra#=rotation(x,1)
rem convertion code(FROM ROTATION VALUE TO CALCULATION VALUE)
dr=dra#*100
if dr>=0 and dr<=9000
nr=9000-dr
endif
if dr>9000 and dr<=18000
nr=36000-(dr-9000)
endif
if dr<0 and dr>=-9000
nr=abs(dr)+9000
endif
if dr<-9000 and dr>-18000
nr=abs(dr)+9000
endif
nar#=nr
nar#=nar#/100
rotation(x,2)=nar#
if rotation(x,1)<120 or rotation(x,1)>240:goto rotationp1:endif
next x

dim ballxpos#(10)
ballxpos#(1)=0
ballxpos#(2)=-3
ballxpos#(3)=-7
ballxpos#(4)=15
ballxpos#(5)=-19
ballxpos#(6)=20
ballxpos#(7)=5
ballxpos#(8)=10
ballxpos#(9)=-12
ballxpos#(10)=8

dim ballzpos#(10)
for x = 1 to 10
ballzpos#(x)=20
next x

for p=1 to 10
position object p,ballxpos#(p),0,ballzpos#(p)
next p
score#=0
speed#=1

make object box 12,3,3,50
make object box 13,3,3,50
position object 12,22.5,0,0
position object 13,-22.5,0,0

rotate camera 0,0,0
position camera 0,40,0
point camera 0,0,0

do

if leftkey()=1:playerpos#=playerpos#-1:endif
if rightkey()=1:playerpos#=playerpos#+1:endif
if playerpos#>20:playerpos#=playerpos#-1:endif
if playerpos#<-20:playerpos#=playerpos#+1:endif

if upkey()=1:playerzpos#=playerzpos#+1:endif
if downkey()=1:playerzpos#=playerzpos#-1:endif
if playerzpos#>0:playerzpos#=playerzpos#-1:endif
if playerzpos#<-20:playerzpos#=playerzpos#+1:endif

position object 11,playerpos#,0,playerzpos#

objcol=object collision(11,0)
if objcol>0 and objcol<11:text 100,100,"Gameover!":sleep 1000:end:endif

for x=1 to 10
 rotation(x,1)=wrapvalue(rotation(x,1))
 rotation(x,2)=wrapvalue(rotation(x,2))
 testx=ballxpos#(x)*100
if testx>2250 or testx<-2250
 rotation(x,1)=rotation(x,1)+90
 rotation(x,2)=rotation(x,2)+90
 rotation(x,1)=wrapvalue(rotation(x,1))
 rotation(x,2)=wrapvalue(rotation(x,2))

endif
yrotate object x,rotation(x,1)
elGato#=rotation(x,2)
X#=ballxpos#(x)
Z#=ballzpos#(x)
nux#=cos(elGato#)*speed#+X#
nuz#=sin(elGato#)*speed#+Z#
ballxpos#(x)=nux#
ballzpos#(x)=nuz#
testz=ballzpos#(x)*100
if testz<-2200
 inc score#,1
 ballzpos#(x)=30
endif
position object x,ballxpos#(x),0,ballzpos#(x)
next x

sync
loop

+ Code Snippet

sync on
sync rate 50
hide mouse

make object sphere 11,2
playerzpos#=-10

for x = 1 to 10
make object sphere x,2
scale object x,50,50,50
next x
rem value 1 rotation angle clockwise with zero on the highest part of the circle
rem value 2 calculation angle counter-clockwise with zero on the right-est part of the circle
dim rotation(10,2)
for x = 1 to 10
rotationp1:
rotation(x,1)=rnd(270)
rem angle calculations
dra#=rotation(x,1)
rem convertion code(FROM ROTATION VALUE TO CALCULATION VALUE)
dr=dra#*100
if dr>=0 and dr<=9000
nr=9000-dr
endif
if dr>9000 and dr<=18000
nr=36000-(dr-9000)
endif
if dr<0 and dr>=-9000
nr=abs(dr)+9000
endif
if dr<-9000 and dr>-18000
nr=abs(dr)+9000
endif
nar#=nr
nar#=nar#/100
rotation(x,2)=nar#
if rotation(x,1)<120 or rotation(x,1)>240:goto rotationp1:endif
next x

dim ballxpos#(10)
ballxpos#(1)=0
ballxpos#(2)=-3
ballxpos#(3)=-7
ballxpos#(4)=15
ballxpos#(5)=-19
ballxpos#(6)=20
ballxpos#(7)=5
ballxpos#(8)=10
ballxpos#(9)=-12
ballxpos#(10)=8

dim ballzpos#(10)
for x = 1 to 10
ballzpos#(x)=20
next x

for p=1 to 10
position object p,ballxpos#(p),0,ballzpos#(p)
next p
score#=0
speed#=1

make object box 12,3,3,50
make object box 13,3,3,50
position object 12,22.5,0,0
position object 13,-22.5,0,0

rotate camera 0,0,0
position camera 0,40,0
point camera 0,0,0

do

if leftkey()=1:playerpos#=playerpos#-1:endif
if rightkey()=1:playerpos#=playerpos#+1:endif
if playerpos#>20:playerpos#=playerpos#-1:endif
if playerpos#<-20:playerpos#=playerpos#+1:endif

if upkey()=1:playerzpos#=playerzpos#+1:endif
if downkey()=1:playerzpos#=playerzpos#-1:endif
if playerzpos#>0:playerzpos#=playerzpos#-1:endif
if playerzpos#<-20:playerzpos#=playerzpos#+1:endif

position object 11,playerpos#,0,playerzpos#

objcol=object collision(11,0)
if objcol>0 and objcol<11:text 100,100,"Gameover!":sleep 1000:end:endif

for x=1 to 10
 rotation(x,1)=wrapvalue(rotation(x,1))
 rotation(x,2)=wrapvalue(rotation(x,2))
 testx=ballxpos#(x)*100
if testx>2250 or testx<-2250
 rotation(x,1)=rotation(x,1)+90
 rotation(x,2)=rotation(x,2)+90
 rotation(x,1)=wrapvalue(rotation(x,1))
 rotation(x,2)=wrapvalue(rotation(x,2))

endif
yrotate object x,rotation(x,1)
elGato#=rotation(x,2)
X#=ballxpos#(x)
Z#=ballzpos#(x)
nux#=cos(elGato#)*speed#+X#
nuz#=sin(elGato#)*speed#+Z#
ballxpos#(x)=nux#
ballzpos#(x)=nuz#
testz=ballzpos#(x)*100
if testz<-2200
 inc score#,1
 ballzpos#(x)=30
endif
position object x,ballxpos#(x),0,ballzpos#(x)
next x

sync
loop

...

Back to top

Profile PM Email

Crazy Ninja

19

Years of Service

User Offline

Joined: 27th Aug 2005

Location: Awesometon

Posted: 12th Sep 2006 14:59

Link

thanks prosiac! I'll look at it more later, i'm a little tired right now.

____ ____ ____ ___ _ _ __ _ _ __ _ _ ____
|___ |--< |--| /__ Y | \| | | \| ___| |--|

Back to top

Profile PM

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 12th Sep 2006 15:04

Link

Maybe this'll help you out a bit;

SYNC ON:SYNC RATE 0:AUTOCAM OFF:HIDE MOUSE

`This sets the randomizer seed, without this line, everytime you run the program
`the positions will be positioned randomly, but at the same randomn spot each time...
`if that makes sense :P
RANDOMIZE TIMER()

`Position/Orient the camera
POSITION CAMERA 0,5,-100
POINT CAMERA 0,0,0

`Make a floor
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the 10 balls
FOR X = 1 TO 10

MAKE OBJECT SPHERE X,10

NEXT X

`Make a player object
MAKE OBJECT CUBE 11,5

DO

`Give the player some controls
   IF LEFTKEY() = 1 THEN MOVE OBJECT LEFT 11,.1
   IF RIGHTKEY() = 1 THEN MOVE OBJECT RIGHT 11,.1

`Start a loop that goes from 1 to 10 (each number is a ball)
   FOR X = 1 TO 10

`If the current ball being checked's position is less than or equal to 0, then it's hit ground, so reposition it
      `randomly in the sky.
      IF OBJECT POSITION Y(X) <= 0

POSITION OBJECT X,-50+RND(100),40+RND(40),0

ENDIF

`Move the current ball being checked down
      MOVE OBJECT DOWN X,.01

`Check if the ball hits the user, if it does...
      IF OBJECT COLLISION(X,11) > 0

`...end the program. Replace this with whatever game over code you'd like.
         END

ENDIF

`Check the next ball
   NEXT X

`Refresh the screen
   SYNC

LOOP

+ Code Snippet


SYNC ON:SYNC RATE 0:AUTOCAM OFF:HIDE MOUSE

`This sets the randomizer seed, without this line, everytime you run the program
`the positions will be positioned randomly, but at the same randomn spot each time...
`if that makes sense :P
RANDOMIZE TIMER()

`Position/Orient the camera
POSITION CAMERA 0,5,-100
POINT CAMERA 0,0,0

`Make a floor
MAKE MATRIX 1,1000,1000,10,10
POSITION MATRIX 1,-500,0,-500

`Make the 10 balls
FOR X = 1 TO 10

   MAKE OBJECT SPHERE X,10

NEXT X

`Make a player object
MAKE OBJECT CUBE 11,5

DO

   `Give the player some controls
   IF LEFTKEY() = 1 THEN MOVE OBJECT LEFT 11,.1
   IF RIGHTKEY() = 1 THEN MOVE OBJECT RIGHT 11,.1

   `Start a loop that goes from 1 to 10 (each number is a ball)
   FOR X = 1 TO 10

      `If the current ball being checked's position is less than or equal to 0, then it's hit ground, so reposition it
      `randomly in the sky.
      IF OBJECT POSITION Y(X) <= 0

         POSITION OBJECT X,-50+RND(100),40+RND(40),0

      ENDIF

      `Move the current ball being checked down
      MOVE OBJECT DOWN X,.01

      `Check if the ball hits the user, if it does...
      IF OBJECT COLLISION(X,11) > 0

         `...end the program. Replace this with whatever game over code you'd like.
         END

      ENDIF

   `Check the next ball
   NEXT X

   `Refresh the screen
   SYNC

LOOP

Just some basic stuff to get you started, not tested but it should work.

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 12th Sep 2006 15:26

Link

Quote: "The balls won't move down..."

I would have answered "Give it time"

Luckily the people above are not as cheeky.

good luck

Its 9/11 - but its FAKE 9/11 Ts=SQRT(Df/16)

Back to top

Profile PM

Prosaic

18

Years of Service

User Offline

Joined: 5th Aug 2006

Location: Athens

Posted: 12th Sep 2006 16:18

Link

...yeah luckily..
nice and simple Ruccus.

Back to top

Profile PM Email

H4ck1d

18

Years of Service

User Offline

Joined: 27th Dec 2005

Location: Yes

Posted: 12th Sep 2006 23:12

Link

@CattleRustler - muahaha I was gonna say that but you beat me to it...

There are 10 types of people, those who understand binary and those that don't.
The programmer's national anthem is 'AAAAAAAAHHHHHHHH'
Never forget: 2 + 2 = 5 for extremely large values of 2.

Back to top

Profile PM Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 13th Sep 2006 01:24

Link

Damn you both. I was going to say it