Movement around a point - GameCreators Forum

Author

Message

Shaneapp

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location:

Posted: 20th Jul 2004 10:19

Link

Hi, im havin a bit of trouble with the movement of my character:

When i press right or left i want my character to move around the camera and to face in the direction in which it is moving.

Here is my code, incase you need it:

Rem Initalise
sync on
sync rate 60
autocam off
hide mouse
set camera range 1,10000
set ambient light 60
set dir "C:\Ninja\Media"

Rem character
load object "Ninja.x",1
load image "Ninja (1).dds",1
Texture object 1,1
scale object 1,400,400,400

Rem Matrix
make matrix 1,2000,2000,50,50
load image "grass.bmp",2
prepare matrix texture 1,2,1,1

Rem Load SkySphere
load object "skysphere\vd.x",2
set object cull 1,3

position object 1,200,0,200

Do

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position object 1,x#,y#,z#
position object 2,x#,y#,z#

cx# = camera position x()
cz# = camera position z()
cy# = get ground height(1,cx#,cz#)

`set camera to follow x#,y#,z#,aY#-180,20,8,1,1
position camera x#+10,y#+10,z#+10
point camera x#,y#,z#

If Upkey() = 1
point object 1,cx#,cy#,cz#
move object 1,-1
Endif

If Downkey() = 1
point object 1,cx#,cy#,cz#
Turn object left 1,180
move object 1,-1
Endif

set object speed 1,80

If Upkey() = 1 or Downkey() = 1
loop object 1,6
Else
Set object frame 1,0
Endif

sync
loop

+ Code Snippet

Rem Initalise
sync on
sync rate 60
autocam off
hide mouse
set camera range 1,10000
set ambient light 60
set dir "C:\Ninja\Media"

Rem character
load object "Ninja.x",1
load image "Ninja (1).dds",1
Texture object 1,1
scale object 1,400,400,400

Rem Matrix
make matrix 1,2000,2000,50,50
load image "grass.bmp",2
prepare matrix texture 1,2,1,1

Rem Load SkySphere
load object "skysphere\vd.x",2
set object cull 1,3

position object 1,200,0,200

Do

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position object 1,x#,y#,z#
position object 2,x#,y#,z#

cx# = camera position x()
cz# = camera position z()
cy# = get ground height(1,cx#,cz#)

`set camera to follow x#,y#,z#,aY#-180,20,8,1,1
position camera x#+10,y#+10,z#+10
point camera x#,y#,z#

If Upkey() = 1
point object 1,cx#,cy#,cz#
move object 1,-1
Endif

If Downkey() = 1
point object 1,cx#,cy#,cz#
Turn object left 1,180
move object 1,-1
Endif

set object speed 1,80

If Upkey() = 1 or Downkey() = 1
loop object 1,6
Else
Set object frame 1,0
Endif

sync
loop

Im not quite shure you`ll understand what i mean but its difficult to describe. If anyone can help it would be much appreciated.

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 20th Jul 2004 12:20

Link

So you want him to move in a circle around the camera, right?

Your camera code is a little strange, what angle are you going for? Third person? Isometric?

I didn't get to try your code, but this is what I saw:

If you press up, he walks backwards, away from the camera.
If you press down, he walks backwards, but toward the camera.

If you have a man walking around, you probably don't want to use the point object command, because that will point him in 3 dimensions, causing his feet to be removed from the ground. What you should do is this:

point object 1,cx#,y#,cz#

That will turn him towards the camera, but won't lift him from the ground.

If you want him to walk in a circle around the camera at the distance that he is away from the camera at the moment that you press the left or right key, I can help you. I just want to make sure that is correct before I write up the code.

Xander Moser of Bolt Software
Firewall: Your Computer's First Defense - Real Time Strategy game
[href]

[/href]

Back to top

Profile PM Email Website

Shaneapp

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location:

Posted: 20th Jul 2004 20:09

Link

Yes i want him to circle around the camera.

My code will most likely be messy/wrong as i am only a newbe so corrections to my code may be needed. I intend to go for the 3rd person view.

I am attempting to mimic the camera views/character movement of the popular n64 game, zelda.

Yes i want the character to circle the camera at the distance he is away at the moment.

Also on zelda, if you press up and right together, the character moves neither left or right, it goes diagonaly (Making the character move around in a bigger circle). The same goes for other keys. You dont have to do this if you dont want but it would be heap loads of help.

I know this is asking for a lot, if theirs anything that i can do for you then just ask.

Thanx a lot

Back to top

Profile PM Email

Shaneapp

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location:

Posted: 24th Jul 2004 07:21

Link

Sorry for the double post but its been about 3 days. I understand that its a lot to ask or that you may be busy but i dont want this post to be forgot about, as im very eager to learn the DB programing language.

Thanx again.

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 24th Jul 2004 10:14

Link

Sorry for not responding sooner, but here is your revised code. It is a standard 3rd person camera, I hope it is sufficient. You can adjust the camera's distance from the character with the values in the position camera command.

I also added some code to keep the game running the same speed on all computers with any frame rate. Just make sure that whenever something moves, multiply how far it moves by the variable speed#.

Rem Initalise
sync on
sync rate 60
autocam off
hide mouse
set camera range 1,10000
set ambient light 60
set dir "C:\Ninja\Media"

Rem character
load object "Ninja.x",1
load image "Ninja (1).dds",1
Texture object 1,1
scale object 1,400,400,400

Rem Matrix
make matrix 1,2000,2000,50,50
load image "grass.bmp",2
prepare matrix texture 1,2,1,1

Rem Load SkySphere
load object "skysphere\vd.x",2
set object cull 1,3

position object 1,200,0,200

Do

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position object 1,x#,y#,z#

If Upkey() = 1
   move object 1,1.0*speed#
Endif

If Downkey() = 1
   move object 1,-1*speed#
Endif

If Leftkey() = 1
   yrotate object 1,wrapvalue(ay#-2.0*speed#)
Endif

If Rightkey() = 1
   yrotate object 1,wrapvalue(ay#+2.0*speed#)
Endif

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position camera x#-sin(ay#)*30.0,y#+20,z#-cos(ay#)*30.0
point camera x#,y#,z#

set object speed 1,80*speed#

If Upkey() = 1 or Downkey() = 1
   loop object 1,6
Else
   Set object frame 1,0
Endif

framespersecond#=screen fps()
if framespersecond#<1.0 then framespersecond#=1.0

speed#=60.0/framespersecond#

sync
loop

+ Code Snippet

Rem Initalise
sync on
sync rate 60
autocam off
hide mouse
set camera range 1,10000
set ambient light 60
set dir "C:\Ninja\Media"

Rem character
load object "Ninja.x",1
load image "Ninja (1).dds",1
Texture object 1,1
scale object 1,400,400,400

Rem Matrix
make matrix 1,2000,2000,50,50
load image "grass.bmp",2
prepare matrix texture 1,2,1,1

Rem Load SkySphere
load object "skysphere\vd.x",2
set object cull 1,3

position object 1,200,0,200


Do

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position object 1,x#,y#,z#

If Upkey() = 1
   move object 1,1.0*speed#
Endif

If Downkey() = 1
   move object 1,-1*speed#
Endif

If Leftkey() = 1
   yrotate object 1,wrapvalue(ay#-2.0*speed#)
Endif

If Rightkey() = 1
   yrotate object 1,wrapvalue(ay#+2.0*speed#)
Endif

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position camera x#-sin(ay#)*30.0,y#+20,z#-cos(ay#)*30.0
point camera x#,y#,z#

set object speed 1,80*speed#

If Upkey() = 1 or Downkey() = 1
   loop object 1,6
Else
   Set object frame 1,0
Endif

framespersecond#=screen fps()
if framespersecond#<1.0 then framespersecond#=1.0

speed#=60.0/framespersecond#

sync
loop

Is all this okay?

Xander Moser of Bolt Software
Firewall: Your Computer's First Defense - Real Time Strategy game
[href]

[/href]

Back to top

Profile PM Email Website

Shaneapp

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location:

Posted: 24th Jul 2004 12:11

Link

I think thats close.

When you press left or right the character should actualy begin to move in a circle around the camera (Of course, the camera moves with it) At the moment it just rotates on the spot. Also, in this case, should see the view of the character from the side to create the effect of him running round in a circle.

Your help is very much appreciated

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 26th Jul 2004 11:24 Edited at: 26th Jul 2004 11:26

Link

Okay, what I did before was make the guy turn and the camera go around him. Here is some revised code that should do what you wanted, albeit a little clumsily...

Rem Initalise
sync on
sync rate 60
autocam off
hide mouse
set camera range 1,10000
set ambient light 60
set dir "C:NinjaMedia"

Rem character
load object "Ninja.x",1
load image "Ninja (1).dds",1
Texture object 1,1
scale object 1,400,400,400

Rem Matrix
make matrix 1,2000,2000,50,50
load image "grass.bmp",2
prepare matrix texture 1,2,1,1

Rem Load SkySphere
load object "skyspherevd.x",2
set object cull 1,3

position object 1,200,0,200

cameradist#=30.0
cameraheight#=20.0
turn#=0.0

Do

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position object 1,x#,y#,z#

If Leftkey() = 1
   if leftdown=0 then circledist#=sqrt((x#-camera position x())^2+(z#-camera position z())^2)
   leftdown=1
   angle#=atanfull(x#-camera position x(),z#-camera position z())
   turn#=turn#-5.0*speed#
   if turn#<-90.0 then turn#=-90.0
   moveangle#=30.0/circledist#
   x#=camera position x()+sin(angle#-moveangle#*speed#)*circledist#
   z#=camera position z()+cos(angle#-moveangle#*speed#)*circledist#
   y#=get ground height(1,x#,z#)
   position object 1,x#,y#,z#
else
   leftdown=0
Endif

If Rightkey() = 1
   if rightdown=0 then circledist#=sqrt((x#-camera position x())^2+(z#-camera position z())^2)
   rightdown=1
   angle#=atanfull(x#-camera position x(),z#-camera position z())
   turn#=turn#+5.0*speed#
   if turn#>90.0 then turn#=90.0
   moveangle#=30.0/circledist#
   x#=camera position x()+sin(angle#+moveangle#*speed#)*circledist#
   z#=camera position z()+cos(angle#+moveangle#*speed#)*circledist#
   y#=get ground height(1,x#,z#)
   position object 1,x#,y#,z#
else
   rightdown=0
Endif

if rightdown=0 and leftdown=0
   If Upkey() = 1
      move object 1,1.0*speed#
   Endif

If Downkey() = 1
      move object 1,-1*speed#
   Endif
endif

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

if rightdown=0 and leftdown=0
   if turn#<>0.0
      turnsign#=abs(turn#)/turn#
      turn#=turn#-turnsign#*5.0
      if turn#<>0.0
         if abs(turn#)/turn#<>turnsign# then turn#=0.0
      endif
   endif
endif

yrotate object 1,wrapvalue(angle#+turn#)

if leftdown=0 and rightdown=0 then position camera x#-sin(object angle y(1)-turn#)*cameradist#,y#+cameraheight#,z#-cos(object angle y(1)-turn#)*cameradist#
point camera x#,y#,z#

set object speed 1,80*speed#

If Upkey() = 1 or Downkey() = 1
   loop object 1,6
Else
   Set object frame 1,0
Endif

framespersecond#=screen fps()
if framespersecond#<1.0 then framespersecond#=1.0

speed#=60.0/framespersecond#

sync
loop

+ Code Snippet

Rem Initalise
sync on
sync rate 60
autocam off
hide mouse
set camera range 1,10000
set ambient light 60
set dir "C:NinjaMedia"

Rem character
load object "Ninja.x",1
load image "Ninja (1).dds",1
Texture object 1,1
scale object 1,400,400,400

Rem Matrix
make matrix 1,2000,2000,50,50
load image "grass.bmp",2
prepare matrix texture 1,2,1,1

Rem Load SkySphere
load object "skyspherevd.x",2
set object cull 1,3

position object 1,200,0,200

cameradist#=30.0
cameraheight#=20.0
turn#=0.0

Do

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

position object 1,x#,y#,z#

If Leftkey() = 1
   if leftdown=0 then circledist#=sqrt((x#-camera position x())^2+(z#-camera position z())^2)
   leftdown=1
   angle#=atanfull(x#-camera position x(),z#-camera position z())
   turn#=turn#-5.0*speed#
   if turn#<-90.0 then turn#=-90.0
   moveangle#=30.0/circledist#
   x#=camera position x()+sin(angle#-moveangle#*speed#)*circledist#
   z#=camera position z()+cos(angle#-moveangle#*speed#)*circledist#
   y#=get ground height(1,x#,z#)
   position object 1,x#,y#,z#
else
   leftdown=0
Endif

If Rightkey() = 1
   if rightdown=0 then circledist#=sqrt((x#-camera position x())^2+(z#-camera position z())^2)
   rightdown=1
   angle#=atanfull(x#-camera position x(),z#-camera position z())
   turn#=turn#+5.0*speed#
   if turn#>90.0 then turn#=90.0
   moveangle#=30.0/circledist#
   x#=camera position x()+sin(angle#+moveangle#*speed#)*circledist#
   z#=camera position z()+cos(angle#+moveangle#*speed#)*circledist#
   y#=get ground height(1,x#,z#)
   position object 1,x#,y#,z#
else
   rightdown=0
Endif

if rightdown=0 and leftdown=0
   If Upkey() = 1
      move object 1,1.0*speed#
   Endif

   If Downkey() = 1
      move object 1,-1*speed#
   Endif
endif

x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
aY# = object angle y(1)

if rightdown=0 and leftdown=0
   if turn#<>0.0
      turnsign#=abs(turn#)/turn#
      turn#=turn#-turnsign#*5.0
      if turn#<>0.0
         if abs(turn#)/turn#<>turnsign# then turn#=0.0
      endif
   endif
endif

yrotate object 1,wrapvalue(angle#+turn#)

if leftdown=0 and rightdown=0 then position camera x#-sin(object angle y(1)-turn#)*cameradist#,y#+cameraheight#,z#-cos(object angle y(1)-turn#)*cameradist#
point camera x#,y#,z#

set object speed 1,80*speed#

If Upkey() = 1 or Downkey() = 1
   loop object 1,6
Else
   Set object frame 1,0
Endif

framespersecond#=screen fps()
if framespersecond#<1.0 then framespersecond#=1.0

speed#=60.0/framespersecond#

sync
loop

It may be a little confusing, but I just wanted to get it to you, it took me a while to get it working. I hope it is what you wanted, just let me know if it needs some tweaking

Xander Moser of Bolt Software
Firewall: Your Computer's First Defense - Real Time Strategy game
[href]

[/href]

Back to top

Profile PM Email Website

Shaneapp

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location:

Posted: 27th Jul 2004 07:42

Link

Thats an exelent peice of code, thanx alot. I think i should be able to work on it from their, im still a beginner though my aim is to learn.

It will take a few more tweaks to get it like the real zelda style, but with a bit of work i think ill be able to do that.

Again, Thanx

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Movement around a point