Another ? to further your hatred towards me!

Author

Message

Sir Spaghetti Code

20

Years of Service

User Offline

Joined: 12th Jul 2004

Location: Just left of Hell

Posted: 2nd Aug 2004 15:43

Link

OK. I'm have gotten the coding correct for the mouse to control the camera angle, but I cannot move forward or strife (which is the latest addition in this tutorial). I believe the problem is that I am starting outside of the matrix, where I have checks to make sure that I do not move off of it. Here is the code:

sync on
sync rate 30
backdrop on

set camera range 1,5000
fog on
fog distance 4000
fog color rgb(128,128,128)
color backdrop rgb(128,128,128)

make matrix 1,10000,10000,20,20
load image "rustyIron.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

randomize matrix 1,125

rem this is where I tried to reposition my self in the middle of the matrix
position camera 200,0,200

do

oldcamangleY# = camangleY#
   oldcamangleX# = camangleX#
   camangleY# = wrapvalue(camangleY#+mousemoveX()*0.2)
   camangleX# = wrapvalue(camangleX#+mousemoveY()*0.2)

rem I do not exactly understand this part about the movements
   if upkey()=1
      xtest#=newxvalue(x#,aY#,20)
      ztest#=newzvalue(z#,aY#,20)
      if xtest#>0 and xtest<10000 and ztest#>0 and ztest#<10000
         X#=xtest#
         Z#=ztest#
      endif
   endif

if downkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#-180),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-180),10)
      if xtest#>0 and xtest<10000 and ztest#>0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

rem Here is where I added the strifing
   if leftkey()=1
      xtest#=newxvalue(X#,WrapValue(camangleY#-90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-90),10)
      if xtest#>0 and xtest#<10000 and ztest#>0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

rem more strifing here
   if rightkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#+90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#+90),10)
      if xtest#>0 and xtest#<10000 and ztest#>0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

Yrotate camera curveangle(camangleY#,oldcamangleY#,24)
   Xrotate camera curveAngle(camangleX#,oldcamangleX#,24)

y# = get ground height(1,X#,Z#)

position camera X#,Y#+50,Z#

sync
loop

+ Code Snippet

sync on
sync rate 30
backdrop on

set camera range 1,5000
fog on
fog distance 4000
fog color rgb(128,128,128)
color backdrop rgb(128,128,128)

make matrix 1,10000,10000,20,20
load image "rustyIron.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1


randomize matrix 1,125

rem this is where I tried to reposition my self in the middle of the matrix
position camera 200,0,200

do

   oldcamangleY# = camangleY#
   oldcamangleX# = camangleX#
   camangleY# = wrapvalue(camangleY#+mousemoveX()*0.2)
   camangleX# = wrapvalue(camangleX#+mousemoveY()*0.2)

   rem I do not exactly understand this part about the movements
   if upkey()=1
      xtest#=newxvalue(x#,aY#,20)
      ztest#=newzvalue(z#,aY#,20)
      if xtest#>0 and xtest<10000 and ztest#>0 and ztest#<10000
         X#=xtest#
         Z#=ztest#
      endif
   endif

   if downkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#-180),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-180),10)
      if xtest#>0 and xtest<10000 and ztest#>0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

   rem Here is where I added the strifing
   if leftkey()=1
      xtest#=newxvalue(X#,WrapValue(camangleY#-90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-90),10)
      if xtest#>0 and xtest#<10000 and ztest#>0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

   rem more strifing here
   if rightkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#+90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#+90),10)
      if xtest#>0 and xtest#<10000 and ztest#>0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

   Yrotate camera curveangle(camangleY#,oldcamangleY#,24)
   Xrotate camera curveAngle(camangleX#,oldcamangleX#,24)

   y# = get ground height(1,X#,Z#)

   position camera X#,Y#+50,Z#

   sync
loop

I am sorry to keep asking ?s, but I am trying to finish these tutorials, then I will begin with my own simple game. Thank you all for being patient with me!

Fraggles where quite the scary lot...

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 2nd Aug 2004 16:06

Link

Indeed that was it

Here is the code to get you around that and to place the camera in the middle of the matrix. I put comments in to all I changed and marked changed areas of the code with *************

`%ProjectTitle%
`======================
`©%Author%
`======================
`Main Source File
sync on
sync rate 30
backdrop on

set camera range 1,5000
fog on
fog distance 4000
fog color rgb(128,128,128)
color backdrop rgb(128,128,128)

make matrix 1,10000,10000,20,20
load image "rustyIron.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

randomize matrix 1,125
`**************************************************************************
`**************************************************************************
` add to keep DBP from automatically placing camera
autocam off
rem this is where I tried to reposition my self in the middle of the matrix
position camera 4999,4999,4999
` add to give you newvalue commands a starting position in the middle of the map
X# = 4999
Y# = 4999
Z# = 4999
`**************************************************************************
`**************************************************************************

do

oldcamangleY# = camangleY#
   oldcamangleX# = camangleX#
   camangleY# = wrapvalue(camangleY#+mousemoveX()*0.2)
   camangleX# = wrapvalue(camangleX#+mousemoveY()*0.2)

rem I do not exactly understand this part about the movements
   if upkey()=1
      xtest#=newxvalue(x#,aY#,20)
      ztest#=newzvalue(z#,aY#,20)
`**************************************************************************
`**************************************************************************
` changed >0 to >=0 as the edge of the matrix is actually at 0,0
      if xtest#>=0 and xtest<10000 and ztest#>=0 and ztest#<10000
         X#=xtest#
         Z#=ztest#
      endif
   endif

if downkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#-180),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-180),10)
      if xtest#>=0 and xtest<10000 and ztest#>=0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

rem Here is where I added the strifing
   if leftkey()=1
      xtest#=newxvalue(X#,WrapValue(camangleY#-90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-90),10)
      if xtest#>=0 and xtest#<10000 and ztest#>=0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

rem more strifing here
   if rightkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#+90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#+90),10)
      if xtest#>=0 and xtest#<10000 and ztest#>=0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif
`**************************************************************************
`**************************************************************************

Yrotate camera curveangle(camangleY#,oldcamangleY#,24)
   Xrotate camera curveAngle(camangleX#,oldcamangleX#,24)

y# = get ground height(1,X#,Z#)

position camera X#,Y#+50,Z#

sync
loop

+ Code Snippet

`%ProjectTitle%
`======================
`©%Author%
`======================
`Main Source File
sync on
sync rate 30
backdrop on

set camera range 1,5000
fog on
fog distance 4000
fog color rgb(128,128,128)
color backdrop rgb(128,128,128)

make matrix 1,10000,10000,20,20
load image "rustyIron.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1


randomize matrix 1,125
`**************************************************************************
`**************************************************************************
` add to keep DBP from automatically placing camera
autocam off
rem this is where I tried to reposition my self in the middle of the matrix
position camera 4999,4999,4999
` add to give you newvalue commands a starting position in the middle of the map
X# = 4999
Y# = 4999
Z# = 4999
`**************************************************************************
`**************************************************************************

do

   oldcamangleY# = camangleY#
   oldcamangleX# = camangleX#
   camangleY# = wrapvalue(camangleY#+mousemoveX()*0.2)
   camangleX# = wrapvalue(camangleX#+mousemoveY()*0.2)

   rem I do not exactly understand this part about the movements
   if upkey()=1
      xtest#=newxvalue(x#,aY#,20)
      ztest#=newzvalue(z#,aY#,20)
`**************************************************************************
`**************************************************************************
` changed >0 to >=0 as the edge of the matrix is actually at 0,0
      if xtest#>=0 and xtest<10000 and ztest#>=0 and ztest#<10000
         X#=xtest#
         Z#=ztest#
      endif
   endif

   if downkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#-180),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-180),10)
      if xtest#>=0 and xtest<10000 and ztest#>=0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

   rem Here is where I added the strifing
   if leftkey()=1
      xtest#=newxvalue(X#,WrapValue(camangleY#-90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#-90),10)
      if xtest#>=0 and xtest#<10000 and ztest#>=0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif

   rem more strifing here
   if rightkey()=1
      xtest#=newxvalue(X#,wrapvalue(camangleY#+90),10)
      ztest#=newzvalue(Z#,wrapvalue(camangleY#+90),10)
      if xtest#>=0 and xtest#<10000 and ztest#>=0 and ztest#<10000
         X# = xtest#
         Z# = ztest#
      endif
   endif
`**************************************************************************
`**************************************************************************

   Yrotate camera curveangle(camangleY#,oldcamangleY#,24)
   Xrotate camera curveAngle(camangleX#,oldcamangleX#,24)

   y# = get ground height(1,X#,Z#)

   position camera X#,Y#+50,Z#

   sync
loop

Also you will probably not like the method of moving that is used here as it does not allow for the change in camera direction. I will let you continue with the tutorial as it may show you a way around this. If you need any help with it just post a message.

Back to top

Profile PM Email

Sir Spaghetti Code

20

Years of Service

User Offline

Joined: 12th Jul 2004

Location: Just left of Hell

Posted: 3rd Aug 2004 02:14

Link

Thank you! Works well now! only prob is that when I push forward, i only move in the direction that I was facing when the program started. IE: When I use the mouse to turn right, and then press up, I move to the left. Same direction as I was in when it started.

Fraggles where quite the scary lot...

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 3rd Aug 2004 03:57 Edited at: 3rd Aug 2004 05:32

Link

Yeah thats what I was talking about with the movement controls.
[edit] Will check back when I get home. To see if you got it. Let me know how it goes.
[edit2] If you have the Retail version of DBP (I know the cd version has it) I would recommend going through the FPS example/tutorial that comes with DBP.

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 3rd Aug 2004 05:37

Link

Yeah, you need to have an X & Z movement angle applied to the camera, so you can update the position in the direction you're facing.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Sir Spaghetti Code

20

Years of Service

User Offline

Joined: 12th Jul 2004

Location: Just left of Hell

Posted: 3rd Aug 2004 09:51

Link

Oh OK, sorry, I didn't quite understand what you meant, as I was at work and had not tried it out yet! I'll continue on with the tut! Thanks!

@SandraD: Thanks! If I continue to have problems with it after doing the next tut, I'll try that (maybe that is the next tut

)

Fraggles where quite the scary lot...

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 3rd Aug 2004 13:00

Link

Well good luck. Let us know how it goes.

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 3rd Aug 2004 13:17

Link

Sir Spaghetti Code;

Well, what I meant is -- say you are facing North, the normal angle of the camera. That is the same as zero degrees. If you turn right, you can face North-North-East, North-East or East as you choose. These are 22.5, 45 and 90 degrees respectively. When you walk forward, the angle of the direction you're going determines how much you move in the X & Z directions, using in DB the NEWXVALUE and NEWZVALUE commands based on your heading. (Or direction.) That's really how easy it is....

Good Luck,
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Another ? to further your hatred towards me!