a ball bouncing in a cube:
sync on
sync rate 0
randomize timer()
create bitmap 1,200,200
for y=1 to 200 step 10
for x=1 to 200 step 10
ink rgb(rnd(256),rnd(256),rnd(256)),0
box x,y,x+10,y+10
next x
next y
get image 1,1,1,200,200
delete bitmap 1
make object cube 1,1
make object sphere 2,.1
scale object 1,-600,-600,-600
scale object 2,200,200,200
texture object 1,1
position object 2,1,-1,.5
xvel#=0.05
yvel#=0.04
zvel#=0.03
do
position camera object position z(2),0,-1.85
point camera object position x(2),object position y(2),object position z(2)
if object position y(2)>2.9 or object position y(2)<-2.9
yvel#=yvel#-(yvel#*2)
endif
if object position x(2)<-2.9 or object position x(2)>2.9
xvel#=xvel#-(xvel#*2)
endif
if object position z(2)>2.9 or object position z(2)<-2.9
zvel#=zvel#-(zvel#*2)
endif
position object 2,object position x(2)+xvel#,object position y(2)+yvel#,object position z(2)+zvel#
sync
loop
sorry `bout the camera being rather keraaap but i believe u just wanna see the bouncy thing.
