Strange results happen when you stretch spheres!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	------------------------------------------------------------------------
`	Lazer Beam                                  DarkForge Snippet (6/8/2000)
`	------------------------------------------------------------------------
`
`	Strange results happen when you stretch spheres!

sync rate 0
sync on
hide mouse

load image "lazerblast.bmp",1

x=1 : y=1 : z=50

for a=1 to 6
	make object sphere a,50
	texture object a,1
	scale object a,x,y,z
	position object a,6*a,20,-15
	point object a,20,30,20
next a

position camera 20,30,1

color backdrop rgb(0,0,0)
set ambient light 100

` Move!

step#=0.50

do

	for a=1 to 6
		move object a,step#
	next a

	z=object position z(1)
	if z=50 then Repoint()

	sync

loop

function Repoint

	for x=1 to 6
		position object x,x*6,20,-15
	next x

endfunction