Manipulating the height of matrix tiles

Author

Message

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 27th Aug 2006 16:43 Edited at: 27th Aug 2006 16:44

Link

Hi all.

I've recently been experimenting with how to manipulate the apperence of an matrix. I'm trying to understand how to set the tile heights. But it doesn't work correctly. Sometimes it works, then the matrix get heigher, but sometimes it doesn't happen anything, and sometimes it get a bit heigher but then stop. Can someone help me, I'm not too good at it. This is the function I use to change the height of the tiles:

+ Code Snippet

function SetGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  x=x/tileX
  z=z/tileZ
  set matrix height matrixNum,x,z,height
endfunction

. And this is the rest of the code:

sync on : sync rate 70
set display mode 1024,768,32
global mouse_x as integer
global mouse_y as integer
global dist as integer
ConstructMatrixWithTexture(1,10000,10000,100,100,1,1,rgb(255,100,200),rgb(100,12,199),rgb(77,89,255),rgb(177,211,11))
make object sphere 1,7.5
color object 1,rgb(255,0,0)
position object 1,5000,0,5000
set camera range 1,5000
do
  text 1,1,"Screen fps: "+str$(screen fps())
  text 1,3+text height("I"),"Object pos x: "+str$(object position x(1))
  text 1,5+text height("I")*2,"Object pos z: "+str$(object position z(1))
  text 1,7+text height("I")*3,"Object tile x: "+str$(int(object position x(1)/100))
  text 1,9+text height("I")*4,"Object tile z: "+str$(int(object position z(1)/100))
  text 1,11+text height("I")*5,"Tile height: "+str$(get ground height(1,object position x(1),object position z(1)))
  position camera object position x(1)+mouse_x,object position y(1)+dist,object position z(1)+150+mouse_y
  point camera object position x(1),object position y(1),object position z(1)
  if mouseclick()=2 then inc mouse_x,mousemovex()*3 : inc mouse_y,mousemovey()*3
  if mouseclick()=1 then inc dist,mousemovey()*2
  if keystate(14)=1 then mouse_x=0 : mouse_y=0 : dist=1000
  Movement()
  if keystate(74)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))-2)
  if keystate(78)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))+2)
  update matrix 1
  sync
loop

end

function Movement()
  posz=object position z(1)-upkey()*6+downkey()*6
  posx=object position x(1)+leftkey()*6-rightkey()*6
  if posx<=1 then posx=1
  if posx>=9999 then posx=9999
  if posz<=1 then posz=1
  if posz>=9999 then posz=9999
  position object 1,posx,get ground height(1,object position x(1),object position z(1))+10,posz
endfunction

function SetGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  x=x/tileX
  z=z/tileZ
  set matrix height matrixNum,x,z,height
endfunction

function ConstructMatrixWithTexture(matrixNum,sizeX,sizeZ,tilesX,tilesZ,across,down,color1,color2,color3,color4)
  box 100,100,200,200,color1,color1,color1,color1
  get image 1,100,100,200,200
  cls
  make matrix matrixNum,sizeX,sizeZ,tilesX,tilesZ
  prepare matrix texture matrixNum,1,across,down
  delete image 1
endfunction

+ Code Snippet

sync on : sync rate 70
set display mode 1024,768,32
global mouse_x as integer
global mouse_y as integer
global dist as integer
ConstructMatrixWithTexture(1,10000,10000,100,100,1,1,rgb(255,100,200),rgb(100,12,199),rgb(77,89,255),rgb(177,211,11))
make object sphere 1,7.5
color object 1,rgb(255,0,0)
position object 1,5000,0,5000
set camera range 1,5000
do
  text 1,1,"Screen fps: "+str$(screen fps())
  text 1,3+text height("I"),"Object pos x: "+str$(object position x(1))
  text 1,5+text height("I")*2,"Object pos z: "+str$(object position z(1))
  text 1,7+text height("I")*3,"Object tile x: "+str$(int(object position x(1)/100))
  text 1,9+text height("I")*4,"Object tile z: "+str$(int(object position z(1)/100))
  text 1,11+text height("I")*5,"Tile height: "+str$(get ground height(1,object position x(1),object position z(1)))
  position camera object position x(1)+mouse_x,object position y(1)+dist,object position z(1)+150+mouse_y
  point camera object position x(1),object position y(1),object position z(1)
  if mouseclick()=2 then inc mouse_x,mousemovex()*3 : inc mouse_y,mousemovey()*3
  if mouseclick()=1 then inc dist,mousemovey()*2
  if keystate(14)=1 then mouse_x=0 : mouse_y=0 : dist=1000
  Movement()
  if keystate(74)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))-2)
  if keystate(78)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))+2)
  update matrix 1
  sync
loop

end

function Movement()
  posz=object position z(1)-upkey()*6+downkey()*6
  posx=object position x(1)+leftkey()*6-rightkey()*6
  if posx<=1 then posx=1
  if posx>=9999 then posx=9999
  if posz<=1 then posz=1
  if posz>=9999 then posz=9999
  position object 1,posx,get ground height(1,object position x(1),object position z(1))+10,posz
endfunction

function SetGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  x=x/tileX
  z=z/tileZ
  set matrix height matrixNum,x,z,height
endfunction

function ConstructMatrixWithTexture(matrixNum,sizeX,sizeZ,tilesX,tilesZ,across,down,color1,color2,color3,color4)
  box 100,100,200,200,color1,color1,color1,color1
  get image 1,100,100,200,200
  cls
  make matrix matrixNum,sizeX,sizeZ,tilesX,tilesZ
  prepare matrix texture matrixNum,1,across,down
  delete image 1
endfunction

.

And one thing more. I've discovered a strange but cool effect when I colour the matrix. I don't wish to remove it, but could someone explain why the matrix get the texture it does. I post an .jpeg image so that you can see it directly.

Image:

Attachments

Login to view attachments

Back to top

Profile PM Email

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 28th Aug 2006 02:32 Edited at: 28th Aug 2006 02:50

Link

Any time you create then modify a matrix you must update the matrix with
the changes you made with UPDATE MATRIX matrix number.

Until you know how to use the matrix commands, I would suggest using them
without creation custom functions. This may cause you more headaches right
now.

Any time you texture a matrix with an image you would use:

Quote: "
PREPARE MATRIX TEXTURE
This command will select an image of tiled textures that the matrix will eventually use. Each grid square in
the matrix can have a tile texture, located within the image. Individual tile textures can be obtained from
the single image by slicing it into sections both across and down. The tile textures are then assigned a
number starting in the top left corner of the sectioned image and working across, then down. To section
an image into 4 smaller tile textures you would specify 2 across and 2 down.

SYNTAX
PREPARE MATRIX TEXTURE Matrix Number, Image Number, Across, Down
"

You would then use the following commands to texture your matrix.

FILL MATRIX Matrix Number, Height, Tile Number
and/or
SET MATRIX TILE Matrix Number, TileX, TileZ, Tile Number

If the image is sliced into 4 equal pieces, then the first texture image tile
would be the upper left-hand corner. The second would be the upper right-
hand corner. The third would be the lower left-hand corner. The fourth
would be the lower right-hand corner.

+ Code Snippet

sync on
sync rate 0

load image "texture.jpg",1

make matrix 1,50.0,50.0,25,25
position matrix 1,0.0,0.0,0.0

prepare matrix texture 1,1,2,2

for z=0 to 24
    for x=0 to 24
        inc tile:if tile>4 then tile=1
        set matrix tile 1, x,z,tile
    next x
next z

update matrix 1

do
sync
loop

Because the matrix was not textured and updated properly the
texture information was not referenced and you are seeing random
data from video memory.

Back to top

Profile PM

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 28th Aug 2006 10:13

Link

Advice taken. I will learn more about matrixes before I create functions. However, I'm using "update matrix" at the end of the code (just above "sync"). Are you meaning that I should move it so that I update the matrix directly after I've made the changes?

Back to top

Profile PM Email

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 28th Aug 2006 19:18

Link

Yes, you should put the update matrix command after you modify the matrix inside of your function. I wouldn't put it in the main loop unless you plan on changing the matrix every pass. I wouldn't recommend doing this either for performance reasons.

Back to top

Profile PM

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 28th Aug 2006 19:36

Link

I've put the "update matrix" command directly after the "set matrix height" in the function, but it didn't work. The problem is still there: sometimes the matrix get heigher or lower, sometimes nothing happens, and sometimes the heighet of the tile change a small bit, but then stop. I've tested to do it without any use of functions, but I got the same results. So it must be something else. Do anyone see the problem?

Current code:

sync on : sync rate 70
set display mode 1024,768,32
set window on : set window title "This is a testing program"
global mouse_x as integer
global mouse_y as integer
global dist as integer
ConstructMatrixWithTexture(1,10000,10000,100,100,1,1,rgb(45,222,123),rgb(145,22,23),rgb(245,22,112),rgb(145,122,13))
make object sphere 1,7.5
color object 1,rgb(255,0,0)
position object 1,5000,0,5000
set camera range 1,5000
do
  text 1,1,"Screen fps: "+str$(screen fps())
  text 1,3+text height("I"),"Object pos x: "+str$(object position x(1))
  text 1,5+text height("I")*2,"Object pos z: "+str$(object position z(1))
  text 1,7+text height("I")*3,"Object tile x: "+str$(int(object position x(1)/100))
  text 1,9+text height("I")*4,"Object tile z: "+str$(int(object position z(1)/100))
  text 1,11+text height("I")*5,"Tile height: "+str$(get ground height(1,object position x(1),object position z(1)))
  position camera object position x(1)+mouse_x,object position y(1)+dist,object position z(1)+150+mouse_y
  point camera object position x(1),object position y(1),object position z(1)
  if mouseclick()=2 then inc mouse_x,mousemovex()*3 : inc mouse_y,mousemovey()*3
  if mouseclick()=1 then inc dist,mousemovey()*2
  if keystate(14)=1 then mouse_x=0 : mouse_y=0 : dist=1000
  Movement()
  if keystate(74)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))-2)
  if keystate(78)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))+2)
  sync
loop

end

function Movement()
  posz=object position z(1)-upkey()*6+downkey()*6
  posx=object position x(1)+leftkey()*6-rightkey()*6
  if posx<=1 then posx=1
  if posx>=9999 then posx=9999
  if posz<=1 then posz=1
  if posz>=9999 then posz=9999
  position object 1,posx,get ground height(1,object position x(1),object position z(1))+10,posz
endfunction

function SetGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  set matrix height matrixNum,x/tileX,z/tileZ,height
  update matrix matrixNum
endfunction

function ConstructMatrixWithTexture(matrixNum as integer,sizeX as integer,sizeZ as integer,tilesX as integer,tilesZ as integer,across as integer,down as integer,color1 as integer,color2 as integer,color3 as integer,color4 as integer)
  image as integer
  box 100,100,200,200,color1,color2,color3,color4
  repeat : inc image,1 : until image exist(image)=0
  get image 1,100,100,200,200
  cls
  make matrix matrixNum,sizeX,sizeZ,tilesX,tilesZ
  prepare matrix texture matrixNum,1,across,down
  delete image image
endfunction

+ Code Snippet

sync on : sync rate 70
set display mode 1024,768,32
set window on : set window title "This is a testing program"
global mouse_x as integer
global mouse_y as integer
global dist as integer
ConstructMatrixWithTexture(1,10000,10000,100,100,1,1,rgb(45,222,123),rgb(145,22,23),rgb(245,22,112),rgb(145,122,13))
make object sphere 1,7.5
color object 1,rgb(255,0,0)
position object 1,5000,0,5000
set camera range 1,5000
do
  text 1,1,"Screen fps: "+str$(screen fps())
  text 1,3+text height("I"),"Object pos x: "+str$(object position x(1))
  text 1,5+text height("I")*2,"Object pos z: "+str$(object position z(1))
  text 1,7+text height("I")*3,"Object tile x: "+str$(int(object position x(1)/100))
  text 1,9+text height("I")*4,"Object tile z: "+str$(int(object position z(1)/100))
  text 1,11+text height("I")*5,"Tile height: "+str$(get ground height(1,object position x(1),object position z(1)))
  position camera object position x(1)+mouse_x,object position y(1)+dist,object position z(1)+150+mouse_y
  point camera object position x(1),object position y(1),object position z(1)
  if mouseclick()=2 then inc mouse_x,mousemovex()*3 : inc mouse_y,mousemovey()*3
  if mouseclick()=1 then inc dist,mousemovey()*2
  if keystate(14)=1 then mouse_x=0 : mouse_y=0 : dist=1000
  Movement()
  if keystate(74)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))-2)
  if keystate(78)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,get ground height(1,object position x(1),object position z(1))+2)
  sync
loop

end

function Movement()
  posz=object position z(1)-upkey()*6+downkey()*6
  posx=object position x(1)+leftkey()*6-rightkey()*6
  if posx<=1 then posx=1
  if posx>=9999 then posx=9999
  if posz<=1 then posz=1
  if posz>=9999 then posz=9999
  position object 1,posx,get ground height(1,object position x(1),object position z(1))+10,posz
endfunction


function SetGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  set matrix height matrixNum,x/tileX,z/tileZ,height
  update matrix matrixNum
endfunction

function ConstructMatrixWithTexture(matrixNum as integer,sizeX as integer,sizeZ as integer,tilesX as integer,tilesZ as integer,across as integer,down as integer,color1 as integer,color2 as integer,color3 as integer,color4 as integer)
  image as integer
  box 100,100,200,200,color1,color2,color3,color4
  repeat : inc image,1 : until image exist(image)=0
  get image 1,100,100,200,200
  cls
  make matrix matrixNum,sizeX,sizeZ,tilesX,tilesZ
  prepare matrix texture matrixNum,1,across,down
  delete image image
endfunction

Back to top

Profile PM Email

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 28th Aug 2006 20:45

Link

Texture looks wrong because you should not delete the image that you use to prepare matrix with.

Also, you are confused with way matrix heights work.

GET GROUND HEIGHT will tell you height at any coordinate, even within individual tiles.

GET MATRIX HEIGHT tells you height at a corner of a tile. You have 100 tiles, so you can get heights from 'tiles' 0 to 100

SET MATRIX HEIGHT lets you update height at one of the corners. You can not set height at any arbatry coordinate.

Because your ball is moving anywhere and not just selecting the corners of tiles, you are getting weird results.

This code works but will raise and lower tile corner near the ball.

Ideally you should only make ball move 100 units at once.

Hopefully this helps.

sync on : sync rate 70
set display mode 1024,768,32
set window on : set window title "This is a testing program"
global mouse_x as integer
global mouse_y as integer
global dist as integer
ConstructMatrixWithTexture(1,10000,10000,100,100,1,1,rgb(45,222,123),rgb(145,22,23),rgb(245,22,112),rgb(145,122,13))
make object sphere 1,7.5
color object 1,rgb(255,0,0)
position object 1,5000,0,5000
set camera range 1,5000
do
  text 1,1,"Screen fps: "+str$(screen fps())
  text 1,3+text height("I"),"Object pos x: "+str$(object position x(1))
  text 1,5+text height("I")*2,"Object pos z: "+str$(object position z(1))
  text 1,7+text height("I")*3,"Object tile x: "+str$(int(object position x(1)/100))
  text 1,9+text height("I")*4,"Object tile z: "+str$(int(object position z(1)/100))
  text 1,11+text height("I")*5,"Tile height: "+str$(get ground height(1,object position x(1),object position z(1)))
  position camera object position x(1)+mouse_x,object position y(1)+dist,object position z(1)+150+mouse_y
  point camera object position x(1),object position y(1),object position z(1)
  if mouseclick()=2 then inc mouse_x,mousemovex()*3 : inc mouse_y,mousemovey()*3
  if mouseclick()=1 then inc dist,mousemovey()*2
  if keystate(14)=1 then mouse_x=0 : mouse_y=0 : dist=1000
  Movement()
  if keystate(74)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,-2)
  if keystate(78)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,2)
  sync
loop

end

function Movement()
  posz=object position z(1)-upkey()*6+downkey()*6
  posx=object position x(1)+leftkey()*6-rightkey()*6
  if posx<=1 then posx=1
  if posx>=9999 then posx=9999
  if posz<=1 then posz=1
  if posz>=9999 then posz=9999
  position object 1,posx,get ground height(1,object position x(1),object position z(1))+10,posz
endfunction

function SetGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  tx=x/tileX
  tz=z/tileZ
  set matrix height matrixNum,tx,tz,get matrix height(matrixNum,tx,tz)+height
  update matrix matrixNum
endfunction

function ConstructMatrixWithTexture(matrixNum as integer,sizeX as integer,sizeZ as integer,tilesX as integer,tilesZ as integer,across as integer,down as integer,color1 as integer,color2 as integer,color3 as integer,color4 as integer)
  image as integer
  box 100,100,200,200,color1,color2,color3,color4
  repeat : inc image,1 : until image exist(image)=0
  get image 1,100,100,200,200
  cls
  make matrix matrixNum,sizeX,sizeZ,tilesX,tilesZ
  prepare matrix texture matrixNum,1,across,down
`  delete image image
endfunction

+ Code Snippet

sync on : sync rate 70
set display mode 1024,768,32
set window on : set window title "This is a testing program"
global mouse_x as integer
global mouse_y as integer
global dist as integer
ConstructMatrixWithTexture(1,10000,10000,100,100,1,1,rgb(45,222,123),rgb(145,22,23),rgb(245,22,112),rgb(145,122,13))
make object sphere 1,7.5
color object 1,rgb(255,0,0)
position object 1,5000,0,5000
set camera range 1,5000
do
  text 1,1,"Screen fps: "+str$(screen fps())
  text 1,3+text height("I"),"Object pos x: "+str$(object position x(1))
  text 1,5+text height("I")*2,"Object pos z: "+str$(object position z(1))
  text 1,7+text height("I")*3,"Object tile x: "+str$(int(object position x(1)/100))
  text 1,9+text height("I")*4,"Object tile z: "+str$(int(object position z(1)/100))
  text 1,11+text height("I")*5,"Tile height: "+str$(get ground height(1,object position x(1),object position z(1)))
  position camera object position x(1)+mouse_x,object position y(1)+dist,object position z(1)+150+mouse_y
  point camera object position x(1),object position y(1),object position z(1)
  if mouseclick()=2 then inc mouse_x,mousemovex()*3 : inc mouse_y,mousemovey()*3
  if mouseclick()=1 then inc dist,mousemovey()*2
  if keystate(14)=1 then mouse_x=0 : mouse_y=0 : dist=1000
  Movement()
  if keystate(74)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,-2)
  if keystate(78)=1 then SetGroundHeight(1,object position x(1),object position z(1),100,100,2)
  sync
loop

end

function Movement()
  posz=object position z(1)-upkey()*6+downkey()*6
  posx=object position x(1)+leftkey()*6-rightkey()*6
  if posx<=1 then posx=1
  if posx>=9999 then posx=9999
  if posz<=1 then posz=1
  if posz>=9999 then posz=9999
  position object 1,posx,get ground height(1,object position x(1),object position z(1))+10,posz
endfunction


function SetGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  tx=x/tileX
  tz=z/tileZ
  set matrix height matrixNum,tx,tz,get matrix height(matrixNum,tx,tz)+height
  update matrix matrixNum
endfunction

function ConstructMatrixWithTexture(matrixNum as integer,sizeX as integer,sizeZ as integer,tilesX as integer,tilesZ as integer,across as integer,down as integer,color1 as integer,color2 as integer,color3 as integer,color4 as integer)
  image as integer
  box 100,100,200,200,color1,color2,color3,color4
  repeat : inc image,1 : until image exist(image)=0
  get image 1,100,100,200,200
  cls
  make matrix matrixNum,sizeX,sizeZ,tilesX,tilesZ
  prepare matrix texture matrixNum,1,across,down
`  delete image image
endfunction

Boo!

Back to top

Profile PM Website

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 28th Aug 2006 21:35

Link

Thanks spooky. It works now

. But, however, I like the strange texture of the matrix, so I think I'll keep it.

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 29th Aug 2006 03:25

Link

I may look at your code a bit later, but I need to say this:

Matrix tiles are completely different from actual positions. They are not both the same. When you use the MAKE MATRIX command, those last 2 numbers are the amount of Tiles on the X axis and the amount on the Z Axis. A matrix can be thought of as a grid. Each tile is like a box on the grid. So, this:

Make Matrix 1,1000,1000,12,12

would make a matrix with 12 tiles on the X axis, and 12 tiles on the Z axis. Or, going back to our grid example, it would make a 12x12 grid. This:

Make Matrix 1,1000,1000,12,15

would make a 12x15 grid. Understood? Now, when you raise the height of a matrix, using the SET MATRIX HEIGHT command, when you specify the X and Z values, it will raise that tile or grid square, not the actual coordinate itself. So this:

Make MAtrix 1,1000,1000,12,12
Set MAtrix Height 1,4,6,100

would make a matrix with 12 tiles on each axis, and then it would change the height of the tile that is in tile 4 on the X axis, and 6 on the Z axis.

Sorry if you understood already. I thought I posted this earlier but then I came back a few hours later and it turns out I didn't

Back to top

Profile PM Email

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 30th Aug 2006 11:35

Link

My code works fine now. Thanks for the help anyway, Sixty. It's a good explanaition.

Quote: "Sorry if you understood already. I thought I posted this earlier but then I came back a few hours later and it turns out I didn't "

Lol, no problem. You don't have to appologise for trying to help.

Back to top

Profile PM Email

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 3rd Sep 2006 15:13

Link

I'm´now trying to make so objects on an matrix moves towards the lowest point, if it is positioned in a "hill". If I heigher a tile on the matrix, and a cupple of objects are on it, I want them to move down until the get to a plain surfus again. But, however, the system doesn't work, everytime I start the program it complains that

Quote: " Runtime Error 118 - Array does not exist or array subscript out of bounds at line 136"

. This is the function I use:

function ApplyBasicEnviromentalSliding(matrixNum as integer,matrixStartX as integer,matrixStartZ as integer,matrixWidthX as integer,matrixWidthZ as integer,startObj as integer,endObj as integer)

if endObj-startObj >= 0

rem Create the local arrays
  dim positions( endObj-startObj ) as pos
  dim remnants( endObj-startObj ) as remn

rem The FOR-NEXT loop
  for n=startObj to endObj

rem The different positions and their height
    positions(n).height = get ground height(matrixNum,object position x(n),object position z(n))
    positions(n).minX = get ground height(matrixNum,object position x(n)-1,object position z(n))
    positions(n).maxX = get ground height(matrixNum,object position x(n)+1,object position z(n))
    positions(n).minZ = get ground height(matrixNum,object position x(n),object position z(n)-1)
    positions(n).maxZ = get ground height(matrixNum,object position x(n),object position z(n)+1)
    positions(n).minXnegZ = get ground height(matrixNum,object position x(n)-1,object position z(n)-1)
    positions(n).maxXnegZ = get ground height(matrixNum,object position x(n)+1,object position z(n)-1)
    positions(n).minZnegX = get ground height(matrixNum,object position x(n)-1,object position z(n)-1)
    positions(n).maxZnegX = get ground height(matrixNum,object position x(n)-1,object position z(n)+1)
    positions(n).minXposZ = get ground height(matrixNum,object position x(n)-1,object position z(n)+1)
    positions(n).maxXposZ = get ground height(matrixNum,object position x(n)+1,object position z(n)+1)
    positions(n).minZposX = get ground height(matrixNum,object position x(n)+1,object position z(n)-1)
    positions(n).maxZposX = get ground height(matrixNum,object position x(n)+1,object position z(n)+1)

rem Compare the heights and find the lowest point around the object
    if positions(n).minX < positions(n).maxX
      remnants(n).aFX = positions(n).minX
    else
      remnants(n).aFX = positions(n).minZ
    endif
    if positions(n).minZ < positions(n).maxZ
      remnants(n).aFZ = positions(n).maxX
    else
      remnants(n).aFZ = positions(n).maxZ
    endif
    if remnants(n).aFX < remnants(n).aFZ
      remnants(n).aSXZ = remnants(n).aFX
    else
      remnants(n).aSXZ = remnants(n).aFZ
    endif

if positions(n).minXnegZ < positions(n).maxXnegZ
      remnants(n).aFXnegZ = positions(n).minXnegZ
    else
      remnants(n).aFXnegZ = positions(n).minZnegX
    endif
    if positions(n).minZnegX < positions(n).maxZnegX
      remnants(n).aFZnegX = positions(n).minZnegX
    else
      remnants(n).aFZnegX = positions(n).minZnegX
    endif
    if remnants(n).aFXnegZ < remnants(n).aFZnegX
      remnants(n).aSXZneg = remnants(n).aFXnegZ
    else
      remnants(n).aSXZneg = remnants(n).aFZnegX
    endif

if positions(n).minXposZ < positions(n).maxXposZ
      remnants(n).aFXposZ = 1
    else
      remnants(n).aFXposZ = 0
    endif
    if positions(n).minZposX < positions(n).maxZposX
      remnants(n).aFZposX = 1
    else
      remnants(n).aFZposX = 0
    endif
    if remnants(n).aFXposZ < remnants(n).aFZposX
      remnants(n).aSXZpos = remnants(n).aFXposZ
    else
      remnants(n).aSXZpos = remnants(n).aFZposX
    endif

if remnants(n).aSXZneg < remnants(n).aSXZpos
      remnants(n).Alt = aSXZneg
    else
      remnants(n).Alt = aSXZpos
    endif

if remnants(n).aSXZ < remnants(n).Alt
      remnants(n).finalHeight = remnants(n).aSXZ
    else
      remnants(n).finalHeight = remnants(n).Alt
    endif

rem Position the object in the lowest point
    if remnants(n).finalHeight < positions(n).height

if remnants(n).finalHeight = positions(n).minX then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)
      if remnants(n).finalHeight = positions(n).maxX then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)
      if remnants(n).finalHeight = positions(n).minZ then positions(n).newX = object position x(n) : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxZ then positions(n).newX = object position x(n) : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).minXnegZ then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxXnegZ then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).minZnegX then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxZnegX then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).minXposZ then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).maxXposZ then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).minZposX then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxZposX then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)+1

position object n,positions(n).newX,remnants(n).finalHeight + 22,positions(n).newZ

endif

next n

rem Undim the arrays
  undim positions()
  undim remnants()

rem Set up the limits of movement
  if object position x(n) < matrixStartX then position object n,matrixStartX,object position y(n),object position z(n)
  if object position x(n) > matrixStartX + matrixWidthX then position object n,matrixStartX + matrixWidthX,object position y(n),object position z(n)
  if object position z(n) < matrixStartZ then position object n,object position x(n),object position y(n),matrixStartZ
  if object position z(n) > matrixStartZ + matrixWidthZ then position object n,object position x(n),object position y(n),matrixStartZ + matrixWidthZ

endif

endfunction

+ Code Snippet

function ApplyBasicEnviromentalSliding(matrixNum as integer,matrixStartX as integer,matrixStartZ as integer,matrixWidthX as integer,matrixWidthZ as integer,startObj as integer,endObj as integer)

if endObj-startObj >= 0

  rem Create the local arrays
  dim positions( endObj-startObj ) as pos
  dim remnants( endObj-startObj ) as remn

  rem The FOR-NEXT loop
  for n=startObj to endObj

    rem The different positions and their height
    positions(n).height = get ground height(matrixNum,object position x(n),object position z(n))
    positions(n).minX = get ground height(matrixNum,object position x(n)-1,object position z(n))
    positions(n).maxX = get ground height(matrixNum,object position x(n)+1,object position z(n))
    positions(n).minZ = get ground height(matrixNum,object position x(n),object position z(n)-1)
    positions(n).maxZ = get ground height(matrixNum,object position x(n),object position z(n)+1)
    positions(n).minXnegZ = get ground height(matrixNum,object position x(n)-1,object position z(n)-1)
    positions(n).maxXnegZ = get ground height(matrixNum,object position x(n)+1,object position z(n)-1)
    positions(n).minZnegX = get ground height(matrixNum,object position x(n)-1,object position z(n)-1)
    positions(n).maxZnegX = get ground height(matrixNum,object position x(n)-1,object position z(n)+1)
    positions(n).minXposZ = get ground height(matrixNum,object position x(n)-1,object position z(n)+1)
    positions(n).maxXposZ = get ground height(matrixNum,object position x(n)+1,object position z(n)+1)
    positions(n).minZposX = get ground height(matrixNum,object position x(n)+1,object position z(n)-1)
    positions(n).maxZposX = get ground height(matrixNum,object position x(n)+1,object position z(n)+1)


    rem Compare the heights and find the lowest point around the object
    if positions(n).minX < positions(n).maxX
      remnants(n).aFX = positions(n).minX
    else
      remnants(n).aFX = positions(n).minZ
    endif
    if positions(n).minZ < positions(n).maxZ
      remnants(n).aFZ = positions(n).maxX
    else
      remnants(n).aFZ = positions(n).maxZ
    endif
    if remnants(n).aFX < remnants(n).aFZ
      remnants(n).aSXZ = remnants(n).aFX
    else
      remnants(n).aSXZ = remnants(n).aFZ
    endif

    if positions(n).minXnegZ < positions(n).maxXnegZ
      remnants(n).aFXnegZ = positions(n).minXnegZ
    else
      remnants(n).aFXnegZ = positions(n).minZnegX
    endif
    if positions(n).minZnegX < positions(n).maxZnegX
      remnants(n).aFZnegX = positions(n).minZnegX
    else
      remnants(n).aFZnegX = positions(n).minZnegX
    endif
    if remnants(n).aFXnegZ < remnants(n).aFZnegX
      remnants(n).aSXZneg = remnants(n).aFXnegZ
    else
      remnants(n).aSXZneg = remnants(n).aFZnegX
    endif

    if positions(n).minXposZ < positions(n).maxXposZ
      remnants(n).aFXposZ = 1
    else
      remnants(n).aFXposZ = 0
    endif
    if positions(n).minZposX < positions(n).maxZposX
      remnants(n).aFZposX = 1
    else
      remnants(n).aFZposX = 0
    endif
    if remnants(n).aFXposZ < remnants(n).aFZposX
      remnants(n).aSXZpos = remnants(n).aFXposZ
    else
      remnants(n).aSXZpos = remnants(n).aFZposX
    endif

    if remnants(n).aSXZneg < remnants(n).aSXZpos
      remnants(n).Alt = aSXZneg
    else
      remnants(n).Alt = aSXZpos
    endif

    if remnants(n).aSXZ < remnants(n).Alt
      remnants(n).finalHeight = remnants(n).aSXZ
    else
      remnants(n).finalHeight = remnants(n).Alt
    endif

    rem Position the object in the lowest point
    if remnants(n).finalHeight < positions(n).height

      if remnants(n).finalHeight = positions(n).minX then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)
      if remnants(n).finalHeight = positions(n).maxX then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)
      if remnants(n).finalHeight = positions(n).minZ then positions(n).newX = object position x(n) : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxZ then positions(n).newX = object position x(n) : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).minXnegZ then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxXnegZ then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).minZnegX then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxZnegX then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).minXposZ then positions(n).newX = object position x(n)-1 : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).maxXposZ then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)+1
      if remnants(n).finalHeight = positions(n).minZposX then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)-1
      if remnants(n).finalHeight = positions(n).maxZposX then positions(n).newX = object position x(n)+1 : positions(n).newZ = object position z(n)+1

      position object n,positions(n).newX,remnants(n).finalHeight + 22,positions(n).newZ

    endif

  next n

  rem Undim the arrays
  undim positions()
  undim remnants()

  rem Set up the limits of movement
  if object position x(n) < matrixStartX then position object n,matrixStartX,object position y(n),object position z(n)
  if object position x(n) > matrixStartX + matrixWidthX then position object n,matrixStartX + matrixWidthX,object position y(n),object position z(n)
  if object position z(n) < matrixStartZ then position object n,object position x(n),object position y(n),matrixStartZ
  if object position z(n) > matrixStartZ + matrixWidthZ then position object n,object position x(n),object position y(n),matrixStartZ + matrixWidthZ

endif

endfunction

. The function is called in the main loop and looks like this:

+ Code Snippet

 ApplyBasicEnviromentalSliding(1,0,0,10000,10000,2,501)

. Why doesn't it work? Can anyone see the problem?

Back to top

Profile PM Email

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 7th Sep 2006 02:34 Edited at: 7th Sep 2006 02:35

Link

Ahh, did we forget to define the variable TYPES used with your arrays within the function?

Back to top

Profile PM

Mr X

19

Years of Service

User Offline

Joined: 25th Sep 2005

Location: Universe, milkyway, sol-system, Earth...

Posted: 7th Sep 2006 15:09

Link

No, I did not forget that. And I typed the array as I should. Here is the entire source if it would help:

sync on : sync rate 70
set display mode 1024,768,32
set window on : set window title "This is a testing program"

rem Define user defined types
type pos
  height as integer
  newX as integer
  newZ as integer
  minX as integer
  maxX as integer
  minZ as integer
  maxZ as integer
  minXnegZ as integer
  maxXnegZ as integer
  minZnegX as integer
  maxZnegX as integer
  minXposZ as integer
  maxXposZ as integer
  minZposX as integer
  maxZposX as integer
endtype

type remn
  aFX as integer
  aFZ as integer
  aFXnegZ as integer
  aFZnegX as integer
  aFXposZ as integer
  aFZposX as integer
  aSXZ as integer
  aSXZneg as integer
  aSXZpos as integer
  Alt as integer
  finalHeight as integer
endtype

rem Global variables
global mouse_x as integer
global mouse_y as integer
global dist as integer

rem Create the enviroment enviroment
ConstructMatrixWithTexture(1,10000,10000,100,100,1,1,rgb(45,222,123),rgb(145,22,23),rgb(245,22,112),rgb(145,122,13),0)
for n=1 to 500
  make object box n+1,40+rnd(100),44,40+rnd(100)
  pos_x=rnd(9998)+1 : pos_z=rnd(9998)+1
  position object n+1,pos_x,get ground height(1,pos_x,pos_z)+22,pos_z
next n

rem Create the palyer
make object sphere 1,7.5
color object 1,rgb(255,0,0)
position object 1,5000,0,5000
set object collision to spheres 1
set camera range 1,5000

dist = 400

rem Main loop
do

rem The text
  text 1,1,"Screen fps: "+str$(screen fps())
  text 1,3+text height("I"),"Object pos x: "+str$(object position x(1))
  text 1,5+text height("I")*2,"Object pos z: "+str$(object position z(1))
  text 1,7+text height("I")*3,"Object tile x: "+str$(int(object position x(1)/100))
  text 1,9+text height("I")*4,"Object tile z: "+str$(int(object position z(1)/100))
  text 1,11+text height("I")*5,"Tile height: "+str$(get ground height(1,object position x(1),object position z(1)))

rem Controls
  position camera object position x(1)+mouse_x,object position y(1)+dist,object position z(1)+150+mouse_y
  point camera object position x(1),object position y(1),object position z(1)
  if mouseclick()=2 then inc mouse_x,mousemovex()*3 : inc mouse_y,mousemovey()*3
  if mouseclick()=1 then inc dist,mousemovey()*2
  if keystate(14)=1 then mouse_x = 0 : mouse_y = 0 : dist = 500
  Movement()

rem Set the height of the matrix
  if keystate(74)=1 then IncGroundHeight(1,object position x(1),object position z(1),100,100,-2)
  if keystate(78)=1 then IncGroundHeight(1,object position x(1),object position z(1),100,100,2)

ApplyBasicEnviromentalSliding(1,0,0,10000,10000,2,501)

rem Update object positions
  for n=1 to 500
    position object n+1,object position x(n+1),get ground height(1,object position x(n+1),object position z(n+1))+22,object position z(n+1)
  next n

rem Update screen
  sync

loop

end

function Movement()
  posz = object position z(1)-upkey()*6+downkey()*6
  posx = object position x(1)+leftkey()*6-rightkey()*6
  if posx <= 1 then posx = 1
  if posx >= 9999 then posx = 9999
  if posz <= 1 then posz = 1
  if posz >= 9999 then posz = 9999
  position object 1,posx,get ground height(1,object position x(1),object position z(1))+10,posz
endfunction

function IncGroundHeight(matrixNum,x as float,z as float,tileX as integer,tileZ as integer,height as float)
  set matrix height matrixNum,x/tileX,z/tileZ,get matrix height(matrixNum,x/tileX,z/tileZ)+height
  update matrix matrixNum
endfunction

function ConstructMatrixWithTexture(matrixNum as integer,sizeX as integer,sizeZ as integer,tilesX as integer,tilesZ as integer,across as integer,down as integer,color1 as integer,color2 as integer,color3 as integer,color4 as integer, memoryView as boolean)
  image as integer
  box 100,100,200,200,color1,color2,color3,color4
  repeat : inc image,1 : until image exist(image)=0
  get image 1,100,100,200,200
  cls
  make matrix matrixNum,sizeX,sizeZ,tilesX,tilesZ
  prepare matrix texture matrixNum,1,across,down
  if memoryView = 1 then delete image image
endfunction