Gravity and camera problems - GameCreators Forum

Author

Message

hpfan273

19

Years of Service

User Offline

Joined: 19th Jan 2007

Location:

Posted: 13th May 2010 00:42

Link

So I have this code, and I am trying to get the camera to follow the character, and it does! As long as the character doesn't jump or fall.... if the player falls, then the camera is then like, 100 feet below the character!! BAH!!
here is my code. If you would like to try it out to see what i mean, pleaze feel free to. Just get read of all of the texturing stuff.

autocam off
sync on
sync rate 60
hide mouse

gosub _player
gosub _level1

load image "Media\grass_T.bmp",1

do
texture object 100,1

if upkey()=1 then move object 1,0.8
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2.5)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2.5)
if spacekey()=1 and playergrav#=0.0 then playergrav#=2.0

angle#=object angle y(1)
camdist#=25.0 : camhigh#=posy#+8.0 : camfade#=3.5
set camera to follow posx#,posy#-20,posz#,angle#,camdist#,camhigh#,camfade#,1

posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)

cposx#=camera position x()
cposy#=camera position y()+10
cposz#=camera position z()
position object 2,cposx#,cposy#,cposz#

playergrav#=playergrav#-0.1
posy#=posy#+playergrav#

position object 1,posx#,posy#,posz#
if object collision(1,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
if get object collision y()<0 then playergrav#=0.0
endif

if object collision(2,0)>0
dec cposx#,get object collision x()
dec cposy#,get object collision y()
dec cposz#,get object collision z()
endif

position camera cposx#,cposy#,cposz#

position object 1,posx#,posy#,posz#

xrotate camera 15

sync
loop

_player:
make object box 1,10,10,10
color object 1,rgb(255,0,255)
position object 1,0,0,0
make object collision box 1,-5,-5,-5,5,5,5,0

make object cube 2,1
make object collision box 2,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
hide object 2

return

````````````````````````````
```````````Level1```````````
````````````````````````````
_level1:

make object box 100,500,10,500
position object 100,0,-100,0
make object collision box 100,-250,-5,-250,250,5,250,0
scale object texture 100,10,10

make object box 101,20,5,30
position object 101,0,-20,0
make object collision box 101,-10,-5,-15,10,5,15,0

return

+ Code Snippet

autocam off
sync on
sync rate 60
hide mouse

gosub _player
gosub _level1

load image "Media\grass_T.bmp",1

do
texture object 100,1

if upkey()=1 then move object 1,0.8
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2.5)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2.5)
if spacekey()=1 and playergrav#=0.0 then playergrav#=2.0

angle#=object angle y(1)
camdist#=25.0 : camhigh#=posy#+8.0 : camfade#=3.5
set camera to follow posx#,posy#-20,posz#,angle#,camdist#,camhigh#,camfade#,1

posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)

cposx#=camera position x()
cposy#=camera position y()+10
cposz#=camera position z()
position object 2,cposx#,cposy#,cposz#

playergrav#=playergrav#-0.1
posy#=posy#+playergrav#

position object 1,posx#,posy#,posz#
if object collision(1,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
if get object collision y()<0 then playergrav#=0.0
endif

if object collision(2,0)>0
dec cposx#,get object collision x()
dec cposy#,get object collision y()
dec cposz#,get object collision z()
endif

position camera cposx#,cposy#,cposz#

position object 1,posx#,posy#,posz#

xrotate camera 15 

sync
loop

_player:
make object box 1,10,10,10
color object 1,rgb(255,0,255)
position object 1,0,0,0
make object collision box 1,-5,-5,-5,5,5,5,0

make object cube 2,1
make object collision box 2,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
hide object 2

return

````````````````````````````
```````````Level1```````````
````````````````````````````
_level1:

make object box 100,500,10,500
position object 100,0,-100,0
make object collision box 100,-250,-5,-250,250,5,250,0
scale object texture 100,10,10

make object box 101,20,5,30
position object 101,0,-20,0
make object collision box 101,-10,-5,-15,10,5,15,0

return

Why do they turn against me? Especially when i need them the most?

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th May 2010 02:04

Link

You can do something like.

if cposy#>posy# then dec cposy#
if cposy#<posy# then inc cposy#

cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

hpfan273

19

Years of Service

User Offline

Joined: 19th Jan 2007

Location:

Posted: 13th May 2010 03:17

Link

that didn't work... did you run my code?

Why do they turn against me? Especially when i need them the most?

Back to top

Profile PM

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 13th May 2010 11:01

Link

Change...

+ Code Snippet

camdist#=25.0 : camhigh#=posy#+8.0 : camfade#=3.5

To...

+ Code Snippet

camdist#=25.0 : camhigh#=8.0 : camfade#=3.5

The 'set camera to follow' command is a self contained comers positioning system. The height variable is the distance on the Y axis from the Y Position. So a value of 8, is actually ypos + 8.
You were adding the world y position to it which produced incorrect results.

My signature is NOT a moderator plaything! Stop changing it!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th May 2010 15:41

Link

Quote: "that didn't work... did you run my code?"

Now I`m at home, and have run your code....I made some changes.I hope it can help.

autocam off
sync on
sync rate 60
hide mouse

gosub _player
gosub _level1

rem load image "Media\grass_T.bmp",1

do
texture object 100,1

if upkey()=1 then move object 1,0.8
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2.5)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2.5)
if spacekey()=1 and playergrav#=0.0 then playergrav#=2.0

angle#=object angle y(1)
camdist#=25.0 : camhigh#=posy#+8.0 : camfade#=3.5
set camera to follow posx#,posy#-20,posz#,angle#,camdist#,camhigh#,camfade#,1

posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)

cposx#=camera position x()
cposy#=camera position y()+10
cposz#=camera position z()
position object 2,cposx#,cposy#,cposz#

playergrav#=playergrav#-0.1
posy#=posy#+playergrav#

position object 1,posx#,posy#,posz#
if object collision(1,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
if get object collision y()<0 then playergrav#=0.0
endif

if object collision(2,0)>0
dec cposx#,get object collision x()
dec cposy#,get object collision y()
dec cposz#,get object collision z()
endif

rem //////////////////////////////////////////////////////////////////
position object 1,posx#,posy#,posz#
position camera posx#,posy#+10,posz#
move camera -20 rem //////////////////////////////////////////////////
xrotate camera 15

sync
loop

_player:
make object box 1,10,10,10
color object 1,rgb(255,0,255)
position object 1,0,0,0
make object collision box 1,-5,-5,-5,5,5,5,0

make object cube 2,1
make object collision box 2,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
hide object 2

return

````````````````````````````
```````````Level1```````````
````````````````````````````
_level1:

make object box 100,500,10,500
position object 100,0,-100,0
make object collision box 100,-250,-5,-250,250,5,250,0
scale object texture 100,10,10

make object box 101,20,5,30
position object 101,0,-20,0
make object collision box 101,-10,-5,-15,10,5,15,0

return

+ Code Snippet

autocam off
sync on
sync rate 60
hide mouse

gosub _player
gosub _level1

rem load image "Media\grass_T.bmp",1

do
texture object 100,1

if upkey()=1 then move object 1,0.8
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-2.5)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+2.5)
if spacekey()=1 and playergrav#=0.0 then playergrav#=2.0

angle#=object angle y(1)
camdist#=25.0 : camhigh#=posy#+8.0 : camfade#=3.5
set camera to follow posx#,posy#-20,posz#,angle#,camdist#,camhigh#,camfade#,1

posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)

cposx#=camera position x()
cposy#=camera position y()+10
cposz#=camera position z()
position object 2,cposx#,cposy#,cposz#

playergrav#=playergrav#-0.1
posy#=posy#+playergrav#

position object 1,posx#,posy#,posz#
if object collision(1,0)>0
dec posx#,get object collision x()
dec posy#,get object collision y()
dec posz#,get object collision z()
if get object collision y()<0 then playergrav#=0.0
endif

if object collision(2,0)>0
dec cposx#,get object collision x()
dec cposy#,get object collision y()
dec cposz#,get object collision z()
endif

rem //////////////////////////////////////////////////////////////////
position object 1,posx#,posy#,posz#
position camera posx#,posy#+10,posz#
move camera -20 rem //////////////////////////////////////////////////
xrotate camera 15

sync
loop

_player:
make object box 1,10,10,10
color object 1,rgb(255,0,255)
position object 1,0,0,0
make object collision box 1,-5,-5,-5,5,5,5,0

make object cube 2,1
make object collision box 2,-0.5,-0.5,-0.5,0.5,0.5,0.5,0
hide object 2

return

````````````````````````````
```````````Level1```````````
````````````````````````````
_level1:

make object box 100,500,10,500
position object 100,0,-100,0
make object collision box 100,-250,-5,-250,250,5,250,0
scale object texture 100,10,10

make object box 101,20,5,30
position object 101,0,-20,0
make object collision box 101,-10,-5,-15,10,5,15,0

return

cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 13th May 2010 17:03

Link

4 added lines, to fix what removing 6 characters did! lol

My signature is NOT a moderator plaything! Stop changing it!

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th May 2010 19:17 Edited at: 13th May 2010 19:19

Link

AaaagGHH!!...m getting O !!

cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

hpfan273

19

Years of Service

User Offline

Joined: 19th Jan 2007

Location:

Posted: 13th May 2010 19:47

Link

It worked mobiius! thanks a bunch

Why do they turn against me? Especially when i need them the most?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Gravity and camera problems