camera help - GameCreators Forum

Author

Message

JoelJ

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location: UTAH

Posted: 11th Nov 2003 07:14 Edited at: 11th Nov 2003 07:17

Link

i need help with making it so when i press left it moves the camera to the left NOT ROTATE, and right when i press the right arrow.

i also was playing around with this code here

+ Code Snippet

Make matrix 1,10000,10000,20,20

and changed the 20s to 50s
and got the following results (BMPs sorry)

with the 20s
http://www.geocities.com/deathlink84095/2020.bmp

with the 50s
http://www.geocities.com/deathlink84095/5050.bmp

that is the ONLY thing i changed. i just ran my program, hit the prntscrn button, didnt touch one other button. any help on why it is doing that?

now that i have played around "in game" a bit, i find that the view changes from the roughness of the terrain, but that brings up another question. why is it more rough when i use more segments?

Two words, moo.

Back to top

Profile PM Website

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 11th Nov 2003 14:23

Link

1)
The camera, to move it left and right, use

+ Code Snippet

If LeftKey() = 1 Then cx# = NewXValue(Camera Position X(),Camera Angle Y()-90,2)
If RightKey() = 1 Then cx# = NewXValue(Camera Position X(),Camera Angle Y()+90,2)

2)The terrain becomes "more rough" because, i assume you are useing the Randomize Matrix command, therefore, when that command is called, it randomizes the height of every single point on the matrix within the value tha tyou specify.
And since you made the matrix have 50 segments rather than 20, there is then ALOT more points (to see this, put on wireframe for the matrix and chenge the values, you'll see the difference). And when the matrix is randomised, each point is changed, therefore the more segments (ie the more points) you have in a matrix, when it is randomized it appears more "rough"

Hope I Helped...

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

Back to top

Profile PM Email Website

JoelJ

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location: UTAH

Posted: 12th Nov 2003 01:48

Link

it didnt work, but im sure that its just my stupididy.
i really dont quite understand how the camera works. but heres my code.

+ Code Snippet

Sync On : Sync Rate 30 : hide mouse : backdrop on : color backdrop rgb(0,120,255)
if fog available()=1 then Fog on : Fog Distance 3000 : Fog Color rgb(100,140,150)

` make matrix
Make matrix 1,10000,10000,20,20

` texture matrix
Load image "images\grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

` Make player
Make object sphere 10,25
position object 10,1000,100,100

` Randomize the matrix
randomize matrix 1,125

` Main loop
Do
   ` Store Object angle
   AngleY# = object angle Y(10)

   ` Control input for camera
   If LeftKey() = 1 Then cx# = NewXValue(Camera Position X(),Camera Angle Y()-90,2)
   If RightKey() = 1 Then cx# = NewXValue(Camera Position X(),Camera Angle Y()+90,2)

   ` Refresh Screen
   Sync
Loop

Two words, moo.

Back to top

Profile PM Website

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 12th Nov 2003 05:32

Link

Ok i changed this:

+ Code Snippet

   ` Control input for camera
   If LeftKey() = 1 Then cx# = NewXValue(Camera Position X(),Camera Angle Y()-90,2)
   If RightKey() = 1 Then cx# = NewXValue(Camera Position X(),Camera Angle Y()+90,2)

To this:

+ Code Snippet

   ` Control input for camera
   If LeftKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()-90),5)
   If RightKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()+90),5)
   If UpKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),5)
   If DownKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),-5)

   cy# = (Get Ground Height(1,cx#,cz#) + 100)
   Position Camera cx#,cy#,cz#

Hope I Helped...

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

Back to top

Profile PM Email Website

JoelJ

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location: UTAH

Posted: 12th Nov 2003 05:54

Link

awsome! thanx a lot! with that done, i can finaly get my program workin!

Two words, moo.

Back to top

Profile PM Website

JoelJ

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location: UTAH

Posted: 12th Nov 2003 06:05 Edited at: 12th Nov 2003 06:27

Link

ok now i have another problem.
iv been trying to get this to work, iv been reading the tutorials and such to try and get this to work, but i cant seem to get it to work

mouse view. i want it so when you move the mouse, it moves your view.

also, what do you put if you want to make it not equal to? (<, >, <=, >=, =, ??)

Two words, moo.

Back to top

Profile PM Website

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 12th Nov 2003 07:06

Link

ok, for mouse view im not too sure, sorry...

But, for the not equal to, its <> ie, both the greater than and less than symbols.

Hope I Helped...

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

Back to top

Profile PM Email Website

JoelJ

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location: UTAH

Posted: 12th Nov 2003 07:08

Link

okey, i got it working. but now i have another problem: (sorry, im just learning how to use the camera, so i am confused!)
it'll be easier to explain if you see my program in action

Sync On : Sync Rate 30 : hide mouse : backdrop on : color backdrop rgb(0,120,255)
if fog available()=1 then Fog on : Fog Distance 2500 : Fog Color rgb(100,140,150)

` make matrix
Make matrix 1,10000,10000,20,20

` Make player
Make object sphere 10,25
position object 10,1000,100,100

` Randomize the matrix
randomize matrix 1,125

`position camera
cy# = 100 : cx# = 1000 : cy# = 1000
` Main loop
Do
   ` Store Object angle
   AngleY# = object angle Y(10)

` Control input for camera

`mouse look
   cax#=wrapvalue(cax#+mousemovey()*0.25)
   cay#=wrapvalue(cay#+mousemovex()*0.25)
   rotate camera cax#,cay#,0

`mouse wheel moves up and down
   cy# = cy# + (MouseMoveZ() / 50)

`arrow keys move camera left/right, up down
   If LeftKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()-90),5)
   If RightKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()+90),5)
   If UpKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),5)
   If DownKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),-5)

if returnkey() = 1 then set matrix wireframe on 1
   if spacekey() = 1 then set matrix wireframe off 1
`  cy# = (Get Ground Height(1,cx#,cz#) + 100)

Position Camera cx#,cy#,cz#

Sync
Loop

+ Code Snippet

Sync On : Sync Rate 30 : hide mouse : backdrop on : color backdrop rgb(0,120,255)
if fog available()=1 then Fog on : Fog Distance 2500 : Fog Color rgb(100,140,150)

` make matrix
Make matrix 1,10000,10000,20,20

` Make player
Make object sphere 10,25
position object 10,1000,100,100

` Randomize the matrix
randomize matrix 1,125

`position camera
cy# = 100 : cx# = 1000 : cy# = 1000
` Main loop
Do
   ` Store Object angle
   AngleY# = object angle Y(10)

   ` Control input for camera

   `mouse look
   cax#=wrapvalue(cax#+mousemovey()*0.25)
   cay#=wrapvalue(cay#+mousemovex()*0.25)
   rotate camera cax#,cay#,0

   `mouse wheel moves up and down
   cy# = cy# + (MouseMoveZ() / 50)

   `arrow keys move camera left/right, up down
   If LeftKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()-90),5)
   If RightKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()+90),5)
   If UpKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),5)
   If DownKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),-5)

   if returnkey() = 1 then set matrix wireframe on 1
   if spacekey() = 1 then set matrix wireframe off 1
`  cy# = (Get Ground Height(1,cx#,cz#) + 100)

   Position Camera cx#,cy#,cz#

   Sync
Loop

alrighty then. you should be able to just copy and paste that in and it will work. arrows move camera forward,backwards,lt,rt, mouse wheel moves camera up/down, amd we've got mouse look.

what i want it to do, is move forward when you press up no matter what way you are looking, and the same for all directions. and if you run the program you will see what it is doing.

Two words, moo.

Back to top

Profile PM Website

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 12th Nov 2003 09:00

Link

Ok, my examples that i gave you were not fully correct, i appologize, here is your code:

+ Code Snippet

` Main loop
Do
   ` Store Object angle
   AngleY# = object angle Y(10)

   ` Control input for camera

   `mouse look
   cax#=wrapvalue(cax#+mousemovey()*0.25)
   cay#=wrapvalue(cay#+mousemovex()*0.25)
   rotate camera cax#,cay#,0

   `mouse wheel moves up and down
   cy# = cy# + (MouseMoveZ() / 50)

   `arrow keys move camera left/right, up down
   If LeftKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()-90),5)
   If RightKey() = 1 Then cx# = NewXValue(Camera Position X(),WrapValue(Camera Angle Y()+90),5)
   If UpKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),5)
   If DownKey() = 1 Then cz# = NewZValue(Camera Position Z(),Camera Angle Y(),-5)

   if returnkey() = 1 then set matrix wireframe on 1
   if spacekey() = 1 then set matrix wireframe off 1
`  cy# = (Get Ground Height(1,cx#,cz#) + 100)

   Position Camera cx#,cy#,cz#

   Sync
Loop

Change this to:

` Main loop
Do
   ` Store Object angle
   AngleY# = object angle Y(10)

`Camera Position and angle values
   cax# = Camera Angle X()
   cay# = Camera Angle Y()
   caz# = Camera Angle Z()

cx# = Camera Position X()
   cy# = Camera Position Y()
   cz# = Camera Position Z()

` Control input for camera

`mouse look
   If MouseMoveY() <> 0 Then cax# = wrapvalue(cax# + mousemovey() * 0.25)
   If MouseMoveX() <> 0 Then cay# = wrapvalue(cay# + mousemovex() * 0.25)

`mouse wheel moves up and down
   If MouseMoveZ() <> 0 Then cy# = cy# + (MouseMoveZ() / 50)

`arrow keys move camera left/right, up down
   If LeftKey() = 1
      cx# = NewXValue(cx#,WrapValue(cay#-90),5)
      cz# = NewZValue(cz#,WrapValue(cay#-90),5)
   EndIf

If RightKey() = 1
      cx# = NewXValue(cx#,WrapValue(cay#+90),5)
      cz# = NewZValue(cz#,WrapValue(cay#+90),5)
   EndIf

If UpKey() = 1
      cx# = NewXValue(cx#,cay#,5)
      cz# = NewZValue(cz#,cay#,5)
   EndIf

If DownKey() = 1
      cx# = NewXValue(cx#,cay#,-5)
      cz# = NewZValue(cz#,cay#,-5)
   EndIf

rotate camera cax#,cay#,caz#
   Position Camera cx#,cy#,cz#

if returnkey() = 1 then set matrix wireframe on 1
   if spacekey() = 1 then set matrix wireframe off 1

Sync
Loop

+ Code Snippet

` Main loop
Do
   ` Store Object angle
   AngleY# = object angle Y(10)

   `Camera Position and angle values
   cax# = Camera Angle X()
   cay# = Camera Angle Y()
   caz# = Camera Angle Z()

   cx# = Camera Position X()
   cy# = Camera Position Y()
   cz# = Camera Position Z()

   ` Control input for camera

   `mouse look
   If MouseMoveY() <> 0 Then cax# = wrapvalue(cax# + mousemovey() * 0.25)
   If MouseMoveX() <> 0 Then cay# = wrapvalue(cay# + mousemovex() * 0.25)

   `mouse wheel moves up and down
   If MouseMoveZ() <> 0 Then cy# = cy# + (MouseMoveZ() / 50)

   `arrow keys move camera left/right, up down
   If LeftKey() = 1
      cx# = NewXValue(cx#,WrapValue(cay#-90),5)
      cz# = NewZValue(cz#,WrapValue(cay#-90),5)
   EndIf

   If RightKey() = 1
      cx# = NewXValue(cx#,WrapValue(cay#+90),5)
      cz# = NewZValue(cz#,WrapValue(cay#+90),5)
   EndIf

   If UpKey() = 1
      cx# = NewXValue(cx#,cay#,5)
      cz# = NewZValue(cz#,cay#,5)
   EndIf

   If DownKey() = 1
      cx# = NewXValue(cx#,cay#,-5)
      cz# = NewZValue(cz#,cay#,-5)
   EndIf


   rotate camera cax#,cay#,caz#
   Position Camera cx#,cy#,cz#


   if returnkey() = 1 then set matrix wireframe on 1
   if spacekey() = 1 then set matrix wireframe off 1

   Sync
Loop

You will notice that both the x and z values need to be updated for the positioning to work in 3 dimentions, previously, it was only calculating for the x value for the strafing and the x value for the movement, where as it should have been calculating for both values...

Hope I Helped...

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

Back to top

Profile PM Email Website

JoelJ

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location: UTAH

Posted: 12th Nov 2003 18:18

Link

ok awsome! i'll try this when i get home

Two words, moo.

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / camera help