FPS Gun positioning - GameCreators Forum

Author

Message

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 19th Nov 2005 15:16

Link

Yah... well been having some trivial problems here with a small FPS I'm trying to make in DBC, but you see... this is annoying

: using some trick of creating two limbs (one at each side of the player's dummy, for gun positioning) I was able to position the gun where I wished correctly BUT the rotation is -always- wrong. No matter the method I use (or at least the ones I've tried), which are Set Object to Camera Orientation, a mix of xrotate+yrotate+zrotate according to the camera's direction (and player dummy's direction), tried rotating the limbs too... etc. No one of them has worked yet. Thing is, look:

That's correct. I look down...

The heck is this? is there any way to correctly put the gun in the WORLD's position (along with the player's dummy) without faking it by using Lock Object and/or Disable Object ZDepth?

Thanks in advance

-DARKGuy

Back to top

Profile PM Email

Captain America

20

Years of Service

User Offline

Joined: 8th Apr 2005

Location: Here

Posted: 19th Nov 2005 18:34

Link

I would just attach the gun to the bottom of the camera, so that where ever you turn it's always right there. Thats what i do.

-Captain-

Cheers,
Capt. America

Back to top

Profile PM Email Website

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 19th Nov 2005 18:48 Edited at: 19th Nov 2005 18:48

Link

Back to top

Profile PM Email

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 19th Nov 2005 20:43

Link

Quote: "I would just attach the gun to the bottom of the camera, so that where ever you turn it's always right there. Thats what i do."

But I want to put the gun there

so I have the possibility for having two-handed guns

Back to top

Profile PM Email

The ARRAYinator

19

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 19th Nov 2005 20:56

Link

are they locked on the screen?

Back to top

Profile PM Website

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 19th Nov 2005 20:58

Link

Nope, that's what I don't want, but the effect I want to make is the same, WITHOUT locking it.

Back to top

Profile PM Email

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 20th Nov 2005 03:23

Link

Bump?

Back to top

Profile PM Email

devastation

19

Years of Service

User Offline

Joined: 11th Aug 2005

Location:

Posted: 20th Nov 2005 16:48

Link

bump acknowledged.

here's the gun positioning code I made for my fps games maybe you can use it

+ Code Snippet

 `gun stuff... woot!
position object 12,curvevalue(olx#,camera position x(),30),curvevalue(oly# - 1,camera position y() - 1,8),curvevalue(olz#,camera position z(),30)
yrotate object 12,wrapvalue(object angle y(12) + 90)
move object 12,1.4
yrotate object 12,wrapvalue(object angle y(12) - 90)
rotate object 12,curveangle(wrapvalue(camera angle x() - kick# * 4),object angle x(12),2),curveangle(object angle y(12),camera angle y(),2),0

`just a bit forward minus recoil
move object 12,4.8 - kick#/3

this can be done better with sine and cosine and other stuff, but I'm a wee sophmore so I haven't taken trig yet, so yeah.....

it still works very well and the gun and arms are closer to the camera when you look up then when you look down which makes it more realistic.

the kick# variable is obviously kick and should be initialized in your shooting code and decremented till it's zero. it rotates the gun up during the roatation and it moves the gun back during positining.

I hope this helps and I love your map. Very nice detail on it. Hope to see this project suceed.

verydevastating.com

Back to top

Profile PM Email Website

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 20th Nov 2005 19:08

Link

Hey, nice code Devastation, thanks!

thanks for the comments too!

Thing is, sadly didn't worked... well I guess there's no better way than to show code huh?

here ya go: (I removed the collision/level/media, so it's just a box in a matrix)

First example try (Glueing the object to a limb):

+ Code Snippet

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make object cone 10,1
make mesh from object 10,10
add limb 5,1,10
offset limb 5,1,-2,-2,4
delete object 10
hide limb 5,1

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500
glue object to limb 200,5,1

position object 5,5000,80,5000
PlayerObjNo=5

do

   set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

   position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

   yrotate object 5,wrapvalue(cx#)

   if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

   position camera object position x(5),object position y(5),object position z(5)
   rotate object 200,camera angle x(),camera angle y(),0

sync
loop

Failed.

Second example try (Without glueing (sp?) and using a way like Devastation does):

+ Code Snippet

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

do

   set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

   position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

   yrotate object 5,wrapvalue(cx#)

   if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

   position camera object position x(5),object position y(5),object position z(5)

   position object 200,object position x(5),object position y(5),object position z(5)
   yrotate object 200,wrapvalue(camera angle y()-90)
   move object 200,2
   yrotate object 200,wrapvalue(camera angle y()+90)
   rotate object 200,camera angle x(),camera angle y(),0

sync
loop

Failed.

Third example try (Using Devastation's like-example with the yrotate thing for positioning the gun at the left/right):

+ Code Snippet

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

do

   set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

   position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

   yrotate object 5,wrapvalue(cx#)

   if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

   position camera object position x(5),object position y(5),object position z(5)

   position object 200,object position x(5),object position y(5),object position z(5)
   yrotate object 200,wrapvalue(camera angle y()-90)
   move object 200,2
   yrotate object 200,wrapvalue(camera angle y()+90)
   rotate object 200,camera angle x(),camera angle y(),camera angle z()

sync
loop

Failed.

Fourth example try (Adding Camera Angle z(), works better, still erroneous):

+ Code Snippet

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

do

   set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

   position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

   yrotate object 5,wrapvalue(cx#)

   if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

   position camera object position x(5),object position y(5),object position z(5)

   position object 200,object position x(5),object position y(5),object position z(5)
   yrotate object 200,wrapvalue(camera angle y()-90)
   move object 200,2
   yrotate object 200,wrapvalue(camera angle y()+90)
   rotate object 200,camera angle x(),camera angle y(),camera angle z()

sync
loop

Failed!

Also I tried to convert the code FPS Gun Movement http://www.thegamecreators.com/?m=codebase_view_code&i=1c1cc9f073a4724e51d7280176bcaf8e from the codebase (works cool in DBP, dunno why it doesn't in DBC), and it doesn't rotates the gun :/

MODIFIED FOR DBC (which doesn't works):

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

`----------------------
`FPS Gun Movement Demo
`By Joseph Thomson
`28/01/04
`--------------------------------------------------------
`Please give credit to me if you use this code in any way
`--------------------------------------------------------

`Setup
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,16
HIDE MOUSE

`Set gun holding-limb position
gunOffsetX#=15.0
gunOffsetY#=-20.0
gunOffsetZ#=20.0

`Make main player object and hide it
MAKE OBJECT CUBE 1,10
HIDE OBJECT 1
`Attach a limb and delete the mesh
MAKE MESH FROM OBJECT 1,1
ADD LIMB 1,1,1
DELETE MESH 1

`Make a weapon and attach it to the limb
MAKE OBJECT BOX 2,10,10,100
GLUE OBJECT TO LIMB 2,1,1

`Make matrix to walk on
MAKE MATRIX 1,10000,10000,10,10

`Variables
xPos#=0
zPos#=0
speed#=10.0

xLook#=0
yAng#=0
lookSpeed#=0.2

`The gun bobbing values
gunBobSpeed#=6.0
gunBobMove#=3.0
gunBobHeight#=1.5

gunBobAng#=0
gunTurnAng#=0
gunLookAng#=0

mouseMovementX#=0
mouseMovementY#=0

DO
   `Store mouse movement
   mouseMovementX = MOUSEMOVEX()
   mouseMovementY = MOUSEMOVEY()

`Control movement using trig
   IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY() > 0
      IF UPKEY() = 1
         INC xPos#,SIN(yAng#)*speed#
         INC zPos#,COS(yAng#)*speed#
      ENDIF

IF DOWNKEY() = 1
         DEC xPos#,SIN(yAng#)*speed#
         DEC zPos#,COS(yAng#)*speed#
      ENDIF

IF RIGHTKEY() = 1
         INC xPos#,COS(yAng#)*speed#
         INC zPos#,0-SIN(yAng#)*speed#
      ENDIF

IF LEFTKEY() = 1
         DEC xPos#,COS(yAng#)*speed#
         DEC zPos#,0-SIN(yAng#)*speed#
      ENDIF

`Increase gun-bobbing angle   to get gun bobbing
      gunBobAng# = WRAPVALUE(gunBobAng#+gunBobSpeed#)
   ELSE
      `Otherwise slowly change the value to nothing to bring the gun to the centre again
      gunBobAng# = CURVEANGLE(0,gunBobAng#,10)
   ENDIF

`Control the gun swaying according to how much the player is turning
   gunTurnAng# = CURVEANGLE(WRAPVALUE(mouseMovementX),gunTurnAng#,10)
   gunLookAng# = CURVEANGLE(WRAPVALUE(mouseMovementY),gunLookAng#,10)

`Position the gun-holding limb and rotate it to give swaying effect
   OFFSET LIMB 1,1,gunOffsetX#+SIN(gunBobAng#)*gunBobMove#,gunOffsetY#+ABS(COS(gunBobAng#))*gunBobHeight#,gunOffsetZ#
   ROTATE LIMB 1,1,gunLookAng#,gunTurnAng#,0

`Turn player
   yAng# = WRAPVALUE(yAng# + mouseMovementX*lookSpeed#)
   xLook# = WRAPVALUE(xLook# + mouseMovementY*lookSpeed#)

`Position player object and camera
   POSITION OBJECT 1,xPos#,100,zPos#
   ROTATE OBJECT 1,0,yAng#,0
   PITCH OBJECT DOWN 1,xLook#
   POSITION CAMERA xPos#,100,zPos#
   ROTATE CAMERA xLook#,yAng#,0
   SYNC
LOOP

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

`----------------------
`FPS Gun Movement Demo
`By Joseph Thomson
`28/01/04
`--------------------------------------------------------
`Please give credit to me if you use this code in any way
`--------------------------------------------------------

`Setup
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,16
HIDE MOUSE

`Set gun holding-limb position
gunOffsetX#=15.0
gunOffsetY#=-20.0
gunOffsetZ#=20.0

`Make main player object and hide it
MAKE OBJECT CUBE 1,10
HIDE OBJECT 1
`Attach a limb and delete the mesh
MAKE MESH FROM OBJECT 1,1
ADD LIMB 1,1,1
DELETE MESH 1

`Make a weapon and attach it to the limb
MAKE OBJECT BOX 2,10,10,100
GLUE OBJECT TO LIMB 2,1,1

`Make matrix to walk on
MAKE MATRIX 1,10000,10000,10,10

`Variables
xPos#=0
zPos#=0
speed#=10.0

xLook#=0
yAng#=0
lookSpeed#=0.2

`The gun bobbing values
gunBobSpeed#=6.0
gunBobMove#=3.0
gunBobHeight#=1.5

gunBobAng#=0
gunTurnAng#=0
gunLookAng#=0

mouseMovementX#=0
mouseMovementY#=0

DO
   `Store mouse movement
   mouseMovementX = MOUSEMOVEX()
   mouseMovementY = MOUSEMOVEY()

   `Control movement using trig
   IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY() > 0
      IF UPKEY() = 1
         INC xPos#,SIN(yAng#)*speed#
         INC zPos#,COS(yAng#)*speed#
      ENDIF

      IF DOWNKEY() = 1
         DEC xPos#,SIN(yAng#)*speed#
         DEC zPos#,COS(yAng#)*speed#
      ENDIF

      IF RIGHTKEY() = 1
         INC xPos#,COS(yAng#)*speed#
         INC zPos#,0-SIN(yAng#)*speed#
      ENDIF

      IF LEFTKEY() = 1
         DEC xPos#,COS(yAng#)*speed#
         DEC zPos#,0-SIN(yAng#)*speed#
      ENDIF

      `Increase gun-bobbing angle   to get gun bobbing
      gunBobAng# = WRAPVALUE(gunBobAng#+gunBobSpeed#)
   ELSE
      `Otherwise slowly change the value to nothing to bring the gun to the centre again
      gunBobAng# = CURVEANGLE(0,gunBobAng#,10)
   ENDIF

   `Control the gun swaying according to how much the player is turning
   gunTurnAng# = CURVEANGLE(WRAPVALUE(mouseMovementX),gunTurnAng#,10)
   gunLookAng# = CURVEANGLE(WRAPVALUE(mouseMovementY),gunLookAng#,10)

   `Position the gun-holding limb and rotate it to give swaying effect
   OFFSET LIMB 1,1,gunOffsetX#+SIN(gunBobAng#)*gunBobMove#,gunOffsetY#+ABS(COS(gunBobAng#))*gunBobHeight#,gunOffsetZ#
   ROTATE LIMB 1,1,gunLookAng#,gunTurnAng#,0

   `Turn player
   yAng# = WRAPVALUE(yAng# + mouseMovementX*lookSpeed#)
   xLook# = WRAPVALUE(xLook# + mouseMovementY*lookSpeed#)

   `Position player object and camera
   POSITION OBJECT 1,xPos#,100,zPos#
   ROTATE OBJECT 1,0,yAng#,0
   PITCH OBJECT DOWN 1,xLook#
   POSITION CAMERA xPos#,100,zPos#
   ROTATE CAMERA xLook#,yAng#,0
   SYNC
LOOP

As you can see I've tried mostly everything that has came up to mind... even converting that code :/. All I know is that I seem to have problems with the Z rotation..... but how to correct it? it may be just a speculation though and the problem might be somewhere else... but I hope all that code works for giving some hints at least...

Back to top

Profile PM Email

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 20th Nov 2005 20:06

Link

I had this same problem - I was offsetting a spear for throwing at some dinosaurs (as you do) and didn't want to use bones to attach it to.

What you want, is to be able to 'rotate a point'.

+ Code Snippet

   AtX# = -0.6     `The offset for the spear object.
   AtY# = 0.1     `I needed it moved back some - you will need to tweak these numbers.
   AtZ# = 1.5

   temp# = (Cos( Camera Angle X()) * AtY#) - (Sin(Camera Angle X()) * AtZ#)
   AtZ# = (Sin(Camera Angle X()) * AtY#) + (Cos(Camera Angle X()) * AtZ#)
   AtY# = temp#

   temp# = (Cos(Camera Angle Y()) * AtX#) + (Sin(Camera Angle Y()) * AtZ#)
   AtZ# = (Cos(Camera Angle Y()) * AtZ#) - (Sin(Camera Angle Y()) * AtX#)
   AtX# = temp#

   spear.Pos.X = Camera Position X() + AtX#
   spear.Pos.Y = Camera Position Y() + AtY#
   spear.Pos.Z = Camera Position Z() + AtZ#

   Position Object spear.Object, spear.Pos.X, spear.Pos.Y, spear.Pos.Z
   `I rotated the spear in the X to have it angled - you may not require this.
   Rotate Object spear.Object, wrapvalue(Camera Angle X()-20), Camera Angle Y(), Camera Angle Z()

I know it looks scary, but I hope it helps.

Back to top

Profile PM

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 20th Nov 2005 21:42

Link

move it down, and back depending on the camera's angle

Back to top

Profile PM Email

devastation

19

Years of Service

User Offline

Joined: 11th Aug 2005

Location:

Posted: 20th Nov 2005 22:13

Link

woops left some variables in tehre from somewhere else so it was probably positioning the gun between you and 0,0,0. sorry bout taht. here's the fixed code, though tinkergirl's is better if you're able to implement it

+ Code Snippet

 `gun stuff... woot!
position object 12, camera position x(), camera position y() - 1, camera position z()
yrotate object 12,wrapvalue(object angle y(12) + 90)
move object 12,1.4
yrotate object 12,wrapvalue(object angle y(12) - 90)
rotate object 12,curveangle(wrapvalue(camera angle x() - kick# * 4),object angle x(12),2),curveangle(object angle y(12),camera angle y(),2),0

`just a bit forward minus recoil
move object 12,4.8 - kick#/3

good luck

and if you want some gun lag for position, use my old post's code and add

+ Code Snippet

olx# = camera position x()
oly# = camera position y()
olz# = camera position z()

before your camera movement code.

verydevastating.com

Back to top

Profile PM Email Website

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 21st Nov 2005 02:29 Edited at: 21st Nov 2005 02:31

Link

Okaaaay we're progressing...

let's see:

Tinkergirl's code was tried to be implemented and didn't worked as expected

but also trying Devastation's code helped me see the problem seems to reside between the Camera Angle Z and the orientation I give it. I'm not sure if I should Z rotate the camera too (as I'm using MouseLook, I think isn't neccessary, right?... and if it is, how?) thing is that it's in that value. Also, the rotation works nice when my camera's Y angle is zero, if I change it (turning to the left or right) AND look up or down, it screws up.

This is with TinkerGirl's code: Looks and works good - but the Z rotation screws too:

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

do

set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

yrotate object 5,wrapvalue(cx#)

if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

position camera object position x(5),object position y(5),object position z(5)

AtX#=-2
   AtY#=-2
   AtZ#=4

temp# = (Cos( Camera Angle X()) * AtY#) - (Sin(Camera Angle X()) * AtZ#)
   AtZ# = (Sin(Camera Angle X()) * AtY#) + (Cos(Camera Angle X()) * AtZ#)
   AtY# = temp#

temp# = (Cos(Camera Angle Y()) * AtX#) + (Sin(Camera Angle Y()) * AtZ#)
   AtZ# = (Cos(Camera Angle Y()) * AtZ#) - (Sin(Camera Angle Y()) * AtX#)
   AtX# = temp#

gunx# = Camera Position X() + AtX#
   guny# = Camera Position Y() + AtY#
   gunz# = Camera Position Z() + AtZ#

Position Object 200,gunx#,guny#,gunz#
   `I rotated the spear in the X to have it angled - you may not require this.
   Rotate Object 200, wrapvalue(Camera Angle X()-20), Camera Angle Y(), Camera Angle Z()
sync
loop

+ Code Snippet

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

do

   set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

   position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

   yrotate object 5,wrapvalue(cx#)

   if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

   position camera object position x(5),object position y(5),object position z(5)

   AtX#=-2
   AtY#=-2
   AtZ#=4

   temp# = (Cos( Camera Angle X()) * AtY#) - (Sin(Camera Angle X()) * AtZ#)
   AtZ# = (Sin(Camera Angle X()) * AtY#) + (Cos(Camera Angle X()) * AtZ#)
   AtY# = temp#

   temp# = (Cos(Camera Angle Y()) * AtX#) + (Sin(Camera Angle Y()) * AtZ#)
   AtZ# = (Cos(Camera Angle Y()) * AtZ#) - (Sin(Camera Angle Y()) * AtX#)
   AtX# = temp#

   gunx# = Camera Position X() + AtX#
   guny# = Camera Position Y() + AtY#
   gunz# = Camera Position Z() + AtZ#

   Position Object 200,gunx#,guny#,gunz#
   `I rotated the spear in the X to have it angled - you may not require this.
   Rotate Object 200, wrapvalue(Camera Angle X()-20), Camera Angle Y(), Camera Angle Z()
sync
loop

THOUGH, if you take a look at the code here (which I implemented from Devastation), he uses 0 (zero) in the Z rotation parameter... and works better, but still has that glitch - so it's something good to know and at least to try to difference between both codes. Thing is, I haven't taken trigonometry yet (or any kind of math with angles) so I don't have much idea of the XYZ angles (and thus, COS/SIN math):

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

kick#=0.5
do

set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

yrotate object 5,wrapvalue(cx#)

if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

position camera object position x(5),object position y(5),object position z(5)

`gun stuff... woot!
   position object 200, camera position x(), camera position y() - 1, camera position z()
   yrotate object 200,wrapvalue(object angle y(200) + 90)
   move object 200,1.4
   yrotate object 200,wrapvalue(object angle y(200) - 90)
   rotate object 200,curveangle(wrapvalue(camera angle x() - kick# * 4),object angle x(200),2),curveangle(object angle y(200),camera angle y(),2),0

`just a bit forward minus recoil
   move object 12,4.8 - kick#/3

sync
loop

+ Code Snippet

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

kick#=0.5
do

   set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

   position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

   yrotate object 5,wrapvalue(cx#)

   if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

   position camera object position x(5),object position y(5),object position z(5)

    `gun stuff... woot!
   position object 200, camera position x(), camera position y() - 1, camera position z()
   yrotate object 200,wrapvalue(object angle y(200) + 90)
   move object 200,1.4
   yrotate object 200,wrapvalue(object angle y(200) - 90)
   rotate object 200,curveangle(wrapvalue(camera angle x() - kick# * 4),object angle x(200),2),curveangle(object angle y(200),camera angle y(),2),0

   `just a bit forward minus recoil
   move object 12,4.8 - kick#/3

sync
loop

EDIT: Corrected typos x)

Back to top

Profile PM Email

BearCDPOLD

21

Years of Service

User Offline

Joined: 16th Oct 2003

Location: AZ,USA

Posted: 21st Nov 2005 03:16

Link

DarkGuy,
I have here for you a relic of most ancient glory, dug up from the black ashes of Apollo's past. In side the code box below you will find a power to wield all the forces of Euler and Cartesian with the might of a thousand horses, and the wit of a thousand scholars. Simply copy-paste-run, and you will see the power lies in the order and the system.

Here, in all its ASCII glory, The Rosetta Stone of DBC Rotation:

Rem * Title  : Rotation Tutorial
Rem * Original Author : Simon Harrison  ( Si)   Date   : 18th July 2000
Rem *
rem    David Lawrence  ( muddleglum)     November   2002
rem  Added matrix, mouse click functioning, new rotation, 'plane' object to give sense of direction,
rem  Also, more explanation.
rem   Feel free anyone,  to  add  to this  information ( and tell me)>  muddle@orcon.net.nz

set display mode 640,480,16
set text size 17:rem this is for Db pro only

sync on
sync rate 30
cls RGB(20,128,164)
ink RGB(35,118,140),0
box 0,0,8,8
box 8,8,16,16
GET IMAGE 1,0,0,16,16
cls 0
make matrix 1,16,16,10,10
position matrix 1,-7,-1.5,-1
PREPARE MATRIX TEXTURE 1, 1,1,1

backdrop off
gosub makeplane
autocam off
position camera 0,.5,-3
fog on
fog distance 12
do

`cls 0
set cursor 0,0
ink rgb(255,255,255),0
print "                    DEMO OF ROTATIONS.      Should work with DB versions 1.08 to 1.13"
print "                 - But NOT DB PRO, until some rotations are corrected -- perhaps patch 4 ++ !"
print "                                        < Left click on desired rotation  system   "
print "1. X Y Z  order of Rotation calculation"
print "2. Z Y X  order of Rotation calculation"
print "3. Fix Object Pivot"
print "4. Free Flight Rotation"
print "5. Modified  Free Flight (= Y X Z)"
print "6. Simon's Original  Notes"
print " "
ink RGB(255,128,128),0
Text 0, 350, " NOTE. Though I have suggested the simplest"
text 0, 365, "use of these rotations, skilled people should"
text 0, 380, " be able to do more through mathematical"
text 0, 395, "manipulation or sheer cunning .. aligning with "
text 0, 410, "dummy (zeroed or rotated) hidden objects, etc."
`mouse select
mx=mousex()
my=mousey()
if mouseclick()=1
if mx < 240
if my>48 and my<64 then gosub xyz:cls 0
if my>64 and my<81 then gosub zyx:cls 0
if my>81 and my<95 then gosub fixpivot:cls 0
if my>95 and my<111 then gosub freeflight:cls 0
if my>111 and my<128 then gosub modfreeflight:cls 0
if my>128 and my<144 then gosub info:cls 0
endif
endif

sync
loop

rem SUB-ROUTINE**************************************************************

rem XYZ ROTATION
xyz:
backdrop on
color backdrop 0
make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

xang=0
yang=0
zang=0

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,120,"RIGHT Click to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0

if upkey()=1 then inc xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if downkey()=1 then dec xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if rightkey()=1 then inc yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)
if leftkey()=1 then dec yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)
if shiftkey()=1 then inc zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)
if controlkey()=1 then dec zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)

ink rgb(255,255,255),0
text 255,0, "  XYZ  ROTATION"
set cursor 0,20
print "The x rotation axis, red, the first,  is permanently fixed in relation to the world coord system."
print "The y rotation axis, green, is built on, and only affected by changes in the previous x rotation axis."
print "The z rotation axis, yellow, is affected by both others, giving therefore, object related rotation."
print "Simplest use of this order, would be in changing object direction and then rolling - but note"
print "how the DB tank demo uses this rotation with a glued object as a limb to match the ground slope."

ink RGB(255,128,128),0
Text 350, 380, "From the objects point of view, Z rotation"
text 350, 395, "affects only the object.  Y rotation affects"
text 350, 410, "the object and the Z axis. Rotating X affects"
text 350, 425, "object and Y, Z axes. For use, it is perhaps "
text 350, 440, "more practical to see it as at top."
if returnkey()=1
 xang=0:yang=0: zang=0
endif

rem Rotate cube
xrotate object 1,wrapvalue(xang)
yrotate object 1,wrapvalue(yang)
zrotate object 1,wrapvalue(zang)

xrotate object 3,wrapvalue(xang)
yrotate object 3,wrapvalue(yang)

xrotate object 4,wrapvalue(xang)
yrotate object 4,wrapvalue(yang)
zrotate object 4,wrapvalue(zang)
sync
until mouseclick()=2

rotate object 1,0,0,0
delete object 2
delete object 3
delete object 4
backdrop off
return

rem SUB-ROUTINE**************************************************************
rem ZYX ROTATION
zyx:
backdrop on
color backdrop 0
make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)

make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

set object rotation zyx 1
set object rotation zyx 2
set object rotation zyx 3
set object rotation zyx 4

xang=0
yang=0
zang=0

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,100,"RIGHT Click to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0
if upkey()=1 then inc xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if downkey()=1 then dec xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if rightkey()=1 then inc yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)
if leftkey()=1 then dec yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)

if shiftkey()=1 then inc zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)
if controlkey()=1 then dec zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)
ink rgb(255,255,255),0
text 255,0, "  ZYX  ROTATION"
set cursor 0,20
print "The z rotation axis, yellow, the first,  is permanently fixed in relation to the world coord system."
print "The y rotation axis, green, is built on, and only affected by changes in the previous z rotation axis."
print "The x rotation axis, red, is affected by both others, giving therefore, object related rotation."
print "Simplest use of this order would be changing object direction and then pitching up or down."

ink RGB(255,128,128),0
Text 350, 380, "From the objects point of view, X rotation"
text 350, 395, "affects only the object.  Y rotation affects"
text 350, 410, "the object and the X axis. Rotating Z affects"
text 350, 425, "object and Y, X axes. For use, it is perhaps "
text 350, 440, "more practical to see it as at top."

if returnkey()=1
 xang=0:yang=0: zang=0
endif

rem Rotate cube
xrotate object 1,wrapvalue(xang)
yrotate object 1,wrapvalue(yang)
zrotate object 1,wrapvalue(zang)

rem Rotate x-axis cylinder
xrotate object 2,wrapvalue(xang)
yrotate object 2,wrapvalue(yang)
zrotate object 2,wrapvalue(zang)

rem Rotate y-axis cylinder
yrotate object 3,wrapvalue(yang)
zrotate object 3,wrapvalue(zang)

sync
until mouseclick()=2
rotate object 1,0,0,0
set object rotation xyz 1
delete object 2
delete object 3
delete object 4
backdrop off

return

rem SUB-ROUTINE**************************************************************
rem FIX OBJECT PIVOT ROTATION
fixpivot:
backdrop on
color backdrop 0

make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10

make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

repeat
set cursor 0,400

ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,80,"RIGHT Click to Return to Main Screen"

set cursor 0,0

if upkey()=1 then xrotate object 1,1 : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,1"
if downkey()=1 then xrotate object 1,359 : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,359"
if rightkey()=1 then yrotate object 1,1 : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,1"
if leftkey()=1 then yrotate object 1,359 : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,359"
if shiftkey()=1 then zrotate object 1,1 : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,1"
if controlkey()=1 then zrotate object 1,359 : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,359"

fix object pivot 1 : ink rgb(255,255,255),0 : text 220,0, "FIX  OBJECT  PIVOT,  ROTATION"
ink rgb(255,255,255),0
set cursor 0,40
print "All axes remain in the original alignment with the world coord system."
print " I can't see very much use for this myself! For effects perhaps."
sync

until mouseclick()=2
delete object 2
delete object 3
delete object 4
 delete object 1
gosub makeplane
backdrop off

return

rem SUB-ROUTINE**************************************************************
rem FREE FLIGHT ROTATION
freeflight:
backdrop on
color backdrop 0

`make object box 12,.3,.2,1.2
`position object 12, -1,0,0
`set object rotation zyx 12

make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,80,"RIGHT Click  to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0

if leftkey()=1
turn object left 1,1
turn object left 2,1
turn object left 3,1
turn object left 4,1
ink rgb(0,255,0),0 : print "TURN OBJECT LEFT 1,1"
endif

if rightkey()=1
turn object right 1,1
turn object right 2,1
turn object right 3,1
turn object right 4,1
ink rgb(0,255,0),0 : print "TURN OBJECT RIGHT 1,1"
endif

if downkey()=1
pitch object up 1,1.0
pitch object up 2,1.0
pitch object up 3,1.0
pitch object up 4,1.0
ink rgb(255,0,0),0 : print "PITCH OBJECT UP 1,1"
endif

if upkey()=1
pitch object down 1,1.0
pitch object down 2,1.0
pitch object down 3,1.0
pitch object down 4,1.0
ink rgb(255,0,0),0 : print "PITCH OBJECT DOWN 1,1"
endif

if shiftkey()=1
roll object left 1,1.0
roll object left 2,1.0
roll object left 3,1.0
roll object left 4,1.0
ink rgb(255,255,0),0 : print "ROLL OBJECT LEFT 1,1"
endif

if controlkey()=1
roll object right 1,1.0
roll object right 2,1.0
roll object right 3,1.0
roll object right 4,1.0
ink rgb(255,255,0),0 : print "ROLL OBJECT RIGHT 1,1"
endif

ink rgb(245,245,245),0
set cursor 470,200: print "W direction= " ;limb direction y(1,0)
set cursor 470,230: print "sinepitch= " ;sin(limb direction x(1,0))
rem  Cheat method can be used for pitch as well - see below
   `alt#=object position y(1)
  ` move object 1,1
   `set cursor 470,230: print "sinepitch= " ; alt#-object position y(1)
  ` move object 1,1*-1
turn object right 1,90
 move object 1,1
set cursor 470,260: print "sineroll= " ; object position y(1)- alt#
move object 1,1*-1
turn object left 1,90:rem  back to original position and direction
rem  End cheat method

text 236,0, "FREE  FLIGHT  ROTATION"
set cursor 0,20
print "All axes rotate with the object.   Any new change is always relative to the objects current rotation."
print " Ideal for representing reaction of  aircraft to controls."
print " It can also represent the transfer of flight forces as angular change in forward movement."

ink RGB(255,128,128),0
text 348,150, "What is this weird 'sinpitch' if you roll at zero"
text 350,170, "pitch?  Never noticed it in my working sims. "
Text 340, 350, "To use free flight one may need a return of the "
text 340, 365, "curent x,y,z angles.Versions vary. The latest"
text 340, 380, "1.13, returns  x y and z values which will set"
text 340, 395, "another object the same, when it uses zyx"
text 340, 410, "rotation.    I have included here a 'cheat'"
text 340, 425, "method which gives angles RELATED TO  "
text 340, 440, " WORLD VERTICAL, as needed for a flight sim."
text 340, 455, "(I use them mostly as a sine of the angle)."

`rotate object 12, object angle x(1), object angle y(1), object angle z(1)
if returnkey()=1
 rotate object 1,0,0,0
 rotate object 2,0,0,0
  rotate object 3,0,0,0
   rotate object 4,0,0,0
 endif
sync
until mouseclick()=2
rotate object 1,0,0,0
delete object 2
delete object 3
delete object 4
`delete object 12
backdrop off

return

rem SUB-ROUTINE**************************************************************

info:
backdrop on
color backdrop 0
set cursor 0,0
ink rgb(255,255,255),0

repeat

text 200,0, "  SIMON'S  ORIGINAL  NOTES"

text 0, 40, "XYZ ROTATION"
text 0,55, "X Rotation is always global"
text 0,70, "Y Rotation is local if you rotate x, global if you rotate z"
text 0,85, "Z Rotation is always local"

text 0,110, "ZYX ROTATION"
text 0,125, "X Rotation is always local"
text 0,140, "Y Rotation is global if you rotate x, local if you rotate z"
text 0,155, "Z Rotation is always global"

text 0,180, "FIX OBJECT PIVOT"
text 0, 195, "All rotations are global"
text 0, 210, " "
text 0, 230, "FREE FLIGHT ROTATION"
text 0, 245, "All rotations are local"

text 0,300,"RIGHT Click to Return to Main Screen"
sync

until mouseclick()=2
backdrop off
return
` -----------------------------------------------------------------------
modfreeflight:
backdrop on
color backdrop 0
turn=0
pitch=0
roll=0
make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,130,"RIGHT Click  to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0

if leftkey()=1 then turn=wrapvalue(turn-1): ink rgb(0,255,0),0 :  print "DIRECTION ANGLE = "; turn
if rightkey()=1 then turn=wrapvalue(turn+1):ink rgb(0,255,0),0 : print "DIRECTION  ANGLE = "; turn

if downkey()=1 then pitch=wrapvalue( pitch -1):ink rgb(255,0,0),0 : print "PITCH ANGLE = ";pitch
if upkey()=1 then pitch=wrapvalue(pitch+1):ink rgb(255,0,0),0 : print "PITCH ANGLE = ";pitch

if shiftkey()=1 then roll = wrapvalue(roll+1):ink rgb(255,255,0),0 : print "ROLL ANGLE = ";roll
if controlkey()=1 then roll = wrapvalue(roll-1):ink rgb(255,255,0),0 : print "ROLL ANGLE = ";roll

rotate object 1,0,0,0: rem  In some versions, this may need to be replaced with :-
rem         set object to object orientation 1, 2  ....  where  '2'  is a dummy object
rem      left at a rotation of 0,0,0'
rem     Others have done versions that use a rotating dummy object I think.
turn object right 1,turn
pitch object down 1, pitch
roll object left 1,roll

yrotate object 2, turn

set object to object orientation 4,1

ink rgb(255,255,255),0
text 210,0, "MODIFIED  FREE  FLIGHT  ROTATION"
set cursor 0,20
print "An 'artificial equivalent' to a new standard rotation order of  Y X Z."
print "The object may be pointed in any world direction, then pitched up or down, then rolled"
print "freely.  Note that the pitch as well as turn, always relates to the world co-ords."
print "   This can be a very useful and easily followed rotation system."
print "It can be used to angle a ground travelling object to the ground matrix slope,"
print " or  make a simplified flight or helicopter simulation."

if returnkey()=1
turn=0
pitch=0
roll=0
 endif
sync

until mouseclick()=2
 rotate object 1,0,0,0
delete object 2
delete object 3
delete object 4
backdrop off

return
return

rem *************************************************************************
makeplane:

make object box 2,1.6,.05,.40: rem wing
make mesh from object 1,2
delete object 2

make object box 3,.05,.5,.4: rem tail
make mesh from object 2,3
delete object 3

make object box 1,.3,.2,1.2:rem body
add limb 1,1,1
add limb 1,2,2
OFFSET LIMB 1, 2,0,.2,-.5
position object 1,0,0,0

return

+ Code Snippet

Rem * Title  : Rotation Tutorial
Rem * Original Author : Simon Harrison  ( Si)   Date   : 18th July 2000
Rem *
rem    David Lawrence  ( muddleglum)     November   2002
rem  Added matrix, mouse click functioning, new rotation, 'plane' object to give sense of direction,
rem  Also, more explanation.
rem   Feel free anyone,  to  add  to this  information ( and tell me)>  [email protected]

set display mode 640,480,16
set text size 17:rem this is for Db pro only

sync on
sync rate 30
cls RGB(20,128,164)
ink RGB(35,118,140),0
box 0,0,8,8
box 8,8,16,16
GET IMAGE 1,0,0,16,16
cls 0
make matrix 1,16,16,10,10
position matrix 1,-7,-1.5,-1
PREPARE MATRIX TEXTURE 1, 1,1,1

backdrop off
gosub makeplane
autocam off
position camera 0,.5,-3
fog on
fog distance 12
do

`cls 0
set cursor 0,0
ink rgb(255,255,255),0
print "                    DEMO OF ROTATIONS.      Should work with DB versions 1.08 to 1.13"
print "                 - But NOT DB PRO, until some rotations are corrected -- perhaps patch 4 ++ !"
print "                                        < Left click on desired rotation  system   "
print "1. X Y Z  order of Rotation calculation"
print "2. Z Y X  order of Rotation calculation"
print "3. Fix Object Pivot"
print "4. Free Flight Rotation"
print "5. Modified  Free Flight (= Y X Z)"
print "6. Simon's Original  Notes"
print " "
ink RGB(255,128,128),0
Text 0, 350, " NOTE. Though I have suggested the simplest"
text 0, 365, "use of these rotations, skilled people should"
text 0, 380, " be able to do more through mathematical"
text 0, 395, "manipulation or sheer cunning .. aligning with "
text 0, 410, "dummy (zeroed or rotated) hidden objects, etc."
`mouse select
mx=mousex()
my=mousey()
if mouseclick()=1
if mx < 240
if my>48 and my<64 then gosub xyz:cls 0
if my>64 and my<81 then gosub zyx:cls 0
if my>81 and my<95 then gosub fixpivot:cls 0
if my>95 and my<111 then gosub freeflight:cls 0
if my>111 and my<128 then gosub modfreeflight:cls 0
if my>128 and my<144 then gosub info:cls 0
endif
endif

sync
loop

rem SUB-ROUTINE**************************************************************

rem XYZ ROTATION
xyz:
backdrop on
color backdrop 0
make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

xang=0
yang=0
zang=0

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,120,"RIGHT Click to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0

if upkey()=1 then inc xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if downkey()=1 then dec xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if rightkey()=1 then inc yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)
if leftkey()=1 then dec yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)
if shiftkey()=1 then inc zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)
if controlkey()=1 then dec zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)

ink rgb(255,255,255),0
text 255,0, "  XYZ  ROTATION"
set cursor 0,20
print "The x rotation axis, red, the first,  is permanently fixed in relation to the world coord system."
print "The y rotation axis, green, is built on, and only affected by changes in the previous x rotation axis."
print "The z rotation axis, yellow, is affected by both others, giving therefore, object related rotation."
print "Simplest use of this order, would be in changing object direction and then rolling - but note"
print "how the DB tank demo uses this rotation with a glued object as a limb to match the ground slope."

ink RGB(255,128,128),0
Text 350, 380, "From the objects point of view, Z rotation"
text 350, 395, "affects only the object.  Y rotation affects"
text 350, 410, "the object and the Z axis. Rotating X affects"
text 350, 425, "object and Y, Z axes. For use, it is perhaps "
text 350, 440, "more practical to see it as at top."
if returnkey()=1
 xang=0:yang=0: zang=0
endif

rem Rotate cube
xrotate object 1,wrapvalue(xang)
yrotate object 1,wrapvalue(yang)
zrotate object 1,wrapvalue(zang)

xrotate object 3,wrapvalue(xang)
yrotate object 3,wrapvalue(yang)

xrotate object 4,wrapvalue(xang)
yrotate object 4,wrapvalue(yang)
zrotate object 4,wrapvalue(zang)
sync
until mouseclick()=2

rotate object 1,0,0,0
delete object 2
delete object 3
delete object 4
backdrop off
return

rem SUB-ROUTINE**************************************************************
rem ZYX ROTATION
zyx:
backdrop on
color backdrop 0
make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)

make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

set object rotation zyx 1
set object rotation zyx 2
set object rotation zyx 3
set object rotation zyx 4

xang=0
yang=0
zang=0

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,100,"RIGHT Click to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0
if upkey()=1 then inc xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if downkey()=1 then dec xang : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,";wrapvalue(xang)
if rightkey()=1 then inc yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)
if leftkey()=1 then dec yang : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,";wrapvalue(yang)

if shiftkey()=1 then inc zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)
if controlkey()=1 then dec zang : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,";wrapvalue(zang)
ink rgb(255,255,255),0
text 255,0, "  ZYX  ROTATION"
set cursor 0,20
print "The z rotation axis, yellow, the first,  is permanently fixed in relation to the world coord system."
print "The y rotation axis, green, is built on, and only affected by changes in the previous z rotation axis."
print "The x rotation axis, red, is affected by both others, giving therefore, object related rotation."
print "Simplest use of this order would be changing object direction and then pitching up or down."


ink RGB(255,128,128),0
Text 350, 380, "From the objects point of view, X rotation"
text 350, 395, "affects only the object.  Y rotation affects"
text 350, 410, "the object and the X axis. Rotating Z affects"
text 350, 425, "object and Y, X axes. For use, it is perhaps "
text 350, 440, "more practical to see it as at top."

if returnkey()=1
 xang=0:yang=0: zang=0
endif

rem Rotate cube
xrotate object 1,wrapvalue(xang)
yrotate object 1,wrapvalue(yang)
zrotate object 1,wrapvalue(zang)

rem Rotate x-axis cylinder
xrotate object 2,wrapvalue(xang)
yrotate object 2,wrapvalue(yang)
zrotate object 2,wrapvalue(zang)

rem Rotate y-axis cylinder
yrotate object 3,wrapvalue(yang)
zrotate object 3,wrapvalue(zang)

sync
until mouseclick()=2
rotate object 1,0,0,0
set object rotation xyz 1
delete object 2
delete object 3
delete object 4
backdrop off

return

rem SUB-ROUTINE**************************************************************
rem FIX OBJECT PIVOT ROTATION
fixpivot:
backdrop on
color backdrop 0

make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10

make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

repeat
set cursor 0,400

ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,80,"RIGHT Click to Return to Main Screen"

set cursor 0,0

if upkey()=1 then xrotate object 1,1 : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,1"
if downkey()=1 then xrotate object 1,359 : ink rgb(255,0,0),0 : print "X ROTATE OBJECT 1,359"
if rightkey()=1 then yrotate object 1,1 : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,1"
if leftkey()=1 then yrotate object 1,359 : ink rgb(0,255,0),0 : print "Y ROTATE OBJECT 1,359"
if shiftkey()=1 then zrotate object 1,1 : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,1"
if controlkey()=1 then zrotate object 1,359 : ink rgb(255,255,0),0 : print "Z ROTATE OBJECT 1,359"

fix object pivot 1 : ink rgb(255,255,255),0 : text 220,0, "FIX  OBJECT  PIVOT,  ROTATION"
ink rgb(255,255,255),0
set cursor 0,40
print "All axes remain in the original alignment with the world coord system."
print " I can't see very much use for this myself! For effects perhaps."
sync

until mouseclick()=2
delete object 2
delete object 3
delete object 4
 delete object 1
gosub makeplane
backdrop off

return

rem SUB-ROUTINE**************************************************************
rem FREE FLIGHT ROTATION
freeflight:
backdrop on
color backdrop 0


`make object box 12,.3,.2,1.2
`position object 12, -1,0,0
`set object rotation zyx 12

make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,80,"RIGHT Click  to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0

if leftkey()=1
turn object left 1,1
turn object left 2,1
turn object left 3,1
turn object left 4,1
ink rgb(0,255,0),0 : print "TURN OBJECT LEFT 1,1"
endif

if rightkey()=1
turn object right 1,1
turn object right 2,1
turn object right 3,1
turn object right 4,1
ink rgb(0,255,0),0 : print "TURN OBJECT RIGHT 1,1"
endif

if downkey()=1
pitch object up 1,1.0
pitch object up 2,1.0
pitch object up 3,1.0
pitch object up 4,1.0
ink rgb(255,0,0),0 : print "PITCH OBJECT UP 1,1"
endif

if upkey()=1
pitch object down 1,1.0
pitch object down 2,1.0
pitch object down 3,1.0
pitch object down 4,1.0
ink rgb(255,0,0),0 : print "PITCH OBJECT DOWN 1,1"
endif

if shiftkey()=1
roll object left 1,1.0
roll object left 2,1.0
roll object left 3,1.0
roll object left 4,1.0
ink rgb(255,255,0),0 : print "ROLL OBJECT LEFT 1,1"
endif

if controlkey()=1
roll object right 1,1.0
roll object right 2,1.0
roll object right 3,1.0
roll object right 4,1.0
ink rgb(255,255,0),0 : print "ROLL OBJECT RIGHT 1,1"
endif

ink rgb(245,245,245),0
set cursor 470,200: print "W direction= " ;limb direction y(1,0)
set cursor 470,230: print "sinepitch= " ;sin(limb direction x(1,0))
rem  Cheat method can be used for pitch as well - see below
   `alt#=object position y(1)
  ` move object 1,1
   `set cursor 470,230: print "sinepitch= " ; alt#-object position y(1)
  ` move object 1,1*-1
turn object right 1,90
 move object 1,1
set cursor 470,260: print "sineroll= " ; object position y(1)- alt#
move object 1,1*-1
turn object left 1,90:rem  back to original position and direction
rem  End cheat method

text 236,0, "FREE  FLIGHT  ROTATION"
set cursor 0,20
print "All axes rotate with the object.   Any new change is always relative to the objects current rotation."
print " Ideal for representing reaction of  aircraft to controls."
print " It can also represent the transfer of flight forces as angular change in forward movement."

ink RGB(255,128,128),0
text 348,150, "What is this weird 'sinpitch' if you roll at zero"
text 350,170, "pitch?  Never noticed it in my working sims. "
Text 340, 350, "To use free flight one may need a return of the "
text 340, 365, "curent x,y,z angles.Versions vary. The latest"
text 340, 380, "1.13, returns  x y and z values which will set"
text 340, 395, "another object the same, when it uses zyx"
text 340, 410, "rotation.    I have included here a 'cheat'"
text 340, 425, "method which gives angles RELATED TO  "
text 340, 440, " WORLD VERTICAL, as needed for a flight sim."
text 340, 455, "(I use them mostly as a sine of the angle)."

`rotate object 12, object angle x(1), object angle y(1), object angle z(1)
if returnkey()=1
 rotate object 1,0,0,0
 rotate object 2,0,0,0
  rotate object 3,0,0,0
   rotate object 4,0,0,0
 endif
sync
until mouseclick()=2
rotate object 1,0,0,0
delete object 2
delete object 3
delete object 4
`delete object 12
backdrop off

return

rem SUB-ROUTINE**************************************************************

info:
backdrop on
color backdrop 0
set cursor 0,0
ink rgb(255,255,255),0

repeat

text 200,0, "  SIMON'S  ORIGINAL  NOTES"

text 0, 40, "XYZ ROTATION"
text 0,55, "X Rotation is always global"
text 0,70, "Y Rotation is local if you rotate x, global if you rotate z"
text 0,85, "Z Rotation is always local"

text 0,110, "ZYX ROTATION"
text 0,125, "X Rotation is always local"
text 0,140, "Y Rotation is global if you rotate x, local if you rotate z"
text 0,155, "Z Rotation is always global"

text 0,180, "FIX OBJECT PIVOT"
text 0, 195, "All rotations are global"
text 0, 210, " "
text 0, 230, "FREE FLIGHT ROTATION"
text 0, 245, "All rotations are local"

text 0,300,"RIGHT Click to Return to Main Screen"
sync

until mouseclick()=2
backdrop off
return
` -----------------------------------------------------------------------
modfreeflight:
backdrop on
color backdrop 0
turn=0
pitch=0
roll=0
make object cylinder 2,1 : color object 2,rgb(255,0,0)
zrotate object 2,90
fix object pivot 2
scale object 2,200,10,10
make object cylinder 3,1
scale object 3,10,200,10
color object 3,rgb(0,255,0)
make object cylinder 4,1 : color object 4,rgb(255,255,0)
xrotate object 4,90
fix object pivot 4
scale object 4,10,10,200

repeat
set cursor 0,400
ink rgb(255,0,0),0 : print "X-Axis: Up/Down Cursor Keys"
ink rgb(0,255,0),0 : print "Y-Axis: Left/Right Cursor Keys"
ink rgb(255,255,0),0 : print "Z-Axis: Shift/Ctrl Keys"
ink rgb(255,255,255),0 : text 0,130,"RIGHT Click  to Return to Main Screen"
text 0,370," Return Key to reset to zero rotation"
set cursor 0,0

if leftkey()=1 then turn=wrapvalue(turn-1): ink rgb(0,255,0),0 :  print "DIRECTION ANGLE = "; turn
if rightkey()=1 then turn=wrapvalue(turn+1):ink rgb(0,255,0),0 : print "DIRECTION  ANGLE = "; turn

if downkey()=1 then pitch=wrapvalue( pitch -1):ink rgb(255,0,0),0 : print "PITCH ANGLE = ";pitch
if upkey()=1 then pitch=wrapvalue(pitch+1):ink rgb(255,0,0),0 : print "PITCH ANGLE = ";pitch

if shiftkey()=1 then roll = wrapvalue(roll+1):ink rgb(255,255,0),0 : print "ROLL ANGLE = ";roll
if controlkey()=1 then roll = wrapvalue(roll-1):ink rgb(255,255,0),0 : print "ROLL ANGLE = ";roll


rotate object 1,0,0,0: rem  In some versions, this may need to be replaced with :-
rem         set object to object orientation 1, 2  ....  where  '2'  is a dummy object
rem      left at a rotation of 0,0,0'
rem     Others have done versions that use a rotating dummy object I think.
turn object right 1,turn
pitch object down 1, pitch
roll object left 1,roll

yrotate object 2, turn

set object to object orientation 4,1


ink rgb(255,255,255),0
text 210,0, "MODIFIED  FREE  FLIGHT  ROTATION"
set cursor 0,20
print "An 'artificial equivalent' to a new standard rotation order of  Y X Z."
print "The object may be pointed in any world direction, then pitched up or down, then rolled"
print "freely.  Note that the pitch as well as turn, always relates to the world co-ords."
print "   This can be a very useful and easily followed rotation system."
print "It can be used to angle a ground travelling object to the ground matrix slope,"
print " or  make a simplified flight or helicopter simulation."

if returnkey()=1
turn=0
pitch=0
roll=0
 endif
sync

until mouseclick()=2
 rotate object 1,0,0,0
delete object 2
delete object 3
delete object 4
backdrop off

return
return

rem *************************************************************************
makeplane:

make object box 2,1.6,.05,.40: rem wing
make mesh from object 1,2
delete object 2

make object box 3,.05,.5,.4: rem tail
make mesh from object 2,3
delete object 3

make object box 1,.3,.2,1.2:rem body
add limb 1,1,1
add limb 1,2,2
OFFSET LIMB 1, 2,0,.2,-.5
position object 1,0,0,0


return

Pass this around to nubs, keeping intact the credits to almighty muddleglum, for he hath done humanity a most noble service.

I'm going to eat you!

Back to top

Profile PM Email Website

devastation

19

Years of Service

User Offline

Joined: 11th Aug 2005

Location:

Posted: 21st Nov 2005 03:19

Link

Hes a witch! Burn him!

verydevastating.com

Back to top

Profile PM Email Website

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 21st Nov 2005 09:01

Link

That's the most awesome thing I've ever heard Bear, totally XD, you rock xD!... haha, so mystical

(Awesome code by the way, thanks a LOT for that! it helped me understand lots of stuff about DB's rotation! ^^) *stores code in safe, safe place*

I seem to have TOTALLY done it!

not perfect though, it has some bad glitch when turning real fast (it's logical, due to the rotate-move-rotate back-rotate-move-rotate back way.... but it works!

)

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

do

set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

yrotate object 5,wrapvalue(cx#)

if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

position camera object position x(5),object position y(5),object position z(5)

Position Object 200,camera position x(),camera position y(),camera position z()
   turn object right 200,90
   move object 200,-3
   turn object left 200,90
   pitch object down 200,90
   move object 200,2
   pitch object up 200,90
   move object 200,4

rotate object 200,0,0,0
   turn object right 200,cx#
   pitch object down 200,cy#

sync
loop

+ Code Snippet

set display mode 640,480,16
hide mouse
sync on
sync rate 0

make object sphere 5,10

make matrix 1,10000,10000,20,20

make object cube 200,1
scale object 200,100,100,500

position object 5,5000,80,5000
PlayerObjNo=5

do

   set cursor 0,0
   print camera position x()
   print camera position y()
   print camera position z()

   position mouse screen width()/2,screen height()/2
   cx#=cx#+mousemovex()
   cy#=cy#+mousemovey()
   xrotate camera wrapvalue(cy#)
   yrotate camera wrapvalue(cx#)

   yrotate object 5,wrapvalue(cx#)

   if upkey()=1 then move object 5,50
   if downkey()=1 then move object 5,-50

   position camera object position x(5),object position y(5),object position z(5)

   Position Object 200,camera position x(),camera position y(),camera position z()
   turn object right 200,90
   move object 200,-3
   turn object left 200,90
   pitch object down 200,90
   move object 200,2
   pitch object up 200,90
   move object 200,4

   rotate object 200,0,0,0
   turn object right 200,cx#
   pitch object down 200,cy#

sync
loop

I'm trying now to see how do I remove that thing... need to know now how to do that effect without using turn object and pitch object!

YAY!

Back to top

Profile PM Email

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 21st Nov 2005 23:19

Link

Bump

Along with the bump: I'm sure this has been done before but dunno where to find it... a replacement for Pitch Object/Turn Object ? but...y'know how those two work, not like "use yrotate / xrotate" 'cause I've tried that already

Back to top

Profile PM Email

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 22nd Nov 2005 00:18

Link

there is no real alternative besdies (x/y)rotate object - but before your loop starts, try doing
set object rotation zyx <number> outside your loop - without this things get a little weird round the 90 and 270 degree rotation on the y axis...

...maybe one day I'll finish a project

Back to top

Profile PM Email

Captain America

20

Years of Service

User Offline

Joined: 8th Apr 2005

Location: Here

Posted: 22nd Nov 2005 18:23

Link

devastation 328 are you a sophmore in high school?
if you are then cool, cuz i am too!
later!

-Captain-

Cheers,
Capt. America

Back to top

Profile PM Email Website

devastation

19

Years of Service

User Offline

Joined: 11th Aug 2005

Location:

Posted: 22nd Nov 2005 22:10

Link

yup, but I'm a secret programmer. I only admit my darkbasic and cpp knowledge in programming class lest i be thrown into a giant fishtank to be gnawed to death by thousands of hungry sea urchins!

Greetings fellow sophmore! We're teh best because we've already taken algebra (and geometry in most cases) so were not useless, but we still have alot of time before we graduate and have to get real jobs. Just imagine how awesome we'll code when were seniors! And you missed out on a good conversation about high school and stuff in the Slayer Battletanks 2 thread. Such a shame. How's your castle game coming?

and on your gun rotation, instead of using pitch up, why dont u use xrotate object! (question mark ommited because it's rhetorical) it's much better, but you have to use this code or else it messes up because the x rotation is different depending on which direction you're facing (as it doesn't rotate with the camera). try this:

+ Code Snippet

   xrotate camera wrapvalue(camera angle x()+mousemovex()/4)
   if camera angle x()>80 and camera angle x()<180 then xrotate camera 80
   if camera angle x()<270 and camera angle x()>180 then xrotate camera 270

voila! mouse look that doesn't suck atlast! Anything else before I go cry myself to sleep because I didn't get an xbox 360?

good luck
jeff

verydevastating.com

Back to top

Profile PM Email Website

Captain America

20

Years of Service

User Offline

Joined: 8th Apr 2005

Location: Here

Posted: 23rd Nov 2005 02:50

Link

COOL!

my castle game is coming along great except for my main character (a dwarf) is not working properly. im still trying to get his animation right. He was made in Milkshape 3D, not by me, and when the person made him he/she put all the animation like jumping ducking, slashing, hammering, etc... in the same thing. (if that makes any sense.)

And i dont know how to make it so that when you click the mouse, it only plays a certain portion of the animation (ex: slashing). And im sorta stuck on that, and i havent done anything else yet. So im at a standstill. I would appreciate help in my thread 'Castle FPS game' for anyone that might beable to lend a hand!

-Captain-

PS - jeff do u live in the US, and if so California, and if so what city? if you dont mind me asking!

later!

Cheers,
Capt. America

Back to top

Profile PM Email Website

devastation

19

Years of Service

User Offline

Joined: 11th Aug 2005

Location:

Posted: 23rd Nov 2005 02:59 Edited at: 23rd Nov 2005 03:00

Link

you have to get your game to skip to the frame where the slashing is
and otherwise make it play the walking one or whatever

+ Code Snippet

if mouseclick() = 1 and object playing(dwarf) = 0
   play object dwarf,35,60 
else
   if object playing(dwarf) = 0 then play object dwarf,1,35
endif

assuming the slash motion is from frame 35 to 60 and the walking is 1 thru 35

and I live in the US but in KC, not cali.

**edit - fixed code error

verydevastating.com

Back to top

Profile PM Email Website

Captain America

20

Years of Service

User Offline

Joined: 8th Apr 2005

Location: Here

Posted: 23rd Nov 2005 04:00

Link

ok thanks ill try that!

too bad you dont live in CA.

Cheers,
Capt. America

Back to top

Profile PM Email Website

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 24th Nov 2005 04:25

Link

Heh, thanks for that code Devastation

!!!

Sorry for the late reply been busy and stuff

Anyways, thing is that Pitch object, and Turn object seem to have a different orientation system, =local=, which doesn't relies in the object angles.... that's why... or at least, how to get the angle of an object when using Pitch Object and Turn Object would be useful too, thinking about it!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / FPS Gun positioning