need help with rotation - GameCreators Forum

Author

Message

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 13th Jan 2005 04:03

Link

Hi
I need a little help with rotating my cube in a game I´m making.
Here´s the code:

+ Code Snippet

REM update screen
  sync on
  sync rate 100

REM set ambient light
fog on
fog distance 80

REM color backdrop
  color backdrop 0

REM make PLayer
  make object cube 1,5
  scale object 1,5,5,5
  position object 1,0,7,-10
 color object 1,RGB(232,182,95)
REM player variables

x#=0
y#=5
z#=0

REM make world
  make object box 2, 50,10,50
  position object 2,0,0,0
color object 2,RGB(146,117,60)
REM position camera

position camera 0,10,-15


REM main loop

     do

 if inkey$()="w"
 move object 1,0.1
 move camera 0.1
 endif

 if inkey$()="s"
  move object 1,-0.1
  move camera -0.1
 endif

rotate object 1, camera angle x(0)+(mousemovey()/2.0), camera angle y(0)+(mousemovex()/2.0),0


set object to camera orientation 1

  sync
      loop

The problem is, that the cube won´t rotate when i move the mouse.

What´s the problem?

Thanks

Check out PanzerGames at http://www.freewebs.com/panzergames

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: 13th Jan 2005 04:38

Link

Try changing this around a bit.

+ Code Snippet

rotate object 1, camera angle x(0)+(mousemovey()/2.0), camera angle y(0)+(mousemovex()/2.0),0


set object to camera orientation 1

should probably be this

+ Code Snippet

rotate camera camera angle x()+(mousemovey()/2.0), camera angle y()+(mousemovex()/2.0),0


set object to camera orientation 1

or this depending on what you want.

+ Code Snippet

rotate object 1, object angle x(1)+(mousemovey()/2.0), object angle y(1)+(mousemovex()/2.0),0


set camera to object orientation 1

You were never changing the camera's angles so it rotated the object the same everytime and then put the object back facing like the camera before the sync.

Back to top

Profile PM Email

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 13th Jan 2005 04:54

Link

thanks, now it kind of works...

but now I can move the box up and down if I look up or down with the camera.
How will i make the cube stay on the ground?

Check out PanzerGames at http://www.freewebs.com/panzergames

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: 13th Jan 2005 05:06

Link

Change this part of the code

+ Code Snippet


 if inkey$()="w"
 move object 1,0.1
 move camera 0.1
 endif

 if inkey$()="s"
  move object 1,-0.1
  move camera -0.1
 endif

To this or something like it.

+ Code Snippet


 if inkey$()="w"
 obj_ang_x# = object angle x(1)
 xrotate object 1, 0
 move object 1,0.1
 xrotate object 1, obj_ang_x#
 move camera 0.1
 endif

 if inkey$()="s"
  obj_ang_x# = object angle x(1)
  xrotate object 1, 0
  move object 1,-0.1
  xrotate object 1, obj_ang_x#
  move camera -0.1
 endif

If you want the camera to do the same then add the same code to it only using the camera angle x() instead.

Back to top

Profile PM Email

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 13th Jan 2005 05:19

Link

err. now the camera is acting a bit weird...
It´s making a barrel roll instead of turning left or right...
I´ve made a few changes:

REM update screen
  sync on
  sync rate 100

REM set ambient light
fog on
fog distance 80

REM color backdrop
  color backdrop 0

REM make PLayer
  make object cube 1,10
  scale object 1,10,10,10
  position object 1,camera position x(),camera position y()+5,camera position z()+20
 color object 1,RGB(232,182,95)
REM player variables

x#=0
y#=5
z#=0

REM make world
  make matrix 1,50,50,10,10
  position matrix 1,0,9,0
REM position camera

position camera 0,20,-15

REM main loop

do

if inkey$()="w"
 obj_ang_x# = object angle x(1)
 xrotate object 1, 0
 move object 1,0.1
 xrotate object 1, obj_ang_x#
 cam_ang_x# = camera angle x()
  xrotate camera  0
  move camera 0.1
  xrotate camera  cam_ang_x#
 endif

if inkey$()="s"
  obj_ang_x# = object angle x(1)
  xrotate object 1, 0
  move object 1,-0.1
  xrotate object 1, obj_ang_x#
 cam_ang_x# = camera angle x(1)
  xrotate camera 0
  move camera -0.1
  xrotate camera  cam_ang_x#
 endif

rotate camera camera angle x()+(mousemovey()/2.0), camera angle y()+(mousemovex()/2.0),0

set object to camera orientation 1

sync
      loop

+ Code Snippet

REM update screen
  sync on
  sync rate 100

REM set ambient light
fog on
fog distance 80

REM color backdrop
  color backdrop 0

REM make PLayer
  make object cube 1,10
  scale object 1,10,10,10
  position object 1,camera position x(),camera position y()+5,camera position z()+20
 color object 1,RGB(232,182,95)
REM player variables

x#=0
y#=5
z#=0

REM make world
  make matrix 1,50,50,10,10
  position matrix 1,0,9,0
REM position camera

position camera 0,20,-15


REM main loop

     do


 if inkey$()="w"
 obj_ang_x# = object angle x(1)
 xrotate object 1, 0
 move object 1,0.1
 xrotate object 1, obj_ang_x#
 cam_ang_x# = camera angle x()
  xrotate camera  0
  move camera 0.1
  xrotate camera  cam_ang_x#
 endif

 if inkey$()="s"
  obj_ang_x# = object angle x(1)
  xrotate object 1, 0
  move object 1,-0.1
  xrotate object 1, obj_ang_x#
 cam_ang_x# = camera angle x(1)
  xrotate camera 0
  move camera -0.1
  xrotate camera  cam_ang_x#
 endif


rotate camera camera angle x()+(mousemovey()/2.0), camera angle y()+(mousemovex()/2.0),0


set object to camera orientation 1


  sync
      loop

If you run it, I think You´ll find out what the problem is...
when I try to turn the camera, then the cube disappears out of view...

how can i make it correct, so the cube never gets out of view?
the camera should always be centered on the cube.

Check out PanzerGames at http://www.freewebs.com/panzergames

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: 13th Jan 2005 06:15

Link

I am at work so I cna't run it. I'll check it out when I get home. But I understand now. You want a mouselook code with object movement independant of its up and down angle correct? And how far do you want the camera up over and behind the object?
If noone else fixes it for you I'll run it and reply when I get home.

Back to top

Profile PM Email

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 13th Jan 2005 18:48

Link

yeah, I was thinking about something like that

It would be cool if the camera was about playery+5 and playerz+10 or something like that.

thanks mate

Check out PanzerGames at http://www.freewebs.com/panzergames

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: 13th Jan 2005 19:33 Edited at: 13th Jan 2005 19:40

Link

I'm still kinda confused. Is this something like you want? If not let me know what needs to be different.

REM update screen
  sync on
  sync rate 100

REM set ambient light
fog on
fog distance 80

REM color backdrop
  color backdrop 0

REM make PLayer
  make object cube 1,5
  scale object 1,5,5,5
  position object 1,0,5.125,-10
 color object 1,RGB(232,182,95)
REM player variables

x#=0
y#=5
z#=0

REM make world
  make object box 2, 50,10,50
  position object 2,0,0,0
color object 2,RGB(146,117,60)
REM position camera

position camera 0,10,-15

REM main loop

do

rotate object 1, object angle x(1)+(mousemovey()/2),object angle y(1)+(mousemovex()/2),0
   if object angle x(1)>90 then xrotate object 1, 90
   if object angle x(1)<-90 then xrotate object 1, -90
   px#=object angle x(1) : py#=object angle y(1)
	`WASD player movement
	`move forward with w key
	if keystate(17)=1 then xrotate object 1,0 : move object 1,.1 : xrotate object 1,px#
	`move back with s key
	if keystate(31)=1 then xrotate object 1,0 : move object 1,-.1 : xrotate object 1,px#
	`move left with a key
	if keystate(30)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,.1 : xrotate object 1,px# : yrotate object 1,py#
	`move right with d key
	if keystate(32)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,-.1 : xrotate object 1,px# : yrotate object 1,py#

position camera object position x(1), object position y(1), object position z(1)
	rotate camera 0, py#, 0
	move camera -5
	position camera camera position x(), camera position y()+2.5, camera position z()
	point camera object position x(1), object position y(1), object position z(1)
	
  sync
      loop

+ Code Snippet

REM update screen
  sync on
  sync rate 100

REM set ambient light
fog on
fog distance 80

REM color backdrop
  color backdrop 0

REM make PLayer
  make object cube 1,5
  scale object 1,5,5,5
  position object 1,0,5.125,-10
 color object 1,RGB(232,182,95)
REM player variables

x#=0
y#=5
z#=0

REM make world
  make object box 2, 50,10,50
  position object 2,0,0,0
color object 2,RGB(146,117,60)
REM position camera

position camera 0,10,-15


REM main loop

     do

   rotate object 1, object angle x(1)+(mousemovey()/2),object angle y(1)+(mousemovex()/2),0
   if object angle x(1)>90 then xrotate object 1, 90
   if object angle x(1)<-90 then xrotate object 1, -90
   px#=object angle x(1) : py#=object angle y(1)
	`WASD player movement
	`move forward with w key
	if keystate(17)=1 then xrotate object 1,0 : move object 1,.1 : xrotate object 1,px#
	`move back with s key
	if keystate(31)=1 then xrotate object 1,0 : move object 1,-.1 : xrotate object 1,px#
	`move left with a key
	if keystate(30)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,.1 : xrotate object 1,px# : yrotate object 1,py#
	`move right with d key
	if keystate(32)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,-.1 : xrotate object 1,px# : yrotate object 1,py#

	position camera object position x(1), object position y(1), object position z(1)
	rotate camera 0, py#, 0
	move camera -5
	position camera camera position x(), camera position y()+2.5, camera position z()
	point camera object position x(1), object position y(1), object position z(1)
	
  sync
      loop

[edit] or something like this?

REM update screen
  sync on
  sync rate 100

REM set ambient light
fog on
fog distance 80

REM color backdrop
  color backdrop 0

REM make PLayer
  make object cube 1,5
  scale object 1,5,5,5
  position object 1,0,5.125,-10
 color object 1,RGB(232,182,95)
REM player variables

x#=0
y#=5
z#=0

REM make world
  make object box 2, 50,10,50
  position object 2,0,0,0
color object 2,RGB(146,117,60)
REM position camera

position camera 0,10,-15

REM main loop

do

rotate object 1, object angle x(1)+(mousemovey()/2),object angle y(1)+(mousemovex()/2),0
   if object angle x(1)>90 then xrotate object 1, 90
   if object angle x(1)<-90 then xrotate object 1, -90
   px#=object angle x(1) : py#=object angle y(1)
	`WASD player movement
	`move forward with w key
	if keystate(17)=1 then xrotate object 1,0 : move object 1,.1 : xrotate object 1,px#
	`move back with s key
	if keystate(31)=1 then xrotate object 1,0 : move object 1,-.1 : xrotate object 1,px#
	`move left with a key
	if keystate(30)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,.1 : xrotate object 1,px# : yrotate object 1,py#
	`move right with d key
	if keystate(32)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,-.1 : xrotate object 1,px# : yrotate object 1,py#

position camera object position x(1), object position y(1)+5, object position z(1)-10
	point camera object position x(1), object position y(1), object position z(1)
	
  sync
      loop

+ Code Snippet

REM update screen
  sync on
  sync rate 100

REM set ambient light
fog on
fog distance 80

REM color backdrop
  color backdrop 0

REM make PLayer
  make object cube 1,5
  scale object 1,5,5,5
  position object 1,0,5.125,-10
 color object 1,RGB(232,182,95)
REM player variables

x#=0
y#=5
z#=0

REM make world
  make object box 2, 50,10,50
  position object 2,0,0,0
color object 2,RGB(146,117,60)
REM position camera

position camera 0,10,-15


REM main loop

     do

   rotate object 1, object angle x(1)+(mousemovey()/2),object angle y(1)+(mousemovex()/2),0
   if object angle x(1)>90 then xrotate object 1, 90
   if object angle x(1)<-90 then xrotate object 1, -90
   px#=object angle x(1) : py#=object angle y(1)
	`WASD player movement
	`move forward with w key
	if keystate(17)=1 then xrotate object 1,0 : move object 1,.1 : xrotate object 1,px#
	`move back with s key
	if keystate(31)=1 then xrotate object 1,0 : move object 1,-.1 : xrotate object 1,px#
	`move left with a key
	if keystate(30)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,.1 : xrotate object 1,px# : yrotate object 1,py#
	`move right with d key
	if keystate(32)=1 then xrotate object 1,0 : yrotate object 1,(py#-90) : move object 1,-.1 : xrotate object 1,px# : yrotate object 1,py#

	position camera object position x(1), object position y(1)+5, object position z(1)-10
	point camera object position x(1), object position y(1), object position z(1)
	
  sync
      loop

Back to top

Profile PM Email

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 13th Jan 2005 21:18

Link

The first example was great!
Thanks man

Check out PanzerGames at http://www.freewebs.com/panzergames

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: 14th Jan 2005 03:11

Link

Glad you got it working.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / need help with rotation