How to tell if a body is at rest?

Author

Message

Shando69

FPSC Reloaded TGC Backer

14

Years of Service

User Offline

Joined: 3rd Jan 2010

Location: Redland Bay, QLD, Australia

Posted: 23rd Jun 2011 00:40

Link

Hi All,

I'm using DP to roll some dice, but I can't seem to work out how to tell if they have come to a total stop.

Any help would be greatly appreciated.

Regards

Shando

PS: I've tried testing for Angular & Linear Momentum/Velocity being less than 0.0005, but it still doesn't work (i.e. the dice are still moving when it tells me that these figures are less than 0.0005!)

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 23rd Jun 2011 16:06

Link

set the damper value so that the will stop the rolling.

+ Code Snippet

phy set rigid body linear damping
phy set rigid body angular damping  

phy set bounce threshold

phy set rigid body sleep linear velocity
phy set rigid body sleep angular velocity

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Shando69

FPSC Reloaded TGC Backer

14

Years of Service

User Offline

Joined: 3rd Jan 2010

Location: Redland Bay, QLD, Australia

Posted: 23rd Jun 2011 23:46

Link

Hi HowDo,

Thanks, but maybe I didn't make myself quite clear...

The dice stop rolling fine, but I need to be able to work out when they have stopped rolling (i.e. when they are totally at rest)?

I've tried testing for Momentum & Velocity being below 0.0005, but this tells me the dice have stopped when I can see that they haven't

(I've also tried testing with 0, but again the same thing!)

Regards

Shando

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 24th Jun 2011 17:55

Link

check the doc on these commands one of them may be what you are look it for, plus I think I remember seeing a demo which would show 0.0000 when all movement had stopped. If I can find it will post which one it is.

PHY GET RIGID BODY ANGULAR DAMPING
PHY GET RIGID BODY ANGULAR MOMENTUM X
PHY GET RIGID BODY ANGULAR MOMENTUM Y
PHY GET RIGID BODY ANGULAR MOMENTUM Z
PHY GET RIGID BODY ANGULAR VELOCITY X
PHY GET RIGID BODY ANGULAR VELOCITY Y
PHY GET RIGID BODY ANGULAR VELOCITY Z

PHY GET RIGID BODY CCD MOTION THRESHOLD
PHY GET RIGID BODY DYNAMIC
PHY GET RIGID BODY EXIST

PHY GET RIGID BODY LINEAR DAMPING
PHY GET RIGID BODY LINEAR MOMENTUM X
PHY GET RIGID BODY LINEAR MOMENTUM Y
PHY GET RIGID BODY LINEAR MOMENTUM Z
PHY GET RIGID BODY LINEAR VELOCITY X
PHY GET RIGID BODY LINEAR VELOCITY Y
PHY GET RIGID BODY LINEAR VELOCITY Z
PHY GET RIGID BODY LOCAL POINT VELOCITY X
PHY GET RIGID BODY LOCAL POINT VELOCITY Y
PHY GET RIGID BODY LOCAL POINT VELOCITY Z

PHY GET RIGID BODY MASS
PHY GET RIGID BODY MAX ANGULAR VELOCITY
PHY GET RIGID BODY POINT VELOCITY X
PHY GET RIGID BODY POINT VELOCITY Y
PHY GET RIGID BODY POINT VELOCITY Z
PHY GET RIGID BODY SLEEP ANGULAR VELOCITY
PHY GET RIGID BODY SLEEP LINEAR VELOCITY
PHY GET RIGID BODY SLEEPING
PHY GET RIGID BODY TYPE

+ Code Snippet

PHY GET RIGID BODY ANGULAR DAMPING
PHY GET RIGID BODY ANGULAR MOMENTUM X
PHY GET RIGID BODY ANGULAR MOMENTUM Y
PHY GET RIGID BODY ANGULAR MOMENTUM Z
PHY GET RIGID BODY ANGULAR VELOCITY X
PHY GET RIGID BODY ANGULAR VELOCITY Y
PHY GET RIGID BODY ANGULAR VELOCITY Z

PHY GET RIGID BODY CCD MOTION THRESHOLD
PHY GET RIGID BODY DYNAMIC
PHY GET RIGID BODY EXIST

PHY GET RIGID BODY LINEAR DAMPING
PHY GET RIGID BODY LINEAR MOMENTUM X
PHY GET RIGID BODY LINEAR MOMENTUM Y
PHY GET RIGID BODY LINEAR MOMENTUM Z
PHY GET RIGID BODY LINEAR VELOCITY X
PHY GET RIGID BODY LINEAR VELOCITY Y
PHY GET RIGID BODY LINEAR VELOCITY Z
PHY GET RIGID BODY LOCAL POINT VELOCITY X
PHY GET RIGID BODY LOCAL POINT VELOCITY Y
PHY GET RIGID BODY LOCAL POINT VELOCITY Z

PHY GET RIGID BODY MASS
PHY GET RIGID BODY MAX ANGULAR VELOCITY
PHY GET RIGID BODY POINT VELOCITY X
PHY GET RIGID BODY POINT VELOCITY Y
PHY GET RIGID BODY POINT VELOCITY Z
PHY GET RIGID BODY SLEEP ANGULAR VELOCITY
PHY GET RIGID BODY SLEEP LINEAR VELOCITY
PHY GET RIGID BODY SLEEPING
PHY GET RIGID BODY TYPE

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 24th Jun 2011 18:08 Edited at: 24th Jun 2011 18:11

Link

I think it this one, but I'm sure I seen a better one.

` in this program we see how to get information
` back from rigid bodies such as their velocity

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -100

rem stripe textures
load image "stripe5.png",8
make object sphere 8,400,48,48
texture object 8,8
scale object texture 8,6,6
set object cull 8,0
load image "stripe6.png",1

` create the ground
make object box 1, 1500, 1, 1500
texture object 1,1
scale object texture 1,8,8
phy make rigid body static box 1

` set up a dynamic sphere
make object sphere 2, 15
position object 2, 0, 15, 0
phy make rigid body dynamic sphere 2

` colour both objects
for i = 2 to 2
   color object i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power i, 255
   set object ambient i, 0
next i

` display Dark Physics logo
load image "logo.png", 100000
sprite 1, 0, 600 - 60, 100000

` main program loop
do
   ` add a force when the space key is pressed
   if spacekey ( ) = 1
      phy add rigid body force 2, 1000000, 1000000, 1000000, 0
   endif

` display information
   set cursor 0, 0
   print ""
   print "Press the space bar to apply force to the object"
   print ""
   print "Information about object:"
   print ""
   print "Point Velocity   X = " + str$ ( phy get rigid body point velocity x ( 2, object position x ( 2 ), object position y ( 2 ), object position z ( 2 ) ) )
   print "Point Velocity   Y = " + str$ ( phy get rigid body point velocity y ( 2, object position x ( 2 ), object position y ( 2 ), object position z ( 2 ) ) )
   print "Point Velocity   Z = " + str$ ( phy get rigid body point velocity z ( 2, object position x ( 2 ), object position y ( 2 ), object position z ( 2 ) ) )
   print ""
   print "Momentum         X = " + str$ ( phy get rigid body linear momentum x ( 2 ) )
   print "Momentum         Y = " + str$ ( phy get rigid body linear momentum y ( 2 ) )
   print "Momentum         Z = " + str$ ( phy get rigid body linear momentum z ( 2 ) )
   print ""
   print "Angular Velocity X = " + str$ (  phy get rigid body angular velocity x ( 2 ) )
   print "Angular Velocity Y = " + str$ (  phy get rigid body angular velocity y ( 2 ) )
   print "Angular Velocity Z = " + str$ (  phy get rigid body angular velocity z ( 2 ) )
   print ""

` update the simulation and screen
   phy update
   sync
loop

+ Code Snippet

` in this program we see how to get information
` back from rigid bodies such as their velocity

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -100

rem stripe textures
load image "stripe5.png",8
make object sphere 8,400,48,48
texture object 8,8
scale object texture 8,6,6
set object cull 8,0
load image "stripe6.png",1

` create the ground
make object box 1, 1500, 1, 1500
texture object 1,1
scale object texture 1,8,8
phy make rigid body static box 1

` set up a dynamic sphere
make object sphere 2, 15
position object 2, 0, 15, 0
phy make rigid body dynamic sphere 2

` colour both objects
for i = 2 to 2
   color object i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular i, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power i, 255
   set object ambient i, 0
next i

` display Dark Physics logo
load image "logo.png", 100000
sprite 1, 0, 600 - 60, 100000

` main program loop
do
   ` add a force when the space key is pressed
   if spacekey ( ) = 1
      phy add rigid body force 2, 1000000, 1000000, 1000000, 0
   endif

   ` display information
   set cursor 0, 0
   print ""
   print "Press the space bar to apply force to the object"
   print ""
   print "Information about object:"
   print ""
   print "Point Velocity   X = " + str$ ( phy get rigid body point velocity x ( 2, object position x ( 2 ), object position y ( 2 ), object position z ( 2 ) ) )
   print "Point Velocity   Y = " + str$ ( phy get rigid body point velocity y ( 2, object position x ( 2 ), object position y ( 2 ), object position z ( 2 ) ) )
   print "Point Velocity   Z = " + str$ ( phy get rigid body point velocity z ( 2, object position x ( 2 ), object position y ( 2 ), object position z ( 2 ) ) )
   print ""
   print "Momentum         X = " + str$ ( phy get rigid body linear momentum x ( 2 ) )
   print "Momentum         Y = " + str$ ( phy get rigid body linear momentum y ( 2 ) )
   print "Momentum         Z = " + str$ ( phy get rigid body linear momentum z ( 2 ) )
   print ""
   print "Angular Velocity X = " + str$ (  phy get rigid body angular velocity x ( 2 ) )
   print "Angular Velocity Y = " + str$ (  phy get rigid body angular velocity y ( 2 ) )
   print "Angular Velocity Z = " + str$ (  phy get rigid body angular velocity z ( 2 ) )
   print ""

   ` update the simulation and screen
   phy update
   sync
loop

this was the one I was looking for.

` collision feedback

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -30

` create the ground object
make object box 1, 50, 1, 50
phy make rigid body static box 1

` make and position 3 cubes
make object cube 2, 5
make object cube 3, 5
`make object cube 4, 5

position object 2, 0, 10, 0
position object 3, 2, 20, 0
`position object 4, 3, 30, 0

phy make rigid body static box 2
phy make rigid body dynamic box 3

set object wireframe 2, 1
set object wireframe 3, 1

`phy make rigid body dynamic box 4

` display the Dark Physics logo
load image "logo.png", 100000
sprite 1, 0, 600 - 60, 100000

ID = 10

dirX# = 0.0
dirY# = 0.0
dirZ# = 0.0

frictionX# = 0.0
frictionY# = 0.0
frictionZ# = 0.0

normalX# = 0.0
normalY# = 0.0
normalZ# = 0.0

x# = 0.0
y# = 0.0
z# = 0.0

` main program loop
do
   ` display information
   set cursor 0, 0

print ""
   print "contact point x  = " + str$( x# )
   print "contact point y  = " + str$( y# )
   print "contact point z  = " + str$( z# )
   print "contact normal x = " + str$( dirX# )
   print "contact normal y = " + str$( dirY# )
   print "contact normal z = " + str$( dirZ# )
   print "friction force x = " + str$( frictionX# )
   print "friction force y = " + str$( frictionY# )
   print "friction force z = " + str$( frictionZ# )
   print "normal force x   = " + str$( normalX# )
   print "normal force x   = " + str$( normalY# )
   print "normal force x   = " + str$( normalZ# )

if phy get collision ( 2, 3 )
      color object 3, rgb ( 255, 0, 0 )

for i = 1 to phy get collision count ( 3 )
         x# = phy get collision contact point x ( 3, i )
         y# = phy get collision contact point y ( 3, i )
         z# = phy get collision contact point z ( 3, i )
         dirX# = phy get collision contact normal x ( 3, i )
         dirY# = phy get collision contact normal y ( 3, i )
         dirZ# = phy get collision contact normal z ( 3, i )
         frictionX# = phy get collision friction force x ( 3, i )
         frictionY# = phy get collision friction force y ( 3, i )
         frictionZ# = phy get collision friction force z ( 3, i )
         normalX# = phy get collision normal force x ( 3, i )
         normalY# = phy get collision normal force y ( 3, i )
         normalZ# = phy get collision normal force z ( 3, i )

make object sphere ID, 1
         position object ID, x#, y#, z#
         inc ID
      next i
   endif

phy update
   sync
loop

+ Code Snippet

` collision feedback

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -30

` create the ground object
make object box 1, 50, 1, 50
phy make rigid body static box 1

` make and position 3 cubes
make object cube 2, 5
make object cube 3, 5
`make object cube 4, 5

position object 2, 0, 10, 0
position object 3, 2, 20, 0
`position object 4, 3, 30, 0


phy make rigid body static box 2
phy make rigid body dynamic box 3

set object wireframe 2, 1
set object wireframe 3, 1

`phy make rigid body dynamic box 4

` display the Dark Physics logo
load image "logo.png", 100000
sprite 1, 0, 600 - 60, 100000

ID = 10

dirX# = 0.0
dirY# = 0.0
dirZ# = 0.0

frictionX# = 0.0
frictionY# = 0.0
frictionZ# = 0.0

normalX# = 0.0
normalY# = 0.0
normalZ# = 0.0

x# = 0.0
y# = 0.0
z# = 0.0

` main program loop
do
   ` display information
   set cursor 0, 0

   print ""
   print "contact point x  = " + str$( x# )
   print "contact point y  = " + str$( y# )
   print "contact point z  = " + str$( z# )
   print "contact normal x = " + str$( dirX# )
   print "contact normal y = " + str$( dirY# )
   print "contact normal z = " + str$( dirZ# )
   print "friction force x = " + str$( frictionX# )
   print "friction force y = " + str$( frictionY# )
   print "friction force z = " + str$( frictionZ# )
   print "normal force x   = " + str$( normalX# )
   print "normal force x   = " + str$( normalY# )
   print "normal force x   = " + str$( normalZ# )

   if phy get collision ( 2, 3 )
      color object 3, rgb ( 255, 0, 0 )

      for i = 1 to phy get collision count ( 3 )
         x# = phy get collision contact point x ( 3, i )
         y# = phy get collision contact point y ( 3, i )
         z# = phy get collision contact point z ( 3, i )
         dirX# = phy get collision contact normal x ( 3, i )
         dirY# = phy get collision contact normal y ( 3, i )
         dirZ# = phy get collision contact normal z ( 3, i )
         frictionX# = phy get collision friction force x ( 3, i )
         frictionY# = phy get collision friction force y ( 3, i )
         frictionZ# = phy get collision friction force z ( 3, i )
         normalX# = phy get collision normal force x ( 3, i )
         normalY# = phy get collision normal force y ( 3, i )
         normalZ# = phy get collision normal force z ( 3, i )

         make object sphere ID, 1
         position object ID, x#, y#, z#
         inc ID
      next i
   endif

   phy update
   sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Shando69

FPSC Reloaded TGC Backer

14

Years of Service

User Offline

Joined: 3rd Jan 2010

Location: Redland Bay, QLD, Australia

Posted: 25th Jun 2011 04:48

Link

Thanks for the code HowDo, unfortunately I'm still having problems.....

My code is as follows, maybe I'm doing something very wrong????

Set up dice:

+ Code Snippet

FOR x = 6 to 10

    LOAD OBJECT "media/die1.x", x



    POSITION OBJECT x, RND(30) - 10, RND(40) + 35, RND(30) + 20

    PHY MAKE RIGID BODY DYNAMIC BOX x

    PHY ADD RIGID BODY FORCE x, 0, -20, -60, 4

    PHY ADD RIGID BODY LOCAL TORQUE x, RND(360), RND(360), RND(360), 2

NEXT

Main loop:

+ Code Snippet

IF bRoll = 1

    PHY UPDATE

    SYNC


    rollDice()

ELSE
    getDice()

    PHY END

ENDIF

Finally, my call to rollDice():

FUNCTION rollDice()

bAllIdle = 0

FOR x = 1 TO 5

y = x + 5

nX# = OBJECT POSITION X(y)

nY# = OBJECT POSITION Y(y)

nZ# = OBJECT POSITION Z(y)

REM For the second roll, some Dice may no longer exist - these are moved to -1000 in Y

IF nY# > -500

angX# = PHY GET RIGID BODY ANGULAR VELOCITY X(y)

angY# = PHY GET RIGID BODY ANGULAR VELOCITY Y(y)

angZ# = PHY GET RIGID BODY ANGULAR VELOCITY Z(y)

linX# = PHY GET RIGID BODY LINEAR VELOCITY X(y)

linY# = PHY GET RIGID BODY LINEAR VELOCITY Y(y)

linZ# = PHY GET RIGID BODY LINEAR VELOCITY Z(y)

angMX# = PHY GET RIGID BODY ANGULAR MOMENTUM X(y)

angMY# = PHY GET RIGID BODY ANGULAR MOMENTUM Y(y)

angMZ# = PHY GET RIGID BODY ANGULAR MOMENTUM Z(y)

linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)

pointVelX# = PHY GET RIGID BODY POINT VELOCITY X(y, nX#, nY#, nZ#)

pointVelY# = PHY GET RIGID BODY POINT VELOCITY Y(y, nX#, nY#, nZ#)

pointVelZ# = PHY GET RIGID BODY POINT VELOCITY Z(y, nX#, nY#, nZ#)

lin# = SQRT(linX# * linX# + linY# * linY# + linZ# * linZ#)

ang# = SQRT(angX# * angX# + angY# * angY# + angZ# * angZ#)

linM# = SQRT(linMX# * linMX# + linMY# * linMY# + linMZ# * linMZ#)

angM# = SQRT(angMX# * angMX# + angMY# * angMY# + angMZ# * angMZ#)

pointVel# = SQRT(pointVelX# * pointVelX# + pointVelY# * pointVelY# + pointVelZ# * pointVelZ#)

IF ang# > 0 AND lin# > 0 AND angM# > 0 AND linM# > 0 AND pointVel# > 0

bIdle(x) = 0

ELSE

bIdle(x) = 1

ENDIF

ELSE

Rem These Dice are NOT being rolled, so are ALWAYS idle!

bIdle(x) = 1

ENDIF

NEXT x

FOR x = 1 TO 5

bAllIdle = 1

IF bIdle(x) = 0 THEN bAllIdle = 0

NEXT x

IF bAllIdle = 1 THEN bRoll = 0

ENDFUNCTION

+ Code Snippet

FUNCTION rollDice()

bAllIdle = 0



FOR x = 1 TO 5

    y = x + 5



    nX# = OBJECT POSITION X(y)

    nY# = OBJECT POSITION Y(y)

    nZ# = OBJECT POSITION Z(y)



    REM For the second roll, some Dice may no longer exist - these are moved to -1000 in Y

    IF nY# > -500

        angX# = PHY GET RIGID BODY ANGULAR VELOCITY X(y)

        angY# = PHY GET RIGID BODY ANGULAR VELOCITY Y(y)

        angZ# = PHY GET RIGID BODY ANGULAR VELOCITY Z(y)

        linX# = PHY GET RIGID BODY LINEAR VELOCITY X(y)

        linY# = PHY GET RIGID BODY LINEAR VELOCITY Y(y)

        linZ# = PHY GET RIGID BODY LINEAR VELOCITY Z(y)

        angMX# = PHY GET RIGID BODY ANGULAR MOMENTUM X(y)

        angMY# = PHY GET RIGID BODY ANGULAR MOMENTUM Y(y)

        angMZ# = PHY GET RIGID BODY ANGULAR MOMENTUM Z(y)

        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)

        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)

        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)

        pointVelX# = PHY GET RIGID BODY POINT VELOCITY X(y, nX#, nY#, nZ#)

        pointVelY# = PHY GET RIGID BODY POINT VELOCITY Y(y, nX#, nY#, nZ#)

        pointVelZ# = PHY GET RIGID BODY POINT VELOCITY Z(y, nX#, nY#, nZ#)



        lin# = SQRT(linX# * linX# + linY# * linY# + linZ# * linZ#)

        ang# = SQRT(angX# * angX# + angY# * angY# + angZ# * angZ#)

        linM# = SQRT(linMX# * linMX# + linMY# * linMY# + linMZ# * linMZ#)

        angM# = SQRT(angMX# * angMX# + angMY# * angMY# + angMZ# * angMZ#)

        pointVel# = SQRT(pointVelX# * pointVelX# + pointVelY# * pointVelY# + pointVelZ# * pointVelZ#)

                

        IF ang# > 0 AND lin# > 0 AND angM# > 0 AND linM# > 0 AND pointVel# > 0

            bIdle(x) = 0

        ELSE

            bIdle(x) = 1

        ENDIF


    ELSE

        Rem These Dice are NOT being rolled, so are ALWAYS idle!

        bIdle(x) = 1

    ENDIF

NEXT x



FOR x = 1 TO 5

    bAllIdle = 1



    IF bIdle(x) = 0 THEN bAllIdle = 0

NEXT x



IF bAllIdle = 1 THEN bRoll = 0

ENDFUNCTION

As you can see, I'm only setting bIdle(x) to 1 IF the magnitudes of the Angular Velocity, the Linear Velocity, the Angular Momentum, the Linear Momentum & the Point Velocity are ALL zero!

Thanks

Shando

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Jun 2011 15:42

Link

try changing this

+ Code Snippet

 IF nY# > -500

to this.

+ Code Snippet

 IF nY# > -500.0

sometime floats and integer don't always check out.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Shando69

FPSC Reloaded TGC Backer

14

Years of Service

User Offline

Joined: 3rd Jan 2010

Location: Redland Bay, QLD, Australia

Posted: 27th Jun 2011 04:04

Link

Hi HowDo,

Nope, still does the same

So basically I'm now stuck for ideas.

All I can think of is putting in some sort of delay between my code reporting that the Dice have come to rest, and actually getting the dice values (not ideal, but there seems to be no other way using DP!).

PS: I have implemented something similar in another piece of software that uses ODE physics, and it works fine. Maybe this is a "bug" in DP?????

PPS: Are there any good wrappers for ODE available for DarkBasic Pro?

Thanks

Shando

Love Hope Strength (Further details: http://www.lovehopestrength.co.uk/)

One Cancer Centre in every Country, One Concert at a Time

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 27th Jun 2011 15:18 Edited at: 27th Jun 2011 15:20

Link

well I've just taken some of your code above and added the other bits needed to make it start to work.

Now I am wondering what are the dice landing on?

If want you could post what you have, minus the media, and I'll see if it would do as you wish.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Shando69

FPSC Reloaded TGC Backer

14

Years of Service

User Offline

Joined: 3rd Jan 2010

Location: Redland Bay, QLD, Australia

Posted: 28th Jun 2011 03:12

Link

Hi HowDo,

My dba file is attached (all I did was create the "box" from Rigid Bodies).

You can ignore the code at the bottom of the "getDice" Function, as I imported it from another Game Engine that I had used to make this game previously.

Thanks for the help

Shando

Love Hope Strength (Further details: http://www.lovehopestrength.co.uk/)

One Cancer Centre in every Country, One Concert at a Time

Attachments

Login to view attachments

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 28th Jun 2011 20:04

Link

changed a few bits, but I think it now does as it should, you just need to change the spacebar throw to some other way of starting the roll.

REM Project: Dark Basic Pro Project
REM Created: Sunday, June 19, 2011

REM **************************** Main Source File ****************************
REM **************************************************************************
REM ******************************* INITIALISE *******************************
REM **************************************************************************
_GameStart:
`RANDOMIZE TIMER()
SYNC ON
SYNC RATE 60
`SET DISPLAY MODE 800, 600, 32
PHY START
 
REM **************************************************************************
REM ******************************* LOAD MEDIA *******************************
REM **************************************************************************
`LOAD IMAGE "media/wood1.jpg", 1
`LOAD IMAGE "media/pooltablecloth.jpg", 2

REM **************************************************************************
REM ****************************** SET UP ARENA ******************************
REM **************************************************************************
MAKE OBJECT PLAIN 1, 80, 160
ROTATE OBJECT 1, -90, 0, 0
TEXTURE OBJECT 1, 2
PHY MAKE RIGID BODY STATIC BOX 1
MAKE OBJECT box 2, 160, 75, 3
POSITION OBJECT 2, -40, 0, 0
ROTATE OBJECT 2, 0, 90, 0
TEXTURE OBJECT 2, 1
PHY MAKE RIGID BODY STATIC BOX 2
MAKE OBJECT BOX 11, 160, 200, 3
POSITION OBJECT 11, -40, 125, 0
ROTATE OBJECT 11, 0, 90, 0
HIDE OBJECT 11
PHY MAKE RIGID BODY STATIC BOX 11
MAKE OBJECT box 3, 160, 75, 3
POSITION OBJECT 3, 40, 0, 0
ROTATE OBJECT 3, 0, 90, 0
TEXTURE OBJECT 3, 1
PHY MAKE RIGID BODY STATIC BOX 3
MAKE OBJECT BOX 12, 160, 200, 3
POSITION OBJECT 12, 40, 125, 0
ROTATE OBJECT 12, 0, 90, 0
HIDE OBJECT 12
PHY MAKE RIGID BODY STATIC BOX 12
MAKE OBJECT box 4, 83, 75, 3
POSITION OBJECT 4, 0, 0, 80
TEXTURE OBJECT 4, 1
PHY MAKE RIGID BODY STATIC BOX 4
MAKE OBJECT BOX 13, 83, 200, 3
POSITION OBJECT 13, 0, 125, 80
HIDE OBJECT 13
PHY MAKE RIGID BODY STATIC BOX 13
MAKE OBJECT box 5, 83, 75, 3
POSITION OBJECT 5, 0, 0, -80
TEXTURE OBJECT 5, 1
PHY MAKE RIGID BODY STATIC BOX 5
MAKE OBJECT BOX 14, 83, 200, 3
POSITION OBJECT 14, 0, 125, -80
HIDE OBJECT 14
PHY MAKE RIGID BODY STATIC BOX 14

REM **************************************************************************
REM ****************************** SET UP DICE *******************************
REM **************************************************************************
FOR x = 6 to 10
`    LOAD OBJECT "media/die1.x", x
make object cube x,3

POSITION OBJECT x, RND(30) - 10, RND(40) + 35, RND(30) + 20
    PHY MAKE RIGID BODY DYNAMIC BOX x
   PHY ADD RIGID BODY FORCE x, 0, -20, -60, 2
    PHY ADD RIGID BODY LOCAL TORQUE x, RND(360), RND(360), RND(360), 2
    phy set rigid body mass x,100
NEXT

REM **************************************************************************
REM ************************ SET UP GLOBAL VARIABLES *************************
REM **************************************************************************
GLOBAL DIM nY(5)
GLOBAL DIM bIdle(5)
GLOBAL bAllIdle
GLOBAL bRoll
global throw
GLOBAL sysTime as DWORD

bRoll = 1
sysTime = TIMER()

FOR x = 1 TO 5
    bIdle(x) = 0
NEXT x

REM **************************************************************************
REM ************************** SET UP OTHER OPTIONS **************************
REM **************************************************************************
SET AMBIENT LIGHT 30
PHY SET GRAVITY 0, -30, 0
POSITION CAMERA 0, 110, 75
POINT CAMERA 0, 0, -60

REM **************************************************************************
REM ******************************* MAIN LOOP ********************************
REM **************************************************************************
phy start
DO
center text screen width()/2,2,"Press space to throw"
set cursor 0,0
 y=6
print PHY GET RIGID BODY ANGULAR VELOCITY X(y)

print PHY GET RIGID BODY LINEAR VELOCITY X(y)

print PHY GET RIGID BODY ANGULAR MOMENTUM X(y)
print PHY GET RIGID BODY ANGULAR MOMENTUM Y(y)
print PHY GET RIGID BODY ANGULAR MOMENTUM Z(y)
print PHY GET RIGID BODY LINEAR MOMENTUM X(y)
print PHY GET RIGID BODY LINEAR MOMENTUM X(y)
print PHY GET RIGID BODY LINEAR MOMENTUM X(y)
print PHY GET RIGID BODY POINT VELOCITY X(y, nX#, nY#, nZ#)
print PHY GET RIGID BODY POINT VELOCITY Y(y, nX#, nY#, nZ#)
print PHY GET RIGID BODY POINT VELOCITY Z(y, nX#, nY#, nZ#)

`    IF MOUSECLICK() = 2 
 `       PHY END
  `      DELETE OBJECTS 1, 14
   `     DELETE IMAGE 1
    `    DELETE IMAGE 2
     `   GOTO _GameStart
    `ENDIF
    if spacekey() = 1 and throw =0 and PHY GET RIGID BODY LINEAR MOMENTUM z(6)=0.0  
    	throw=1
     	FOR x = 6 to 10
			phy set rigid body rotation x,0,0,0
			phy set rigid body position  x, RND(30) - 10, RND(40)+35, RND(30) + 20
    		PHY ADD RIGID BODY FORCE x, 0, -20, -60, 2
    		PHY ADD RIGID BODY LOCAL TORQUE x, -180+RND(360), -180+RND(360), -180+RND(360), 2
		NEXT
	else
		if PHY GET RIGID BODY ANGULAR VELOCITY X(6)=0
			throw = 0
		else
			print "low"
		endif
	endif

IF bRoll = 1
        PHY UPDATE
        SYNC
        
        REM nTime = nTime + TIMER() - sysTime

REM IF nTime > 7500 
            rollDice()
            REM sysTime = nTime
            REM nTime = 0
        REM ENDIF
    ELSE
       getDice()
        FOR x = 1 TO 5
            SET CURSOR 0, x * 10 + 390
            PRINT nY(x)
        NEXT
    `    PHY END
    ENDIF
Text 10,10,"FPS "+Str$(Screen FPS())

phy update
    SYNC
LOOP
end

REM **************************************************************************
REM ******************************* FUNCTIONS ********************************
REM **************************************************************************

REM ********************************* getDice ********************************
FUNCTION getDice()
sDiceID$ = ""
sHUDTag$ = ""

REM This is where we get the "pips" uppermost on the Dice. So, we need to loop through the Dice 
REM and check which side is uppermost
FOR x = 6 TO 10
    y = 1

IF OBJECT VISIBLE(x)
        REM Get OBJECT POSITION
        x1# = OBJECT POSITION X(x)
        y1# = OBJECT POSITION Y(x)
        z1# = OBJECT POSITION Z(x)

REM Get X Axis
        MOVE OBJECT RIGHT x, 1
        pxx# = OBJECT POSITION X(x)
        pxy# = OBJECT POSITION Y(x)
        pxz# = OBJECT POSITION Z(x)
        MOVE OBJECT LEFT x, 1

REM Get Y Axis
        MOVE OBJECT UP x, 1
        pyx# = OBJECT POSITION X(x)
        pyy# = OBJECT POSITION Y(x)
        pyz# = OBJECT POSITION Z(x)
        MOVE OBJECT DOWN x, 1

REM Get Z Axis
        MOVE OBJECT x, 1
        pzx# = OBJECT POSITION X(x)
        pzy# = OBJECT POSITION Y(x)
        pzz# = OBJECT POSITION Z(x)
        MOVE OBJECT x, -1
        
        pxx# = pxx# - x1#
        pxy# = pxy# - y1#
        pxz# = pxz# - z1#
        
        pyx# = pyx# - x1#
        pyy# = pyy# - y1#
        pyz# = pyz# - z1#
        
        pzx# = pzx# - x1#
        pzy# = pzy# - y1#
        pzz# = pzz# - z1#

REM normalise the Vectors
        len# = pxx# * pxx# + pxy# * pxy# + pxz# * pxz#
        len# = SQRT(len#)

pxx# = pxx# / len#
        pxy# = pxy# / len#
        pxz# = pxz# / len#

len# = pyx# * pyx# + pyy# * pyy# + pyz# * pyz#
        len# = SQRT(len#)

pyx# = pyx# / len#
        pyy# = pyy# / len#
        pyz# = pyz# / len#

len# = pzx# * pzx# + pzy# * pzy# + pzz# * pzz#
        len# = SQRT(len#)

pzx# = pzx# / len#
        pzy# = pzy# / len#
        pzz# = pzz# / len#

REM create the negative versions of the Vectors
        nxx# = -pxx#
        nxy# = -pxy#
        nxz# = -pxz#
        nyx# = -pyx#
        nyy# = -pyy#
        nyz# = -pyz#
        nzx# = -pzx#
        nzy# = -pzy#
        nzz# = -pzz#

IF pxy# > pyy# AND pxy# > pzy# AND pxy# > nxy# AND pxy# > nyy# AND pxy# > nzy#
            REM pxy is largest, so uppermost = 6
            y = 6
        ELSE
            IF pyy# > pxy# AND pyy# > pzy# AND pyy# > nxy# AND pyy# > nyy# AND pyy# > nzy#
                REM pyy is largest, so uppermost = 4
                y = 4
            ELSE
                IF pzy# > pxy# AND pzy# > pyy# AND pzy# > nxy# AND pzy# > nyy# AND pzy# > nzy#
                    REM pzy is largest, so uppermost = 2
                    y = 2
                ELSE
                    IF nxy# > pxy# AND nxy# > pyy# AND nxy# > pzy# AND nxy# > nyy# AND nxy# > nzy#
                        REM nxy is largest, so uppermost = 1
                        y = 1
                    ELSE
                        IF nyy# > pxy# AND nyy# > pyy# AND nyy# > pzy# AND nyy# > nxy# AND nyy# > nzy#
                            REM nyy is largest, so uppermost = 3
                            y = 3
                        ELSE
                            IF nzy# > pxy# AND nzy# > pyy# AND nzy# > pzy# AND nzy# > nxy# AND nzy# > nyy#
                                REM nzy is largest, so uppermost = 5
                                y = 5
                            ENDIF
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF
        ENDIF
    ENDIF
    nY(x - 5) = y
NEXT x

REMSTART Set relevant image in HUD
sHUDTag = "T2.btnDice" .. x
sDiceID = "Dice" .. y

IF ( x == 1 )
THEN
this.nPips1 ( y )
ELSEIF ( x == 2 )
THEN
this.nPips2 ( y )
ELSEIF ( x == 3 )
THEN
this.nPips3 ( y )
ELSEIF ( x == 4 )
THEN
this.nPips4 ( y )
ELSE
this.nPips5 ( y )
END

hComp = hud.getComponent ( hUser, sHUDTag )

IF ( string.compare ( sType, "A" ) == 0 ) 
THEN
IF ( hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, false )
END
ELSE
IF ( not hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, true )
END
END

hud.setComponentBackgroundImage ( hComp, sDiceID )
END
END

-- NB: WE ONLY NEED TO DO THIS AFTER ROLL #1
IF ( this.bFirst ( ) or this.bSecond ( ) )
THEN
-- Now, redisplay Roll Button with new Text
hComp = hud.getComponent ( hUser, "T2.btnRoll" )

x = this.nCurrentPlayer ( )

hud.setButtonText ( hComp, "Player " .. x .. " Re-roll when ready" )

IF ( string.compare ( sType, "A" ) == 0 )
THEN
IF ( hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, false )
END
ELSE
IF ( not hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, true )
END
END

IF ( not hud.isComponentVisible ( hComp ) )
THEN
hud.setComponentVisible ( hComp, true )
END
 
IF ( this.bFirst ( ) )
THEN
this.bFirst ( false )
this.bSecond ( true )
ELSE
this.bSecond ( false )
END
ELSE
this.bGetDice ( true )
this.bEndTurn ( true )
this.bCheckScore ( true )
END

for x = 1, 5
do
sTemp = "T2.btnDice" .. x
hComp = hud.getComponent ( hUser, sTemp )

IF ( string.compare ( sType, "H" ) == 0 )
THEN
IF ( not hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, true )
END
END
END
REMEND
ENDFUNCTION

REM ******************************** rollDice ********************************
FUNCTION rollDice()
bAllIdle = 0

FOR x = 1 TO 5
    y = x + 5

nX# = OBJECT POSITION X(y)
    nY# = OBJECT POSITION Y(y)
    nZ# = OBJECT POSITION Z(y)

REM For the second roll, some Dice may no longer exist - these are moved to -1000 in Y
    IF nY# > -500
        angX# = PHY GET RIGID BODY ANGULAR VELOCITY X(y)
        angY# = PHY GET RIGID BODY ANGULAR VELOCITY Y(y)
        angZ# = PHY GET RIGID BODY ANGULAR VELOCITY Z(y)
        linX# = PHY GET RIGID BODY LINEAR VELOCITY X(y)
        linY# = PHY GET RIGID BODY LINEAR VELOCITY Y(y)
        linZ# = PHY GET RIGID BODY LINEAR VELOCITY Z(y)
        angMX# = PHY GET RIGID BODY ANGULAR MOMENTUM X(y)
        angMY# = PHY GET RIGID BODY ANGULAR MOMENTUM Y(y)
        angMZ# = PHY GET RIGID BODY ANGULAR MOMENTUM Z(y)
        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)
        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)
        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)
        pointVelX# = PHY GET RIGID BODY POINT VELOCITY X(y, nX#, nY#, nZ#)
        pointVelY# = PHY GET RIGID BODY POINT VELOCITY Y(y, nX#, nY#, nZ#)
        pointVelZ# = PHY GET RIGID BODY POINT VELOCITY Z(y, nX#, nY#, nZ#)

lin# = SQRT(linX# * linX# + linY# * linY# + linZ# * linZ#)
        ang# = SQRT(angX# * angX# + angY# * angY# + angZ# * angZ#)
        linM# = SQRT(linMX# * linMX# + linMY# * linMY# + linMZ# * linMZ#)
        angM# = SQRT(angMX# * angMX# + angMY# * angMY# + angMZ# * angMZ#)
        pointVel# = SQRT(pointVelX# * pointVelX# + pointVelY# * pointVelY# + pointVelZ# * pointVelZ#)
                
        REM IF angX# < 0.00005 AND angX# > -0.00005 AND AngY# < 0.00005 AND angY# > -0.00005 AND AngZ# < 0.00005 AND AngZ# > -0.00005
        REM IF linX# < 0.00005 AND linX# > -0.00005 AND linY# < 0.00005 AND linY# > -0.00005 AND linZ# < 0.00005 AND linZ# > -0.00005
        IF ang# > 0 AND lin# > 0 AND angM# > 0 AND linM# > 0 AND pointVel# > 0
            bIdle(x) = 0
        ELSE
            bIdle(x) = 1
        ENDIF
        REM ENDIF
        REM ENDIF
    ELSE
        Rem These Dice are NOT being rolled, so are ALWAYS idle!
        bIdle(x) = 1
    ENDIF
NEXT x

FOR x = 1 TO 5
    bAllIdle = 1

IF bIdle(x) = 0 THEN bAllIdle = 0
NEXT x

IF bAllIdle = 1 THEN bRoll = 0
ENDFUNCTION

+ Code Snippet

REM Project: Dark Basic Pro Project
REM Created: Sunday, June 19, 2011

REM **************************** Main Source File ****************************
REM **************************************************************************
REM ******************************* INITIALISE *******************************
REM **************************************************************************
_GameStart:
`RANDOMIZE TIMER()
SYNC ON
SYNC RATE 60
`SET DISPLAY MODE 800, 600, 32
PHY START
 
REM **************************************************************************
REM ******************************* LOAD MEDIA *******************************
REM **************************************************************************
`LOAD IMAGE "media/wood1.jpg", 1
`LOAD IMAGE "media/pooltablecloth.jpg", 2

REM **************************************************************************
REM ****************************** SET UP ARENA ******************************
REM **************************************************************************
MAKE OBJECT PLAIN 1, 80, 160
ROTATE OBJECT 1, -90, 0, 0
TEXTURE OBJECT 1, 2
PHY MAKE RIGID BODY STATIC BOX 1
MAKE OBJECT box 2, 160, 75, 3
POSITION OBJECT 2, -40, 0, 0
ROTATE OBJECT 2, 0, 90, 0
TEXTURE OBJECT 2, 1
PHY MAKE RIGID BODY STATIC BOX 2
MAKE OBJECT BOX 11, 160, 200, 3
POSITION OBJECT 11, -40, 125, 0
ROTATE OBJECT 11, 0, 90, 0
HIDE OBJECT 11
PHY MAKE RIGID BODY STATIC BOX 11
MAKE OBJECT box 3, 160, 75, 3
POSITION OBJECT 3, 40, 0, 0
ROTATE OBJECT 3, 0, 90, 0
TEXTURE OBJECT 3, 1
PHY MAKE RIGID BODY STATIC BOX 3
MAKE OBJECT BOX 12, 160, 200, 3
POSITION OBJECT 12, 40, 125, 0
ROTATE OBJECT 12, 0, 90, 0
HIDE OBJECT 12
PHY MAKE RIGID BODY STATIC BOX 12
MAKE OBJECT box 4, 83, 75, 3
POSITION OBJECT 4, 0, 0, 80
TEXTURE OBJECT 4, 1
PHY MAKE RIGID BODY STATIC BOX 4
MAKE OBJECT BOX 13, 83, 200, 3
POSITION OBJECT 13, 0, 125, 80
HIDE OBJECT 13
PHY MAKE RIGID BODY STATIC BOX 13
MAKE OBJECT box 5, 83, 75, 3
POSITION OBJECT 5, 0, 0, -80
TEXTURE OBJECT 5, 1
PHY MAKE RIGID BODY STATIC BOX 5
MAKE OBJECT BOX 14, 83, 200, 3
POSITION OBJECT 14, 0, 125, -80
HIDE OBJECT 14
PHY MAKE RIGID BODY STATIC BOX 14

REM **************************************************************************
REM ****************************** SET UP DICE *******************************
REM **************************************************************************
FOR x = 6 to 10
`    LOAD OBJECT "media/die1.x", x
make object cube x,3

    POSITION OBJECT x, RND(30) - 10, RND(40) + 35, RND(30) + 20
    PHY MAKE RIGID BODY DYNAMIC BOX x
   PHY ADD RIGID BODY FORCE x, 0, -20, -60, 2
    PHY ADD RIGID BODY LOCAL TORQUE x, RND(360), RND(360), RND(360), 2
    phy set rigid body mass x,100
NEXT

REM **************************************************************************
REM ************************ SET UP GLOBAL VARIABLES *************************
REM **************************************************************************
GLOBAL DIM nY(5)
GLOBAL DIM bIdle(5)
GLOBAL bAllIdle
GLOBAL bRoll
global throw
GLOBAL sysTime as DWORD

bRoll = 1
sysTime = TIMER()

FOR x = 1 TO 5
    bIdle(x) = 0
NEXT x

REM **************************************************************************
REM ************************** SET UP OTHER OPTIONS **************************
REM **************************************************************************
SET AMBIENT LIGHT 30
PHY SET GRAVITY 0, -30, 0
POSITION CAMERA 0, 110, 75
POINT CAMERA 0, 0, -60

REM **************************************************************************
REM ******************************* MAIN LOOP ********************************
REM **************************************************************************
phy start
DO
center text screen width()/2,2,"Press space to throw"
set cursor 0,0
 y=6
print PHY GET RIGID BODY ANGULAR VELOCITY X(y)

print PHY GET RIGID BODY LINEAR VELOCITY X(y)

print PHY GET RIGID BODY ANGULAR MOMENTUM X(y)
print PHY GET RIGID BODY ANGULAR MOMENTUM Y(y)
print PHY GET RIGID BODY ANGULAR MOMENTUM Z(y)
print PHY GET RIGID BODY LINEAR MOMENTUM X(y)
print PHY GET RIGID BODY LINEAR MOMENTUM X(y)
print PHY GET RIGID BODY LINEAR MOMENTUM X(y)
print PHY GET RIGID BODY POINT VELOCITY X(y, nX#, nY#, nZ#)
print PHY GET RIGID BODY POINT VELOCITY Y(y, nX#, nY#, nZ#)
print PHY GET RIGID BODY POINT VELOCITY Z(y, nX#, nY#, nZ#)


`    IF MOUSECLICK() = 2 
 `       PHY END
  `      DELETE OBJECTS 1, 14
   `     DELETE IMAGE 1
    `    DELETE IMAGE 2
     `   GOTO _GameStart
    `ENDIF
    if spacekey() = 1 and throw =0 and PHY GET RIGID BODY LINEAR MOMENTUM z(6)=0.0  
    	throw=1
     	FOR x = 6 to 10
			phy set rigid body rotation x,0,0,0
			phy set rigid body position  x, RND(30) - 10, RND(40)+35, RND(30) + 20
    		PHY ADD RIGID BODY FORCE x, 0, -20, -60, 2
    		PHY ADD RIGID BODY LOCAL TORQUE x, -180+RND(360), -180+RND(360), -180+RND(360), 2
		NEXT
	else
		if PHY GET RIGID BODY ANGULAR VELOCITY X(6)=0
			throw = 0
		else
			print "low"
		endif
	endif

 
    IF bRoll = 1
        PHY UPDATE
        SYNC
        
        REM nTime = nTime + TIMER() - sysTime

        REM IF nTime > 7500 
            rollDice()
            REM sysTime = nTime
            REM nTime = 0
        REM ENDIF
    ELSE
       getDice()
        FOR x = 1 TO 5
            SET CURSOR 0, x * 10 + 390
            PRINT nY(x)
        NEXT
    `    PHY END
    ENDIF
Text 10,10,"FPS "+Str$(Screen FPS())

phy update
    SYNC
LOOP
end

REM **************************************************************************
REM ******************************* FUNCTIONS ********************************
REM **************************************************************************

REM ********************************* getDice ********************************
FUNCTION getDice()
sDiceID$ = ""
sHUDTag$ = ""

REM This is where we get the "pips" uppermost on the Dice. So, we need to loop through the Dice 
REM and check which side is uppermost
FOR x = 6 TO 10
    y = 1

    IF OBJECT VISIBLE(x)
        REM Get OBJECT POSITION
        x1# = OBJECT POSITION X(x)
        y1# = OBJECT POSITION Y(x)
        z1# = OBJECT POSITION Z(x)

        REM Get X Axis
        MOVE OBJECT RIGHT x, 1
        pxx# = OBJECT POSITION X(x)
        pxy# = OBJECT POSITION Y(x)
        pxz# = OBJECT POSITION Z(x)
        MOVE OBJECT LEFT x, 1

        REM Get Y Axis
        MOVE OBJECT UP x, 1
        pyx# = OBJECT POSITION X(x)
        pyy# = OBJECT POSITION Y(x)
        pyz# = OBJECT POSITION Z(x)
        MOVE OBJECT DOWN x, 1

        REM Get Z Axis
        MOVE OBJECT x, 1
        pzx# = OBJECT POSITION X(x)
        pzy# = OBJECT POSITION Y(x)
        pzz# = OBJECT POSITION Z(x)
        MOVE OBJECT x, -1
        
        pxx# = pxx# - x1#
        pxy# = pxy# - y1#
        pxz# = pxz# - z1#
        
        pyx# = pyx# - x1#
        pyy# = pyy# - y1#
        pyz# = pyz# - z1#
        
        pzx# = pzx# - x1#
        pzy# = pzy# - y1#
        pzz# = pzz# - z1#

        REM normalise the Vectors
        len# = pxx# * pxx# + pxy# * pxy# + pxz# * pxz#
        len# = SQRT(len#)

        pxx# = pxx# / len#
        pxy# = pxy# / len#
        pxz# = pxz# / len#

        len# = pyx# * pyx# + pyy# * pyy# + pyz# * pyz#
        len# = SQRT(len#)

        pyx# = pyx# / len#
        pyy# = pyy# / len#
        pyz# = pyz# / len#

        len# = pzx# * pzx# + pzy# * pzy# + pzz# * pzz#
        len# = SQRT(len#)

        pzx# = pzx# / len#
        pzy# = pzy# / len#
        pzz# = pzz# / len#

        REM create the negative versions of the Vectors
        nxx# = -pxx#
        nxy# = -pxy#
        nxz# = -pxz#
        nyx# = -pyx#
        nyy# = -pyy#
        nyz# = -pyz#
        nzx# = -pzx#
        nzy# = -pzy#
        nzz# = -pzz#

        IF pxy# > pyy# AND pxy# > pzy# AND pxy# > nxy# AND pxy# > nyy# AND pxy# > nzy#
            REM pxy is largest, so uppermost = 6
            y = 6
        ELSE
            IF pyy# > pxy# AND pyy# > pzy# AND pyy# > nxy# AND pyy# > nyy# AND pyy# > nzy#
                REM pyy is largest, so uppermost = 4
                y = 4
            ELSE
                IF pzy# > pxy# AND pzy# > pyy# AND pzy# > nxy# AND pzy# > nyy# AND pzy# > nzy#
                    REM pzy is largest, so uppermost = 2
                    y = 2
                ELSE
                    IF nxy# > pxy# AND nxy# > pyy# AND nxy# > pzy# AND nxy# > nyy# AND nxy# > nzy#
                        REM nxy is largest, so uppermost = 1
                        y = 1
                    ELSE
                        IF nyy# > pxy# AND nyy# > pyy# AND nyy# > pzy# AND nyy# > nxy# AND nyy# > nzy#
                            REM nyy is largest, so uppermost = 3
                            y = 3
                        ELSE
                            IF nzy# > pxy# AND nzy# > pyy# AND nzy# > pzy# AND nzy# > nxy# AND nzy# > nyy#
                                REM nzy is largest, so uppermost = 5
                                y = 5
                            ENDIF
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF
        ENDIF
    ENDIF
    nY(x - 5) = y
NEXT x

REMSTART Set relevant image in HUD
sHUDTag = "T2.btnDice" .. x
sDiceID = "Dice" .. y

IF ( x == 1 )
THEN
this.nPips1 ( y )
ELSEIF ( x == 2 )
THEN
this.nPips2 ( y )
ELSEIF ( x == 3 )
THEN
this.nPips3 ( y )
ELSEIF ( x == 4 )
THEN
this.nPips4 ( y )
ELSE
this.nPips5 ( y )
END

hComp = hud.getComponent ( hUser, sHUDTag )

IF ( string.compare ( sType, "A" ) == 0 ) 
THEN
IF ( hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, false )
END
ELSE
IF ( not hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, true )
END
END

hud.setComponentBackgroundImage ( hComp, sDiceID )
END
END

-- NB: WE ONLY NEED TO DO THIS AFTER ROLL #1
IF ( this.bFirst ( ) or this.bSecond ( ) )
THEN
-- Now, redisplay Roll Button with new Text
hComp = hud.getComponent ( hUser, "T2.btnRoll" )

x = this.nCurrentPlayer ( )

hud.setButtonText ( hComp, "Player " .. x .. " Re-roll when ready" )

IF ( string.compare ( sType, "A" ) == 0 )
THEN
IF ( hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, false )
END
ELSE
IF ( not hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, true )
END
END

IF ( not hud.isComponentVisible ( hComp ) )
THEN
hud.setComponentVisible ( hComp, true )
END
 
IF ( this.bFirst ( ) )
THEN
this.bFirst ( false )
this.bSecond ( true )
ELSE
this.bSecond ( false )
END
ELSE
this.bGetDice ( true )
this.bEndTurn ( true )
this.bCheckScore ( true )
END

for x = 1, 5
do
sTemp = "T2.btnDice" .. x
hComp = hud.getComponent ( hUser, sTemp )

IF ( string.compare ( sType, "H" ) == 0 )
THEN
IF ( not hud.isComponentActive ( hComp ) )
THEN
hud.setComponentActive ( hComp, true )
END
END
END
REMEND
ENDFUNCTION

REM ******************************** rollDice ********************************
FUNCTION rollDice()
bAllIdle = 0

FOR x = 1 TO 5
    y = x + 5

    nX# = OBJECT POSITION X(y)
    nY# = OBJECT POSITION Y(y)
    nZ# = OBJECT POSITION Z(y)

    REM For the second roll, some Dice may no longer exist - these are moved to -1000 in Y
    IF nY# > -500
        angX# = PHY GET RIGID BODY ANGULAR VELOCITY X(y)
        angY# = PHY GET RIGID BODY ANGULAR VELOCITY Y(y)
        angZ# = PHY GET RIGID BODY ANGULAR VELOCITY Z(y)
        linX# = PHY GET RIGID BODY LINEAR VELOCITY X(y)
        linY# = PHY GET RIGID BODY LINEAR VELOCITY Y(y)
        linZ# = PHY GET RIGID BODY LINEAR VELOCITY Z(y)
        angMX# = PHY GET RIGID BODY ANGULAR MOMENTUM X(y)
        angMY# = PHY GET RIGID BODY ANGULAR MOMENTUM Y(y)
        angMZ# = PHY GET RIGID BODY ANGULAR MOMENTUM Z(y)
        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)
        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)
        linMX# = PHY GET RIGID BODY LINEAR MOMENTUM X(y)
        pointVelX# = PHY GET RIGID BODY POINT VELOCITY X(y, nX#, nY#, nZ#)
        pointVelY# = PHY GET RIGID BODY POINT VELOCITY Y(y, nX#, nY#, nZ#)
        pointVelZ# = PHY GET RIGID BODY POINT VELOCITY Z(y, nX#, nY#, nZ#)



        lin# = SQRT(linX# * linX# + linY# * linY# + linZ# * linZ#)
        ang# = SQRT(angX# * angX# + angY# * angY# + angZ# * angZ#)
        linM# = SQRT(linMX# * linMX# + linMY# * linMY# + linMZ# * linMZ#)
        angM# = SQRT(angMX# * angMX# + angMY# * angMY# + angMZ# * angMZ#)
        pointVel# = SQRT(pointVelX# * pointVelX# + pointVelY# * pointVelY# + pointVelZ# * pointVelZ#)
                
        REM IF angX# < 0.00005 AND angX# > -0.00005 AND AngY# < 0.00005 AND angY# > -0.00005 AND AngZ# < 0.00005 AND AngZ# > -0.00005
        REM IF linX# < 0.00005 AND linX# > -0.00005 AND linY# < 0.00005 AND linY# > -0.00005 AND linZ# < 0.00005 AND linZ# > -0.00005
        IF ang# > 0 AND lin# > 0 AND angM# > 0 AND linM# > 0 AND pointVel# > 0
            bIdle(x) = 0
        ELSE
            bIdle(x) = 1
        ENDIF
        REM ENDIF
        REM ENDIF
    ELSE
        Rem These Dice are NOT being rolled, so are ALWAYS idle!
        bIdle(x) = 1
    ENDIF
NEXT x

FOR x = 1 TO 5
    bAllIdle = 1

    IF bIdle(x) = 0 THEN bAllIdle = 0
NEXT x

IF bAllIdle = 1 THEN bRoll = 0
ENDFUNCTION

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Shando69

FPSC Reloaded TGC Backer

14

Years of Service

User Offline

Joined: 3rd Jan 2010

Location: Redland Bay, QLD, Australia

Posted: 3rd Jul 2011 05:42

Link

Hey HowDo,

Thanks for all the help

Unfortunately, it still doesn't quite work

I can still tell that the blocks are moving when the relevant text has been displayed.

I'm going to give the Newton & ODE wrappers a try and see what happens

Thanks again

Shando

Love Hope Strength (Further details: http://www.lovehopestrength.co.uk/)

One Cancer Centre in every Country, One Concert at a Time

Back to top

Profile PM

Shando69

FPSC Reloaded TGC Backer

14

Years of Service

User Offline

Joined: 3rd Jan 2010

Location: Redland Bay, QLD, Australia

Posted: 4th Jul 2011 10:29

Link

Geez, don't you just hate it (and feel remarkably stupid as well) when it's a logic error

It's now working fine and all I had to do was move one line out of a loop!

Old code:

+ Code Snippet

FOR x = 1 TO 5
    bAllIdle = 0
    IF bIdle(x) = 1 THEN bAllIdle = 1
NEXT x

New code:

+ Code Snippet

bAllIdle = 0

FOR x = 1 TO 5
    IF bIdle(x) = 1 THEN bAllIdle = 1
NEXT x

For those that may be interested, here is the complete code:

REM Project: Dark Basic Pro Project
REM Created: Sunday, June 19, 2011

REM **************************** Main Source File ****************************
REM **************************************************************************
REM ******************************* INITIALISE *******************************
REM **************************************************************************
_GameStart:
`RANDOMIZE TIMER()
SYNC ON
SYNC RATE 120
SET DISPLAY MODE 800, 600, 32
PHY START
PHY SET TIMING 0.008333, 10, 0

REM **************************************************************************
REM ******************************* LOAD MEDIA *******************************
REM **************************************************************************
LOAD IMAGE "media/wood1.jpg", 1
LOAD IMAGE "media/pooltablecloth.jpg", 2

REM **************************************************************************
REM ****************************** SET UP ARENA ******************************
REM **************************************************************************
MAKE OBJECT PLAIN 1, 80, 160
ROTATE OBJECT 1, -90, 0, 0
TEXTURE OBJECT 1, 2
PHY MAKE RIGID BODY STATIC BOX 1
MAKE OBJECT box 2, 160, 75, 3
POSITION OBJECT 2, -40, 0, 0
ROTATE OBJECT 2, 0, 90, 0
TEXTURE OBJECT 2, 1
PHY MAKE RIGID BODY STATIC BOX 2
MAKE OBJECT BOX 11, 160, 200, 3
POSITION OBJECT 11, -40, 125, 0
ROTATE OBJECT 11, 0, 90, 0
HIDE OBJECT 11
PHY MAKE RIGID BODY STATIC BOX 11
MAKE OBJECT box 3, 160, 75, 3
POSITION OBJECT 3, 40, 0, 0
ROTATE OBJECT 3, 0, 90, 0
TEXTURE OBJECT 3, 1
PHY MAKE RIGID BODY STATIC BOX 3
MAKE OBJECT BOX 12, 160, 200, 3
POSITION OBJECT 12, 40, 125, 0
ROTATE OBJECT 12, 0, 90, 0
HIDE OBJECT 12
PHY MAKE RIGID BODY STATIC BOX 12
MAKE OBJECT box 4, 83, 75, 3
POSITION OBJECT 4, 0, 0, 80
TEXTURE OBJECT 4, 1
PHY MAKE RIGID BODY STATIC BOX 4
MAKE OBJECT BOX 13, 83, 200, 3
POSITION OBJECT 13, 0, 125, 80
HIDE OBJECT 13
PHY MAKE RIGID BODY STATIC BOX 13
MAKE OBJECT box 5, 83, 75, 3
POSITION OBJECT 5, 0, 0, -80
TEXTURE OBJECT 5, 1
PHY MAKE RIGID BODY STATIC BOX 5
MAKE OBJECT BOX 14, 83, 200, 3
POSITION OBJECT 14, 0, 125, -80
HIDE OBJECT 14
PHY MAKE RIGID BODY STATIC BOX 14

REM **************************************************************************
REM ****************************** SET UP DICE *******************************
REM **************************************************************************
FOR x = 6 to 10
    LOAD OBJECT "media/die1.x", x

POSITION OBJECT x, RND(30) - 10, RND(40) + 35, RND(30) + 20
    PHY MAKE RIGID BODY DYNAMIC BOX x
    PHY ADD RIGID BODY FORCE x, 0, -20, -60, 2
    PHY ADD RIGID BODY LOCAL TORQUE x, RND(360), RND(360), RND(360), 2
    PHY SET RIGID BODY MASS x, 1000.0
    PHY SET GRAVITY 0.0, 100.0, 0.0
NEXT

REM **************************************************************************
REM ************************ SET UP GLOBAL VARIABLES *************************
REM **************************************************************************
GLOBAL DIM nY(5)
GLOBAL DIM bIdle(5)
GLOBAL bAllIdle
GLOBAL bRoll
GLOBAL throw

bRoll = 1
bAllIdle = 0

FOR x = 1 TO 5
    bIdle(x) = 0
NEXT x

REM **************************************************************************
REM ************************** SET UP OTHER OPTIONS **************************
REM **************************************************************************
SET AMBIENT LIGHT 30
PHY SET GRAVITY 0, -30, 0
POSITION CAMERA 0, 110, 75
POINT CAMERA 0, 0, -60

REM **************************************************************************
REM ******************************* MAIN LOOP ********************************
REM **************************************************************************
DO
    CENTER TEXT SCREEN WIDTH() / 2, 2, "Press space to throw"
    SET CURSOR 0, 20

FOR x = 1 TO 5
        PRINT "  "
        PRINT bIdle(x)
    NEXT

IF SPACEKEY() = 1 AND throw = 0 and bAllIdle = 0
        throw = 1
    
        FOR x = 6 to 10
            PHY SET RIGID BODY ROTATION x, 0.0, 0.0, 0.0
            PHY SET RIGID BODY POSITION x, RND(30) - 10, RND(40) + 35, RND(30) + 20
            PHY ADD RIGID BODY FORCE x, 0, -20, -60, 2
            PHY ADD RIGID BODY LOCAL TORQUE x, -180 + RND(360), -180 + RND(360), -180 + RND(360), 2
        NEXT x
        
        FOR x = 1 TO 5
            bIdle(x) = 0
        NEXT x
        
        bRoll = 1
        bAllIdle = 1
    ELSE
        PRINT " "
    
        IF bAllIdle = 0
            throw = 0
            PRINT "ALL STOPPED"
        ELSE
            PRINT "STILL GOING"
        ENDIF
    ENDIF
PRINT " "
PRINT bRoll

IF bRoll = 1
        PHY UPDATE
        SYNC
     
        rollDice()

FOR x = 1 TO 5
            SET CURSOR 0, x * 10 + 390
            PRINT "ROLLIN'"
        NEXT x
    ELSE
        getDice()
        
        FOR x = 1 TO 5
            SET CURSOR 0, x * 10 + 390
            PRINT nY(x)
        NEXT
    ENDIF

TEXT 0, 10, "FPS " + STR$(SCREEN FPS())

PHY UPDATE
    SYNC

LOOP
END