Lol! Its not really that crazy. DBC only.
rem *******************************************
rem * 6 Lines of Crazyness by Hamish McHaggis *
rem *******************************************
rem * Arrow keys to move *
rem *******************************************
sync on:sync rate 0:backdrop on:make matrix 1,1000,1000,25,25:make object cube 1,100:position object 1,0,0,300:t#=200:do:h#=curvevalue(t#,h#,30):ax#=wrapvalue(ax#+1):ay#=wrapvalue(ay#+2):az#=wrapvalue(az#+0.3):rotate object 1,ax#,ay#,az#
if coltimer+1000<timer():coltimer=timer():color object 1,rgb(rnd(255),rnd(255),rnd(255)):endif:if h#>195:t#=-100:endif:if h#<-95:t#=200:endif:camA#=wrapvalue(camA#+2):if upkey()=1:cx#=cx#+sin(a#)*6:cz#=cz#+cos(a#)*6:endif:if downkey()=1
cx#=cx#-sin(a#)*6:cz#=cz#-cos(a#)*6:endif:if leftkey()=1:a#=wrapvalue(a#-3):endif:if rightkey()=1:a#=wrapvalue(a#+3):endif:text 20,20,str$(screen fps()):color backdrop rgb(255,0,0):position camera 0,h#,0:point camera 0,0,300
set camera view 0,0,screen width()/2,screen height()/2:color backdrop rgb(0,0,255):position camera sin(camA#)*300,200,cos(camA#)*400:point camera 0,0,300:set camera view screen width()/2,0,screen width(),screen height()/2
color backdrop rgb(0,255,0):position camera cx#,20,cz#:rotate camera 0,a#,0:set camera view 0,screen height()/2,screen width()/2,screen height():color backdrop rgb(255,255,0):position camera -150,100,450:point camera 0,0,300
set camera view screen width()/2,screen height()/2,screen width(),screen height():sync:loop
cuRant PRogekt: a three-de map editer
Why the hell'd you ask me for crying out loud!?!
Athelon XP 1400 Plus - Nvidia Geforce MX400 - 256mb RAM