Previewing Created Terrain - GameCreators Forum

Author

Message

Veron

17

Years of Service

User Offline

Joined: 22nd Nov 2006

Location:

Posted: 22nd Jul 2007 06:36

Link

Well, i've been making a few terrain objects in 3D World Studio, and exported them into .X files. What I want to be able to do is load up the terrain model in DBP (obviously possible using the LOAD OBJECT command), and then look down on the terrain, so I can see what it looks like in-game.

I tried using some simple things like the LOAD OBJECT command, and then positioning the camera, but it didn't work.

All help is appreciated, thanks.

[center]

Back to top

Profile PM

Jane Doe

17

Years of Service

User Offline

Joined: 29th Jun 2007

Location:

Posted: 22nd Jul 2007 09:34

Link

What exactly do you mean by "it didn't work"? Did the model not load? Was it somehow not displayed properly? Did you not see it at all? Did the program fail to run altogether? What were these "simple things" you tried? Did you have camera movement so that you could look around in case the terrain was there but wasn't where you thought it was going to be? Was your camera range set appropriately? What was the cull state of the model?

In short, we need more info.

- Jane

Back to top

Profile PM Email

Veron

17

Years of Service

User Offline

Joined: 22nd Nov 2006

Location:

Posted: 22nd Jul 2007 10:18 Edited at: 22nd Jul 2007 11:35

Link

Good point, thanks. I'll post the exact code I used and screens in a second.

EDIT : Here's the code i'm using, here, what i'm trying to do is get the player to walk along the terrain.

Sync On : Hide Mouse
`----------------( Setup Matrix )------------------------------------------
PRINT "LOADING....."
LOAD OBJECT "MAP.x",1
LOAD IMAGE "CYGRASS1.bmp",1
POSITION OBJECT 1,0,0,0
TEXTURE OBJECT 1,1
MAKE OBJECT CUBE 10,5

`----------------( Main loop  )-------------------------------------------
Do

`Control input for camera
  If Upkey()=1 then Move object 10,1
  If Leftkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)-5)
  If Rightkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)+5)
  Yrotate Object 10,wrapvalue(Object Angle Y(10)+MouseMoveX())

`Slide Object On Matrix

_ChaseObject(10,10,15,1)  `Chase Object With 3rd Person Camera
`Display Frames Per-Second
  Set Cursor 1,1 : Print Screen FPS()
 Sync
Loop

Function _ChaseObject(ObjectNum,Dist,Hei,MatrixNum)
  `Store Object angle Y in aY#
       aY# = Object angle Y(10)
  `get player object position and store in X# and Z#
       X# = Object position x(ObjectNum)
       Z# = Object position z(ObjectNum)
       Y# = Object Position Y(ObjectNum)

`get new camera position and store in cZ# and cX#
       cZ# = Newzvalue(Z#,aY#-180,DIST)
       cX# = Newxvalue(X#,aY#-180,DIST)

`position camera
       Position Camera cX#,cY#,cZ#

`point the camera at the player object
       Point camera X#,y#+5,Z#
EndFunction

+ Code Snippet

Sync On : Hide Mouse
`----------------( Setup Matrix )------------------------------------------
PRINT "LOADING....."
LOAD OBJECT "MAP.x",1
LOAD IMAGE "CYGRASS1.bmp",1
POSITION OBJECT 1,0,0,0
TEXTURE OBJECT 1,1
MAKE OBJECT CUBE 10,5

`----------------( Main loop  )-------------------------------------------
Do


`Control input for camera
  If Upkey()=1 then Move object 10,1
  If Leftkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)-5)
  If Rightkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)+5)
  Yrotate Object 10,wrapvalue(Object Angle Y(10)+MouseMoveX())

`Slide Object On Matrix

  _ChaseObject(10,10,15,1)  `Chase Object With 3rd Person Camera
`Display Frames Per-Second
  Set Cursor 1,1 : Print Screen FPS()
 Sync
Loop

Function _ChaseObject(ObjectNum,Dist,Hei,MatrixNum)
  `Store Object angle Y in aY#
       aY# = Object angle Y(10)
  `get player object position and store in X# and Z#
       X# = Object position x(ObjectNum)
       Z# = Object position z(ObjectNum)
       Y# = Object Position Y(ObjectNum)

   `get new camera position and store in cZ# and cX#
       cZ# = Newzvalue(Z#,aY#-180,DIST)
       cX# = Newxvalue(X#,aY#-180,DIST)

   `position camera
       Position Camera cX#,cY#,cZ#

   `point the camera at the player object
       Point camera X#,y#+5,Z#
EndFunction

Media download attached so you can compile the source, and a screenshot link of the problem below below:

http://img172.imageshack.us/img172/3599/screen1jg7.jpg

[center]

Attachments

Login to view attachments

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 22nd Jul 2007 12:56 Edited at: 22nd Jul 2007 13:13

Link

you are to low on the terrain

add some value to the camera y# position like:

Position Camera cX#,cY#+200,cZ#

[edit]
also notice that you are not checking the terrain height at player position

this may do it:

Function _ChaseObject(ObjectNum,Dist,Hei,MatrixNum)
`Store Object angle Y in aY#
aY# = Object angle Y(10)
`get player object position and store in X# and Z#
X# = Object position x(ObjectNum)
Z# = Object position z(ObjectNum)
th#=intersect object(1,x#,10000,z#,x#,-10000,z#)
y#=10000-th#
position object 10,x#,y#,z#

`get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,DIST)
cX# = Newxvalue(X#,aY#-180,DIST)
cy#=y#+100
`position camera
Position Camera cX#,cY#,cZ#

`point the camera at the player object
Point camera X#,th#+5,Z#
EndFunction

Back to top

Profile PM

Veron

17

Years of Service

User Offline

Joined: 22nd Nov 2006

Location:

Posted: 22nd Jul 2007 13:43

Link

I'm still getting the exact same result as before with the code you suggested Scorpyo, but thanks anyway.

Current code :

Sync On : Hide Mouse
`----------------( Setup Matrix )------------------------------------------
PRINT "LOADING....."
WAIT 10
LOAD OBJECT "MAP.x",1
LOAD IMAGE "CYGRASS1.bmp",1
POSITION OBJECT 1,0,0,0
TEXTURE OBJECT 1,1
MAKE OBJECT CUBE 10,5

`----------------( Main loop  )-------------------------------------------
Do

`Control input for camera
  If Upkey()=1 then Move object 10,1
  If Leftkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)-5)
  If Rightkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)+5)
  Yrotate Object 10,wrapvalue(Object Angle Y(10)+MouseMoveX())

`Slide Object On Matrix

`Chase Object With 3rd Person Camera
`Display Frames Per-Second
  Set Cursor 1,1 : Print Screen FPS()
 Sync
Loop

Function _ChaseObject(ObjectNum,Dist,Hei,MatrixNum)
`Store Object angle Y in aY#
aY# = Object angle Y(10)
`get player object position and store in X# and Z#
X# = Object position x(ObjectNum)
Z# = Object position z(ObjectNum)
th#=intersect object(1,x#,10000,z#,x#,-10000,z#)
y#=10000-th#
position object 10,x#,y#,z#

`get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,DIST)
cX# = Newxvalue(X#,aY#-180,DIST)
cy#=y#+100
`position camera
Position Camera cX#,cY#+200,cZ#

`point the camera at the player object
Point camera X#,th#+5,Z#
EndFunction

+ Code Snippet

Sync On : Hide Mouse
`----------------( Setup Matrix )------------------------------------------
PRINT "LOADING....."
WAIT 10
LOAD OBJECT "MAP.x",1
LOAD IMAGE "CYGRASS1.bmp",1
POSITION OBJECT 1,0,0,0
TEXTURE OBJECT 1,1
MAKE OBJECT CUBE 10,5

`----------------( Main loop  )-------------------------------------------
Do


`Control input for camera
  If Upkey()=1 then Move object 10,1
  If Leftkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)-5)
  If Rightkey()=1 then Yrotate object 10,Wrapvalue(Object Angle Y(10)+5)
  Yrotate Object 10,wrapvalue(Object Angle Y(10)+MouseMoveX())

`Slide Object On Matrix

`Chase Object With 3rd Person Camera
`Display Frames Per-Second
  Set Cursor 1,1 : Print Screen FPS()
 Sync
Loop

Function _ChaseObject(ObjectNum,Dist,Hei,MatrixNum)
`Store Object angle Y in aY#
aY# = Object angle Y(10)
`get player object position and store in X# and Z#
X# = Object position x(ObjectNum)
Z# = Object position z(ObjectNum)
th#=intersect object(1,x#,10000,z#,x#,-10000,z#)
y#=10000-th#
position object 10,x#,y#,z#

`get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,DIST)
cX# = Newxvalue(X#,aY#-180,DIST)
cy#=y#+100
`position camera
Position Camera cX#,cY#+200,cZ#

`point the camera at the player object
Point camera X#,th#+5,Z#
EndFunction

[center]

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 22nd Jul 2007 18:58

Link

I apologize, I realize now that i left many mistakes unchanged in your code
here's a working example

Attachments

Login to view attachments

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Previewing Created Terrain

Attachments

Attachments