Sorry your browser is not supported!

make object sphere 1,20:`the bullet
xa#=camera angle x()
ya#=camera angle y()
za#=camera angle z()

x#=0
y#=100
z#=50

position object 1,x#,y#,z#

if inkey$()="a" then za#=za#-1
if inkey$()="s" then za#=za#+1
if leftkey()=1 then ya#=ya#-1
if rightkey()=1 then ya#=ya#+1
if upkey()=1 then xa#=xa#-1
if downkey()=1 then xa#=xa#+1
xa#=wrapvalue(xa#)
ya#=wrapvalue(ya#)
za#=wrapvalue(za#)

rotate camera xa#,ya#,za#

if returnkey()=1
   do
      rotate object 1,xa#,ya#,za#
      move object 1,1
   loop
endif

sync rate 0
sync on

make object sphere 1,20:`the bullet
x#=0
y#=100
z#=50
position object 1,x#,y#,z#
point camera x#,y#,z#

xa#=camera angle x()
ya#=camera angle y()
za#=camera angle z()

do
	if inkey$()="a" then za#=za#-1
	if inkey$()="s" then za#=za#+1
	if leftkey()=1 then ya#=ya#-1
	if rightkey()=1 then ya#=ya#+1
	if upkey()=1 then xa#=xa#-1
	if downkey()=1 then xa#=xa#+1
	xa#=wrapvalue(xa#)
	ya#=wrapvalue(ya#)
	za#=wrapvalue(za#)
	
	rotate camera xa#,ya#,za#

	if returnkey()=1
   	speed#=0.1:`to increase the speed, increase this value
		do
	      rotate object 1,xa#,ya#,za#
  	 	   move object 1,speed#
			sync
	   loop
	endif
	set cursor 0,0
	print "Use a and s to zrotate camera"
	print "Use left and right to yrotate camera"
	print "Use up and down to xrotate camera"
	print
	print "When the camera is ready, press Return, and the bullet will start moving"

	sync
loop