Help with mouse controled camera

Author

Message

JABBER

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Indiana, USA

Posted: 17th Mar 2005 05:28

Link

This is how new I am, Trying to get the camera to rotate with the mouse, I'll worry about moveing in the direction the mouse pionted later, would like the x movement of the mouse rotate the camera along the y axis. feel free to laugh at this noob code, Thanks for ya help

I left it with the media cause I bet you guys can look at this one and see what's wrong right away

[/code]Rem Project: Shooting_range
Rem Created: 3/15/2005 11:15:09 PM

Rem ***** Main Source File *****

load object "shooting_range.3ds",1
scale object 1,200,200,200

set ambient light 55

cmx#=1
cmz#=-5
a#=0
b#=0

do

cmx#=cmx#+a#
cmz#=cmz#+b#
cay#=mousemovex()

position camera 0,cmx#,1,cmz#
yrotate camera 0,cay#*0.5
a#=0
b#=0

rem Control player movement
if upkey()=1 then b#=.02
if downkey()=1 then b#=-.02
if leftkey()=1 then a#=-.02
if rightkey()=1 then a#=.02

sync
loop[code]

Back to top

Profile PM Email Website

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 17th Mar 2005 05:42 Edited at: 17th Mar 2005 05:43

Link

Take a look here: http://forum.thegamecreators.com/?m=forum_view&t=50467&b=10

Also, to make a Code Snippet on this fourm you have to have the "code" command before the "/code" command.

So, it will show up like this:

+ Code Snippet

Code goes here

Hope that helps

.

Check Out My Site Here: http://www.freewebs.com/underworld1020/

Back to top

Profile PM

Spaceman Spiff

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Smacking my head on your keyboard.

Posted: 17th Mar 2005 16:42

Link

Here is my highly butchered version of the controls from the 3d Mhunt tut.

Rem  Control input for camera
   If Upkey() or keystate(17)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

If Downkey() or keystate(31)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

If Leftkey() or keystate(30)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

If Rightkey() or keystate(32)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

Rem Rotate camera
   cTestX#=WrapValue(cAX#-180)
   if cTestX# > 225 then cAX#=45
   if cTestX# < 135 then cAX#=315

YRotate camera CurveAngle(cAY#,oldcAY#,24)
   XRotate camera CurveAngle(cAX#,oldcAX#,24)
   Y# = Get ground height(1,X#,Z#)+35

+ Code Snippet

 Rem  Control input for camera
   If Upkey() or keystate(17)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Downkey() or keystate(31)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Leftkey() or keystate(30)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Rightkey() or keystate(32)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   Rem Rotate camera
   cTestX#=WrapValue(cAX#-180)
   if cTestX# > 225 then cAX#=45
   if cTestX# < 135 then cAX#=315

   YRotate camera CurveAngle(cAY#,oldcAY#,24)
   XRotate camera CurveAngle(cAX#,oldcAX#,24)
   Y# = Get ground height(1,X#,Z#)+35

You may need to play with it a wee bit before it works right for you.

Smile, it confuses people.

Back to top

Profile PM

Los

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Location:

Posted: 17th Mar 2005 18:05

Link

well one line I saw something wrong.. two if you include no wrapvalue() in there.

cay#=mousemovex()

from what I can bring up from my memory, mousemovex() will give you how FAST you move the mouse on the X axis. This means that the camera will jitter left or right, then return to the center.

from what I can advise? you need to ADD that mouse value, to cay..

cay#= cay# + mousemovex()
yrotate camera cay#

or something like that. I have not tested.

**Officialy has a mental illness.
" Ahh to finish something! My boy, have you ever accomplished anything? "

Back to top

Profile PM

Los

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Location:

Posted: 17th Mar 2005 18:09

Link

+ Code Snippet

make object cube 1,10

do

cay#= cay# + mousemovex()
cay#=wrapvalue(cay#)
yrotate camera cay#

sync
loop

oops. IT only rotates 180. good for target ranges huh?

now you fiddle with code. like divide the cay# value, so it completes the 360 cycle. Or use spiffs code

**Officialy has a mental illness.
" Ahh to finish something! My boy, have you ever accomplished anything? "

Back to top

Profile PM

Los

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Location:

Posted: 17th Mar 2005 18:11 Edited at: 17th Mar 2005 18:13

Link

more work on the code... it rotates all the way around now for some strange reason. IT is this you need to understand.

+ Code Snippet

make object cube 1,10

do

cay#= cay# + (mousemovex()*2)
cay#=wrapvalue(cay#)
yrotate camera cay#

sync
loop

I'm guessing that before, when it reached the mouse pointer reached the edge of the screen, it would not be able to move right or left anymore.. so mousemovex() would equal zero.. because it cannot move that way anymore (edge of screen!)

when I added the *2? ..erm.. thats to be understood. see what I mean?

**Officialy has a mental illness.
" Ahh to finish something! My boy, have you ever accomplished anything? "

Back to top

Profile PM

Los

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Location:

Posted: 17th Mar 2005 18:15 Edited at: 17th Mar 2005 18:16

Link

ok ok.. I'm a moron. No not because I don't edit my posts. I did that for a reason.

The first code DOES work. It does rotate... sorry about that. How did I figure this out?! well I used

text 240,0,str$(mousemovex())

and it told me what was being added to cay#!! simple.

**Officialy has a mental illness.
" Ahh to finish something! My boy, have you ever accomplished anything? "

Back to top

Profile PM

JABBER

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Indiana, USA

Posted: 18th Mar 2005 03:00

Link

Very nice Thanks for the help guys, I used your code as a guide line, cause if I just copy/paste I'll never grasp it, That mousemovex was it, that camera jumping left or right and then returning to center. Day 5 now and I'm completely hooked! Thanks again

now for poly collision, LOL

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with mouse controled camera