Simple Sphere rotation - Can anyone help me rotate a sphere?

Author

Message

KamiKazi Games

18

Years of Service

User Offline

Joined: 20th Apr 2006

Location: Australia

Posted: 16th Oct 2006 10:31

Link

Hello there, I am new and trying out DBPRO. I have searched the code base on the main website and discovered a nice 3d code there that I kinda get. But I want the character object to rotate forwards or backwards when i press the up or down arrow. This is the code I am using for this game at the moment :

Sync on
Sync rate 30
hide mouse
backdrop on
fog on
set camera range 1,6000
fog distance 1000
fog color RGB(128,128,128)
color backdrop RGB(128,128,128)

`make player
make object sphere 200,50
set object collision to spheres 200
position object 200,rnd(10000),0,rnd(10000)
load image "texture.bmp",5
texture object 200,5

`make obstacles
For x = 1 to 100
   make object cube x,100
   position object x,rnd(10000),0,rnd(10000)
Next x

`make goal
make object cube 201,25
position object 201,rnd(10000),0,rnd(10000)
set object collision to boxes 201

`make matrix
make matrix 1,10000,10000,20,20
`main loop
Do
      `print stuff
      set cursor 0,0
      Print "Get the cool cube"
      set cursor 0,10
      Print "Score: ",Score

`store variables
      aY# = object angle Y(200)

`controls
      If upkey()=1 then move object 200,20
      if leftkey()=1 then yrotate object 200,wrapvalue(aY#-5)
      if rightkey()=1 then yrotate object 200,wrapvalue(aY#+5)
      if downkey()=1 then move object 200,-10

`get player positions
      X# = object position x(200)
      Z# = object position z(200)

`get camera values
      cZ# = newzvalue(Z#,aY#-180,100)
      cX# = newxvalue(X#,aY#-180,100)

`position camera
      position camera cX#,100,CZ#
      point camera X#,50,Z#

`collision data
      if object collision(201,200)>0
      inc score
      position object 201,rnd(10000),0,rnd(10000)
      endif
      Sync

Loop

+ Code Snippet

Sync on
Sync rate 30
hide mouse
backdrop on
fog on
set camera range 1,6000
fog distance 1000
fog color RGB(128,128,128)
color backdrop RGB(128,128,128)

`make player
make object sphere 200,50
set object collision to spheres 200
position object 200,rnd(10000),0,rnd(10000)
load image "texture.bmp",5
texture object 200,5

`make obstacles
For x = 1 to 100
   make object cube x,100
   position object x,rnd(10000),0,rnd(10000)
Next x

`make goal
make object cube 201,25
position object 201,rnd(10000),0,rnd(10000)
set object collision to boxes 201

`make matrix
make matrix 1,10000,10000,20,20
`main loop
Do
      `print stuff
      set cursor 0,0
      Print "Get the cool cube"
      set cursor 0,10
      Print "Score: ",Score

      `store variables
      aY# = object angle Y(200)

      `controls
      If upkey()=1 then move object 200,20
      if leftkey()=1 then yrotate object 200,wrapvalue(aY#-5)
      if rightkey()=1 then yrotate object 200,wrapvalue(aY#+5)
      if downkey()=1 then move object 200,-10

      `get player positions
      X# = object position x(200)
      Z# = object position z(200)

      `get camera values
      cZ# = newzvalue(Z#,aY#-180,100)
      cX# = newxvalue(X#,aY#-180,100)

      `position camera
      position camera cX#,100,CZ#
      point camera X#,50,Z#

      `collision data
      if object collision(201,200)>0
      inc score
      position object 201,rnd(10000),0,rnd(10000)
      endif
      Sync

Loop

Hi I just bought FPS Creator! Want to help me out?

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 16th Oct 2006 11:19 Edited at: 16th Oct 2006 11:20

Link

You have 2 actions - rotating the sphere and moving it. Because this isn't a physical world, the ball won't move forward just by rotating it.

In your code, you have a system where the ball rotates on it's y axis, which will change it's direction. Then you have movement on the ball's local Z axis, which creates the forward/backward movement.

If you were to make it "roll", the code wouldn't work. As it rolled, it's local z axis would roll, and you wouldn't have any control over the direction.

What you could do is have a movement sphere, and a visible sphere. The sphere you already have is the movement, all you need to do is HIDE OBJECT. then you add another sphere, and position it in every loop in the same place as the original, hidden one. With this second sphere, you can ZROTATE OBJECT to give it the appearance of being rolled.

Back to top

Profile PM Email

KamiKazi Games

18

Years of Service

User Offline

Joined: 20th Apr 2006

Location: Australia

Posted: 16th Oct 2006 13:28 Edited at: 16th Oct 2006 14:30

Link

Thamks for the feedback, it's completely understandable. I was just wondering though, seeing as im new to DBPRO, how would I go about keeping the visible one on the same location as the original? Because in my previous programming language I would just do the object names lke this:

object2.x = object1.x
object2.y = object1.y
object2.z = object1.z

But you can't do that with dbpro

Hi I just bought FPS Creator! Want to help me out?

Back to top

Profile PM Email

Trowbee

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: United Kingdom

Posted: 16th Oct 2006 15:47

Link

position object 2, object position x(1), object position y(1), object position z(1)

Back to top

Profile PM

KamiKazi Games

18

Years of Service

User Offline

Joined: 20th Apr 2006

Location: Australia

Posted: 27th Oct 2006 10:38 Edited at: 27th Oct 2006 10:39

Link

OK, I got most of it to work, except the visible sphere doesn't rotate with the invisible one

Sync on 
Sync rate 30
hide mouse
backdrop on
fog on
set camera range 1,6000
fog distance 1200
fog color RGB(rnd(255),rnd(255),rnd(255))
color backdrop RGB(128,128,128)

`make player
make object sphere 200,50
set object collision to spheres 200
position object 200,rnd(10000),0,rnd(10000)
HIDE OBJECT 200

`make visible sphere
make object sphere 207,50
set object collision to spheres 207
position object 207,rnd(10000),0,rnd(10000)
load image "texture.bmp",5
texture object 200,5

`make obstacles
For x = 1 to 100
   make object cube x,100
   position object x,rnd(10000),0,rnd(10000)
Next x

`make goal
make object cube 201,25
position object 201,rnd(10000),0,rnd(10000)
set object collision to boxes 201

`make matrix
make matrix 1,10000,10000,20,20
`main loop
Do
      `print stuff
      set cursor 0,0
      Print "Get the cool cube"
      set cursor 0,10
      Print "Score: ",Score

`store variables
      aY# = object angle Y(200)
      aZ# = object angle Z(207)
      aY2# = object angle Y(207)

`controls
      If upkey()=1 then move object 200,20
      if upkey()=1 then zrotate object 207,wrapvalue(aZ#+7)
      if leftkey()=1 then yrotate object 200,wrapvalue(aY#-5)
      if rightkey()=1 then yrotate object 200,wrapvalue(aY#+5)
      if downkey()=1 then move object 200,-10
      if downkey()=1 then zrotate object 207,wrapvalue(aZ#-7)

`get player positions
      X# = object position x(200)
      Z# = object position z(200)
      Y# = object position y(200)
      position object 207,X#,Y#,Z#
      `get camera values
      cZ# = newzvalue(Z#,aY#-180,100)
      cX# = newxvalue(X#,aY#-180,100)

`position camera
      position camera cX#,100,CZ#
      point camera X#,50,Z#

`collision data
      if object collision(201,200)>0
      inc score
      position object 201,rnd(10000),0,rnd(10000)
      endif
      Sync

Loop

+ Code Snippet

Sync on 
Sync rate 30
hide mouse
backdrop on
fog on
set camera range 1,6000
fog distance 1200
fog color RGB(rnd(255),rnd(255),rnd(255))
color backdrop RGB(128,128,128)

`make player
make object sphere 200,50
set object collision to spheres 200
position object 200,rnd(10000),0,rnd(10000)
HIDE OBJECT 200

`make visible sphere
make object sphere 207,50
set object collision to spheres 207
position object 207,rnd(10000),0,rnd(10000)
load image "texture.bmp",5
texture object 200,5

`make obstacles
For x = 1 to 100
   make object cube x,100
   position object x,rnd(10000),0,rnd(10000)
Next x

`make goal
make object cube 201,25
position object 201,rnd(10000),0,rnd(10000)
set object collision to boxes 201

`make matrix
make matrix 1,10000,10000,20,20
`main loop
Do
      `print stuff
      set cursor 0,0
      Print "Get the cool cube"
      set cursor 0,10
      Print "Score: ",Score

      `store variables
      aY# = object angle Y(200)
      aZ# = object angle Z(207)
      aY2# = object angle Y(207)

      `controls
      If upkey()=1 then move object 200,20
      if upkey()=1 then zrotate object 207,wrapvalue(aZ#+7)
      if leftkey()=1 then yrotate object 200,wrapvalue(aY#-5)
      if rightkey()=1 then yrotate object 200,wrapvalue(aY#+5)
      if downkey()=1 then move object 200,-10
      if downkey()=1 then zrotate object 207,wrapvalue(aZ#-7)

      `get player positions
      X# = object position x(200)
      Z# = object position z(200)
      Y# = object position y(200)
      position object 207,X#,Y#,Z#
      `get camera values
      cZ# = newzvalue(Z#,aY#-180,100)
      cX# = newxvalue(X#,aY#-180,100)

      `position camera
      position camera cX#,100,CZ#
      point camera X#,50,Z#

      `collision data
      if object collision(201,200)>0
      inc score
      position object 201,rnd(10000),0,rnd(10000)
      endif
      Sync

Loop

Hi I just bought FPS Creator! Want to help me out?

Back to top

Profile PM Email

Nenohum

18

Years of Service

User Offline

Joined: 21st Sep 2006

Location: In a galaxy far, far, away.....

Posted: 27th Oct 2006 19:35

Link

sorry if i'm wrong but it looks like the reason the visible sphere isn't rotating is because

+ Code Snippet

If upkey()=1 then move object 200,20
      if upkey()=1 then zrotate object 207,wrapvalue(aZ#+7)

Should be

+ Code Snippet

if upkey()=1
                              move object 200,20
                              zrotate object 200,wrapvalue(aZ2#+7)
                              endif

I'm not sure if it will work but according to but if you rotate the sphere on the z axis it might mess up the camera. What others here are saying is make another sphere position with the first sphere and then rotate the second sphere to make it look like it's happing. Therefore you don't have to rotate the invisible one.
so you can just have

+ Code Snippet

position object 207, object position x(200),object position y(200), object position z(200)

i'm too lazy to test the code but this should help

some mornings, it just doesn't pay to gnaw through those leather straps

Back to top

Profile PM

Nenohum

18

Years of Service

User Offline

Joined: 21st Sep 2006

Location: In a galaxy far, far, away.....

Posted: 27th Oct 2006 19:42

Link

okay ignore that last post. I tested the code now. Okay so when i tested it the sphere was rotating but not always in the right direction. For example it would only rotate foward but i was going to the right. You need to either A.) have it rotate in different directions with the arrow keys. or B.) create an algorithim that can determine which direction the spehre is facing and have it rotate to that direction. Maybe you should try a. first and then see what happens. Like

+ Code Snippet

if rightkey()=1 then xrotate object

or something like that.

some mornings, it just doesn't pay to gnaw through those leather straps

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Simple Sphere rotation - Can anyone help me rotate a sphere?