Get ground height? - GameCreators Forum

Author

Message

NathanF

21

Years of Service

User Offline

Joined: 24th Mar 2004

Location:

Posted: 9th Jun 2004 16:10

Link

I was just working on a small program to check for the matrix under the player, and found a problem with the get ground height command. It only works for the first matrix, but all the others, the height is set on 0. Can someone please help?

`turns on syncing
set display mode 1024,768,16
sync on
autocam off
`makes the two textures
for dx=4 to 124
   for dy=4 to 124
      ink rgb(70,120+rnd(20),70),0
      dot dx,dy
   next dy
next dx
get image 1,0,0,128,128
cls
for dx=4 to 124
   for dy=4 to 124
      ink rgb(120+rnd(20),70,70),0
      dot dx,dy
   next dy
next dx
get image 2,0,0,128,128
`the number of tiled matrices (both on x and z)
matrices=10
`the size of each matrix in distance points.
matrix_size=500
`number of tiles in each matrix.
matrix_tiles=10
`makes a block of matrices from the data above
dim mat(matrices,matrices)
for matx=0 to matrices-1
   for matz=0 to matrices-1
      inc currmat
      inc m2
      if m2>1 then m2=0
      make matrix currmat,matrix_size,matrix_size,matrix_tiles,matrix_tiles
      position matrix currmat,matx*matrix_size,0,matz*matrix_size
      prepare matrix texture currmat,m2+1,1,1
      randomize matrix currmat,10
      mat(matx,matz)=currmat
   next matz
next matx

do
if upkey()=1 then move camera 5
if downkey()=1 then move camera -5
if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-5)
if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+5)
cx#=camera position x()
cz#=camera position z()
`checks matrix under player, otherwise matrix=0 and height=15
if cx#>0 and cz#>0 and cx#<matrices*matrix_size and cz#<matrices*matrix_size
   matrix=mat(cx#/matrix_size,cz#/matrix_size)
   cy#=get ground height(matrix,cx#,cz#)+15
else
   matrix=0
   cy#=15
endif
position camera cx#,cy#,cz#
`prints the current matrix under the player, if any.
if matrix>0 then text 0,0,"Currently over matrix: "+str$(matrix)
if matrix=0 then text 0,0,"Not over any matrix"
sync
loop

+ Code Snippet

`turns on syncing
set display mode 1024,768,16
sync on
autocam off
`makes the two textures
for dx=4 to 124
   for dy=4 to 124
      ink rgb(70,120+rnd(20),70),0
      dot dx,dy
   next dy
next dx
get image 1,0,0,128,128
cls
for dx=4 to 124
   for dy=4 to 124
      ink rgb(120+rnd(20),70,70),0
      dot dx,dy
   next dy
next dx
get image 2,0,0,128,128
`the number of tiled matrices (both on x and z)
matrices=10
`the size of each matrix in distance points.
matrix_size=500
`number of tiles in each matrix.
matrix_tiles=10
`makes a block of matrices from the data above
dim mat(matrices,matrices)
for matx=0 to matrices-1
   for matz=0 to matrices-1
      inc currmat
      inc m2
      if m2>1 then m2=0
      make matrix currmat,matrix_size,matrix_size,matrix_tiles,matrix_tiles
      position matrix currmat,matx*matrix_size,0,matz*matrix_size
      prepare matrix texture currmat,m2+1,1,1
      randomize matrix currmat,10
      mat(matx,matz)=currmat
   next matz
next matx

do
if upkey()=1 then move camera 5
if downkey()=1 then move camera -5
if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-5)
if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+5)
cx#=camera position x()
cz#=camera position z()
`checks matrix under player, otherwise matrix=0 and height=15
if cx#>0 and cz#>0 and cx#<matrices*matrix_size and cz#<matrices*matrix_size
   matrix=mat(cx#/matrix_size,cz#/matrix_size)
   cy#=get ground height(matrix,cx#,cz#)+15
else
   matrix=0
   cy#=15
endif
position camera cx#,cy#,cz#
`prints the current matrix under the player, if any.
if matrix>0 then text 0,0,"Currently over matrix: "+str$(matrix)
if matrix=0 then text 0,0,"Not over any matrix"
sync
loop

.........what's the point of reading this?

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 9th Jun 2004 16:31 Edited at: 9th Jun 2004 16:32

Link

Holy Macrol mate, Don't use that many matricies. I'm surprised your computer doesn't catch on fire with all the processing that DBC needs to do with that snippet.

See my post about Speed Tips as to why not to use matricies.
( http://darkbasicpro.thegamecreators.com/?m=forum_view&t=32948&b=10 )

Jess.

Team EOD :: Programmer/Logical Engineer/All-Round Nice Guy

Back to top

Profile PM Email Website

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 10th Jun 2004 00:07

Link

there must be an error in your code since several people have used multiple matrixes with no problem, unless the sheer number of them is the problem..never used that many myself, 2 or 3 at the most normaly...maybe 5 or 6 for something like that.

Mentor.

PC1: P4 hyperthreading 3ghz, 1gig mem, 2x160gig hd`s, Nvidia FX5900 gfx, 6 way surround sound, PC2: AMD 1.2ghz, 512mb ram, FX5200 ultra gfx, stereo 16 bit soundblaster, ups.

Back to top

Profile PM

NathanF

21

Years of Service

User Offline

Joined: 24th Mar 2004

Location:

Posted: 10th Jun 2004 07:33

Link

hey, dont misunderstand. im only gonna have 9 loaded at any time, im working on a big, big, big world (for my rpg) so ill need a lot of them - probably like 250x250 of them. All the heights and stuff will be loaded from different files if you get close to another matrix. Even now-on my geforce2, its really fast, so please, does anyone know whats wrong with get ground height?
Jess- ill check out you're post right now.

.........what's the point of reading this?

Back to top

Profile PM

NathanF

21

Years of Service

User Offline

Joined: 24th Mar 2004

Location:

Posted: 10th Jun 2004 08:21

Link

never mind, i just solved it.
Looked at your speed tips JessTicular, some good info there. I might as well change it to a .x world - i'd get lightmapping support as well as speed

And i can even use this code to position the sections (ill cut it up and load it when necessary). Thanks people

`turns on syncing
set display mode 1024,768,16
sync on
autocam off
`makes the two textures
for dx=4 to 124
   for dy=4 to 124
      ink rgb(70,120+rnd(20),70),0
      dot dx,dy
   next dy
next dx
get image 1,0,0,128,128
cls
for dx=4 to 124
   for dy=4 to 124
      ink rgb(120+rnd(20),70,70),0
      dot dx,dy
   next dy
next dx
get image 2,0,0,128,128
`the number of tiled matrices (both on x and z)
matrices=10
`the size of each matrix in distance points.
matrix_size=500
`number of tiles in each matrix.
matrix_tiles=10
`makes a block of matrices from the data above
dim mat(matrices,matrices)
for matx=0 to matrices-1
   for matz=0 to matrices-1
      inc currmat
      inc m2
      if m2>1 then m2=0
      make matrix currmat,matrix_size,matrix_size,matrix_tiles,matrix_tiles
      position matrix currmat,matx*matrix_size,0,matz*matrix_size
      prepare matrix texture currmat,m2+1,1,1
      randomize matrix currmat,10
      mat(matx,matz)=currmat
   next matz
next matx

do
if upkey()=1 then move camera 5
if downkey()=1 then move camera -5
if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-5)
if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+5)
cx#=camera position x()
cz#=camera position z()
`checks matrix under player, otherwise matrix=0 and height=15
if cx#>0 and cz#>0 and cx#<matrices*matrix_size and cz#<matrices*matrix_size
   matrix=mat(cx#/matrix_size,cz#/matrix_size)
   cy#=get ground height(matrix,cx#-matrix position x(matrix),cz#-matrix position z(matrix))+15
else
   matrix=0
   cy#=15
endif
position camera cx#,cy#,cz#
`prints the current matrix under the player, if any.
if matrix>0 then text 0,0,"Currently over matrix: "+str$(matrix)
if matrix=0 then text 0,0,"Not over any matrix"
sync
loop

+ Code Snippet

`turns on syncing
set display mode 1024,768,16
sync on
autocam off
`makes the two textures
for dx=4 to 124
   for dy=4 to 124
      ink rgb(70,120+rnd(20),70),0
      dot dx,dy
   next dy
next dx
get image 1,0,0,128,128
cls
for dx=4 to 124
   for dy=4 to 124
      ink rgb(120+rnd(20),70,70),0
      dot dx,dy
   next dy
next dx
get image 2,0,0,128,128
`the number of tiled matrices (both on x and z)
matrices=10
`the size of each matrix in distance points.
matrix_size=500
`number of tiles in each matrix.
matrix_tiles=10
`makes a block of matrices from the data above
dim mat(matrices,matrices)
for matx=0 to matrices-1
   for matz=0 to matrices-1
      inc currmat
      inc m2
      if m2>1 then m2=0
      make matrix currmat,matrix_size,matrix_size,matrix_tiles,matrix_tiles
      position matrix currmat,matx*matrix_size,0,matz*matrix_size
      prepare matrix texture currmat,m2+1,1,1
      randomize matrix currmat,10
      mat(matx,matz)=currmat
   next matz
next matx

do
if upkey()=1 then move camera 5
if downkey()=1 then move camera -5
if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-5)
if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+5)
cx#=camera position x()
cz#=camera position z()
`checks matrix under player, otherwise matrix=0 and height=15
if cx#>0 and cz#>0 and cx#<matrices*matrix_size and cz#<matrices*matrix_size
   matrix=mat(cx#/matrix_size,cz#/matrix_size)
   cy#=get ground height(matrix,cx#-matrix position x(matrix),cz#-matrix position z(matrix))+15
else
   matrix=0
   cy#=15
endif
position camera cx#,cy#,cz#
`prints the current matrix under the player, if any.
if matrix>0 then text 0,0,"Currently over matrix: "+str$(matrix)
if matrix=0 then text 0,0,"Not over any matrix"
sync
loop

.........what's the point of reading this?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Get ground height?