Looking Up - GameCreators Forum

Author

Message

badkneecap

14

Years of Service

User Offline

Joined: 21st Jun 2010

Location:

Posted: 11th Jul 2010 18:58

Link

I've been able to get my joystick to control my character in a 3D environment. I started working off of the "Huge Dungeon" tutorial. I set the left joystick to move forward and straf left and right. I have my right joystick to rotate left and right. The last thing I'm trying to do is make my right joystick look up and down, not actualy rotate. That way, when I move forward, I still move along the floor or ceiling and not move toward it. Is there an easy command to do this?

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 12th Jul 2010 06:12

Link

Okay, this is something that I literally threw together in a hurry. It should show you how to make the camera scroll up and down without actually moving the camera up or down. I couldn't get my joystick twist to work on anything but the Z axis, so I wrote it using the arrow keys instead, but you can easily plug the joystick commands in.

So, it places a box on top of a larger green box so that you can get a perspective on things. You move the up / down arrow keys to tilt the camera up and down. Pressing the left/right arrow keys rotates the camera in that direction. Pressing the LMB will move you forward and pressing the RMB will move you back. Spacekey exits.

sync on : sync rate 60
make object box 2,5000,10,5000
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0
repeat
  z# =camera angle z() : x# = camera angle x() : y# = camera angle y()
  if upkey() = 1
    x# = x# - cos(x#) : xrotate camera x#
  endif
  if downkey() = 1
    x# = x# + cos(x#) : xrotate camera x#
  endif
  if rightkey() = 1
    y# = wrapvalue(y# + 1.0)
    yrotate camera y#
  endif
  if leftkey() = 1
    y# = wrapvalue(y# - 1.0)
    yrotate camera y#
  endif
  mc = mouseclick()
  if mc = 1
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,5)
    nz# = newzvalue(cz#,cay#,5)
    position camera nx#,cy#,nz#
  endif
  if mc = 2
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,-5)
    nz# = newzvalue(cz#,cay#,-5)
    position camera nx#,cy#,nz#
   endif
   sync
until spacekey() = 1
for i = 1 to 2
  delete object i
next i
end

+ Code Snippet

sync on : sync rate 60
make object box 2,5000,10,5000
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0
repeat
  z# =camera angle z() : x# = camera angle x() : y# = camera angle y()
  if upkey() = 1
    x# = x# - cos(x#) : xrotate camera x#
  endif
  if downkey() = 1
    x# = x# + cos(x#) : xrotate camera x#
  endif
  if rightkey() = 1
    y# = wrapvalue(y# + 1.0)
    yrotate camera y#
  endif
  if leftkey() = 1
    y# = wrapvalue(y# - 1.0)
    yrotate camera y#
  endif
  mc = mouseclick()
  if mc = 1
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,5)
    nz# = newzvalue(cz#,cay#,5)
    position camera nx#,cy#,nz#
  endif
  if mc = 2
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,-5)
    nz# = newzvalue(cz#,cay#,-5)
    position camera nx#,cy#,nz#
   endif
   sync
until spacekey() = 1
for i = 1 to 2
  delete object i
next i
end

Hope this helps you,

LB

Back to top

Profile PM Email

badkneecap

14

Years of Service

User Offline

Joined: 21st Jun 2010

Location:

Posted: 13th Jul 2010 21:04

Link

Actually, it did help a lot. The more I play around with it and see other people's examples, the more I realize that it is... well... rather "basic".

Back to top

Profile PM Email

badkneecap

14

Years of Service

User Offline

Joined: 21st Jun 2010

Location:

Posted: 15th Jul 2010 05:03

Link

So, the example helped, but now I have my next problem. I'm trying to use the left joystick to straf the camera left and right. I got the following code from another user. It was working, but with your method of looking up and down and moving forward, it doesn't work. How can I modify it so it works with your code?

+ Code Snippet

if (joystick x() + 100) < 0
	cay# = camera angle y()
	pitch camera up -cay#
   	
	TURN CAMERA LEFT 90
	MOVE CAMERA maxcubes * .0001 * -(joystick x() + 100)
	TURN CAMERA RIGHT 90
	pitch camera up cay#
endif
if (joystick x() - 100) > 0
	cay# = camera angle y()
	pitch camera up -cay#
   	
	TURN CAMERA RIGHT 90
	MOVE CAMERA maxcubes * .0001 * (joystick x() - 100)
	TURN CAMERA LEFT 90
	pitch camera up cay#
endif

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 15th Jul 2010 18:02

Link

The up/down action is done by looking at the joystick y axis, not the x axis (it is confusing because you are rotating on the x axis). Anyway, this should use the left stick on the joystick to strafe when moved. I didn't know the value of maxcubes, so I plugged in 100 and it seemed to work okay. I didn't know how you wanted to move forward/backward, so it still uses the mouse buttons.

sync on : sync rate 60
make object box 2,5000,10,5000
maxcubes = 100
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0
repeat
  z# =camera angle z() : x# = camera angle x() : y# = camera angle y()
  if (joystick y() > 500)
    x# = x# - cos(x#) : xrotate camera x#
  endif
  if (joystick y() < -500)
    x# = x# + cos(x#) : xrotate camera x#
  endif
  if joystick x() > 500
 `  y# = wrapvalue(y# + 1.0)
  ` yrotate camera y#
    TURN CAMERA RIGHT 90
    MOVE CAMERA maxcubes * .0001 * (joystick x() - 100)
    TURN CAMERA LEFT 90

endif
  if joystick x() < - 500
`   y# = wrapvalue(y# - 1.0)
 `  yrotate camera y#
    TURN CAMERA LEFT 90
    MOVE CAMERA maxcubes * .0001 * -(joystick x() + 100)
    TURN CAMERA RIGHT 90
  endif
  mc = mouseclick()
  if mc = 1
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,5)
    nz# = newzvalue(cz#,cay#,5)
    position camera nx#,cy#,nz#
  endif
  if mc = 2
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,-5)
    nz# = newzvalue(cz#,cay#,-5)
    position camera nx#,cy#,nz#
   endif
   sync
until spacekey() = 1
for i = 1 to 2
  delete object i
next i
end

+ Code Snippet

sync on : sync rate 60
make object box 2,5000,10,5000
maxcubes = 100
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0
repeat
  z# =camera angle z() : x# = camera angle x() : y# = camera angle y()
  if (joystick y() > 500)
    x# = x# - cos(x#) : xrotate camera x#
  endif
  if (joystick y() < -500)
    x# = x# + cos(x#) : xrotate camera x#
  endif
  if joystick x() > 500
 `  y# = wrapvalue(y# + 1.0)
  ` yrotate camera y#
    TURN CAMERA RIGHT 90
    MOVE CAMERA maxcubes * .0001 * (joystick x() - 100)
    TURN CAMERA LEFT 90

  endif
  if joystick x() < - 500
`   y# = wrapvalue(y# - 1.0)
 `  yrotate camera y#
    TURN CAMERA LEFT 90
    MOVE CAMERA maxcubes * .0001 * -(joystick x() + 100)
    TURN CAMERA RIGHT 90
  endif
  mc = mouseclick()
  if mc = 1
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,5)
    nz# = newzvalue(cz#,cay#,5)
    position camera nx#,cy#,nz#
  endif
  if mc = 2
    cay# = camera angle y()
    cx# =camera position x()
    cy# = camera position y()
    cz# = camera position z()
    nx# = newxvalue(cx#,cay#,-5)
    nz# = newzvalue(cz#,cay#,-5)
    position camera nx#,cy#,nz#
   endif
   sync
until spacekey() = 1
for i = 1 to 2
  delete object i
next i
end

LB

So many games to code.......so little time.

Back to top

Profile PM Email

badkneecap

14

Years of Service

User Offline

Joined: 21st Jun 2010

Location:

Posted: 16th Jul 2010 04:11

Link

We're getting close, but I am losing my direction somewhere. I believe I narrowed it down to the y rotate. I modified your code to help demonstrate.

sync on : sync rate 60
make object box 2,5000,10,5000
maxcubes = 100
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0

repeat
	z# =camera angle z() : x# = camera angle x() : y# = camera angle y()
	
	if UPKEY() then x# = x# - cos(x#) : xrotate camera x#
	if DOWNKEY() then x# = x# + cos(x#) : xrotate camera x#

if keystate(32) = 1
		TURN CAMERA RIGHT 90
		MOVE CAMERA 1
		TURN CAMERA LEFT 90
	endif
	if keystate(30) = 1
		TURN CAMERA LEFT 90
		MOVE CAMERA 1
		TURN CAMERA RIGHT 90
	endif
	
	Rem - Make right joystick rotate screen left and right.
	if RIGHTKEY()
		y# = wrapvalue(y# + 1.0)
		yrotate camera y#
	endif
	if LEFTKEY()
		y# = wrapvalue(y# - 1.0)
		yrotate camera y#
	endif

if keystate(17) = 1
		cay# = camera angle y()
		cx# =camera position x()
		cy# = camera position y()
		cz# = camera position z()
		nx# = newxvalue(cx#,cay#,1)
		nz# = newzvalue(cz#,cay#,1)
		position camera nx#,cy#,nz#
	endif
	if keystate(31) = 1
		cay# = camera angle y()
		cx# =camera position x()
		cy# = camera position y()
		cz# = camera position z()
		nx# = newxvalue(cx#,cay#,-1)
		nz# = newzvalue(cz#,cay#,-1)
		position camera nx#,cy#,nz#
	endif
	
sync

until spacekey() = 1
	for i = 1 to 2
	delete object i
next i

end

+ Code Snippet

sync on : sync rate 60
make object box 2,5000,10,5000
maxcubes = 100
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0

repeat
	z# =camera angle z() : x# = camera angle x() : y# = camera angle y()
	
	if UPKEY() then x# = x# - cos(x#) : xrotate camera x#
	if DOWNKEY() then x# = x# + cos(x#) : xrotate camera x#

	if keystate(32) = 1
		TURN CAMERA RIGHT 90
		MOVE CAMERA 1
		TURN CAMERA LEFT 90
	endif
	if keystate(30) = 1
		TURN CAMERA LEFT 90
		MOVE CAMERA 1
		TURN CAMERA RIGHT 90
	endif
	
	Rem - Make right joystick rotate screen left and right.
	if RIGHTKEY()
		y# = wrapvalue(y# + 1.0)
		yrotate camera y#
	endif
	if LEFTKEY()
		y# = wrapvalue(y# - 1.0)
		yrotate camera y#
	endif

	if keystate(17) = 1
		cay# = camera angle y()
		cx# =camera position x()
		cy# = camera position y()
		cz# = camera position z()
		nx# = newxvalue(cx#,cay#,1)
		nz# = newzvalue(cz#,cay#,1)
		position camera nx#,cy#,nz#
	endif
	if keystate(31) = 1
		cay# = camera angle y()
		cx# =camera position x()
		cy# = camera position y()
		cz# = camera position z()
		nx# = newxvalue(cx#,cay#,-1)
		nz# = newzvalue(cz#,cay#,-1)
		position camera nx#,cy#,nz#
	endif
	
sync

until spacekey() = 1
	for i = 1 to 2
	delete object i
next i

end

Use the WASD keys to move forward and backward and straf left and right. Use the left and right keys to rotate on the Y axis. This all works good for awhile, but it then seems to break. To reproduce, use the keys to move up to the box, and straf around it. At some point when you are behind it, the keys take on a different angle or something. Seems to go from positive to negative? Something weird is going on.

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 16th Jul 2010 18:37

Link

Okay, that was a tricky one, but I think I have gotten it ironed out. Check this out:

sync on : sync rate 60
make object box 2,5000,10,5000
maxcubes = 100
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0
repeat
   if UPKEY() then x# = camera angle x() : x# = x# - cos(x#) : xrotate camera x#
   if DOWNKEY() then x# = camera angle x() : x# = x# + cos(x#) : xrotate camera x#

if keystate(32) = 1
      y# = camera angle y()
      cx# =camera angle x()
      cz# = camera angle z()
      y# = wrapvalue(y# + 90)
      rotate camera 0,y#,0
      move camera 1
      y# = wrapvalue(y# - 90)
      rotate camera cx#,y#,cz#
   endif
   if keystate(30) = 1
      y# = camera angle y()
      cx# = camera angle x()
      cz# = camera angle z()
      y# = wrapvalue(y# - 90)
      rotate camera 0,y#,0
      move camera 1
      y# = wrapvalue(y# + 90)
      rotate camera cx#,y#,cz#
   endif

Rem - Make right joystick rotate screen left and right.
   if RIGHTKEY()
      y# = camera angle y()
      y# = wrapvalue(y# + 1.0)
      yrotate camera y#
   endif
   if LEFTKEY()
      y# = camera angle y()
      y# = wrapvalue(y# - 1.0)
      yrotate camera y#
   endif

if keystate(17) = 1
      cay# = camera angle y()
      cx# =camera position x()
      cy# = camera position y()
      cz# = camera position z()
      nx# = newxvalue(cx#,cay#,1)
      nz# = newzvalue(cz#,cay#,1)
      position camera nx#,cy#,nz#
   endif
   if keystate(31) = 1
      cay# = camera angle y()
      cx# =camera position x()
      cy# = camera position y()
      cz# = camera position z()
      nx# = newxvalue(cx#,cay#,-1)
      nz# = newzvalue(cz#,cay#,-1)
      position camera nx#,cy#,nz#
   endif

sync

until spacekey() = 1
   for i = 1 to 2
   delete object i
next i

end

+ Code Snippet

sync on : sync rate 60
make object box 2,5000,10,5000
maxcubes = 100
color object 2,rgb(0,225,0)
position object 2,0,-5,0
make object cube 1,10
position object 1,0,5,0
position camera 0,5,-220
point camera 0,0,0
repeat
   if UPKEY() then x# = camera angle x() : x# = x# - cos(x#) : xrotate camera x#
   if DOWNKEY() then x# = camera angle x() : x# = x# + cos(x#) : xrotate camera x#

   if keystate(32) = 1
      y# = camera angle y()
      cx# =camera angle x()
      cz# = camera angle z()
      y# = wrapvalue(y# + 90)
      rotate camera 0,y#,0
      move camera 1
      y# = wrapvalue(y# - 90)
      rotate camera cx#,y#,cz#
   endif
   if keystate(30) = 1
      y# = camera angle y()
      cx# = camera angle x()
      cz# = camera angle z()
      y# = wrapvalue(y# - 90)
      rotate camera 0,y#,0
      move camera 1
      y# = wrapvalue(y# + 90)
      rotate camera cx#,y#,cz#
   endif

   Rem - Make right joystick rotate screen left and right.
   if RIGHTKEY()
      y# = camera angle y()
      y# = wrapvalue(y# + 1.0)
      yrotate camera y#
   endif
   if LEFTKEY()
      y# = camera angle y()
      y# = wrapvalue(y# - 1.0)
      yrotate camera y#
   endif

   if keystate(17) = 1
      cay# = camera angle y()
      cx# =camera position x()
      cy# = camera position y()
      cz# = camera position z()
      nx# = newxvalue(cx#,cay#,1)
      nz# = newzvalue(cz#,cay#,1)
      position camera nx#,cy#,nz#
   endif
   if keystate(31) = 1
      cay# = camera angle y()
      cx# =camera position x()
      cy# = camera position y()
      cz# = camera position z()
      nx# = newxvalue(cx#,cay#,-1)
      nz# = newzvalue(cz#,cay#,-1)
      position camera nx#,cy#,nz#
   endif

sync

until spacekey() = 1
   for i = 1 to 2
   delete object i
next i

end

LB

So many games to code.......so little time.

Back to top

Profile PM Email

badkneecap

14

Years of Service

User Offline

Joined: 21st Jun 2010

Location:

Posted: 17th Jul 2010 17:44

Link

Yes, this works much better. Thanks for all your help. I see now how much more important it is to work with the camera angles.

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 17th Jul 2010 18:44 Edited at: 17th Jul 2010 18:45

Link

You're welcome.

The turn camera commands can be a little difficult to work with and I usually end up writing something myself instead of using them.

Good luck on your project.

So many games to code.......so little time.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Looking Up