object movement in dbp - GameCreators Forum

Author

Message

2122

19

Years of Service

User Offline

Joined: 15th Aug 2005

Location:

Posted: 23rd Aug 2005 06:38

Link

When I was using the dbc demo I made a program where a sphere was moved with the arow keys. I am trying to do the same with dbp.
For some reason the move object command isn't moving my sphere.
Can someone tell me what I'm doing wrong and tell me how to fix it?

Here is the code:

+ Code Snippet

a = 1
load image "ground.bmp",1

make matrix 1,10000,10000,100,100
randomize matrix 1,50
prepare matrix texture 1,1,1,1
set matrix texture 1,1,1
position matrix 1,-5000,0,-5000

make object sphere 1,100
color object 1,rgb(50,255,50)
position object 1,0,get ground height (1,0,0)+45,0

position camera = 0,50,-500
point camera 0,get ground height (1,0,0)+50,0

x = object position x(1)
y = object position y(1)
z = object position z(1)
yvel = 0

while a = 1

if y < get ground height (1,0,0)+45 then y = get ground height (1,0,0)+45
if y > get ground height (1,0,0)+45 then y = y - 2.5

if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-5
if leftkey()=1 then turn object left 1,2
if rightkey()=1 then turn object right 1,2
if spacekey()=1 and yvel = 0 then yvel = 175

position object 1,x,y+yvel,z
SET CAMERA TO FOLLOW X, Y, Z, 0, 150, 125, 100, 1
point camera x,y+yvel,z

if yvel > 0 then yvel = yvel - 1

endwhile

Back to top

Profile PM

warship45

20

Years of Service

User Offline

Joined: 24th Jul 2004

Location: uk

Posted: 23rd Aug 2005 12:08

Link

hi,
i found out what the few bug was and that was the u position the object 1 after you have moved the object so the object will never move aprt from left to right. so to fix this u should put this line in under the if spacekey()=1
x=object position x(1)
y=object position y(1)
z=object position z(1)
if yvel>0
position object 1,x,y+yvel,z
endif

or just copy my code from below

+ Code Snippet

make matrix 1,10000,10000,100,100
randomize matrix 1,50
position matrix 1,-5000,0,-5000

make object sphere 1,100
color object 1,rgb(50,255,50)
position object 1,0,get ground height (1,0,0)+45,0


point camera 0,get ground height (1,0,0)+50,0

x = object position x(1)
y = object position y(1)
z = object position z(1)
yvel = 0
do
a=1
while a = 1

if y < get ground height (1,0,0)+45 then y = get ground height (1,0,0)+45
if y > get ground height (1,0,0)+45 then y = y - 2.5

if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-5
if leftkey()=1 then turn object left 1,2
if rightkey()=1 then turn object right 1,2
if spacekey()=1 and yvel = 0 then yvel = 175
x=object position x(1)
y=object position y(1)
z=object position z(1)
if yvel>0
   position object 1,x,y+yvel,z
endif
SET CAMERA TO FOLLOW X, Y, Z, 0, 150, 125, 100, 1
point camera x,y+yvel,z

if yvel > 0 then yvel = yvel - 1
endwhile
loop

you still need to do a bit of work on the jupping the ball but hey i can not do it all for u.

hoped this help if u have any more questions email me or somthing

lone land the rpg
web site coming soon

Back to top

Profile PM Email Website

2122

19

Years of Service

User Offline

Joined: 15th Aug 2005

Location:

Posted: 24th Aug 2005 00:29

Link

Thanks for your help. I fixed the movement problems. The jump isn't great, it just sort of skips up, but I am going to fix that later.
How can a make the camera stay behind the sphere?

Here is the new code:

a = 1
load image "ground.bmp",1

make matrix 1,10000,10000,100,100
randomize matrix 1,75
prepare matrix texture 1,1,1,1
set matrix texture 1,1,1
position matrix 1,-5000,0,-5000

make object sphere 1,100
color object 1,rgb(50,255,50)
position object 1,0,get ground height (1,0,0)+45,0

position camera = 0,50,-500
point camera 0,get ground height (1,0,0)+50,0

x = object position x(1)
y = object position y(1)
z = object position z(1)
yvel = 0

while a = 1

if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-5
if leftkey()=1 then turn object left 1,2
if rightkey()=1 then turn object right 1,2
if spacekey()=1 and yvel = 0 then yvel = 150

if yvel > 0 then yvel = yvel - 1
x = object position x(1)
y=(get ground height (1,x,z))+yvel+50
z = object position z(1)
if y < get ground height (1,0,0)+45 then y = get ground height (1,0,0)+45
if y > get ground height (1,0,0)+45 then y = y - 2.5

position object 1,x,y+yvel,z
position camera x-150,y+yvel+50,z-150
point camera x,y+yvel,z

endwhile

+ Code Snippet

a = 1
load image "ground.bmp",1

make matrix 1,10000,10000,100,100
randomize matrix 1,75
prepare matrix texture 1,1,1,1
set matrix texture 1,1,1
position matrix 1,-5000,0,-5000

make object sphere 1,100
color object 1,rgb(50,255,50)
position object 1,0,get ground height (1,0,0)+45,0

position camera = 0,50,-500
point camera 0,get ground height (1,0,0)+50,0

x = object position x(1)
y = object position y(1)
z = object position z(1)
yvel = 0

while a = 1

if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-5
if leftkey()=1 then turn object left 1,2
if rightkey()=1 then turn object right 1,2
if spacekey()=1 and yvel = 0 then yvel = 150

if yvel > 0 then yvel = yvel - 1
x = object position x(1)
y=(get ground height (1,x,z))+yvel+50
z = object position z(1)
if y < get ground height (1,0,0)+45 then y = get ground height (1,0,0)+45
if y > get ground height (1,0,0)+45 then y = y - 2.5

position object 1,x,y+yvel,z
position camera x-150,y+yvel+50,z-150
point camera x,y+yvel,z

endwhile

Back to top

Profile PM

warship45

20

Years of Service

User Offline

Joined: 24th Jul 2004

Location: uk

Posted: 24th Aug 2005 19:31

Link

why do u not use set camera to follow? it will be easyer than a long forula.

lone land the rpg
web site coming soon

Back to top

Profile PM Email Website

2122

19

Years of Service

User Offline

Joined: 15th Aug 2005

Location:

Posted: 25th Aug 2005 00:21

Link

Because the camera in camera follow is too "loose". I tried it, and when you move forward from a stop the camera falls way back and slowly catches up. When you move back the ball goes behind the camera for a second the catches up. I almost fixed the camera though. The only problem now is that when you land on the box, the camera falls to ground level, and the sphere stays on the box like it's supposed to.

Here's the new code:

sync on
sync rate 0

yvel=0
load image "ground.bmp",1

make object sphere 1,50
make object collision box 1,-25,-25,-25,25,25,25,0

make matrix 1,10000,10000,100,100
randomize matrix 1,50
prepare matrix texture 1,1,1,1
set matrix texture 1,1,1
position matrix 1,-5000,0,-5000

make object box 2,100,100,100
position object 2,100,50,100
make object collision box 2,-50,-50,-50,50,50,50,0

make object box 3,75,75,75
position object 3,100,75,210
make object collision box 3,-50,-50,-50,50,50,50,0

make object box 4,75,75,75
position object 4,100,100,320
make object collision box 4,-50,-50,-50,50,50,50,0

do

Rem Get object angle
oby#= object angle y(1)

Rem allow object to respond to keypresses

if upkey()=1 then move object 1,2.5
if downkey()=1 then move object 1,-5.5
if leftkey()=1 then yrotate object 1,wrapvalue(oby#-2.5)
if rightkey()=1 then yrotate object 1,wrapvalue(oby#+2.5)
if spacekey()=1 and yvel=0 then yvel = 150
if yvel > 0 then yvel = yvel - 1

obpx#= object position x(1)
obpz#= object position z(1)
obpy#= object position y(1)
Rem position object at these co-ordinates

if object collision(1,0)
dec obpx#,get object collision x()
inc obpy#,get object collision y()
dec obpz#,get object collision z()
print "collide"
endif

position object 1,obpx#,get ground height (1,obpx#,obpz#)+30+yvel,obpz#

Rem Using the newxvalue and newzvalue functions, work out a
Rem camera position based upon objects location i.e. 100 Rem world units away and slightly above.

camx#= newxvalue(obpx#,oby#-180,100)
camz#= newzvalue(obpz#,oby#-180,100)

position camera camx#,obpy#+20,camz#

rem point camera at object

point camera obpx#,obpy#,obpz#

rem refresh screen and loop
sync
loop

+ Code Snippet

sync on
sync rate 0

yvel=0
load image "ground.bmp",1

make object sphere 1,50
make object collision box 1,-25,-25,-25,25,25,25,0

make matrix 1,10000,10000,100,100
randomize matrix 1,50
prepare matrix texture 1,1,1,1
set matrix texture 1,1,1
position matrix 1,-5000,0,-5000


make object box 2,100,100,100
position object 2,100,50,100
make object collision box 2,-50,-50,-50,50,50,50,0

make object box 3,75,75,75
position object 3,100,75,210
make object collision box 3,-50,-50,-50,50,50,50,0

make object box 4,75,75,75
position object 4,100,100,320
make object collision box 4,-50,-50,-50,50,50,50,0

do

Rem Get object angle
oby#= object angle y(1)

Rem allow object to respond to keypresses

if upkey()=1 then move object 1,2.5
if downkey()=1 then move object 1,-5.5
if leftkey()=1 then yrotate object 1,wrapvalue(oby#-2.5)
if rightkey()=1 then yrotate object 1,wrapvalue(oby#+2.5)
if spacekey()=1 and yvel=0 then yvel = 150
if yvel > 0 then yvel = yvel - 1

obpx#= object position x(1)
obpz#= object position z(1)
obpy#= object position y(1)
Rem position object at these co-ordinates

if object collision(1,0)
dec obpx#,get object collision x()
inc obpy#,get object collision y()
dec obpz#,get object collision z()
print "collide"
endif

position object 1,obpx#,get ground height (1,obpx#,obpz#)+30+yvel,obpz#

Rem Using the newxvalue and newzvalue functions, work out a
Rem camera position based upon objects location i.e. 100 Rem world units away and slightly above.

camx#= newxvalue(obpx#,oby#-180,100)
camz#= newzvalue(obpz#,oby#-180,100)

position camera camx#,obpy#+20,camz#

rem point camera at object

point camera obpx#,obpy#,obpz#

rem refresh screen and loop
sync
loop

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / object movement in dbp