penny shoot demo (no media) - GameCreators Forum

Author

Message

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 13th Jan 2009 20:41

Link

Something very simple, yet satisfying.
Blackpool Pier Style Penny Shoot.

No media, here's the code

`      ++++++++++++++  blackpool pier style penny shoot  +++++++++++++++
sync on : randomize timer()
`                     coin image
cls rgb(155,155,166)
for x=1 to 256 step 14
ink rgb(33+rnd(20),33+rnd(20),43+rnd(20)),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
get image 1,0,0,256,256
`                     wood image
create bitmap 1,256,256
cls rgb(155,65,0)
for x=1 to 256 step 14
ink rgb(111+rnd(20),45+rnd(20),0),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
ink rgb(111,45,0),0
box 0,0,256,5 : box 0,0,5,256 : box 251,0,256,256 : box 0,251,256,256
blur bitmap 1,6
get image 2,0,0,256,256
center text 128,20,"Oldfashioned"
center text 128,50,"Blackpool Style"
center text 128,80,"Penny Shute"
center text 128,140,"Best Machine on the Pier"
center text 128,180,"aim and click"
get image 4,0,0,256,256
delete bitmap 1
`                     metal image
create bitmap 1,256,256
cls rgb(155,155,166)
for x=1 to 256 step 10
ink rgb(33+rnd(20),33+rnd(20),43+rnd(20)),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
blur bitmap 1,8
get image 3,0,0,256,256
delete bitmap 1
`
`
phy start
`
`                              materials
phy make material 1,"coin"
phy set material restitution 1, 0.1
phy build material 1
phy make material 2,"shute"
phy set material restitution 2, 0.1
phy build material 2
phy make material 3,"table"
phy set material static friction 3,0.1
phy set material dynamic friction 3,0.1
phy set material restitution 3,0.0
phy build material 3
`
`                               table plate 1
make object box 1,100,10,70
texture object 1,2
phy make rigid body dynamic box 1,3
phy set rigid body kinematic 1, 1
`
`                               table plate 2
make object box 2,100,10,50
texture object 2,2
phy make rigid body dynamic box 2,3
phy set rigid body kinematic 2, 1
`
`                               table plate 3
make object box 3,100,10,60
texture object 3,2
phy make rigid body dynamic box 3,3
phy set rigid body kinematic 3, 1
`
`                               table side
make object box 4,5,34,150
position object 4,-50,0,0
texture object 4,2
phy make rigid body static box 4,3
`
`                               table side
make object box 5,5,34,150
position object 5,50,0,0
texture object 5,2
phy make rigid body static box 5,3
`
`                               drop box
make object box 6,10,10,10
make object cylinder 2001,4
scale object 2001,225,600,230
make mesh from object 2001,2001
if file exist("cymesh.x")=1 then delete file "cymesh.x"
save mesh "cymesh.x",2001
delete object 2001
load object "cymesh.x",2001
position object 2001,0,0,0
perform csg difference 6,2001
delete object 2001
if file exist("cymesh.x")=1 then delete file "cymesh.x"
set object 6,1,0,0
scale object 6,1200,100,320
texture object 6,3
position object 6,0,-32,66
phy make rigid body static mesh 6
make object box 7,120,1,30
position object 7,0,-38,66
texture object 7,3
phy make rigid body static box 7
`
`                           head peice
make object box 8,100,70,10
position object 8,0,40,-65
texture object 8,4
`
`                          back white
make object sphere 9,360
position object 9,0,0,0
color object 9,rgb(255,255,255)
set object 9,1,0,0
`
`                               coin shute
make object box 13,2,1,70
make mesh from object 13,13
scale limb 13,0,100,20,100
add limb 13,1,13
offset limb 13,1,-1,3,0
rotate limb 13,1,0,0,90
scale limb 13,1,200,20,100
add limb 13,2,13
offset limb 13,2,1,3,0
rotate limb 13,2,0,0,90
scale limb 13,2,200,20,100
ghost object on 13
set object 13,0,1,1
phy make rigid body dynamic mesh 13,2
phy set rigid body kinematic 13,1
`
`                               200 coins
for t = 101 to 300
make object sphere t,8
scale object t, 7,100,100
position object t,0,40,70
texture object t,1
hide object t
next t
`
`                              lights and camera
set ambient light 14
color light 0,0
make light 1 : make light 2 : make light 3 : set spot light 3,99,99 : position light 3,0,60,100 : point light 3,0,-15,0
position camera 0,70,150 : point camera 0,-10,0
`
`
do
`
`                           plate movement control
if back=0 then inc z#,0.05
if z#>20 then back=1
if back=1 then dec z#,0.05
if z#<0 then back=0
phy set rigid body kinematic position 1, 0, -5, 10-z#
phy set rigid body kinematic position 2, 0, 4, -50+(z#/1.2)
phy set rigid body kinematic position 3, 0, -14, 30+(z#/1.5)
`
`                           coin shoot control
ya=ya+mousemovex()
if ya<-30 then ya=-30
if ya>30 then ya=30
phy set rigid body kinematic rotation 13,340,ya,0
phy set rigid body kinematic position 13,0,30,70
`
`                            turn on the next coin
if mouseclick()=1
n=n+1
show object 100+n
yrotate object 100+n,ya
phy make rigid body dynamic box 100+n,1
phy set rigid body mass 100+n,200
wait 200
endif
`
`                            set gravity  (heavy to speed things up)
phy set gravity 0,-250,0
`
`                            collision stuff      (makes new coin rigid body without a material) ....  (stops that annoying sliding)
hit1 = phy get collision data ( )
c1 = phy get collision object a ( )
c2 = phy get collision object b ( )
if c1>100 and c2>1 and c2<6
phy delete rigid body 100+n
phy make rigid body dynamic box 100+n
endif
`
`                            control lights
z=z#
position light 1,-500+(z#*40),0,-265 : color light 1,rgb(255,0,z*5)
position light 2,500-(z#*40),0,-265 : color light 2,rgb(z*5,255,0)
`
`
phy update
sync
loop

+ Code Snippet

`      ++++++++++++++  blackpool pier style penny shoot  +++++++++++++++
sync on : randomize timer()
`                     coin image
cls rgb(155,155,166)
for x=1 to 256 step 14
ink rgb(33+rnd(20),33+rnd(20),43+rnd(20)),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
get image 1,0,0,256,256
`                     wood image
create bitmap 1,256,256
cls rgb(155,65,0)
for x=1 to 256 step 14
ink rgb(111+rnd(20),45+rnd(20),0),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
ink rgb(111,45,0),0
box 0,0,256,5 : box 0,0,5,256 : box 251,0,256,256 : box 0,251,256,256
blur bitmap 1,6
get image 2,0,0,256,256
center text 128,20,"Oldfashioned"
center text 128,50,"Blackpool Style"
center text 128,80,"Penny Shute"
center text 128,140,"Best Machine on the Pier"
center text 128,180,"aim and click"
get image 4,0,0,256,256
delete bitmap 1
`                     metal image
create bitmap 1,256,256
cls rgb(155,155,166)
for x=1 to 256 step 10
ink rgb(33+rnd(20),33+rnd(20),43+rnd(20)),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
blur bitmap 1,8
get image 3,0,0,256,256
delete bitmap 1
`
`
phy start
`
`                              materials
phy make material 1,"coin"
phy set material restitution 1, 0.1
phy build material 1
phy make material 2,"shute"
phy set material restitution 2, 0.1
phy build material 2
phy make material 3,"table"
phy set material static friction 3,0.1
phy set material dynamic friction 3,0.1
phy set material restitution 3,0.0
phy build material 3
`
`                               table plate 1
make object box 1,100,10,70
texture object 1,2
phy make rigid body dynamic box 1,3
phy set rigid body kinematic 1, 1
`
`                               table plate 2
make object box 2,100,10,50
texture object 2,2
phy make rigid body dynamic box 2,3
phy set rigid body kinematic 2, 1
`
`                               table plate 3
make object box 3,100,10,60
texture object 3,2
phy make rigid body dynamic box 3,3
phy set rigid body kinematic 3, 1
`
`                               table side
make object box 4,5,34,150
position object 4,-50,0,0
texture object 4,2
phy make rigid body static box 4,3
`
`                               table side
make object box 5,5,34,150
position object 5,50,0,0
texture object 5,2
phy make rigid body static box 5,3
`
`                               drop box
make object box 6,10,10,10
make object cylinder 2001,4
scale object 2001,225,600,230
make mesh from object 2001,2001
if file exist("cymesh.x")=1 then delete file "cymesh.x"
save mesh "cymesh.x",2001
delete object 2001
load object "cymesh.x",2001
position object 2001,0,0,0
perform csg difference 6,2001
delete object 2001
if file exist("cymesh.x")=1 then delete file "cymesh.x"
set object 6,1,0,0
scale object 6,1200,100,320
texture object 6,3
position object 6,0,-32,66
phy make rigid body static mesh 6
make object box 7,120,1,30
position object 7,0,-38,66
texture object 7,3
phy make rigid body static box 7
`
`                           head peice
make object box 8,100,70,10
position object 8,0,40,-65
texture object 8,4
`
`                          back white
make object sphere 9,360
position object 9,0,0,0
color object 9,rgb(255,255,255)
set object 9,1,0,0
`
`                               coin shute
make object box 13,2,1,70
make mesh from object 13,13
scale limb 13,0,100,20,100
add limb 13,1,13
offset limb 13,1,-1,3,0
rotate limb 13,1,0,0,90
scale limb 13,1,200,20,100
add limb 13,2,13
offset limb 13,2,1,3,0
rotate limb 13,2,0,0,90
scale limb 13,2,200,20,100
ghost object on 13
set object 13,0,1,1
phy make rigid body dynamic mesh 13,2
phy set rigid body kinematic 13,1
`
`                               200 coins
for t = 101 to 300
make object sphere t,8
scale object t, 7,100,100
position object t,0,40,70
texture object t,1
hide object t
next t
`
`                              lights and camera
set ambient light 14
color light 0,0
make light 1 : make light 2 : make light 3 : set spot light 3,99,99 : position light 3,0,60,100 : point light 3,0,-15,0
position camera 0,70,150 : point camera 0,-10,0
`
`
do
`
`                           plate movement control
if back=0 then inc z#,0.05
if z#>20 then back=1
if back=1 then dec z#,0.05
if z#<0 then back=0
phy set rigid body kinematic position 1, 0, -5, 10-z#
phy set rigid body kinematic position 2, 0, 4, -50+(z#/1.2)
phy set rigid body kinematic position 3, 0, -14, 30+(z#/1.5)
`
`                           coin shoot control
ya=ya+mousemovex()
if ya<-30 then ya=-30
if ya>30 then ya=30
phy set rigid body kinematic rotation 13,340,ya,0
phy set rigid body kinematic position 13,0,30,70
`
`                            turn on the next coin
if mouseclick()=1
n=n+1
show object 100+n
yrotate object 100+n,ya
phy make rigid body dynamic box 100+n,1
phy set rigid body mass 100+n,200
wait 200
endif
`
`                            set gravity  (heavy to speed things up)
phy set gravity 0,-250,0
`
`                            collision stuff      (makes new coin rigid body without a material) ....  (stops that annoying sliding)
hit1 = phy get collision data ( )
c1 = phy get collision object a ( )
c2 = phy get collision object b ( )
if c1>100 and c2>1 and c2<6
phy delete rigid body 100+n
phy make rigid body dynamic box 100+n
endif
`
`                            control lights
z=z#
position light 1,-500+(z#*40),0,-265 : color light 1,rgb(255,0,z*5)
position light 2,500-(z#*40),0,-265 : color light 2,rgb(z*5,255,0)
`
`
phy update
sync
loop

miki.

in the end

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 14th Jan 2009 11:20

Link

Nice one miki, see you found away of making coins, could not get that bit to work on my version of penny falls, looks very good.

plus your coin cute system is cool and has shown a possible way of making the game where the table with black and white stripes on the belt with an amount you could win rolls by could be made.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 14th Jan 2009 15:57

Link

cheers HowDo,

your penny fall script was a great help....

and yes ... i've allready started the belt version.

in the end

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 14th Jan 2009 16:49

Link

I'll look out for the belt one.

Another one I been trying to do is the one with the ball bearing that spins around a spirl the drops into a lose or win hole. I think you know the one I mean.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 15th Jan 2009 01:56 Edited at: 15th Jan 2009 01:58

Link

is that a spiral structure or a bevel?

sync on : randomize timer()
`
`                                floor texture
create bitmap 1,256,256
cls rgb(155,111,0)
for x=1 to 256 step 14
ink rgb(111+rnd(20),77+rnd(20),0),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
ink rgb(100,75,0),0
box 0,0,256,5 : box 0,0,5,256 : box 251,0,256,256 : box 0,251,256,256
blur bitmap 1,8
get image 1,0,0,256,256
delete bitmap 1
`
`
phy start
`
`                                materials
phy make material 1,"slip"
phy set material restitution 1, 0.0
phy build material 1
`
`                               load floor object   ...   (if it exists)
if file exist("floor.dbo")=1
load object "floor.dbo",1
texture object 1,1
phy make rigid body static mesh 1,1
else
`
`                                floor
make object box 1,100,50,300
position object 1,0,-25,0
color object 1,rgb(155,199,199)
`
`                                cone for bevel
make object cone 2,35
position object 2,0,0,100
scale object 2,400,200,400
xrotate object 2,180
perform csg difference 1,2
delete object 2
`
`                               cylinder for hole   ...   (cylinder works better as a mesh)
make object cylinder 2,4
scale object 2,100,500,100
make mesh from object 2,2
if file exist("cymesh.x")=1 then delete file "cymesh.x"
save mesh "cymesh.x",2
delete object 2
load object "cymesh.x",2
position object 2,0,0,100
perform csg difference 1,2
delete object 2
if file exist("cymesh.x")=1 then delete file "cymesh.x"
`
`                                cut floor at an angle
make object box 2,70,10,280
xrotate object 2,2
perform csg difference 1,2
delete object 2
save object "floor.dbo",1
delete object 1
load object "floor.dbo",1
texture object 1,1
phy make rigid body static mesh 1,1
endif
`
`                              dowdies
for t = 101 to 200
make object sphere t,3
hide object t
next t
c=700
`
`                              lights and camera
set ambient light 44
color light 0,0
make light 1 : position light 1,100,90,100 : color light 1,rgb(144,44,177)
make light 2 : position light 2,-100,90,-100 : color light 2,rgb(44,144,177)
position camera 0,200,-100 : xrotate camera 60
`
`
do
`
`                              release a dowdy
c=c+1
if c>700
n=n+1
position object 100+n,-20+rnd(40),50,-100
show object 100+n
phy make rigid body dynamic sphere 100+n,2
phy set rigid body mass 100+n,300
phy set rigid body linear velocity 100+n,0,0,15+rnd(8)
c=0
if n>199 then end
endif
`
`
phy update
sync
loop

+ Code Snippet

sync on : randomize timer()
`
`                                floor texture
create bitmap 1,256,256
cls rgb(155,111,0)
for x=1 to 256 step 14
ink rgb(111+rnd(20),77+rnd(20),0),0
line x,0,256,256-x
line x+4,256,0,256-x-4
line x,256,256,x
line 252-x,0,0,252-x
next x
ink rgb(100,75,0),0
box 0,0,256,5 : box 0,0,5,256 : box 251,0,256,256 : box 0,251,256,256
blur bitmap 1,8
get image 1,0,0,256,256
delete bitmap 1
`
`
phy start
`
`                                materials
phy make material 1,"slip"
phy set material restitution 1, 0.0
phy build material 1
`
`                               load floor object   ...   (if it exists)
if file exist("floor.dbo")=1
load object "floor.dbo",1
texture object 1,1
phy make rigid body static mesh 1,1
else
`
`                                floor
make object box 1,100,50,300
position object 1,0,-25,0
color object 1,rgb(155,199,199)
`
`                                cone for bevel
make object cone 2,35
position object 2,0,0,100
scale object 2,400,200,400
xrotate object 2,180
perform csg difference 1,2
delete object 2
`
`                               cylinder for hole   ...   (cylinder works better as a mesh)
make object cylinder 2,4
scale object 2,100,500,100
make mesh from object 2,2
if file exist("cymesh.x")=1 then delete file "cymesh.x"
save mesh "cymesh.x",2
delete object 2
load object "cymesh.x",2
position object 2,0,0,100
perform csg difference 1,2
delete object 2
if file exist("cymesh.x")=1 then delete file "cymesh.x"
`
`                                cut floor at an angle
make object box 2,70,10,280
xrotate object 2,2
perform csg difference 1,2
delete object 2
save object "floor.dbo",1
delete object 1
load object "floor.dbo",1
texture object 1,1
phy make rigid body static mesh 1,1
endif
`
`                              dowdies
for t = 101 to 200
make object sphere t,3
hide object t
next t
c=700
`
`                              lights and camera
set ambient light 44
color light 0,0
make light 1 : position light 1,100,90,100 : color light 1,rgb(144,44,177)
make light 2 : position light 2,-100,90,-100 : color light 2,rgb(44,144,177)
position camera 0,200,-100 : xrotate camera 60
`
`
do
`
`                              release a dowdy
c=c+1
if c>700
n=n+1
position object 100+n,-20+rnd(40),50,-100
show object 100+n
phy make rigid body dynamic sphere 100+n,2
phy set rigid body mass 100+n,300
phy set rigid body linear velocity 100+n,0,0,15+rnd(8)
c=0
if n>199 then end
endif
`
`
phy update
sync
loop

post a screenshot.

oh yeah! multiple holes in one spiral?

in the end

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Jan 2009 10:40

Link

one of these.
http://images.google.co.uk/imgres?imgurl=http://www.esnarf.com/4283.jpg&imgrefurl=http://www.esnarf.com/whizball.htm&usg=__eByNeuUqIA3TMIz-Y_5vTrry2PY=&h=631&w=400&sz=55&hl=en&start=103&um=1&tbnid=NMo82xuvXWRP2M:&tbnh=137&tbnw=87&prev=/images%3Fq%3Dspiral%2Bball%2Bgame%26start%3D90%26ndsp%3D18%26um%3D1%26hl%3Den%26safe%3Doff%26rlz%3D1T4SUNA_enGB287GB287%26sa%3DN

Like what you have done, gets you think what if. cheers.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 15th Jan 2009 20:52

Link

an inspiring machine.

would you attempt to build the machine in script, or go straight for the 3dsmax....?

and you'd need some clever thinking to simulate the shoot, to build in some skill factor that satisfies the player, makes him feel clever.

in the end

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Jan 2009 21:07

Link

Have been trying to do it both ways no joy yet, but thats the fun of it, one day I find away or see something that can make it.

Making a 3d spiral is the hard part after that it would simple (I think).

Thanks for your interest

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 15th Jan 2009 21:22

Link

frankley, it's interesting.
those old machines provide a challenging and entertaining arena for dark physics.

and there are thousands of them.

quite inspiring.

in the end

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Jan 2009 21:35

Link

this work well in the search engine - Edwardian Penny Arcade

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 15th Jan 2009 23:38

Link

i've started putting together this model on max..(pity, it would be cool to do it all in script).

i'll keep you posted on how it works.

in the end

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 15th Jan 2009 23:49

Link

you sure know your way around max that better then I have done in AC3D or Turespace, just will PhysX see or not.

on some of the ones I have seen there was not so many turns in the spiral like three then the ball would drop into a win hole or missed them all and fall into lost hole.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

ICERGB

22

Years of Service

User Offline

Joined: 8th Nov 2002

Location: Canada

Posted: 3rd Feb 2009 20:00

Link

All the coins are standing vertical for me and won't lay flat at all.

Was this from an update?

Back to top

Profile PM Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 3rd Feb 2009 20:20

Link

wonder what happen there, have you checked your code with what you had at the start of the thread.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

ICERGB

22

Years of Service

User Offline

Joined: 8th Nov 2002

Location: Canada

Posted: 3rd Feb 2009 23:20 Edited at: 3rd Feb 2009 23:41

Link

Yes, its the code from the start.

Just got DarkPhysics a few weeks ago.

It says I have this version in the help files.

Quote: "At this current time the available drivers are version 2.5.0 and after installation of Dark Physics"

And thats the runtime for AGEIA I am using.

I am also using DBPro 1.071

on Vista32

Note: that the center shooter is not moving with the mouse either

Back to top

Profile PM Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 4th Feb 2009 00:51

Link

update your physX drivers from the nvidia drivers site

here's a link, its in the bottom half.

http://www.nvidia.com/Download/index.aspx?lang=en-us

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

ICERGB

22

Years of Service

User Offline

Joined: 8th Nov 2002

Location: Canada

Posted: 4th Feb 2009 06:35 Edited at: 4th Feb 2009 08:37

Link

OK installed version 9.09.0121

Still doesn't work properly.

can you confirm for me that this code is working for you?
(just hit the right key to start the rotation)??

looks like kinematic rotation is not working...
are you using the latest dbpro version???

+ Code Snippet

`Roll by Eliot Cowley
`Objects: 2
`Images: 0
`Sounds: 0
`Music: 0
`Lights: 1
ink RGB(255,255,255),RGB(0,0,0)

`Setup
Sync on
Sync rate 60
Autocam off
Backdrop on
Phy start
Make light 1
Position light 1,200,100,100
Set directional light 1,-5,-5,-5
Position camera 0,50,-100
Point camera 0,0,0
Phy set gravity 0.0,-11.0,0.0

`Make ground
Make object box 1,100,1,100
Position object 1,0,0,0
Phy make rigid body static box 1
Color object 1,RGB(rnd(255),rnd(255),rnd(255))


`Make sphere
Make object cube 2,20
Position object 2,0,50,0
Color object 2,RGB(rnd(255),rnd(255),rnd(255))
Phy make rigid body dynamic sphere 2
phy set rigid body kinematic 2, 1


aaa=1
Do

`mytext$="     aax#="+str$(aax#)+"     aay#="+str$(aay#)+"     aaz#="+str$(aaz#)
`center text screen width()/2,5,mytext$

if rightkey()=1 
aaa=aaa+1
phy set rigid body kinematic rotation  2,aaa,aaa,aaa
endif
	
	Phy update
	Sync
Loop

Back to top

Profile PM Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 4th Feb 2009 11:28 Edited at: 4th Feb 2009 11:31

Link

ICERGB try this, was this what you where hoping would happen.
make a new theard if you find you are getting any more problems that's title well, as were all learning do this.

+ Code Snippet

`Roll by Eliot Cowley
`Objects: 2
`Images: 0
`Sounds: 0
`Music: 0
`Lights: 1
ink RGB(255,255,255),RGB(0,0,0)

`Setup
Sync on
Sync rate 60
Autocam off
Backdrop on
Phy start
Make light 1
Position light 1,200,100,100
Set directional light 1,-5,-5,-5
Position camera 0,50,-100
Point camera 0,0,0
Phy set gravity 0.0,-11.0,0.0

`Make ground
Make object box 1,100,1,100
Position object 1,0,0,0
Phy make rigid body static box 1
Color object 1,RGB(rnd(255),rnd(255),rnd(255))


`Make sphere
Make object cube 2,20
Position object 2,0,50,0
Color object 2,RGB(rnd(255),rnd(255),rnd(255))
Phy make rigid body dynamic sphere 2
`phy set rigid body kinematic 2, 1


aaa=1
Do

`mytext$="     aax#="+str$(aax#)+"     aay#="+str$(aay#)+"     aaz#="+str$(aaz#)
`center text screen width()/2,5,mytext$

if rightkey()=1
aaa=aaa+1
`phy set rigid body kinematic rotation  2,aaa,aaa,aaa
PHY SET RIGID BODY ANGULAR VELOCITY 2, aaa, aaa, aaa

endif

    Phy update
    Sync
Loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

ICERGB

22

Years of Service

User Offline

Joined: 8th Nov 2002

Location: Canada

Posted: 4th Feb 2009 12:15 Edited at: 4th Feb 2009 12:17

Link

I want the box to remain in the sky and rotate on kinematic commands.

(it is very good it is not falling and it is not supposed to fall)

I sent this to the Bug forum.

Unless you can tell me the kinematic rotate is working for DBpro 1.0.71

Please tell me:
what version of DBPro are you using:
AND
Does this code work for you when you press the right arrow key.

+ Code Snippet

`Roll by Eliot Cowley
`Objects: 2
`Images: 0
`Sounds: 0
`Music: 0
`Lights: 1
ink RGB(255,255,255),RGB(0,0,0)

`Setup
Sync on
Sync rate 60
Autocam off
Backdrop on
Phy start
Make light 1
Position light 1,200,100,100
Set directional light 1,-5,-5,-5
Position camera 0,50,-100
Point camera 0,0,0
Phy set gravity 0.0,-11.0,0.0

`Make ground
Make object box 1,100,1,100
Position object 1,0,0,0
Phy make rigid body static box 1
Color object 1,RGB(rnd(255),rnd(255),rnd(255))


`Make sphere
Make object cube 2,20
Position object 2,0,50,0
Color object 2,RGB(rnd(255),rnd(255),rnd(255))
Phy make rigid body dynamic sphere 2
phy set rigid body kinematic 2, 1


aaa=1
Do

`mytext$="     aax#="+str$(aax#)+"     aay#="+str$(aay#)+"     aaz#="+str$(aaz#)
`center text screen width()/2,5,mytext$

if rightkey()=1 
aaa=aaa+1
phy set rigid body kinematic rotation  2,aaa,aaa,aaa
endif
	
	Phy update
	Sync
Loop

I can't look at your Penny Arcade Code because it is not working for me. And this is not a good thing considering I bought Dark Physx Last Week.

Back to top

Profile PM Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 4th Feb 2009 12:23

Link

Yes it works for me, now have you updated DarkphysX to 1.05 yet?

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

ICERGB

22

Years of Service

User Offline

Joined: 8th Nov 2002

Location: Canada

Posted: 4th Feb 2009 12:45 Edited at: 4th Feb 2009 12:56

Link

Thanks HowDo

Sorry for messing up your Penny Arcade post

works good now...

I wasn't aware of the update since I installed the first time last week.

Thought maybe it would take care of itself.

Sorry

Back to top

Profile PM Website

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / penny shoot demo (no media)