I modified this code from the information file
run it hold down the space bar to fire the sphere's
What is causing the spheres to balance on top of each other?
phy start
sync on
sync rate 0
autocam off
MyBox = 10000
make object box MyBox, 10, 0.5, 10
position object MyBox, 0, -0.25, 0
phy make rigid body static box MyBox
position camera 0, 2, -4
levels = 10
ID = 1
for y = 0 to levels
for x = 0 to levels - y
make object cube ID, 0.2
color object ID, rgb ( rnd ( 255 ), rnd ( 255 ), rnd ( 255 ) )
position object ID, ( x + 0.5 * y ) * 0.21 - 1.5, y * 0.21 + 0.1, 0
phy make rigid body dynamic box ID
inc ID
next x
next y
do
control camera using arrowkeys 0,.1,.5
if spacekey ( )
make object sphere ID, 0.2
position object ID, 0,0,-1
phy make rigid body dynamic sphere ID
phy set rigid body linear velocity ID, 5,0,0
inc ID
endif
phy update
sync
loop
System
PIV 2.8 MZ 512 Mem
FX 5600 256 mem
