Sorry your browser is not supported!

blur# = 8
Sync On : Sync Rate 0
BackDrop On
Color BackDrop 0
Color Ambient Light 0
`=====Make=Each=Box=Smaller======
Make Object Box 1,20,5,6
Color Object 1,RGB(255,0,0)
Make Object Box 2,19,4,4
Color Object 2,RGB(255,0,0)
Make Object Box 3,18,3,3
Color Object 3,RGB(255,0,0)



`fade them
Ghost Object On 2
Ghost Object On 3

Fade Object 3,50

accel# = 0.0
friction# = -0.1

keyr = 0
keyl = 0

Do


   If LeftKey() = 1 : If keyl = 0 : keyl = 1
   `** On KeyDown **

      friction# = 0.05

   `** End On Down **
   Else
   `** While KeyHeld **
   `** End Held **
   EndIf : Else : If keyl = 1 : keyl = 0
   `** On KeyUp **

      friction# = -0.01

   `** End On Up **
   EndIf : EndIf


   Inc accel#,friction#

   If friction# < 0.0 And accel# < 0.0 Then accel# = 0.0
`======Hides=Boxes=When=Not=Rotating=======
	if accel# = 0 
		hide object 2
		hide object 3
	endif
	if accel# <> 0
		show object 2
		show object 3
	endif
`===========================================
`=====same as before except with variable bluriness 
if upkey()=1 then blur# = blur# + .01
if downkey()=1 then blur# = blur# -.01 
set cursor 0,0
print "Bluriness: " ; blur#

  `rotate them
   Rotate Object 1,0,0,WrapValue(Object Angle Z(1) + accel#)
   Rotate Object 2,0,0,WrapValue(Object Angle Z(1) - accel# * blur#)
   Rotate Object 3,0,0,WrapValue(Object Angle Z(2) - accel# * blur#)


Sync
Loop

`==========From=Here=To.........==========
make matrix 1,10000,10000,10,10
randomize matrix 1,500
load bitmap "floor1.bmp" ,1
get image 1,0,0,128,128 : delete bitmap 1 
prepare matrix texture 1,1,1,1
make object cube 1,25
color object 1,rgb(255,0,0)
x# = 500
z# = 500
camheight = 100
sync on : sync rate 60 : autocam off : hide mouse
`===make blur objects
make object cube 10,24
color object 10,rgb(255,0,0)
ghost object on 10
make object cube 11,23
color object 11,rgb(255,0,0)
ghost object on 11


do
`gives the smooth curve effect
	ca#=wrapvalue(curveangle(angle#,ca#,20))
`camera xyz
	cx#=newxvalue(x#,wrapvalue(ca#+180),300)
	cz#=newzvalue(z#,wrapvalue(ca#+180),300)
	cy#=get ground height(1,cx#,cz#)+camheight
`place, rotate, and point camera
	position camera cx#,cy#,cz#
	yrotate camera wrapvalue(ca#)
	point camera x#,y#,z#
`set cam height
	if returnkey()=1 then camheight = camheight + 10
	if shiftkey()=1 then camheight = camheight -10

`walk forward and backward	
	if upkey()=1 
		if speed# < 15 then speed# = speed# + 1
	endif

	if downkey()=1 
		if speed# > -15 then speed# = speed# - 1
	endif
`turn left and right 
	if leftkey()=1 then angle#=wrapvalue(angle#-3.0)
	if rightkey()=1 then angle#=wrapvalue(angle#+3.0)

	y# = get ground height(1,x#,z#) + 12.5
	
	`==store blur xyz values
	oldblurangle# = blurangle#
	blurangle#=angle#
	oldbluranglex# = bluranglex#
	bluranglex#=object angle x(1)
	oldblurx# = blurx#
	oldblury# = blury#
	oldblurz# = blurz#
	blurx# = x#
	blury# = y#
	blurz# = z#	

	x#=newxvalue(x#,angle#,speed#) 
	z#=newzvalue(z#,angle#,speed#) 
	position object 1,x#,y#,z#
	yrotate object 1,angle#

`gravity
if speed# > 0 then speed# = speed# - .25
if speed# < 0 then speed# = speed# + .25

`spin cube
xrotate object 1,wrapvalue(object angle x(1) + 3)


`======Here=Deals=With=Walking=On=A=Matrix==========
`sorry it's messy, i patched together a few of my other programs :)
`======This=Part=Deals=With=The=Bluriness
position object 10,blurx#,blury#,blurz#
position object 11,oldblurx#,oldblury#,oldblurz#
yrotate object 10,blurangle#
yrotate object 11,oldblurangle#
xrotate object 10,bluranglex#
xrotate object 11,oldbluranglex#

sync
loop