[DarkPHYSICS]: Character controller / Is there a way to jump, strafe, crouch...

Author

Message

Freddix

AGK Developer

22

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 21st Aug 2006 17:12

Link

In the FPS sample given with DarkPHYSICS, we see the use of CHARACTER CONTROLLER command set but, there seem to not exist (in reference manual) commands to allow CONTROLED CHARACTER to jump, strafe, crouch ...
Is there a way to do that using CHARACTER CONTROLLER ...

All we have to decide is what to do with the time that is given to us.

Back to top

Profile PM Email Website

monotonic

18

Years of Service

User Offline

Joined: 24th Mar 2006

Location: Nottinghamshire, England

Posted: 21st Aug 2006 18:13 Edited at: 21st Aug 2006 18:17

Link

Some commands for this have been add4ed to the update for Dark Physics.

This command can be used for crouching
phy set character controller extents ID, radius#, height#
So to crouch just adjust the height of the controller then to stand restore the height back to normal.

This command could be used for jumping.
phy set character controller displacement ID, forward#, backward#

This is the explanation of this command in the docs from the update:

Quote: "can now control the displacement direction when the character controller is moving, this is used to manually implement forces such as gravity or moving from side to side, use the command phy set character controller displacement ID, forward#, backward# to override the default behaviour, when the movement speed is less than 0.0 then the backward# value is applied to the Y axis, when the movement speed is greater than 0.0 then the forward# value is applied to the Y axis"

So this command can be used to add gravity to the controller or add jumping directional movement to the controller.

so, to apply gravity you could do:

+ Code Snippet

phy set character controller displacement ControllerID, SomeValue#, -Gravity#

` now we move the character by a negative value causing DP to apply the backward part of the command i.e. -Gravity# to the Y axis of the controller
phy move character controller ControllerID, -1.0

So this could also be used to apply a positive Y movement instead of -Gravity#, you could do Gravity# (positive)

+ Code Snippet

 phys set character controller displacement ControllerID, SomeValue#, Gravity#

` now we move the character by a negative value causing DP to apply the backward part of the command i.e. Gravity# (positive) to the Y axis of the controller
phy move character controller ControllerID, -1.0

But obviously this command does not apply a force to the character controller so you would to manually calculate how much and direction the movement needs to apllied, so to jump you would start of with a relativly high positive value then slowly decrease this back to the negative gravity

Hope that helped, the full list of new commands comes with the update.

I know the voices aren't real, but they have good ideas!

Back to top

Profile PM

imekon

18

Years of Service

User Offline

Joined: 3rd Jul 2006

Location:

Posted: 21st Aug 2006 18:17

Link

I'm either being a bit dense but... how do you do strafing?

I've got the forward/backward working but strafe left/right?

"Reality Bites"

Back to top

Profile PM

monotonic

18

Years of Service

User Offline

Joined: 24th Mar 2006

Location: Nottinghamshire, England

Posted: 21st Aug 2006 18:22

Link

@imekon

There is a couple of ways, you could use the

phy set character controller displacement ID, x#, y#, z#

command to manually set the displacement, using cosine and sine to calculate the direction to move, or... the easy option is to apply your forward and backward movement using the

phy move character controller CharID, Value#

then after this has been called rotate your character controller object by 90 degrees in the right direction i.e. to strafe left turn your char' controller 90 degrees left then use the above command and move in that direction. then rotate the char' controller back to its original angle.

I know the voices aren't real, but they have good ideas!

Back to top

Profile PM

Freddix

AGK Developer

22

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 21st Aug 2006 18:39

Link

thanks

All we have to decide is what to do with the time that is given to us.

Back to top

Profile PM Email Website

imekon

18

Years of Service

User Offline

Joined: 3rd Jul 2006

Location:

Posted: 21st Aug 2006 19:23

Link

@monotonic

Now why didn't I think of that?

"Reality Bites"

Back to top

Profile PM

imekon

18

Years of Service

User Offline

Joined: 3rd Jul 2006

Location:

Posted: 22nd Aug 2006 09:07

Link

Here's a sample of strafing and jumping (though I've not got that working quite right yet):

#constant player_object = 100

#constant bullet_velocity = 1000

type TBullet
   id
   start
endtype

global nObjectIndex = 0
global nBulletIndex = 1000

global fspeed as float = 5.0
global fturn as float = 0.03

global oldcamx as float
global oldcamy as float

global camx as float
global camy as float

randomize timer()

phy start

autocam off

phy set gravity 0, -9.8, 0

sync on
sync rate 60
backdrop off

set display mode 1024, 768, 32
set camera range 0.5, 35000
hide mouse

rem ground
ground = GetNextIndex()
make object plain ground, 30000, 30000
color object ground, rgb(20, 120, 20)
xrotate object ground, -90
phy make rigid body static box ground

rem a few boxes
for i = 1 to 20
   boxes = GetNextIndex()
   make object box boxes, 20, 20, 20
   position object boxes, 30 * i, 60, 0
   color object boxes, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127))
   phy make rigid body dynamic box boxes
   phy set rigid body mass boxes, 1000.0
next

rem Player controller
make object box player_object, 100, 100, -200
phy make box character controller player_object, 100, 100, -200, 10, 50, 10, 1, 16, 45
hide object player_object

rem Light inside
light_object = GetNextIndex()

make light light_object
set point light light_object, 0, 600, 0

vec = make vector3( bullet_velocity )

start = 0

dim bullets() as TBullet

empty array bullets()

do
   now = timer()

text 10, 20, "FPS: " + STR$(screen fps())
   text 10, 40, "Camera: " + STR$(object position x(player_object), 2) + " " + STR$(object position y(player_object), 2) + " " + STR$(object position z(player_object), 2)
   text 10, 60, "Bullets: " + str$(array count(bullets()))

array index to top bullets()

while array index valid(bullets())

if now - bullets().start > 10000
         phy delete rigid body bullets().id
         delete object bullets().id
         array delete element bullets()
      else
         next array index bullets()
      endif

endwhile

position mouse 512, 384

position camera object position x(player_object), object position y(player_object) + 20, object position z(player_object)
   rotate camera object angle x(player_object), object angle y(player_object), object angle z(player_object)

remstart
   position listener object position x(player_object), object position y(player_object) + 20, object position z(player_object)
   rotate listener object angle x(player_object), object angle y(player_object), object angle z(player_object)
   remend

oldcamx = camx
   oldcamy = camy

camx = wrapvalue( camx + mousemovey() * 0.4 )
   camy = wrapvalue( camy + mousemovex() * 0.4 )

xrotate camera 0, curveangle( camx, oldcamx, 24 )
   yrotate object player_object, curveangle( camy, oldcamy, 24 )

key = false

if upkey()
      key = true
      phy move character controller player_object, 200.0
   endif

if downkey()
      key = true
      phy move character controller player_object, -200.0
   endif

if leftkey()
      key = 1

camy = wrapvalue( camy - 90 )
      yrotate object player_object, camy

phy move character controller player_object, 200.0

camy = wrapvalue( camy + 90 )
      yrotate object player_object, camy
   endif

if rightkey()
      key = 1

camy = wrapvalue( camy + 90 )
      yrotate object player_object, camy

phy move character controller player_object, 200.0

camy = wrapvalue( camy - 90 )
      yrotate object player_object, camy
   endif

if spacekey()
      key = 1

camx = wrapvalue( camx - 90 )
      xrotate object player_object, camx

phy move character controller player_object, 200.0

camx = wrapvalue( camx + 90 )
      xrotate object player_object, camx
   endif

if key = false
      phy move character controller player_object, 0.0
   endif

if mouseclick() = 1
      if now - start > 300
         x# = object position x(player_object)
         y# = object position y(player_object) + 20
         z# = object position z(player_object)

bullet = GetBulletIndex()

make object sphere bullet, 10
         color object bullet, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127))
         position object bullet, x#, y#, z#
         rotate object bullet, camera angle x(), camera angle y(), camera angle z()
         move object bullet, 20

x# = object position x(bullet) - x#
         y# = object position y(bullet) - y#
         z# = object position z(bullet) - z#

set vector3 bullet_velocity, x#, y#, z#

normalize vector3 bullet_velocity, bullet_velocity

x# = x vector3(bullet_velocity)
         y# = y vector3(bullet_velocity)
         z# = z vector3(bullet_velocity)

phy make rigid body dynamic sphere bullet

phy set rigid body mass bullet, 100

phy set rigid body linear velocity bullet, x# * 1000, y# * 1000, z# * 1000

array insert at bottom bullets()

bullets().id = bullet
         bullets().start = now

start = now
      endif
   endif

phy update
   sync
loop

end

function GetNextIndex()

inc nObjectIndex

endfunction nObjectIndex

function GetBulletIndex()

inc nBulletIndex

if nBulletIndex > 1100 then nBulletIndex = 1000

endfunction nBulletIndex

+ Code Snippet

#constant player_object = 100

#constant bullet_velocity = 1000

type TBullet
   id
   start
endtype

global nObjectIndex = 0
global nBulletIndex = 1000

global fspeed as float = 5.0
global fturn as float = 0.03

global oldcamx as float
global oldcamy as float

global camx as float
global camy as float

randomize timer()

phy start

autocam off

phy set gravity 0, -9.8, 0

sync on
sync rate 60
backdrop off

set display mode 1024, 768, 32
set camera range 0.5, 35000
hide mouse

rem ground
ground = GetNextIndex()
make object plain ground, 30000, 30000
color object ground, rgb(20, 120, 20)
xrotate object ground, -90
phy make rigid body static box ground

rem a few boxes
for i = 1 to 20
   boxes = GetNextIndex()
   make object box boxes, 20, 20, 20
   position object boxes, 30 * i, 60, 0
   color object boxes, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127))
   phy make rigid body dynamic box boxes
   phy set rigid body mass boxes, 1000.0
next

rem Player controller
make object box player_object, 100, 100, -200
phy make box character controller player_object, 100, 100, -200, 10, 50, 10, 1, 16, 45
hide object player_object

rem Light inside
light_object = GetNextIndex()

make light light_object
set point light light_object, 0, 600, 0

vec = make vector3( bullet_velocity )

start = 0

dim bullets() as TBullet

empty array bullets()

do
   now = timer()

   text 10, 20, "FPS: " + STR$(screen fps())
   text 10, 40, "Camera: " + STR$(object position x(player_object), 2) + " " + STR$(object position y(player_object), 2) + " " + STR$(object position z(player_object), 2)
   text 10, 60, "Bullets: " + str$(array count(bullets()))

   array index to top bullets()

   while array index valid(bullets())

      if now - bullets().start > 10000
         phy delete rigid body bullets().id
         delete object bullets().id
         array delete element bullets()
      else
         next array index bullets()
      endif

   endwhile

   position mouse 512, 384

   position camera object position x(player_object), object position y(player_object) + 20, object position z(player_object)
   rotate camera object angle x(player_object), object angle y(player_object), object angle z(player_object)

   remstart
   position listener object position x(player_object), object position y(player_object) + 20, object position z(player_object)
   rotate listener object angle x(player_object), object angle y(player_object), object angle z(player_object)
   remend

   oldcamx = camx
   oldcamy = camy

   camx = wrapvalue( camx + mousemovey() * 0.4 )
   camy = wrapvalue( camy + mousemovex() * 0.4 )

   xrotate camera 0, curveangle( camx, oldcamx, 24 )
   yrotate object player_object, curveangle( camy, oldcamy, 24 )

   key = false

   if upkey()
      key = true
      phy move character controller player_object, 200.0
   endif

   if downkey()
      key = true
      phy move character controller player_object, -200.0
   endif

   if leftkey()
      key = 1

      camy = wrapvalue( camy - 90 )
      yrotate object player_object, camy

      phy move character controller player_object, 200.0

      camy = wrapvalue( camy + 90 )
      yrotate object player_object, camy
   endif

   if rightkey()
      key = 1

      camy = wrapvalue( camy + 90 )
      yrotate object player_object, camy

      phy move character controller player_object, 200.0

      camy = wrapvalue( camy - 90 )
      yrotate object player_object, camy
   endif

   if spacekey()
      key = 1

      camx = wrapvalue( camx - 90 )
      xrotate object player_object, camx

      phy move character controller player_object, 200.0

      camx = wrapvalue( camx + 90 )
      xrotate object player_object, camx
   endif

   if key = false
      phy move character controller player_object, 0.0
   endif

   if mouseclick() = 1
      if now - start > 300
         x# = object position x(player_object)
         y# = object position y(player_object) + 20
         z# = object position z(player_object)

         bullet = GetBulletIndex()

         make object sphere bullet, 10
         color object bullet, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127))
         position object bullet, x#, y#, z#
         rotate object bullet, camera angle x(), camera angle y(), camera angle z()
         move object bullet, 20

         x# = object position x(bullet) - x#
         y# = object position y(bullet) - y#
         z# = object position z(bullet) - z#

         set vector3 bullet_velocity, x#, y#, z#

         normalize vector3 bullet_velocity, bullet_velocity

         x# = x vector3(bullet_velocity)
         y# = y vector3(bullet_velocity)
         z# = z vector3(bullet_velocity)

         phy make rigid body dynamic sphere bullet

         phy set rigid body mass bullet, 100

         phy set rigid body linear velocity bullet, x# * 1000, y# * 1000, z# * 1000

         array insert at bottom bullets()

         bullets().id = bullet
         bullets().start = now

         start = now
      endif
   endif

   phy update
   sync
loop

end

function GetNextIndex()

   inc nObjectIndex

endfunction nObjectIndex

function GetBulletIndex()

   inc nBulletIndex

   if nBulletIndex > 1100 then nBulletIndex = 1000

endfunction nBulletIndex

What's wrong with the jumping code is it actually moves straight up - hardly 'jumping'. Then, let go of the spacebar and it drifts back down to the ground - as soon as you move, you shoot back down to the ground. It's this behaviour I haven't quite figured out yet.

"Reality Bites"

Back to top

Profile PM

Chenak

22

Years of Service

User Offline

Joined: 13th Sep 2002

Location: United Kingdom

Posted: 23rd Aug 2006 05:20 Edited at: 23rd Aug 2006 05:24

Link

I think the character controller is over complicating things, especially with the new undocumented commands. Can you please add a character controller form of position object xyz? If its there I'm so confused I can't see it o.O

Back to top

Profile PM

Freddix

AGK Developer

22

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 23rd Aug 2006 17:05

Link

@Imekon : nice snippet

It will be really useful for me

All we have to decide is what to do with the time that is given to us.

Back to top

Profile PM Email Website

Freddix

AGK Developer

22

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 23rd Aug 2006 22:00

Link

I tried to use phy move character controller CharID, Value# to create jumps but it didn't worked.

Here is the dev source code :
[Inspired from Imekon sample]

` DBP Setup.
autocam off
sync on
sync rate 60
backdrop off
` Initialize PhysX Engine.
phy start
phy set gravity 0, -9.8, 0

` Create the ground.
make object plain 1, 30000, 30000
color object 1, rgb(20, 120, 20)
xrotate object 1, -90
phy make rigid body static box 1

` Create the player.
make object box 2, 100, 100, -200
phy make box character controller 2, 100, 100, -200, 10, 50, 10, 1, 16, 45
hide object 2

rem a few boxes
for boxes = 3 to 20
   make object box boxes, 20, 20, 20
   position object boxes, 30 * boxes, 60, 0
   color object boxes, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127))
   phy make rigid body dynamic box boxes
   phy set rigid body mass boxes, 1000.0
next boxes

Repeat
  now = timer()
  UDKey = UpKey() - DownKey()
  LRKey = RightKey() - LeftKey()

` Rotate the player using mouse movements.
  oldcamx = camx : camx = wrapvalue( camx + mousemovey() * 0.4 )
  oldcamy = camy : camy = wrapvalue( camy + mousemovex() * 0.4 )
   yrotate object 2, curveangle( camy, oldcamy, 24 )
`   xrotate camera 0, curveangle( camx, oldcamx, 24 )

` Move player : Walk Forward / Backward
  If UDKey <> 0 Then phy move character controller 2, ( 200.0 * UDKey )
  ` Move player : Strafe Left / Right
  If LRKey <> 0
    camyT = wrapvalue( camy + ( 90 * LRKey ) )
    yrotate object 2, camyT
    phy move character controller 2, 100.0
    yrotate object 2, camy
   Endif
  ` Move player : Jump ?
  If MouseClick() = 2
    xrotate object 2, 0
    phy move character controller 2, 100.0
    xrotate object 2, 0  
    MCKey = 2
   Else
  	 MCKey = 0
   Endif
  ` Move Player : No movement, update player.
  If LRKey = 0 And UDKey = 0 And MCKey = 0 Then phy move character controller 2, 0

PHY Update

` Update the camera to go where the player is.
   position camera object position x(2), object position y(2) + 20, object position z(2)
   rotate camera object angle x(2), object angle y(2), object angle z(2)

Sync
 Until SpaceKey() = 1

+ Code Snippet

` DBP Setup.
autocam off
sync on
sync rate 60
backdrop off
` Initialize PhysX Engine.
phy start
phy set gravity 0, -9.8, 0

` Create the ground.
make object plain 1, 30000, 30000
color object 1, rgb(20, 120, 20)
xrotate object 1, -90
phy make rigid body static box 1

` Create the player.
make object box 2, 100, 100, -200
phy make box character controller 2, 100, 100, -200, 10, 50, 10, 1, 16, 45
hide object 2

rem a few boxes
for boxes = 3 to 20
   make object box boxes, 20, 20, 20
   position object boxes, 30 * boxes, 60, 0
   color object boxes, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127))
   phy make rigid body dynamic box boxes
   phy set rigid body mass boxes, 1000.0
next boxes

Repeat
  now = timer()
  UDKey = UpKey() - DownKey()
  LRKey = RightKey() - LeftKey()

  ` Rotate the player using mouse movements.
  oldcamx = camx : camx = wrapvalue( camx + mousemovey() * 0.4 )
  oldcamy = camy : camy = wrapvalue( camy + mousemovex() * 0.4 )
   yrotate object 2, curveangle( camy, oldcamy, 24 )
`   xrotate camera 0, curveangle( camx, oldcamx, 24 )

  ` Move player : Walk Forward / Backward
  If UDKey <> 0 Then phy move character controller 2, ( 200.0 * UDKey )
  ` Move player : Strafe Left / Right
  If LRKey <> 0
    camyT = wrapvalue( camy + ( 90 * LRKey ) )
    yrotate object 2, camyT
    phy move character controller 2, 100.0
    yrotate object 2, camy
   Endif
  ` Move player : Jump ?
  If MouseClick() = 2
    xrotate object 2, 0
    phy move character controller 2, 100.0
    xrotate object 2, 0  
    MCKey = 2
   Else
  	 MCKey = 0
   Endif
  ` Move Player : No movement, update player.
  If LRKey = 0 And UDKey = 0 And MCKey = 0 Then phy move character controller 2, 0


  PHY Update

  ` Update the camera to go where the player is.
   position camera object position x(2), object position y(2) + 20, object position z(2)
   rotate camera object angle x(2), object angle y(2), object angle z(2)

  Sync
 Until SpaceKey() = 1

All we have to decide is what to do with the time that is given to us.

Back to top

Profile PM Email Website

Chenak

22

Years of Service

User Offline

Joined: 13th Sep 2002

Location: United Kingdom

Posted: 23rd Aug 2006 23:27 Edited at: 23rd Aug 2006 23:28

Link

If MouseClick() = 2
xrotate object 2, 0
- >
phy move character controller 2, 100.0

I think you have to add a displacement before that, I think its phy set character controller displacement ID,x,y,z. If you set x and z to zero and y to 1 it might do something

. Phy set character controller displacement ID, forward#, backward# is supposed to do something aswell.

This is why I think the current character controller commands are rubbish, personally I don't want to mess about with that stuff, its supposed to make it EASY to control a character. A position object command for this would make it a whole lot easier and having move commands for actual directions. The displacement crap makes things a lot more complicated than it should be.

I mean the readme included with the latest update might aswell be written in a lost language, makes no sense to someone who hasn't got a physics a-level (even they would go blank as I have just discovered)

Back to top

Profile PM

monotonic

18

Years of Service

User Offline

Joined: 24th Mar 2006

Location: Nottinghamshire, England

Posted: 23rd Aug 2006 23:50 Edited at: 23rd Aug 2006 23:50

Link

The current commands are easy to use once you have them figured out, admittedly the documentation at the minute leaves a little to desired but these are being updated with the next DP update.

I have put the code I'm using to control my character at the minute this is just revision one and by no means the finished code I will be using, also there is no jumping code yet, that still needs implementing, but still this may help somebody to see how a couple of the commands work.

` locals
     Accel as float = 0.0
     Strafe as integer = 0
     Gravity as float : Gravity = lua get float( "g_gravity" )
     CharID as integer : CharID = lua array int( "tblPlayer->CharID" )
     Speed as float : Speed = lua get float( "g_speed" )

` apply the rotation to the camera based on mouse movement
     OldX# = g_fCameraAngleX
     OldY# = g_fCameraAngleY
     g_fCameraAngleY = wrapvalue( g_fCameraAngleY + mousemovex( ) * 0.2 )
     g_fCameraAngleX = wrapvalue( g_fCameraAngleX + mousemovey( ) * 0.2 )
     if g_fCameraAngleX > 80.0 and g_fCameraAngleX < 270.0 then g_fCameraAngleX = 80.0
     if g_fCameraAngleX < 280.0 and g_fCameraAngleX > 90.0 then g_fCameraAngleX = 280.0
     yrotate camera 0, curveangle( g_fCameraAngleY, OldY#, 1 )
     xrotate camera 0, curveangle( g_fCameraAngleX, OldX#, 1 )

` rotate the character object to the same y rotation as the camera
     rotate object CharID, object angle x( CharID ), camera angle y( 0 ), object angle z( CharID )

` movement
     if keystate( g_KeyBindings.Forward )
          if g_bRunning and g_bCrouching = 0 : Accel = Speed * 2
          else : Accel = Speed
          endif
     endif
     if keystate( g_KeyBindings.Backward )
          if g_bRunning and g_bCrouching = 0 : Accel = -( Speed * 2 )
          else : Accel = -Speed
          endif
     endif

` strafing
     if keystate( g_KeyBindings.StrafeLeft )
          Strafe = -1
     endif
     if keystate( g_KeyBindings.StrafeRight )
          Strafe = 1
     endif

` jumping
     if keystate( g_KeyBindings.Jump )

endif

` crouching
     if keystate( g_KeyBindings.Crouch )
          if g_bCrouching and ( timer( ) - g_nCrouchTimer ) > 750
               g_bCrouching = 0
               phy set character controller extents CharID, 20.0, 100.0
               g_nCrouchTimer = timer( )
          else : if g_bCrouching = 0 and ( timer( ) - g_nCrouchTimer ) > 750
               g_bCrouching = 1
               phy set character controller extents CharID, 20.0, 30.0
               g_nCrouchTimer = timer( )
          endif : endif
     endif

` run
     if keystate( g_KeyBindings.Run )
          if g_KeyBindings.Run_BtnDown = 0
               ` the user must release the button then press it again to prevent looping on/off
               g_bRunning = not g_bRunning
               g_KeyBindings.Run_BtnDown = 1
          endif
     else
          ` the user has released the button
          g_KeyBindings.Run_BtnDown = 0
     endif

` apply strafing
     if Strafe <> 0
          yrotate object CharID, object angle y( CharID ) + ( 90.0 * Strafe )
          if g_bRunning and g_bCrouching = 0
               phy move character controller CharID, Speed * 1.8
          else
               phy move character controller CharID, Speed
          endif
          yrotate object CharID, object angle y( CharID ) + ( 90.0 * -Strafe )
     endif

` update the players weapon system
     UpdatePlayerWeapon( )

` now that we have our acceleration  apply it
     phy move character controller CharID, Accel

` now apply gravity
     phy set character controller displacement CharID, Accel, Gravity
     phy move character controller CharID, -1.0

` position the camera at the players position
     position camera 0, object position x( CharID ), object position y( CharID ) + 64.0, object position z( CharID )

+ Code Snippet

` locals
     Accel as float = 0.0
     Strafe as integer = 0
     Gravity as float : Gravity = lua get float( "g_gravity" )
     CharID as integer : CharID = lua array int( "tblPlayer->CharID" )
     Speed as float : Speed = lua get float( "g_speed" )

     ` apply the rotation to the camera based on mouse movement
     OldX# = g_fCameraAngleX
     OldY# = g_fCameraAngleY
     g_fCameraAngleY = wrapvalue( g_fCameraAngleY + mousemovex( ) * 0.2 )
     g_fCameraAngleX = wrapvalue( g_fCameraAngleX + mousemovey( ) * 0.2 )
     if g_fCameraAngleX > 80.0 and g_fCameraAngleX < 270.0 then g_fCameraAngleX = 80.0
     if g_fCameraAngleX < 280.0 and g_fCameraAngleX > 90.0 then g_fCameraAngleX = 280.0
     yrotate camera 0, curveangle( g_fCameraAngleY, OldY#, 1 )
     xrotate camera 0, curveangle( g_fCameraAngleX, OldX#, 1 )

     ` rotate the character object to the same y rotation as the camera
     rotate object CharID, object angle x( CharID ), camera angle y( 0 ), object angle z( CharID )

     ` movement
     if keystate( g_KeyBindings.Forward )
          if g_bRunning and g_bCrouching = 0 : Accel = Speed * 2
          else : Accel = Speed
          endif
     endif
     if keystate( g_KeyBindings.Backward )
          if g_bRunning and g_bCrouching = 0 : Accel = -( Speed * 2 )
          else : Accel = -Speed
          endif
     endif

     ` strafing
     if keystate( g_KeyBindings.StrafeLeft )
          Strafe = -1
     endif
     if keystate( g_KeyBindings.StrafeRight )
          Strafe = 1
     endif

     ` jumping
     if keystate( g_KeyBindings.Jump )

     endif

     ` crouching
     if keystate( g_KeyBindings.Crouch )
          if g_bCrouching and ( timer( ) - g_nCrouchTimer ) > 750
               g_bCrouching = 0
               phy set character controller extents CharID, 20.0, 100.0
               g_nCrouchTimer = timer( )
          else : if g_bCrouching = 0 and ( timer( ) - g_nCrouchTimer ) > 750
               g_bCrouching = 1
               phy set character controller extents CharID, 20.0, 30.0
               g_nCrouchTimer = timer( )
          endif : endif
     endif

     ` run
     if keystate( g_KeyBindings.Run )
          if g_KeyBindings.Run_BtnDown = 0
               ` the user must release the button then press it again to prevent looping on/off
               g_bRunning = not g_bRunning
               g_KeyBindings.Run_BtnDown = 1
          endif
     else
          ` the user has released the button
          g_KeyBindings.Run_BtnDown = 0
     endif


     ` apply strafing
     if Strafe <> 0
          yrotate object CharID, object angle y( CharID ) + ( 90.0 * Strafe )
          if g_bRunning and g_bCrouching = 0
               phy move character controller CharID, Speed * 1.8
          else
               phy move character controller CharID, Speed
          endif
          yrotate object CharID, object angle y( CharID ) + ( 90.0 * -Strafe )
     endif

     ` update the players weapon system
     UpdatePlayerWeapon( )

     ` now that we have our acceleration  apply it
     phy move character controller CharID, Accel

     ` now apply gravity
     phy set character controller displacement CharID, Accel, Gravity
     phy move character controller CharID, -1.0

     ` position the camera at the players position
     position camera 0, object position x( CharID ), object position y( CharID ) + 64.0, object position z( CharID )

I know the voices aren't real, but they have good ideas!

Back to top

Profile PM

Freddix

AGK Developer

22

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 24th Aug 2006 00:01

Link

I tried Displacement without success. it do nothing !!!

All we have to decide is what to do with the time that is given to us.

Back to top

Profile PM Email Website

Chenak

22

Years of Service

User Offline

Joined: 13th Sep 2002

Location: United Kingdom

Posted: 24th Aug 2006 00:11

Link

imo, No they are not easy to use, nor practical, they are a waste of coding lines. You're code is good though

But still the use of it seems to be limited to an fps or 3rd person player character.

You can't use them for enemies with a set AI path cause you would have to create a lot of dummy objects or use some unnessesary math.

I just want the damn thing to follow an x and z coordinate without spinning around like crazy and without drifting off into the distance for no apparent reason.

Back to top

Profile PM

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / [DarkPHYSICS]: Character controller / Is there a way to jump, strafe, crouch...