Sorry your browser is not supported!

remstart
My entry for 20 line compo
Random 3D maze generator which you have to escape using cursor keys
Also utilising 2nd overhead camera map view and a basic scrolling sky-sphere!

Variables you can play with:
s = size of maze, i.e. 5 will generate a 5 by 5 maze. High numbers = more complex maze
w = corridor unit width
h = height of walls

I ran out of lines but with a few more lines it is easy to improve no-end:
1) Need to light sky-sphere correctly, currently too dark
2) Need to merge long walls into one plain as auto-collision gets stuck sometimes where walls join.
   It will also seriously cut number of 3d objects, improving frame rate drastically

Compilation tips:
Do not run using 'Fullscreen Exclusive Mode' as this is locked to monitor refresh rate (in my case 60fps!) and
makes everything very sluggish.
Best to click on settings button in editor, click on 'Pick' button next to 'Windowed' option and select a decent
resolution you are happy with, then select 'Windowed - Full Screen'.
remend
s=10 : w=100 : h=70 : sync on : hide mouse
randomize val(left$(get time$(),2)+mid$(get time$(),4)+mid$(get time$(),5)+right$(get time$(),2)) : x=3 : y=3 : dim d(4,2) : d(1,1)=-1
d(2,2)=1 : d(3,1)=1 : d(4,2)=-1 : dim maze(s*2+3,s*2+3) : for f=1 to s*2+3
maze(f,1)=3 : maze(f,s*2+3)=3 : maze(s*2+3,f)=3 : maze(1,f)=3 : next f
m: : for r=1 to 10 : r1=rnd(3)+1 : r2=rnd(3)+1 : t1=d(r1,1)
t2=d(r1,2) : d(r1,1)=d(r2,1) : d(r1,2)=d(r2,2) : d(r2,1)=t1 : d(r2,2)=t2
next r : for f=1 to 4 : if maze(x+(2*d(f,1)),y+(2*d(f,2)))=0 : maze(x,y)=1 : maze(x+d(f,1),y+d(f,2))=1
x=x+(2*d(f,1)) : y=y+(2*d(f,2)) : inc z : if z > zm : zm=z
x1=x : y1=y : endif : goto m : endif
next f : for f=1 to 4 : if maze(x+d(f,1),y+d(f,2))=1 : maze(x,y)=2 : maze(x+d(f,1),y+d(f,2))=2
x=x+(2*d(f,1)) : y=y+(2*d(f,2)) : dec z : goto m : endif
next f : maze(2,3)=3 : load image "brick.jpg",1 : load image "floor.jpg",2 : load image "clouds.jpg",3
o=9 : make object sphere 3,-3000 : texture object 3,3 : scale object texture 3,5,5
make object plain 1,(s+2)*w,(s+2)*w : texture object 1,2 : scale object texture 1,s+2,s+2 : xrotate object 1,90 : position object 1,(s+2)*w/2,0,(s+2)*w/2
make object sphere 2,w/4,10,10 : color object 2,rgb(0,255,0) : position object 2,y1*w/2,0,(s-((x1-1)/2)+1)*w+(w/2) : for f=1 to s+1 : for g=1 to s
if maze(f*2,g*2+1)=0 then inc o : make object plain o,w,h : position object o,g*w+(w/2),h/2,(s-f+2)*w : texture object o,1
if maze(g*2+1,f*2)=0 then inc o : make object plain o,w,h : position object o,f*w,h/2,(s-g+1)*w+(w/2) : texture object o,1 : yrotate object o,90
next g : next f : automatic camera collision 0,5,0 : position camera y1*w/2,h/2,(s-((x1-1)/2)+1)*w+(w/2) : make camera 2
set camera view 2,0,0,200,200 : position camera 2,camera position x(),h*10,camera position z() : point camera 2,camera position x(),0,camera position z() : do : control camera using arrowkeys 0,1.5,1.5
position camera 2,camera position x(),h*6,camera position z() : position object 3,camera position x(),camera position y(),camera position z() : yrotate object 3,object angle y(3)+0.01 : sync : loop

remstart
My entry for 20 line compo
Random 3D maze generator V2 which you have to escape
Also utilising 2nd overhead camera map view and scrolling sky-sphere!

Keys:
Cursor Keys = Move

Works in DBPro with patch #2, haven't tested in plain DB

Variables you can play with:
s = size of maze, the higher the number = more complex maze
w = corridor unit width
h = height of walls

V2 mods:
1) maze generator code streamlined and easier to understand
2) New sky sphere, looks better and now lit correctly
   (didn't know about 'set object light' command!)
3) Overhead map view now rotates with player
4) Now shows FPS

Compilation tips:
Do not run using 'Fullscreen Exclusive Mode' as this is locked to
monitor refresh rate and makes everything very sluggish.
Best to click on settings button in editor, click on
'Pick' button next to 'Windowed' option and select a decent
resolution you are happy with, then select 'Windowed - Full Screen'.
remend

s=10 : w=40 : h=25 : sync on : hide mouse
t=s*2+3 : randomize val(left$(get time$(),2)+mid$(get time$(),4)+mid$(get time$(),5)+right$(get time$(),2)) : x=2*t+3 : dim d(4) : d(1)=1
d(2)=-1 : d(3)=t : d(4)=-t : dim m(t*t) : for f=1 to t
m(f)=3 : m(f*t-t+1)=3 : m(f*t)=3 : m(t*t-f+1)=3 : next f
m: : for r=1 to 10 : r1=rnd(3)+1 : r2=rnd(3)+1 : p=d(r1)
d(r1)=d(r2) : d(r2)=p : next r : for f=1 to 4 : if m(2*d(f)+x)=0
m(x)=1 : m(x+d(f))=1 : x=x+(2*d(f)) : inc z : if z > zm
zm=z : x1=x : endif : goto m : endif
next f : for f=1 to 4 : if m(x+d(f))=1 : m(x)=2 : m(x+d(f))=2
x=x+(2*d(f)) : dec z : goto m : endif : next f
m(t+3)=3 : load image "brick.jpg",1 : load image "floor.jpg",2 : load image "clouds.jpg",3 : o=9
make object sphere 3,-3000,20,20 : texture object 3,3 : scale object texture 3,2,2 : set object light 3,0 : make object plain 1,(s+10)*w,(s+10)*w
texture object 1,2 : scale object texture 1,s+10,s+10 : xrotate object 1,90 : position object 1,(s+2)*w/2,0,(s+2)*w/2 : make object sphere 2,w/4,10,10
color object 2,rgb(0,255,0) : position object 2,(x1-((((x1+t-1)/t)-1)*t))*w/2,0,((((x1+t-1)/t)-1)/2)*w+(w/2) : for f=1 to s+1 : for g=1 to s : if m(f*2*t-t+(g*2)+1)=0
inc o : make object plain o,w,h : position object o,g*w+(w/2),h/2,f*w : texture object o,1 : endif
if m(g*2*t+(f*2))=0 : inc o : make object plain o,w,h : position object o,f*w,h/2,g*w+(w/2) : texture object o,1
yrotate object o,90 : endif : next g : next f : automatic camera collision 0,5,0
position camera (x1-((((x1+t-1)/t)-1)*t))*w/2,h/2,((((x1+t-1)/t)-1)/2)*w+(w/2) : make camera 2 : set camera view 2,0,0,200,200 : xrotate camera 2,90 : do
control camera using arrowkeys 0,0.6,1.5 : position camera 2,camera position x(),h*6,camera position z() : yrotate camera 2,camera angle y(0) : position object 3,camera position x(),camera position y(),camera position z() : yrotate object 3,object angle y(3)+0.01
text 0,200,"FPS:"+str$(screen fps()) : circle 100,100,5 : turn object right 2,1 : sync : loop

do
print "To bad I dont have DBPRO :(  .................... "
loop