Pressure pad / Weighing objects - GameCreators Forum

Author

Message

Neptune

18

Years of Service

User Offline

Joined: 8th Jan 2006

Location: United Kingdom

Posted: 2nd Sep 2006 12:15

Link

Hi all,

Okay so ive got a pressure pad which you have to place objects on. The idea is that it will trigger something when you place enough weight on it, i.e. several boxes. How would I go about working out how much weight is placed on this object? Is this even possible? I sure hope so

Back to top

Profile PM

Teh Go0rfmeister

21

Years of Service

User Offline

Joined: 17th Aug 2003

Location:

Posted: 2nd Sep 2006 14:37

Link

you can measure the force on an object, ie the pressure pad, acting in the y direction

Back to top

Profile PM Website

Neptune

18

Years of Service

User Offline

Joined: 8th Jan 2006

Location: United Kingdom

Posted: 2nd Sep 2006 15:52

Link

I cant seem to find a command that would do that! The phy get collision normal force y () commands dont work and even then it probably would not work out the weight of a bunch of boxes.

Here is a quick test.

+ Code Snippet

sync on : sync rate 0

set display mode 1280,1024,32

phy start

autocam off

make object box 1, 100,5,100
phy make rigid body dynamic box 1
phy set rigid body kinematic 1,1

make object cube 2,20
position object 2, 0,90,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,1000

position camera 0,20,-120

do


phy update
sync
loop

Can anyone get it to work out the weight of objects placed on object 1? Its easy enough with one box, but any more is tricky.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Sep 2006 18:00 Edited at: 2nd Sep 2006 18:47

Link

try looking at this might give you an idea on how to make it work right, like putting collsion in it or something.

+ Code Snippet

sync on : sync rate 0

set display mode 1280,1024,32
set text size 34
phy start

autocam off

make object box 1, 100,5,100
phy make rigid body static box 1

make object box 2,50,1,50
position object 2,0,6,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,100
`phy set rigid body kinematic 1,1

make object cube 3,20
position object 3, 0,90,0
phy make rigid body dynamic box 3
phy set rigid body mass 3,1000

position camera 0,20,-120
oldweighta=phy get rigid body mass (2)
oldweightb=phy get rigid body mass (3)

do
text 0,0,"old weight A="+str$(oldweighta)
text 0,40,"old weight B="+str$(oldweightb)
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))
wa#=phy get rigid body mass (2)
wb#=phy get rigid body mass (3)
phy update rigid body mass 2,0.0,wa#+wb#




phy update
sync
loop

and with collsion

sync on : sync rate 0

set display mode 1280,1024,32
set text size 34
phy start

autocam off

make object box 1, 100,5,100
phy make rigid body static box 1

make object box 2,50,1,50
position object 2,0,6,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,100
`phy set rigid body kinematic 1,1

make object cube 3,20
position object 3, 0,90,0
phy make rigid body dynamic box 3
phy set rigid body mass 3,1000

position camera 0,20,-120
oldweighta=phy get rigid body mass (2)
oldweightb=phy get rigid body mass (3)

do
text 0,0,"old weight A="+str$(oldweighta)
text 0,40,"old weight B="+str$(oldweightb)
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))
`wa#=phy get rigid body mass (2)
`wb#=phy get rigid body mass (3)

while phy get collision data ( )
  a = phy get collision object a ( )
  b = phy get collision object b ( )
  if a=2 and b=3
phy update rigid body mass 2,0.0,oldweighta+oldweightb
else
phy update rigid body mass 2,0.0,oldweighta
phy update rigid body mass 3,0.0,oldweightb
  endif
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))

endwhile

phy update
sync

+ Code Snippet

sync on : sync rate 0

set display mode 1280,1024,32
set text size 34
phy start

autocam off

make object box 1, 100,5,100
phy make rigid body static box 1

make object box 2,50,1,50
position object 2,0,6,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,100
`phy set rigid body kinematic 1,1

make object cube 3,20
position object 3, 0,90,0
phy make rigid body dynamic box 3
phy set rigid body mass 3,1000

position camera 0,20,-120
oldweighta=phy get rigid body mass (2)
oldweightb=phy get rigid body mass (3)

do
text 0,0,"old weight A="+str$(oldweighta)
text 0,40,"old weight B="+str$(oldweightb)
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))
`wa#=phy get rigid body mass (2)
`wb#=phy get rigid body mass (3)

 while phy get collision data ( )
  a = phy get collision object a ( )
  b = phy get collision object b ( )
  if a=2 and b=3
phy update rigid body mass 2,0.0,oldweighta+oldweightb
else
phy update rigid body mass 2,0.0,oldweighta
phy update rigid body mass 3,0.0,oldweightb
  endif
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))

 endwhile

phy update
sync

this is with trigger but I think I have it wrong.

sync on : sync rate 0

set display mode 1280,1024,32
set text size 34
phy start

autocam off

make object box 1, 100,5,100
phy make rigid body static box 1

make object box 2,50,1,50
position object 2,0,6,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,100
`phy set rigid body kinematic 1,1

make object cube 3,20
position object 3, 0,90,0
phy make rigid body dynamic box 3
phy set rigid body mass 3,1000

position camera 0,20,-120
oldweighta=phy get rigid body mass (2)
oldweightb=phy get rigid body mass (3)

do
text 0,0,"old weight A="+str$(oldweighta)
text 0,40,"old weight B="+str$(oldweightb)
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))
`wa#=phy get rigid body mass (2)
`wb#=phy get rigid body mass (3)

while phy get collision data ( )
   a = phy get collision object a ( )
   b = phy get collision object b ( )
      if a=2 and b=3
         phy update rigid body mass 2,0.0,oldweighta+oldweightb
   else
phy set trigger callback 1
if phy get trigger action ( )=1
   ta = phy get trigger object a (  )
   tb = phy get trigger object b (  )
      if ta=2 and tb=3
         phy update rigid body mass 2,0.0,oldweighta
         phy update rigid body mass 3,0.0,oldweightb
      endif
   endif
endif
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))
endwhile

phy update
sync
loop

+ Code Snippet

  sync on : sync rate 0

set display mode 1280,1024,32
set text size 34
phy start

autocam off

make object box 1, 100,5,100
phy make rigid body static box 1

make object box 2,50,1,50
position object 2,0,6,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,100
`phy set rigid body kinematic 1,1

make object cube 3,20
position object 3, 0,90,0
phy make rigid body dynamic box 3
phy set rigid body mass 3,1000

position camera 0,20,-120
oldweighta=phy get rigid body mass (2)
oldweightb=phy get rigid body mass (3)

do
text 0,0,"old weight A="+str$(oldweighta)
text 0,40,"old weight B="+str$(oldweightb)
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))
`wa#=phy get rigid body mass (2)
`wb#=phy get rigid body mass (3)

 while phy get collision data ( )
   a = phy get collision object a ( )
   b = phy get collision object b ( )
      if a=2 and b=3
         phy update rigid body mass 2,0.0,oldweighta+oldweightb
   else
phy set trigger callback 1
if phy get trigger action ( )=1
   ta = phy get trigger object a (  )
   tb = phy get trigger object b (  )
      if ta=2 and tb=3
         phy update rigid body mass 2,0.0,oldweighta
         phy update rigid body mass 3,0.0,oldweightb
      endif
   endif
endif
text 0,60,"weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"weight B after start box         "+ str$(phy get rigid body mass (3))
endwhile

phy update
sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Neptune

18

Years of Service

User Offline

Joined: 8th Jan 2006

Location: United Kingdom

Posted: 2nd Sep 2006 19:09

Link

Hey HowDo, thanks for the help

Greatly appreciated.

I'll probably end up going for something along the lines of your second one. Problem is that it'll only work for one box.

What I really want is a way of stacking multiple boxes ontop of each other. When a certain weight is reached it'll trigger an event. Doesnt look like this is going to happen. Not without a new command! Mike any chance of something like this

Thanks again HowDo

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Sep 2006 19:27

Link

hope you can work out the bounce part, going nuts here, heres one more I done.

I think there is command that can do what your after but when theirs 400+ its fun finding it.

next bit would be:

if a=2 and b=4
phy update rigid body mass 2,0.0,oldweighta+oldweightc
endif

sync on : sync rate 0

set display mode 1280,1024,32
set text size 34
phy start

autocam off

make object box 1, 100,5,100
phy make rigid body static box 1

make object box 2,50,1,50
position object 2,0,6,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,100
`phy set rigid body kinematic 1,1

make object cube 3,20
position object 3, 0,90,0
phy make rigid body dynamic box 3
phy set rigid body mass 3,1000

position camera 0,20,-120
oldweighta=phy get rigid body mass (2)
oldweightb=phy get rigid body mass (3)

do
text 0,0,"old weight A="+str$(oldweighta)
text 0,40,"old weight B="+str$(oldweightb)
text 0,60,"?weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"?weight B after start box         "+ str$(phy get rigid body mass (3))
`wa#=phy get rigid body mass (2)
`wb#=phy get rigid body mass (3)

while phy get collision data ( )
   a = phy get collision object a ( )
   b = phy get collision object b ( )
if a<>2 and b<>3
 phy update rigid body mass 2,0.0,oldweighta
 phy update rigid body mass 3,0.0,oldweightb
else
 if a=2 and b=3
         phy update rigid body mass 2,0.0,oldweighta+oldweightb
   endif
endif
text 0,100,"c weight A after start platfrom    " + str$(phy get rigid body mass (2))
text 0,120,"c weight B after start box         " + str$(phy get rigid body mass (3))
endwhile

text 0,140,"stop weight A after start platfrom    " + str$(phy get rigid body mass (2))
text 0,160,"stop weight B after start box         " + str$(phy get rigid body mass (3))

phy update
sync
loop

+ Code Snippet

 sync on : sync rate 0

set display mode 1280,1024,32
set text size 34
phy start

autocam off

make object box 1, 100,5,100
phy make rigid body static box 1

make object box 2,50,1,50
position object 2,0,6,0
phy make rigid body dynamic box 2
phy set rigid body mass 2,100
`phy set rigid body kinematic 1,1

make object cube 3,20
position object 3, 0,90,0
phy make rigid body dynamic box 3
phy set rigid body mass 3,1000

position camera 0,20,-120
oldweighta=phy get rigid body mass (2)
oldweightb=phy get rigid body mass (3)

do
text 0,0,"old weight A="+str$(oldweighta)
text 0,40,"old weight B="+str$(oldweightb)
text 0,60,"?weight A after start platfrom    "+str$(phy get rigid body mass (2))
text 0,80,"?weight B after start box         "+ str$(phy get rigid body mass (3))
`wa#=phy get rigid body mass (2)
`wb#=phy get rigid body mass (3)

 while phy get collision data ( )
   a = phy get collision object a ( )
   b = phy get collision object b ( )
if a<>2 and b<>3
 phy update rigid body mass 2,0.0,oldweighta
 phy update rigid body mass 3,0.0,oldweightb
else
 if a=2 and b=3
         phy update rigid body mass 2,0.0,oldweighta+oldweightb
   endif
endif
text 0,100,"c weight A after start platfrom    " + str$(phy get rigid body mass (2))
text 0,120,"c weight B after start box         " + str$(phy get rigid body mass (3))
endwhile

text 0,140,"stop weight A after start platfrom    " + str$(phy get rigid body mass (2))
text 0,160,"stop weight B after start box         " + str$(phy get rigid body mass (3))



phy update
sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Neptune

18

Years of Service

User Offline

Joined: 8th Jan 2006

Location: United Kingdom

Posted: 3rd Sep 2006 16:23

Link

I know what you mean, quite a few commands to wade through!!

Im just going to stick to one box for now as im wasting too much time on it. If we do manage to work it out then i can add it in later as an extra puzzle.

Back to top

Profile PM

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.