PHY Penny Fall demo [WIP] - GameCreators Forum

Author

Message

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Jun 2008 13:24 Edited at: 14th Jun 2008 11:33

Link

Hi All,

Thought I'd share this with you. plus you will need to download the coin.x object.

edit
code update and coin.x object updated.

Rem Project: phy_pennyfalls1
Rem Created: 11/06/2008 18:57:42

Rem ***** Main Source File ****
sync on
sync rate 60
set text size 32
print "1"
get image 1,0,0,text width("1"),text height("1")
cls
print "2"
get image 2,0,0,text width("2"),text height("2")
cls
print "3"
get image 3,0,0,text width("3"),text height("3")
cls
set text size 12

autocam off
RANDOMIZE timer()
`phy enable debug
phy start
position camera 0,0,2,-15
`phy set max angular velocity 0.0
phy set skin width 0.006
`phy set bounce threshold -9.0
coin_mass#=25.0
nbounce=1
phy make material nbounce, "no bounce"
phy set material restitution nbounce, 0.5
phy build material nbounce
hardwood=2
phy make material hardwood,"hardwood"
phy set material static friction hardwood,0.4
phy set material dynamic friction hardwood,0.4
phy set material restitution hardwood,0.2
phy build material hardwood
glass=3
phy make material glass,"glass"
phy set material static friction glass,0.1
phy set material dynamic friction glass,0.1
phy set material restitution glass,0.25
phy build material glass

rem base
make object box 1,100,1,100
position object 1,0,-1.8,0
color object 1,RGB(128,64,64)
phy make rigid body static box 1
rem coin
load object "coin2.x",100
hide object 100
`phy make rigid body dynamic mesh 100,"coin22.x"
`phy load rigid body dynamic mesh 100,"coin22.x"
rem in out box
make object box 2,10,1.1,10
color object 2,RGB(0,128,255)
phy make rigid body dynamic box 2,hardwood
phy set rigid body kinematic 2,1
rem bottom base
make object box 3,10,.6,10
position object 3,0,-.7,-1.0
rotate object 3,.9,0,0
color object 3,rgb(255,255,0)
phy make rigid body static box 3,hardwood
rem left side wall
make object box 4,.5,15,5
position object 4,-5,0,-2.5
phy make rigid body static box 4
rem right side wall
make object box 5,.5,15,5
position object 5,5,0,-2.5
phy make rigid body static box 5
rem back wall
make object box 6,10,11,1.6
position object 6,0,4.99,1.0
phy make rigid body static box 6,hardwood
phy set rigid body ccd 6, 5
rem front glass wall
make object box 7,10,9,.37
position object 7,0,6.10,-.1
ghost object on 7,1
phy make rigid body static box 7,glass
phy set rigid body ccd 7, 5
pin=8
setpin=8
rem make a pins
rem top row
`make object cube  pin,1
make object cylinder pin,1
position object pin,0,7,0
rotate object pin,90,0,22.5*7
scale object pin,8,100,8
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,1.5,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-1.5,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-3.0,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,3.0,7,0
phy make rigid body static box pin

inc pin,1
clone object pin,setpin
position object pin,-4.5,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.5,7,0
phy make rigid body static box pin

rem one row down
inc pin,1
clone object pin,setpin
position object pin,-.75,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,.75,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,2.5,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-2.5,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-4.0,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.0,5.5,0
phy make rigid body static box pin

rem two rows down
inc pin,1
clone object pin,setpin
position object pin,0,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,1.5,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-1.5,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-3.0,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,3,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.5,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-4.5,4,0
phy make rigid body static box pin

rem bottom row of pins
inc pin,1
clone object pin,setpin
position object pin,-.75,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,.75,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,2.5,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-2.5,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-4.0,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.0,2.5,0
phy make rigid body static box pin

rem coin droppers
make object cube 50,1.2
texture object 50,1
position object 50,-3.0,10,0
make object cube 51,1.2
texture object 51,2
position object 51,0.0,10,0
make object cube 52,1.2
texture object 52,3
position object 52,3.0,10,0
rem 5.3
rem -0.05
id=101
do
text 0,0,str$(id-101)
rem  platform in
if z#<3.3 and done=0
   inc z#,.01
   hold=timer()
   else
   if z#>3.3 and timer()>hold+1000
      done=1
   endif
endif
rem out
if z#>2.0 and done
   dec z#,.01
   hold=timer()
   else
   if z#<2.0 and timer()>hold+1000
      done=0
   endif
endif
rem pick a box and make a coin and drop it.
gosub _drag_object
rem move the platform
phy set rigid body kinematic position 2, 0, 0, z#

rem guess
control camera using arrowkeys 0,.1,.1
phy update
sync
loop

_drag_object:
if mouseclick()=0
pickmode=0 : cursorobj=0 :click=0
rem return to dark state.
for k=50 to 52
set object specular k, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power k, 0
   set object ambient k,1
   next k
endif

mclick=mouseclick()
if mclick>0
 if pickmode=0
  cursorobj=pick object(mousex(),mousey(),50,52)
  if cursorobj=50
   set object specular 50, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 50, 255
   set object ambient 50,0
endif
  if cursorobj=51
   set object specular 51, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 51, 255
   set object ambient 51,0
endif
  if cursorobj=52
   set object specular 52, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 52, 255
   set object ambient 52,0
endif
  if cursorobj>0
   pickmode=mclick
   pickdistance#=get pick distance()
   pickfromx#=get pick vector x()
   pickfromy#=get pick vector y()
   pickfromz#=get pick vector z()
   if pickmode=1
    objx#=object position x(cursorobj)
    objy#=object position y(cursorobj)
    objz#=object position z(cursorobj)
   else
    objx#=object angle x(cursorobj)
    objy#=object angle y(cursorobj)
    objz#=object angle z(cursorobj)
    pickdiffx#=mousemovey() : pickdiffx#=0
    pickdiffy#=mousemovex() : pickdiffy#=0
   endif
  else
   highlightobj=0
  endif
 endif
 if pickmode>0
  if pickmode=1
   pick screen mousex(),mousey(),pickdistance#
   picktox#=get pick vector x()
   picktoy#=get pick vector y()
   picktoz#=get pick vector z()
   pickdiffx#=picktox#-pickfromx#
   pickdiffy#=picktoy#-pickfromy#
   pickdiffz#=picktoz#-pickfromz#
   grid=0
   if grid=1
    pickdiffx#=int(pickdiffx#/5)*5
    pickdiffy#=int(pickdiffy#/5)*5
    pickdiffz#=int(pickdiffz#/5)*5
   endif
   if cursorobj=50 and click<>1 and timer()>time+1500
   click=1
      clone object id,100
      t=rnd(2)
      if t=0
      position object id,-2.9.0,9.8,0
endif
 if t=1
      position object id,-3.0,9.8,0
endif
 if t=2
      position object id,-3.1,9.8,0
endif
      color object id,RGB(0,0,255)
      phy make rigid body dynamic box id,nbounce
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id, 1
      inc id
      time=timer()
      endif
  if cursorobj=51 and click<>1 and timer()>time1+1500
  click=1
      clone object id,100
      t2=rnd(2)
      if t=0
      position object id,0.1,9.8,0
      endif
if t=1
      position object id,0,9.8,0
      endif
if t=2
      position object id,-0.1,9.8,0
      endif
      color object id,RGB(0,255,0)
      phy make rigid body dynamic box id,nbounce
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id, 1
      inc id
      time1=timer()
      endif
  if cursorobj=52 and click<>1 and timer()>time2+1500
  click=1
      clone object id,100
      t3=rnd(2)
      if t=0
      position object id,3.1,9.8,0
      endif
if t=1
      position object id,3.0,9.8,0
      endif
if t=2
      position object id,2.9,9.8,0
      endif
      color object id,RGB(255,0,0)
      phy make rigid body dynamic box id,nbounce
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id,1
      inc id
      time2=timer()
      endif
   `position object cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
  else
   pickdiffx#=pickdiffx#+mousemovey()
   pickdiffy#=pickdiffy#+mousemovex()
   grid=0
   if grid=1
    tpickdiffx#=int(pickdiffx#/22.5)*22.5
    tpickdiffy#=int(pickdiffy#/22.5)*22.5
   else
    tpickdiffx#=pickdiffx#
    tpickdiffy#=pickdiffy#
   endif
  ` rotate object cursorobj,wrapvalue(objx#-tpickdiffx#),wrapvalue(objy#-tpickdiffy#),objz#
  endif
 endif
endif
return

+ Code Snippet

Rem Project: phy_pennyfalls1
Rem Created: 11/06/2008 18:57:42

Rem ***** Main Source File ****
sync on
sync rate 60
set text size 32
print "1"
get image 1,0,0,text width("1"),text height("1")
cls
print "2"
get image 2,0,0,text width("2"),text height("2")
cls
print "3"
get image 3,0,0,text width("3"),text height("3")
cls
set text size 12

autocam off
RANDOMIZE timer()
`phy enable debug
phy start
position camera 0,0,2,-15
`phy set max angular velocity 0.0
phy set skin width 0.006
`phy set bounce threshold -9.0
coin_mass#=25.0
nbounce=1
phy make material nbounce, "no bounce"
phy set material restitution nbounce, 0.5
phy build material nbounce
hardwood=2
phy make material hardwood,"hardwood"
phy set material static friction hardwood,0.4
phy set material dynamic friction hardwood,0.4
phy set material restitution hardwood,0.2
phy build material hardwood
glass=3
phy make material glass,"glass"
phy set material static friction glass,0.1
phy set material dynamic friction glass,0.1
phy set material restitution glass,0.25
phy build material glass

rem base
make object box 1,100,1,100
position object 1,0,-1.8,0
color object 1,RGB(128,64,64)
phy make rigid body static box 1
rem coin
load object "coin2.x",100
hide object 100
`phy make rigid body dynamic mesh 100,"coin22.x"
`phy load rigid body dynamic mesh 100,"coin22.x"
rem in out box
make object box 2,10,1.1,10
color object 2,RGB(0,128,255)
phy make rigid body dynamic box 2,hardwood
phy set rigid body kinematic 2,1
rem bottom base
make object box 3,10,.6,10
position object 3,0,-.7,-1.0
rotate object 3,.9,0,0
color object 3,rgb(255,255,0)
phy make rigid body static box 3,hardwood
rem left side wall
make object box 4,.5,15,5
position object 4,-5,0,-2.5
phy make rigid body static box 4
rem right side wall
make object box 5,.5,15,5
position object 5,5,0,-2.5
phy make rigid body static box 5
rem back wall
make object box 6,10,11,1.6
position object 6,0,4.99,1.0
phy make rigid body static box 6,hardwood
phy set rigid body ccd 6, 5
rem front glass wall
make object box 7,10,9,.37
position object 7,0,6.10,-.1
ghost object on 7,1
phy make rigid body static box 7,glass
phy set rigid body ccd 7, 5
pin=8
setpin=8
rem make a pins
rem top row
`make object cube  pin,1
make object cylinder pin,1
position object pin,0,7,0
rotate object pin,90,0,22.5*7
scale object pin,8,100,8
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,1.5,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-1.5,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-3.0,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,3.0,7,0
phy make rigid body static box pin

inc pin,1
clone object pin,setpin
position object pin,-4.5,7,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.5,7,0
phy make rigid body static box pin


rem one row down
inc pin,1
clone object pin,setpin
position object pin,-.75,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,.75,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,2.5,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-2.5,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-4.0,5.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.0,5.5,0
phy make rigid body static box pin


rem two rows down
inc pin,1
clone object pin,setpin
position object pin,0,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,1.5,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-1.5,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-3.0,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,3,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.5,4,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-4.5,4,0
phy make rigid body static box pin

rem bottom row of pins
inc pin,1
clone object pin,setpin
position object pin,-.75,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,.75,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,2.5,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-2.5,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,-4.0,2.5,0
phy make rigid body static box pin
inc pin,1
clone object pin,setpin
position object pin,4.0,2.5,0
phy make rigid body static box pin

rem coin droppers
make object cube 50,1.2
texture object 50,1
position object 50,-3.0,10,0
make object cube 51,1.2
texture object 51,2
position object 51,0.0,10,0
make object cube 52,1.2
texture object 52,3
position object 52,3.0,10,0
rem 5.3
rem -0.05
id=101
do
text 0,0,str$(id-101)
rem  platform in
if z#<3.3 and done=0
   inc z#,.01
   hold=timer()
   else
   if z#>3.3 and timer()>hold+1000
      done=1
   endif
endif
rem out
if z#>2.0 and done
   dec z#,.01
   hold=timer()
   else
   if z#<2.0 and timer()>hold+1000
      done=0
   endif
endif
rem pick a box and make a coin and drop it.
gosub _drag_object
rem move the platform
phy set rigid body kinematic position 2, 0, 0, z#

rem guess
control camera using arrowkeys 0,.1,.1
phy update
sync
loop

_drag_object:
if mouseclick()=0
pickmode=0 : cursorobj=0 :click=0
rem return to dark state.
for k=50 to 52
set object specular k, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power k, 0
   set object ambient k,1
   next k
endif

mclick=mouseclick()
if mclick>0
 if pickmode=0
  cursorobj=pick object(mousex(),mousey(),50,52)
  if cursorobj=50
   set object specular 50, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 50, 255
   set object ambient 50,0
endif
  if cursorobj=51
   set object specular 51, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 51, 255
   set object ambient 51,0
endif
  if cursorobj=52
   set object specular 52, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 52, 255
   set object ambient 52,0
endif
  if cursorobj>0
   pickmode=mclick
   pickdistance#=get pick distance()
   pickfromx#=get pick vector x()
   pickfromy#=get pick vector y()
   pickfromz#=get pick vector z()
   if pickmode=1
    objx#=object position x(cursorobj)
    objy#=object position y(cursorobj)
    objz#=object position z(cursorobj)
   else
    objx#=object angle x(cursorobj)
    objy#=object angle y(cursorobj)
    objz#=object angle z(cursorobj)
    pickdiffx#=mousemovey() : pickdiffx#=0
    pickdiffy#=mousemovex() : pickdiffy#=0
   endif
  else
   highlightobj=0
  endif
 endif
 if pickmode>0
  if pickmode=1
   pick screen mousex(),mousey(),pickdistance#
   picktox#=get pick vector x()
   picktoy#=get pick vector y()
   picktoz#=get pick vector z()
   pickdiffx#=picktox#-pickfromx#
   pickdiffy#=picktoy#-pickfromy#
   pickdiffz#=picktoz#-pickfromz#
   grid=0
   if grid=1
    pickdiffx#=int(pickdiffx#/5)*5
    pickdiffy#=int(pickdiffy#/5)*5
    pickdiffz#=int(pickdiffz#/5)*5
   endif
   if cursorobj=50 and click<>1 and timer()>time+1500
   click=1
      clone object id,100
      t=rnd(2)
      if t=0
      position object id,-2.9.0,9.8,0
endif
 if t=1
      position object id,-3.0,9.8,0
endif
 if t=2
      position object id,-3.1,9.8,0
endif
      color object id,RGB(0,0,255)
      phy make rigid body dynamic box id,nbounce
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id, 1
      inc id
      time=timer()
      endif
  if cursorobj=51 and click<>1 and timer()>time1+1500
  click=1
      clone object id,100
      t2=rnd(2)
      if t=0
      position object id,0.1,9.8,0
      endif
if t=1
      position object id,0,9.8,0
      endif
if t=2
      position object id,-0.1,9.8,0
      endif
      color object id,RGB(0,255,0)
      phy make rigid body dynamic box id,nbounce
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id, 1
      inc id
      time1=timer()
      endif
  if cursorobj=52 and click<>1 and timer()>time2+1500
  click=1
      clone object id,100
      t3=rnd(2)
      if t=0
      position object id,3.1,9.8,0
      endif
if t=1
      position object id,3.0,9.8,0
      endif
if t=2
      position object id,2.9,9.8,0
      endif
      color object id,RGB(255,0,0)
      phy make rigid body dynamic box id,nbounce
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id,1
      inc id
      time2=timer()
      endif
   `position object cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
  else
   pickdiffx#=pickdiffx#+mousemovey()
   pickdiffy#=pickdiffy#+mousemovex()
   grid=0
   if grid=1
    tpickdiffx#=int(pickdiffx#/22.5)*22.5
    tpickdiffy#=int(pickdiffy#/22.5)*22.5
   else
    tpickdiffx#=pickdiffx#
    tpickdiffy#=pickdiffy#
   endif
  ` rotate object cursorobj,wrapvalue(objx#-tpickdiffx#),wrapvalue(objy#-tpickdiffy#),objz#
  endif
 endif
endif
return

Dark Physics makes any hot drink go cold.

Attachments

Login to view attachments

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 12th Jun 2008 18:05

Link

I get the following runtime error:

Actor must be (non-kinematic) dynamic!

LB

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Jun 2008 18:11

Link

Did it say which line it was moaning about.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 12th Jun 2008 18:38

Link

Works fine, but kind of lame when it goes so slow
And you dont need a coin object, just make a cylinder and scale it

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Jun 2008 18:43

Link

Cylinders are hollow you can see through them, that's why I have used a coin object.

As for slow must be which system its on.

At least it works on someone else system.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 12th Jun 2008 21:12

Link

Yeh, correct

I though set object cull id,0 would work, but that wont fix some places.

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 12th Jun 2008 21:17

Link

Would have been nice if there been a option to make ends capped or truly hollow.(try dropping a sphere through a cylinder.)

Also it would have been great if there was phy command for round objects.

I think mesh works but not yet found out which way the object has to be set.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 13th Jun 2008 16:52

Link

Quote: "Also it would have been great if there was phy command for round objects."

Uhh, sphere?

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 13th Jun 2008 19:34

Link

sphere would be great if you could flatten it, else it a disc object with the shape of a ball round it.

tried it with sphere, that just makes them fly all over the place and they don't fit the gap they have to fall down.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 13th Jun 2008 23:05

Link

HowDo you need to make your coin smaller, or change the size of your pins machine.

and for you coin collisions use

+ Code Snippet

phy make rigid body dynamic mesh obj,"phy_coin_01.x"
phy load rigid body dynamic mesh obj,"phy_coin_01.x"

this will make collision work a hell of a lot better, don`t save this as the same name x file as the one you loaded for your coin.

make your pins machine out of limbs and do the same thing.

and I posted to your post a on FPS challenge.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 13th Jun 2008 23:16 Edited at: 13th Jun 2008 23:27

Link

cheers sindore, tried saving the mesh but was doing it wrong loading each time, oops.

edit
over wrote the objects copy so had to reload the original thats when I find out that the face side are not flat(Grrr), there are now flat should work a bit better.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 14th Jun 2008 02:48

Link

HowDo can you edit your 1st code post so I can have a look at an update of it?

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 14th Jun 2008 10:39

Link

@sindore

first post update as requested, it seems to be working better now I got the coin shape right.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 14th Jun 2008 11:11 Edited at: 14th Jun 2008 11:30

Link

ok HowDo as you can see from the pic above, you need to make the pins rounder on there collisions.

and there needs to be more space for the coins to drop, could you add a randome value to coins when they hit the pins, just to keep them moving?

or maybe a bit of bounce to the coin when it hits a pins, if you do make changes can you update your 1st post again.

Edit

that pic was from the update.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 14th Jun 2008 11:21

Link

have you tried the update yet.

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: 14th Jun 2008 12:49

Link

found that if you are giving your objects a material, then phy set material friction combine ID Value#, will stop one from slow creeping off the other.

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: 15th Jun 2008 19:44 Edited at: 15th Jun 2008 19:45

Link

another update this one looks a bit more like it.

Rem Project: phy_pennyfalls1
Rem Created: 11/06/2008 18:57:42

Rem ***** Main Source File ****
sync on
sync rate 60
set text size 32
print "1"
get image 1,0,0,text width("1"),text height("1"),1
cls
print "2"
get image 2,0,0,text width("2"),text height("2"),1
cls
print "3"
get image 3,0,0,text width("3"),text height("3"),1
cls
set text size 12

autocam off
RANDOMIZE timer()
`phy enable debug
phy start
position camera 0,0,2,-15
`phy set max angular velocity 0.0
phy set skin width 0.006
`phy set bounce threshold -9.0

rem materials
coin_mass#=29.0
nbounce=1
phy make material nbounce, "no bounce"
phy set material restitution nbounce, 0.5
phy build material nbounce
hardwood=2
phy make material hardwood,"hardwood"
phy set material static friction hardwood,0.4
phy set material dynamic friction hardwood,0.4
phy set material restitution hardwood,0.2
phy set material friction combine hardwood,3
phy set material restitution combine hardwood,3
phy build material hardwood
glass=3
phy make material glass,"glass"
phy set material static friction glass,0.1
phy set material dynamic friction glass,0.1
phy set material restitution glass,0.25
phy build material glass
metal=4
phy make material metal,"metal"
phy set material static friction metal,0.8
`phy set material dynamic friction metal,0.5
phy set material restitution metal,0.25
phy set material dynamic friction v metal, 0.5
phy set material friction combine metal,1
phy set material restitution combine metal,1
phy build material metal
rem base
make object box 1,100,1,100
position object 1,0,-1.8,0
color object 1,RGB(128,64,64)
phy make rigid body static box 1
rem coin
load object "coin2.x",100
hide object 100
`phy make rigid body dynamic mesh 100,"coin22.x"
`phy load rigid body dynamic mesh 100,"coin22.x"
rem in out box
make object box 2,10,1.1,10
rotate object 2,0,180,0
color object 2,RGB(0,128,255)

phy make rigid body dynamic box 2,hardwood

phy set rigid body kinematic 2,1
rem bottom base
make object box 3,10,.6,10
position object 3,0,-.7,-1.0
rotate object 3,.9,180,0
color object 3,rgb(255,255,0)
phy make rigid body static box 3,hardwood
rem left side wall
make object box 4,.5,15,5
position object 4,-5,0,-2.5
phy make rigid body static box 4
rem right side wall
make object box 5,.5,15,5
position object 5,5,0,-2.5
phy make rigid body static box 5
rem back wall
make object box 6,10,11,1.6
position object 6,0,6,1.0
phy make rigid body static box 6,hardwood
phy set rigid body ccd 6, 5
rem front glass wall
make object box 7,10,9,.37
position object 7,0,6.10,-.1
ghost object on 7,1
phy make rigid body static box 7,glass
phy set rigid body ccd 7, 5
rem back side stopper
make object box 8,.5,5,5
position object 8,-5,10,-1.0
phy make rigid body static box 8
make object box 9,.5,5,5
position object 9,5,10,-1.0
phy make rigid body static box 9
rem lid
make object box 10,10,1,3
position object 10,0,11,0
phy make rigid body static box 10,hardwood
pin=20
setpin=20
rem make a pins
rem top row
`make object cube  pin,1
make object cylinder pin,1
position object pin,0,7,0
scale object pin,8,100,8
rotate object pin,90,0,22.5*7
`rotate object pin,45,0,22.5*7
`fix object pivot 8

phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin,1
position object pin,1.5,7,0
`rotate object pin,90,0,22.5*7
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-1.5,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-3.0,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,3.0,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

inc pin,1
clone object pin,setpin
position object pin,-4.5,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.5,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

rem one row down
inc pin,1
clone object pin,setpin
position object pin,-.75,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,.75,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,2.5,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-2.5,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-4.0,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.0,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

rem two rows down
inc pin,1
clone object pin,setpin
position object pin,0,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,1.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-1.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-3.0,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,3,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-4.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

rem bottom row of pins
inc pin,1
clone object pin,setpin
position object pin,-.75,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,.75,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,2.5,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-2.5,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-4.0,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.0,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

rem coin droppers
make object cube 50,1.2
texture object 50,1
position object 50,-3.0,10,0
make object cube 51,1.2
texture object 51,2
position object 51,0.0,10,0
make object cube 52,1.2
texture object 52,3
position object 52,3.0,10,0
rem 5.3
rem -0.05
id=101

do
text 0,0,str$(id-101)
rem  platform in
if z#<3.3 and done=0
   inc z#,.01
   hold=timer()
   else
   if z#>3.3 and timer()>hold+1000
      done=1
   endif
endif
rem out
if z#>2.0 and done
   dec z#,.01
   hold=timer()
   else
   if z#<2.0 and timer()>hold+1000
      done=0
   endif
endif
rem pick a box and make a coin and drop it.
gosub _drag_object
rem move the platform
phy set rigid body kinematic position 2, 0, 0, z#
`phy set rigid body kinematic rotation 8,0.0,0.0,wrapvalue((360)+r#)
for j = setpin to pin
d=rnd(1)
if d=0
   phy set rigid body kinematic rotation j,90.0,0.0,wrapvalue(390)-r#
else
   phy set rigid body kinematic rotation j,90.0,0.0,wrapvalue(390)+r#
endif
next j

`for j = setpin+7 to pin+7 step 7
`phy set rigid body kinematic rotation j,90.0,0.0,wrapvalue(390)+r#
`next j
inc r#,.1
if r#>1000 then r#=0
rem guess
control camera using arrowkeys 0,.1,.1
phy update
sync
loop

_drag_object:
if mouseclick()=0
pickmode=0 : cursorobj=0 :click=0
rem return to dark state.
for k=50 to 52
set object specular k, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power k, 0
   set object ambient k,1
   next k
endif
slv#=60000.0
mclick=mouseclick()
if mclick>0
 if pickmode=0
  cursorobj=pick object(mousex(),mousey(),50,52)
  if cursorobj=50
   set object specular 50, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 50, 255
   set object ambient 50,0
endif
  if cursorobj=51
   set object specular 51, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 51, 255
   set object ambient 51,0
endif
  if cursorobj=52
   set object specular 52, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 52, 255
   set object ambient 52,0
endif
  if cursorobj>0
   pickmode=mclick
   pickdistance#=get pick distance()
   pickfromx#=get pick vector x()
   pickfromy#=get pick vector y()
   pickfromz#=get pick vector z()
   if pickmode=1
    objx#=object position x(cursorobj)
    objy#=object position y(cursorobj)
    objz#=object position z(cursorobj)
   else
    objx#=object angle x(cursorobj)
    objy#=object angle y(cursorobj)
    objz#=object angle z(cursorobj)
    pickdiffx#=mousemovey() : pickdiffx#=0
    pickdiffy#=mousemovex() : pickdiffy#=0
   endif
  else
   highlightobj=0
  endif
 endif
 if pickmode>0
  if pickmode=1
   pick screen mousex(),mousey(),pickdistance#
   picktox#=get pick vector x()
   picktoy#=get pick vector y()
   picktoz#=get pick vector z()
   pickdiffx#=picktox#-pickfromx#
   pickdiffy#=picktoy#-pickfromy#
   pickdiffz#=picktoz#-pickfromz#
   grid=0
   if grid=1
    pickdiffx#=int(pickdiffx#/5)*5
    pickdiffy#=int(pickdiffy#/5)*5
    pickdiffz#=int(pickdiffz#/5)*5
   endif
   if cursorobj=50 and click<>1 and timer()>time+1500
   click=1
      clone object id,100
      t=rnd(2)
      if t=0
      position object id,-2.9.0,9.8,0
endif
 if t=1
      position object id,-3.0,9.8,0
endif
 if t=2
      position object id,-3.1,9.8,0
endif
      color object id,RGB(0,0,255)
      phy make rigid body dynamic box id,metal
      phy set rigid body mass id ,coin_mass#
phy set rigid body sleep linear velocity ID, slv#
phy set rigid body sleep angular velocity ID, slv#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id, 1
      inc id
      time=timer()
      endif
  if cursorobj=51 and click<>1 and timer()>time1+1500
  click=1
      clone object id,100
      t2=rnd(2)
      if t=0
      position object id,0.1,9.8,0
      endif
if t=1
      position object id,0,9.8,0
      endif
if t=2
      position object id,-0.1,9.8,0
      endif
      color object id,RGB(0,255,0)
      phy make rigid body dynamic box id,metal
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body sleep linear velocity ID, slv#
      phy set rigid body sleep angular velocity ID, slv#
      phy set rigid body ccd id, 1
      inc id
      time1=timer()
      endif
  if cursorobj=52 and click<>1 and timer()>time2+1500
  click=1
      clone object id,100
      t3=rnd(2)
      if t=0
      position object id,3.1,9.8,0
      endif
if t=1
      position object id,3.0,9.8,0
      endif
if t=2
      position object id,2.9,9.8,0
      endif
      color object id,RGB(255,0,0)
      phy make rigid body dynamic box id,metal
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body sleep linear velocity ID,slv#
      phy set rigid body sleep angular velocity ID, slv#
      phy set rigid body ccd id,1
      inc id
      time2=timer()
      endif
   `position object cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
  else
   pickdiffx#=pickdiffx#+mousemovey()
   pickdiffy#=pickdiffy#+mousemovex()
   grid=0
   if grid=1
    tpickdiffx#=int(pickdiffx#/22.5)*22.5
    tpickdiffy#=int(pickdiffy#/22.5)*22.5
   else
    tpickdiffx#=pickdiffx#
    tpickdiffy#=pickdiffy#
   endif
  ` rotate object cursorobj,wrapvalue(objx#-tpickdiffx#),wrapvalue(objy#-tpickdiffy#),objz#
  endif
 endif
endif
return

+ Code Snippet

Rem Project: phy_pennyfalls1
Rem Created: 11/06/2008 18:57:42

Rem ***** Main Source File ****
sync on
sync rate 60
set text size 32
print "1"
get image 1,0,0,text width("1"),text height("1"),1
cls
print "2"
get image 2,0,0,text width("2"),text height("2"),1
cls
print "3"
get image 3,0,0,text width("3"),text height("3"),1
cls
set text size 12

autocam off
RANDOMIZE timer()
`phy enable debug
phy start
position camera 0,0,2,-15
`phy set max angular velocity 0.0
phy set skin width 0.006
`phy set bounce threshold -9.0

rem materials
coin_mass#=29.0
nbounce=1
phy make material nbounce, "no bounce"
phy set material restitution nbounce, 0.5
phy build material nbounce
hardwood=2
phy make material hardwood,"hardwood"
phy set material static friction hardwood,0.4
phy set material dynamic friction hardwood,0.4
phy set material restitution hardwood,0.2
phy set material friction combine hardwood,3
phy set material restitution combine hardwood,3
phy build material hardwood
glass=3
phy make material glass,"glass"
phy set material static friction glass,0.1
phy set material dynamic friction glass,0.1
phy set material restitution glass,0.25
phy build material glass
metal=4
phy make material metal,"metal"
phy set material static friction metal,0.8
`phy set material dynamic friction metal,0.5
phy set material restitution metal,0.25
phy set material dynamic friction v metal, 0.5
phy set material friction combine metal,1
phy set material restitution combine metal,1
phy build material metal
rem base
make object box 1,100,1,100
position object 1,0,-1.8,0
color object 1,RGB(128,64,64)
phy make rigid body static box 1
rem coin
load object "coin2.x",100
hide object 100
`phy make rigid body dynamic mesh 100,"coin22.x"
`phy load rigid body dynamic mesh 100,"coin22.x"
rem in out box
make object box 2,10,1.1,10
rotate object 2,0,180,0
color object 2,RGB(0,128,255)

phy make rigid body dynamic box 2,hardwood

phy set rigid body kinematic 2,1
rem bottom base
make object box 3,10,.6,10
position object 3,0,-.7,-1.0
rotate object 3,.9,180,0
color object 3,rgb(255,255,0)
phy make rigid body static box 3,hardwood
rem left side wall
make object box 4,.5,15,5
position object 4,-5,0,-2.5
phy make rigid body static box 4
rem right side wall
make object box 5,.5,15,5
position object 5,5,0,-2.5
phy make rigid body static box 5
rem back wall
make object box 6,10,11,1.6
position object 6,0,6,1.0
phy make rigid body static box 6,hardwood
phy set rigid body ccd 6, 5
rem front glass wall
make object box 7,10,9,.37
position object 7,0,6.10,-.1
ghost object on 7,1
phy make rigid body static box 7,glass
phy set rigid body ccd 7, 5
rem back side stopper
make object box 8,.5,5,5
position object 8,-5,10,-1.0
phy make rigid body static box 8
make object box 9,.5,5,5
position object 9,5,10,-1.0
phy make rigid body static box 9
rem lid
make object box 10,10,1,3
position object 10,0,11,0
phy make rigid body static box 10,hardwood
pin=20
setpin=20
rem make a pins
rem top row
`make object cube  pin,1
make object cylinder pin,1
position object pin,0,7,0
scale object pin,8,100,8
rotate object pin,90,0,22.5*7
`rotate object pin,45,0,22.5*7
`fix object pivot 8

phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin,1
position object pin,1.5,7,0
`rotate object pin,90,0,22.5*7
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-1.5,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-3.0,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,3.0,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

inc pin,1
clone object pin,setpin
position object pin,-4.5,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.5,7,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1


rem one row down
inc pin,1
clone object pin,setpin
position object pin,-.75,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,.75,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,2.5,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-2.5,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-4.0,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.0,5.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

rem two rows down
inc pin,1
clone object pin,setpin
position object pin,0,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,1.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-1.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-3.0,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,3,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-4.5,4,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

rem bottom row of pins
inc pin,1
clone object pin,setpin
position object pin,-.75,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,.75,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,2.5,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-2.5,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,-4.0,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1
inc pin,1
clone object pin,setpin
position object pin,4.0,2.5,0
phy make rigid body dynamic box pin
phy set rigid body kinematic pin,1

rem coin droppers
make object cube 50,1.2
texture object 50,1
position object 50,-3.0,10,0
make object cube 51,1.2
texture object 51,2
position object 51,0.0,10,0
make object cube 52,1.2
texture object 52,3
position object 52,3.0,10,0
rem 5.3
rem -0.05
id=101

do
text 0,0,str$(id-101)
rem  platform in
if z#<3.3 and done=0
   inc z#,.01
   hold=timer()
   else
   if z#>3.3 and timer()>hold+1000
      done=1
   endif
endif
rem out
if z#>2.0 and done
   dec z#,.01
   hold=timer()
   else
   if z#<2.0 and timer()>hold+1000
      done=0
   endif
endif
rem pick a box and make a coin and drop it.
gosub _drag_object
rem move the platform
phy set rigid body kinematic position 2, 0, 0, z#
`phy set rigid body kinematic rotation 8,0.0,0.0,wrapvalue((360)+r#)
for j = setpin to pin
d=rnd(1)
if d=0
   phy set rigid body kinematic rotation j,90.0,0.0,wrapvalue(390)-r#
else
   phy set rigid body kinematic rotation j,90.0,0.0,wrapvalue(390)+r#
endif
next j

`for j = setpin+7 to pin+7 step 7
`phy set rigid body kinematic rotation j,90.0,0.0,wrapvalue(390)+r#
`next j
inc r#,.1
if r#>1000 then r#=0
rem guess
control camera using arrowkeys 0,.1,.1
phy update
sync
loop

_drag_object:
if mouseclick()=0
pickmode=0 : cursorobj=0 :click=0
rem return to dark state.
for k=50 to 52
set object specular k, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power k, 0
   set object ambient k,1
   next k
endif
slv#=60000.0
mclick=mouseclick()
if mclick>0
 if pickmode=0
  cursorobj=pick object(mousex(),mousey(),50,52)
  if cursorobj=50
   set object specular 50, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 50, 255
   set object ambient 50,0
endif
  if cursorobj=51
   set object specular 51, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 51, 255
   set object ambient 51,0
endif
  if cursorobj=52
   set object specular 52, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
   set object specular power 52, 255
   set object ambient 52,0
endif
  if cursorobj>0
   pickmode=mclick
   pickdistance#=get pick distance()
   pickfromx#=get pick vector x()
   pickfromy#=get pick vector y()
   pickfromz#=get pick vector z()
   if pickmode=1
    objx#=object position x(cursorobj)
    objy#=object position y(cursorobj)
    objz#=object position z(cursorobj)
   else
    objx#=object angle x(cursorobj)
    objy#=object angle y(cursorobj)
    objz#=object angle z(cursorobj)
    pickdiffx#=mousemovey() : pickdiffx#=0
    pickdiffy#=mousemovex() : pickdiffy#=0
   endif
  else
   highlightobj=0
  endif
 endif
 if pickmode>0
  if pickmode=1
   pick screen mousex(),mousey(),pickdistance#
   picktox#=get pick vector x()
   picktoy#=get pick vector y()
   picktoz#=get pick vector z()
   pickdiffx#=picktox#-pickfromx#
   pickdiffy#=picktoy#-pickfromy#
   pickdiffz#=picktoz#-pickfromz#
   grid=0
   if grid=1
    pickdiffx#=int(pickdiffx#/5)*5
    pickdiffy#=int(pickdiffy#/5)*5
    pickdiffz#=int(pickdiffz#/5)*5
   endif
   if cursorobj=50 and click<>1 and timer()>time+1500
   click=1
      clone object id,100
      t=rnd(2)
      if t=0
      position object id,-2.9.0,9.8,0
endif
 if t=1
      position object id,-3.0,9.8,0
endif
 if t=2
      position object id,-3.1,9.8,0
endif
      color object id,RGB(0,0,255)
      phy make rigid body dynamic box id,metal
      phy set rigid body mass id ,coin_mass#
phy set rigid body sleep linear velocity ID, slv#
phy set rigid body sleep angular velocity ID, slv#
      phy set rigid body linear damping ID, .5
      phy set rigid body ccd id, 1
      inc id
      time=timer()
      endif
  if cursorobj=51 and click<>1 and timer()>time1+1500
  click=1
      clone object id,100
      t2=rnd(2)
      if t=0
      position object id,0.1,9.8,0
      endif
if t=1
      position object id,0,9.8,0
      endif
if t=2
      position object id,-0.1,9.8,0
      endif
      color object id,RGB(0,255,0)
      phy make rigid body dynamic box id,metal
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body sleep linear velocity ID, slv#
      phy set rigid body sleep angular velocity ID, slv#
      phy set rigid body ccd id, 1
      inc id
      time1=timer()
      endif
  if cursorobj=52 and click<>1 and timer()>time2+1500
  click=1
      clone object id,100
      t3=rnd(2)
      if t=0
      position object id,3.1,9.8,0
      endif
if t=1
      position object id,3.0,9.8,0
      endif
if t=2
      position object id,2.9,9.8,0
      endif
      color object id,RGB(255,0,0)
      phy make rigid body dynamic box id,metal
      phy set rigid body mass id ,coin_mass#
      phy set rigid body linear damping ID, .5
      phy set rigid body sleep linear velocity ID,slv#
      phy set rigid body sleep angular velocity ID, slv#
      phy set rigid body ccd id,1
      inc id
      time2=timer()
      endif
   `position object cursorobj,objx#+pickdiffx#,objy#+pickdiffy#,objz#+pickdiffz#
  else
   pickdiffx#=pickdiffx#+mousemovey()
   pickdiffy#=pickdiffy#+mousemovex()
   grid=0
   if grid=1
    tpickdiffx#=int(pickdiffx#/22.5)*22.5
    tpickdiffy#=int(pickdiffy#/22.5)*22.5
   else
    tpickdiffx#=pickdiffx#
    tpickdiffy#=pickdiffy#
   endif
  ` rotate object cursorobj,wrapvalue(objx#-tpickdiffx#),wrapvalue(objy#-tpickdiffy#),objz#
  endif
 endif
endif
return

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 15th Jun 2008 21:10 Edited at: 15th Jun 2008 21:11

Link

yer that worked like a dream, nice work but you need to change the sides of your coin machine, it has gaps and coin keep escaping, maybe a bit less bounce on the coins, but keep some.

I think you need to add game logic to this game now.
like start with 25 coins to play with and the machine has 25 coins laying about inside it.
once all your coin are gone then its game over.
every time you knock a coin off it gets deleted and added to you coin total, but its up to you.

then all you got to do is texture it with some cool images, golden coins and flashy sounds.

some Fx would make this game look the biz.

I`ll help you with some basic textures if you wont.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Jun 2008 21:41

Link

sindore if you ever played one of these machines you would know that the ones that fall out the sides are the company's profit, only those that come out the front are your winnings.

plus you could be putting 70 to 100 coins before you win anything.

Think it will eventually have a memory system which will put all the coins back where they when you rerun it again after closing it.

The pretty looks will come later when it starts going a bit better.

its getting there...

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 15th Jun 2008 22:08 Edited at: 15th Jun 2008 22:12

Link

Quote: "sindore if you ever played one of these machines you would know that the ones that fall out the sides are the company's profit, only those that come out the front are your winnings."

most of the machines I`v played had company`s winning at the sides of the winnings plate.

so as the coins are pushed some drop down and are winnings, and some get pushed down the sides and are company`s takings.

but I did like it a lot, and I think this is one of the bast small games I ever played.

can`t wait till you have the game logic in place.

that just gave me an idea, could you not do levels of this?

I mean different types of slot games per level, and the amount of coins you get depends on what machine you playing.

Quote: "plus you could be putting 70 to 100 coins before you win anything."

thats why I said about having some coins laying around on the flat plate and moving plate.

Quote: "The pretty looks will come later when it starts going a bit better. "

sorry I`m just getting a bit enthusiastic.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Jun 2008 22:31

Link

One thing that is driving me nuts with the code, is to stop coins that are not doing anything from moving, they seem to have a mind of there own and crawl forward.

I put in something that says it will put items to sleep until moved, but if it is working it not doing it.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 16th Jun 2008 00:50 Edited at: 16th Jun 2008 01:15

Link

the problem is (sleep until moved) will do just that and if anything touches that object then it will wake up again.

so unless you put it back to bed, it will keep moving.

this guy fixed a problem smiler to this here is the link.
http://forum.thegamecreators.com/?m=forum_view&t=131461&b=30

maybe you should ask him, I would help but I don`t know how to fix something like this.

however I will look in to this.

edit

just had a idea could this movement be something to do with material of the object?

I just run the code again, and there is way to much bounce on the coins some times.

I think just having the pins make the coins bounce a little should work good.
make the coin material metal, and the pins rubber if you can.

if you change this code can you post it again.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / PHY Penny Fall demo [WIP]

Attachments