terrain collision with no matrix

Author

Message

Nathan C

14

Years of Service

User Offline

Joined: 26th Jan 2010

Location:

Posted: 13th Apr 2010 00:59

Link

im trying to get terrain collision on my game. I want to be able to walk up hill so how can i achieve this? I've looked around the forums and none of this really makes sense.

heres my terrain code:

+ Code Snippet

    make object terrain 1
      set terrain heightmap 1,"media/heightmap.bmp"
      set terrain scale 1,10,4.2,10
      set terrain split 1,16
      set terrain tiling 1,4
      set terrain light 1,1,-0.25,0,1,1,0.75,0.5
      set terrain texture 1,1,2
      build terrain 1

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Apr 2010 01:27 Edited at: 13th Apr 2010 01:30

Link

Hi Nathan C. Have a look to get terrain height command.

cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Nathan C

14

Years of Service

User Offline

Joined: 26th Jan 2010

Location:

Posted: 13th Apr 2010 02:45

Link

That doesn't work, it says "terrain doesn't exists"

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Apr 2010 03:57

Link

cuz it works !!...can you post your code? I will show you how to do it.

waiting!

I'm not a grumpy grandpa

Back to top

Profile PM Email

Nathan C

14

Years of Service

User Offline

Joined: 26th Jan 2010

Location:

Posted: 13th Apr 2010 04:19 Edited at: 13th Apr 2010 05:56

Link

+ Code Snippet

 sync on : sync rate 75
set display mode 1366,768,32
autocam off
hide mouse
set ambient light 100

`Set Camera
   position camera 2200,50,1500
   set camera range 1,15000
   autocam off
   color backdrop rgb(155,155,155)
   set camera fov 70
   Fog On : Fog Color Rgb( 128, 128, 128 ) : Fog Distance 2000



`Make Terrain
   load image "media/texture.JPG", 1
   load image "media/detail.jpg", 2
   make object terrain 1
      set terrain heightmap 1,"media/heightmap.bmp"
      set terrain scale 1,11,4.9,11
      set terrain split 1,16
      set terrain tiling 1,4
      set terrain light 1,1,-0.25,0,1,1,0.75,0.5
      set terrain texture 1,1,2
      build terrain 1




cls
paste image 1,0,0

do

if upkey()=1 then move camera 3
if downkey()=1 then move camera -2
if rightkey()=1 then turn camera right 3
if leftkey()=1 then turn camera left 3

text 0,0,"Frames: "+str$(screen fps())
text 0,15,"Polygons: "+str$(statistic(1))

sync
loop

EDIT: you still there? lol

Back to top

Profile PM

Van B

Moderator

21

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 13th Apr 2010 10:05

Link

Just your main loop, as thats where your problem is:

+ Code Snippet

do

if upkey()=1 then move camera 3
if downkey()=1 then move camera -2
if rightkey()=1 then turn camera right 3
if leftkey()=1 then turn camera left 3

camx#=camera position x()
camz#=camera position z()
camy#=get terrain ground height(1,camx#,camz#)+10.0
position camera camx#,camy#,camz#

text 0,0,"Frames: "+str$(screen fps())
text 0,15,"Polygons: "+str$(statistic(1))

sync
loop

What that does is gets the camera position on X and Z, then uses that with the terrain height function to get the Y coordinate. Added 10.0 to the height value to raise the camera above the terrain.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 13th Apr 2010 17:15 Edited at: 13th Apr 2010 18:32

Link

Hi there.

@Nathan C
Van B has given you a complete example of how to walk on an advanced terrain.Yestarday night,(in canary islands), my wife call me finally...she do it from time to time

and I didn´t see your example until right now.

Here I show you how to walk and how to collide with the terrain(we don`t collide exactly...we just check if four points around us are higher than us, and then we stop in that direction).

Download the complete example.

cheers.

sync on
backdrop on
autocam off
set camera range 0.5, 30000
x#=200
z#=200

` Carga las texturas base y de detalle
load image "terreno.jpg", 1
load image "detail.tga", 2

make object terrain 1
set terrain heightmap 1, "elevacionT.bmp"
set terrain scale 1, 5, 0.3, 5
set terrain split 1, 16
set terrain tiling 1, 4
set terrain light 1,-1,-1,-21, 0.9,0.7,0.7,0  ` luz - direccionX, direccionY, direccionZ, rojo, verde, azul, intensidad
set terrain texture 1, 1, 2
build terrain 1

position camera x,23,z
veloc#=0.07
do
set cursor 5,5
print
print x#
print y#
print z#
print "fps = " + str$ ( screen fps ( ) )
if upkey()=1 THEN x#=NEWXVALUE(x#,a#,veloc#):z#=NEWZVALUE(z#,a#,veloc#)
if downkey()=1 THEN x#=NEWXVALUE(x#,a#,-veloc#):z#=NEWZVALUE(z#,a#,-veloc#)

a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0

y#=get terrain ground height(1,x#,z#)
`NOS ASEGURAMOS QUE NO PODEMOS PASAR POR LAS INCLINACIONES FUERTES
`HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
xd#=get terrain ground height(1,x#+25,z#)
xi#=get terrain ground height(1,x#-25,z#)

zf#=get terrain ground height(1,x#,z#+25)
zb#=get terrain ground height(1,x#,z#-25)
`forzamos que si nuestros sensores estan mas altos, nos hace frenar
` aumentado  o disminuyendo las x# z# de nuestra posicion
 if xd#>y#+18 then dec x#,veloc#
 if xi#>y#+18 then inc x#,veloc#

if zf#>y#+18 then dec z#,veloc#
 if zb#>y#+18 then inc z#,veloc#

`HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
position camera x#,y#+5,z#
sync
loop

+ Code Snippet

sync on
backdrop on
autocam off
set camera range 0.5, 30000
x#=200
z#=200

` Carga las texturas base y de detalle
load image "terreno.jpg", 1
load image "detail.tga", 2

make object terrain 1
set terrain heightmap 1, "elevacionT.bmp"
set terrain scale 1, 5, 0.3, 5
set terrain split 1, 16
set terrain tiling 1, 4
set terrain light 1,-1,-1,-21, 0.9,0.7,0.7,0  ` luz - direccionX, direccionY, direccionZ, rojo, verde, azul, intensidad
set terrain texture 1, 1, 2
build terrain 1

position camera x,23,z
veloc#=0.07
do
set cursor 5,5
print
print x#
print y#
print z#
print "fps = " + str$ ( screen fps ( ) )
if upkey()=1 THEN x#=NEWXVALUE(x#,a#,veloc#):z#=NEWZVALUE(z#,a#,veloc#)
if downkey()=1 THEN x#=NEWXVALUE(x#,a#,-veloc#):z#=NEWZVALUE(z#,a#,-veloc#)


a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0

y#=get terrain ground height(1,x#,z#)
`NOS ASEGURAMOS QUE NO PODEMOS PASAR POR LAS INCLINACIONES FUERTES
`HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
xd#=get terrain ground height(1,x#+25,z#)
xi#=get terrain ground height(1,x#-25,z#)

zf#=get terrain ground height(1,x#,z#+25)
zb#=get terrain ground height(1,x#,z#-25)
`forzamos que si nuestros sensores estan mas altos, nos hace frenar
` aumentado  o disminuyendo las x# z# de nuestra posicion
 if xd#>y#+18 then dec x#,veloc#
 if xi#>y#+18 then inc x#,veloc#

 if zf#>y#+18 then dec z#,veloc#
 if zb#>y#+18 then inc z#,veloc#

`HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
position camera x#,y#+5,z#
sync
loop

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / terrain collision with no matrix

Attachments