[Dark Physics] Object disconnected

Author

Message

imekon

17

Years of Service

User Offline

Joined: 3rd Jul 2006

Location:

Posted: 17th Aug 2006 02:05 Edited at: 17th Aug 2006 09:02

Link

I'm starting to see problems with Dark Physics 1.01 to do with the physics object becoming disconnected from the graphics object. I'm firing a sphere into a scene, and sometimes the sphere ends up stuck in front of me, yet I can see the result of the sphere hitting other objects as it would if the graphics were actually moving!

Here's an example I hoped would show the problem... except it works just fine!

#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, -100, 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, 5000, 5000
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
next

rem Player controller
make object box player_object, 20, 100, 20
phy make box character controller player_object, 290, 50, -140, 10, 50, 10, 1, 16, 45
` phy set character controller displacement player_object, 100, 100
` phy set character controller displacement player_object, 1, 1, 1
` phy set character controller displacement player_object, 1
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()
      endif

next array index bullets()

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

remstart
   if leftkey()
      key = 1
      turn object left 10, 1.0
   endif

if rightkey()
      key = 1
      turn object right 10, 1.0
   endif
   remend

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

rem phy set rigid body mass bullet_object, 1

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, -100, 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, 5000, 5000
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
next

rem Player controller
make object box player_object, 20, 100, 20
phy make box character controller player_object, 290, 50, -140, 10, 50, 10, 1, 16, 45
` phy set character controller displacement player_object, 100, 100
` phy set character controller displacement player_object, 1, 1, 1
` phy set character controller displacement player_object, 1
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()
      endif

      next array index bullets()

   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

   remstart
   if leftkey()
      key = 1
      turn object left 10, 1.0
   endif

   if rightkey()
      key = 1
      turn object right 10, 1.0
   endif
   remend

   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

         rem phy set rigid body mass bullet_object, 1

         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

I'm guessing it's something to do with the: phy set rigid body linear velocity

"Reality Bites"

Back to top

Profile PM

MikeJohnson

20

Years of Service

User Offline

Joined: 29th Aug 2003

Location: Radcliffe, Manchester

Posted: 17th Aug 2006 21:50

Link

Did you come across this problem in the original version? Do you have a dual core processor?

If this problem is shown in the program you're working on then you can always send it direct to me ( rather than posting on the forum ) and I will test as soon as possible.

Back to top

Profile PM Email Website

Mike Johnson

TGC Developer

21

Years of Service

User Offline

Joined: 13th Sep 2002

Location: United Kingdom

Posted: 17th Aug 2006 21:50

Link

Posted with the old account then...

Back to top

Profile PM Email Website

imekon

17

Years of Service

User Offline

Joined: 3rd Jul 2006

Location:

Posted: 17th Aug 2006 23:15

Link

I don't understand... it's all working perfectly...

If it starts doing it again, I'll certainly send you a copy.

"Reality Bites"

Back to top

Profile PM

JerBil

19

Years of Service

User Offline

Joined: 8th May 2004

Location: Somewhere along the Z axis...

Posted: 17th Aug 2006 23:23 Edited at: 19th Aug 2006 02:30

Link

imekon,
Hope you don't mind a couple changes as I was playing with your code.
I added mass to the bullets and the boxes, but it seems more fun if commented out. Also, the controller box
was not positioned on the player_object,
so I changed that line. Anyhow, a good code example, and I have not seen your bug, either.

#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, 5000, 5000
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,100.0
next

rem Player controller
make object box player_object, 10, 20, 10
position object player_object,0,100,-100
phy make box character controller player_object, 0, 100, -100, 10, 20, 10, 1, 16, 45
` phy set character controller displacement player_object, 100, 100
` phy set character controller displacement player_object, 1, 1, 1
` phy set character controller displacement player_object, 1
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()
      endif

next array index bullets()

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

remstart
   if leftkey()
      key = 1
      turn object left 10, 1.0
   endif

if rightkey()
      key = 1
      turn object right 10, 1.0
   endif
   remend

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,18,18
         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.0
         rem phy set rigid body mass bullet_object, 1

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, 5000, 5000
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,100.0
next

rem Player controller
make object box player_object, 10, 20, 10
position object player_object,0,100,-100
phy make box character controller player_object, 0, 100, -100, 10, 20, 10, 1, 16, 45
` phy set character controller displacement player_object, 100, 100
` phy set character controller displacement player_object, 1, 1, 1
` phy set character controller displacement player_object, 1
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()
      endif

      next array index bullets()

   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

   remstart
   if leftkey()
      key = 1
      turn object left 10, 1.0
   endif

   if rightkey()
      key = 1
      turn object right 10, 1.0
   endif
   remend

   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,18,18
         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.0
         rem phy set rigid body mass bullet_object, 1

         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

Ad Astra Per Asper

Back to top

Profile PM Email

imekon

17

Years of Service

User Offline

Joined: 3rd Jul 2006

Location:

Posted: 4th Sep 2006 15:53

Link

Here's a rewrite:

#constant player_object = 100

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 120

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

set ambient light 20

set normalization on

rem ground
ground = GetNextIndex()
make object plain ground, 5000, 5000
SetObjectColour( ground, rgb(20, 120, 20) )
xrotate object ground, 270
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 - 300, 10, 0
   SetObjectColour( boxes, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127) ) )
   ` set shadow shading on boxes
   phy make rigid body dynamic box boxes
   `phy set rigid body mass boxes,100.0
next

rem Player controller
make object box player_object, 10, 20, 10
phy make box character controller player_object, 0, 20.2, -100, 10, 20, 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

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()
      endif

next array index bullets()

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

remstart
   if leftkey()
      key = 1
      turn object left 10, 1.0
   endif

if rightkey()
      key = 1
      turn object right 10, 1.0
   endif
   remend

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,18,18
         SetObjectColour( 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
         ghost object on bullet

phy make rigid body dynamic sphere bullet

phy add rigid body local force bullet, 0, 0, 1000, 2

array insert at bottom bullets()

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

start = now
      endif
   endif

phy update
   sync
loop

end

function SetObjectColour(id, colour)
   set object diffuse id, colour * 0.7
   set object ambience id, colour * 0.3
   ` set object emissive id, colour
   set object specular id, rgb(255, 255, 255)
   set object specular power id, 200
endfunction

function GetNextIndex()

inc nObjectIndex

endfunction nObjectIndex

function GetBulletIndex()

inc nBulletIndex

if nBulletIndex > 1100 then nBulletIndex = 1000

endfunction nBulletIndex

+ Code Snippet

#constant player_object = 100

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 120

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

set ambient light 20

set normalization on

rem ground
ground = GetNextIndex()
make object plain ground, 5000, 5000
SetObjectColour( ground, rgb(20, 120, 20) )
xrotate object ground, 270
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 - 300, 10, 0
   SetObjectColour( boxes, rgb(64 + rnd(127), 64 + rnd(127), 64 + rnd(127) ) )
   ` set shadow shading on boxes
   phy make rigid body dynamic box boxes
   `phy set rigid body mass boxes,100.0
next

rem Player controller
make object box player_object, 10, 20, 10
phy make box character controller player_object, 0, 20.2, -100, 10, 20, 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

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()
      endif

      next array index bullets()

   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

   remstart
   if leftkey()
      key = 1
      turn object left 10, 1.0
   endif

   if rightkey()
      key = 1
      turn object right 10, 1.0
   endif
   remend

   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,18,18
         SetObjectColour( 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
         ghost object on bullet

         phy make rigid body dynamic sphere bullet

         phy add rigid body local force bullet, 0, 0, 1000, 2

         array insert at bottom bullets()

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

         start = now
      endif
   endif

   phy update
   sync
loop

end

function SetObjectColour(id, colour)
   set object diffuse id, colour * 0.7
   set object ambience id, colour * 0.3
   ` set object emissive id, colour
   set object specular id, rgb(255, 255, 255)
   set object specular power id, 200
endfunction

function GetNextIndex()

   inc nObjectIndex

endfunction nObjectIndex

function GetBulletIndex()

   inc nBulletIndex

   if nBulletIndex > 1100 then nBulletIndex = 1000

endfunction nBulletIndex

The biggest difference is how the velocity is applied to the bullet object - instead of working it out with vectors, I used a local force - orient the bullet in the direction you want it to go, then simply apply a 0, 0, n force to it, and off it goes in that direction!

"Reality Bites"

Back to top

Profile PM

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / [Dark Physics] Object disconnected