[DBC/DBP] Move Object using variables

Author

Message

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Sep 2007 18:18

Link

Noobs get stuck using MOVE OBJECT because it's hard to work out how to move an object forward in 3D space.
So I have written a function to do this

.

+ Code Snippet

FUNCTION @move_object(ob_n, ob_px#, ob_pz#, ob_ay#, ob_spd#)
   ob_px#= ob_px#+sin(ob_ay#)*ob_spd#
   ob_pz#= ob_pz#+cos(ob_ay#)*ob_spd#
   position object ob_n, ob_px#, 0, ob_pz#
ENDFUNCTION

Here's a working example

+ Code Snippet

make object cone 1,1
xrotate object 1,90 : fix object pivot 1

hide mouse
sync on

position camera 0,20,-20
point camera px#,0,pz#

DO
   px# = object position x(1)
   pz# = object position z(1)
   ay# = object angle y(1)

   `control
   if leftkey()= 1 then ay# = wrapvalue(ay#-3.6)
   if rightkey()= 1 then ay# = wrapvalue(ay#+3.6)
   if upkey()= 1 then @move_object(1, px#, pz#, ay#, 0.4)

   `update rotation
   yrotate object 1,ay#

   sync
LOOP


FUNCTION @move_object(ob_n, ob_px#, ob_pz#, ob_ay#, ob_spd#)
   ob_px#= ob_px#+sin(ob_ay#)*ob_spd#
   ob_pz#= ob_pz#+cos(ob_ay#)*ob_spd#
   position object ob_n, ob_px#, 0, ob_pz#
ENDFUNCTION

In programming, nothing exists

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Sep 2007 18:19

Link

Does this actually help?

lol

In programming, nothing exists

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 2nd Sep 2007 20:55

Link

Good to see people getting more into the maths side of things. Thing about that one is that you can only move along the XZ plain, you can't change the X angle.

Here is a function where you can set the X angle to move at too:

+ Code Snippet

function MoveObject(o, ax#, ay#, speed#)
   nx# = object position x(o) + sin(ay#) * cos(ax#) * speed#
   ny# = object position y(o) - sin(ax#) * speed#
   nz# = object position z(o) + cos(ay#) * cos(ax#) * speed#
   position object o, nx#, ny#, nz#
endfunction

"It's like floating a boat on a liquid that I don't know, but I'm quite happy to drink it if I'm thirsty enough" - Me being a good programmer but sucking at computers

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Sep 2007 22:19

Link

This was originally a 2D object that could turn around and move forwards, I then realised that this could be very useful to noobs wanting to escape the MOVE OBJECT command.

Thanks Zo, and thanks for the function; he can go up and down hills now!

Now we wait for someone to add in Z rotation for strafing down hills

In programming, nothing exists

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 3rd Sep 2007 00:30

Link

Z rotation doesn't really matter unless it's global, in which case, you should look at LL's rotation functions. I'm not sure it Z rotation is global in dbp.

But anyway, straffing isn't that hard when you have the maths being it. If you want to move sideways, add 90 deg onto ay#. If you wanna move down, subtract 90 deg from ax#

"It's like floating a boat on a liquid that I don't know, but I'm quite happy to drink it if I'm thirsty enough" - Me being a good programmer but sucking at computers

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / [DBC/DBP] Move Object using variables