Sorry your browser is not supported!

Rem Initialize everything.
sync on:sync rate 100
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
make object cube 2,5
hide mouse
autocam off
position object 1,2500,10,2500
position object 2,2500,10,2600

Do
gosub _move_ball
gosub _enlarge_ball
Print "Object Position: X: "; oldposx#;", Y: ";oldposy#;", Z: ";oldposz#
Loop
_move_ball:
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#-3,pz1#,ay1#,5,5,1,1

Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
sync
return

_enlarge_ball:
Rem Get the ball's co-ordinates
oldposx# = object position x(1)
oldposy# = object position y(1)
oldposz# = object position z(1)

Rem If the ball goes here, a new ball is made
If object position x(1) = object position x(2) and object position y(1) = object position y(2) and object position z(1) = object position z(2)
   Delete object 1
   make object sphere 1,10
   position object 1,oldposx#,oldposy#,oldposz#
Endif
return

If object collision(1,2)
     scale object 1,1000,1000,1000
Endif
return

sync on:sync rate 100
make matrix 1,5000,5000,150,150
update matrix 1
make object sphere 1,0.5
`store original sphere size for scale calcs
orig_sphere_size# = .5
`save what size you want the sphere to be
new_sphere_size# = .5
make object cube 2,5
hide mouse
autocam off
position object 1,2500,10,2500
position object 2,2500,10,2600

Do
gosub _move_ball
gosub _enlarge_ball
Print "Object Position: X: "; oldposx#;", Y: ";oldposy#;", Z: ";oldposz#
Loop
_move_ball:
Rem Move the ball
if upkey()=1 then move object 1,0.5
if downkey()=1 then move object 1,-0.5
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0
Rem Sets variables so they're easier to use
px1#=object position x(1)
py1#=object position y(1)
pz1#=object position z(1)

ay1#=object angle y(1)

Rem Makes the camera follow the ball
set camera to follow px1#,py1#-3,pz1#,ay1#,5,5,1,1

sync
return

_enlarge_ball:
if object collision(1,2) = 1
	if scaled = 0
		scaled = 1
		`make the sphere's size variable double in size
		new_sphere_size# = new_sphere_size# * 2
		`calculate what scale is needed to make the sphere be this size
		`formula is size_wanted#*(100.0/object_original_Size#)
		new_scale# = new_sphere_size#*(100.0/orig_sphere_size#)
		scale object 1, new_scale#, new_scale#, new_scale#
	endif
else
	scaled = 0
Endif
return