3D Random Maze - GameCreators Forum

Author

Message

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 22nd Aug 2006 23:52 Edited at: 23rd Aug 2006 04:12

Link

I have written random maze generating code in DBP before. This one is still based off the same algorithm. I have even made it 3d before (using a matrix). This time I changed my code to make a 3d maze object.

Slayer 93 wrote the create_vertex function which I use. There was no reason to change his function, so I just used it exactly how he wrote it (except I compressed it). Anything larger than 65*65 doesn't work because of the limit which "set object normals" has. I can't imagine anyone making it through a 65*65 3d maze anyway.

10 (really long) lines-

sync on : sync rate 0 : hide mouse : randomize timer() : disable escapekey : set text opaque : autocam off : set camera range 0.01,1000 : color backdrop rgb(0,200,220) : while xtiles/2=xtiles/2.0 or xtiles<5 : print "Value must be odd and atleast 5" : sync : input "X tiles ",xtiles : if escapekey()=1 : end : endif : endwhile : while ytiles/2=ytiles/2.0 or ytiles<5 : print "Value must be odd and atleast 5" : sync : input "Y tiles ",ytiles : if escapekey()=1 : end : endif : endwhile
cls : counter=2*xtiles+2*ytiles-2 : dim maze(xtiles,ytiles) as boolean : for x=1 to xtiles : maze(x,1)=1 : maze(x,ytiles)=1 : next x : for y=1 to ytiles : maze(1,y)=1 : maze(xtiles,y)=1 : next y : max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2 : xs#=screen width()/(xtiles+0.0) : ys#=screen height()/(ytiles+0.0) : while counter<max and escapekey()=0 : x=rnd(xtiles-2)+1 : y=rnd(ytiles-2)+1 : if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1 : else : maze(x,y)=1 : inc counter : endif : if spacekey()=1 : text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done" : sync
endif : endwhile : cls : make memblock 1,12+(36*((max-1)*30-24)) : write memblock dword 1,0,338 : write memblock dword 1,4,36 : write memblock dword 1,8,(max-1)*30-24 : width=xtiles*10 : height=ytiles*10 : dh=10 : for x=1 to xtiles : for y=1 to ytiles : if maze(x,y)=1 : create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : inc vertex,30 : endif : next y : next x : create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0) : create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0) : create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles) : make mesh from memblock 1,1 : make object 1,1,0 : delete memblock 1 : delete mesh 1 : set object cull 1,1 : set object normals 1 : width=256 : height=256 : make memblock 1,width*height*4+12 : write memblock dword 1,0,width : write memblock dword 1,4,height : write memblock dword 1,8,32 : for x=0 to width-1 : for y=0 to height-1 : write memblock dword 1,(y*width+x)*4+12,rgb(0,x,255-y) : next y : next x : make image from memblock 1,1 : delete memblock 1 : texture object 1,1 : make object sphere 2,10 : position object 2,10*xtiles-15,dh/2,10*ytiles-15 : color object 2,rgb(255,255,0)
position camera 15,5,15 : speed#=0.2 : make object cube 3,1 : hide object 3 : while escapekey()=0 : sync : px#=camera position x() : py#=camera position y() : pz#=camera position z() : x#=camera angle x() : xrotate camera 0 : move camera speed#*(upkey()-downkey()) : yrotate camera camera angle y()+90 : move camera speed#*(rightkey()-leftkey()) : rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0 : if camera angle x()>90 : xrotate camera 90 : endif :if camera angle x()<-90 : xrotate camera -90 : endif : if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0 : position camera px#,py#,pz# : endif : position object 3,camera position x(),camera position y(),camera position z()
if object collision (2,3)=1 : delete objects 1,3 : delete image 1 : t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!" : while escapekey()=0 : sync : center text screen width()/2,(screen height()-text height(t$))/2,t$ : endwhile : end : endif : endwhile : end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx# : write memblock float memnum,v*36+16,vposy# : write memblock float memnum,v*36+20,vposz# : write memblock dword memnum,v*36+36,color : write memblock float memnum,v*36+40,u# : write memblock float memnum,v*36+44,v#
endfunction

+ Code Snippet

sync on : sync rate 0 : hide mouse : randomize timer() : disable escapekey : set text opaque : autocam off : set camera range 0.01,1000 : color backdrop rgb(0,200,220) : while xtiles/2=xtiles/2.0 or xtiles<5 : print "Value must be odd and atleast 5" : sync : input "X tiles ",xtiles : if escapekey()=1 : end : endif : endwhile : while ytiles/2=ytiles/2.0 or ytiles<5 : print "Value must be odd and atleast 5" : sync : input "Y tiles ",ytiles : if escapekey()=1 : end : endif : endwhile
cls : counter=2*xtiles+2*ytiles-2 : dim maze(xtiles,ytiles) as boolean : for x=1 to xtiles : maze(x,1)=1 : maze(x,ytiles)=1 : next x : for y=1 to ytiles : maze(1,y)=1 : maze(xtiles,y)=1 : next y : max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2 : xs#=screen width()/(xtiles+0.0) : ys#=screen height()/(ytiles+0.0) : while counter<max and escapekey()=0 : x=rnd(xtiles-2)+1 : y=rnd(ytiles-2)+1 : if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1 : else : maze(x,y)=1 : inc counter : endif : if spacekey()=1 : text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done" : sync
endif : endwhile : cls : make memblock 1,12+(36*((max-1)*30-24)) : write memblock dword 1,0,338 : write memblock dword 1,4,36 : write memblock dword 1,8,(max-1)*30-24 : width=xtiles*10 : height=ytiles*10 : dh=10 : for x=1 to xtiles : for y=1 to ytiles : if maze(x,y)=1 : create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : inc vertex,30 : endif : next y : next x : create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0) : create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0) : create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles) : make mesh from memblock 1,1 : make object 1,1,0 : delete memblock 1 : delete mesh 1 : set object cull 1,1 : set object normals 1 : width=256 : height=256 : make memblock 1,width*height*4+12 : write memblock dword 1,0,width : write memblock dword 1,4,height : write memblock dword 1,8,32 : for x=0 to width-1 : for y=0 to height-1 : write memblock dword 1,(y*width+x)*4+12,rgb(0,x,255-y) : next y : next x : make image from memblock 1,1 : delete memblock 1 : texture object 1,1 : make object sphere 2,10 : position object 2,10*xtiles-15,dh/2,10*ytiles-15 : color object 2,rgb(255,255,0)
position camera 15,5,15 : speed#=0.2 : make object cube 3,1 : hide object 3 : while escapekey()=0 : sync : px#=camera position x() : py#=camera position y() : pz#=camera position z() : x#=camera angle x() : xrotate camera 0 : move camera speed#*(upkey()-downkey()) : yrotate camera camera angle y()+90 : move camera speed#*(rightkey()-leftkey()) : rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0 : if camera angle x()>90 : xrotate camera 90 : endif :if camera angle x()<-90 : xrotate camera -90 : endif : if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0 : position camera px#,py#,pz# : endif : position object 3,camera position x(),camera position y(),camera position z()
if object collision (2,3)=1 : delete objects 1,3 : delete image 1 : t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!" : while escapekey()=0 : sync : center text screen width()/2,(screen height()-text height(t$))/2,t$ : endwhile : end : endif : endwhile : end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx# : write memblock float memnum,v*36+16,vposy# : write memblock float memnum,v*36+20,vposz# : write memblock dword memnum,v*36+36,color : write memblock float memnum,v*36+40,u# : write memblock float memnum,v*36+44,v#
endfunction

Uncompressed-

sync on
sync rate 0
hide mouse
randomize timer()
disable escapekey
set text opaque
autocam off
set camera range 0.01,1000
color backdrop rgb(0,200,220)
while xtiles/2=xtiles/2.0 or xtiles<5
   print "Value must be odd and atleast 5"
   sync
   input "X tiles ",xtiles
   if escapekey()=1
      end
   endif
endwhile
while ytiles/2=ytiles/2.0 or ytiles<5
   print "Value must be odd and atleast 5"
   sync
   input "Y tiles ",ytiles
   if escapekey()=1
      end
   endif
endwhile
cls
counter=2*xtiles+2*ytiles-2
dim maze(xtiles,ytiles) as boolean
for x=1 to xtiles
   maze(x,1)=1
   maze(x,ytiles)=1
next x
for y=1 to ytiles
   maze(1,y)=1
   maze(xtiles,y)=1
next y
max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2
xs#=screen width()/(xtiles+0.0)
ys#=screen height()/(ytiles+0.0)
while counter<max and escapekey()=0
   x=rnd(xtiles-2)+1
   y=rnd(ytiles-2)+1
   if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1
   else
      maze(x,y)=1
      inc counter
   endif
   if spacekey()=1
      text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done"
      sync
   endif
endwhile
cls
make memblock 1,12+(36*((max-1)*30-24))
write memblock dword 1,0,338
write memblock dword 1,4,36
write memblock dword 1,8,(max-1)*30-24
width=xtiles*10
height=ytiles*10
dh=10
for x=1 to xtiles
   for y=1 to ytiles
      if maze(x,y)=1
         create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         inc vertex,30
      endif
   next y
next x
create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0)
create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles)
make mesh from memblock 1,1
make object 1,1,0
delete memblock 1
delete mesh 1
set object cull 1,1
set object normals 1
width=256
height=256
make memblock 1,width*height*4+12
write memblock dword 1,0,width
write memblock dword 1,4,height
write memblock dword 1,8,32
for x=0 to width-1
   for y=0 to height-1
      write memblock dword 1,(y*width+x)*4+12,rgb(0,x,255-y)
   next y
next x
make image from memblock 1,1
delete memblock 1
texture object 1,1
make object sphere 2,10
position object 2,10*xtiles-15,dh/2,10*ytiles-15
color object 2,rgb(255,255,0)
position camera 15,5,15
speed#=0.2
make object cube 3,1
hide object 3
while escapekey()=0
   sync
   px#=camera position x()
   py#=camera position y()
   pz#=camera position z()
   x#=camera angle x()
   xrotate camera 0
   move camera speed#*(upkey()-downkey())
   yrotate camera camera angle y()+90
   move camera speed#*(rightkey()-leftkey())
   rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0
   if camera angle x()>90
      xrotate camera 90
   endif
   if camera angle x()<-90
      xrotate camera -90
   endif
   if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0
      position camera px#,py#,pz#
   endif
   position object 3,camera position x(),camera position y(),camera position z()
   if object collision (2,3)=1
      delete objects 1,3
      delete image 1
      t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!"
      while escapekey()=0
         sync
         center text screen width()/2,(screen height()-text height(t$))/2,t$
      endwhile
      end
   endif
endwhile
end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx#
write memblock float memnum,v*36+16,vposy#
write memblock float memnum,v*36+20,vposz#
write memblock dword memnum,v*36+36,color
write memblock float memnum,v*36+40,u#
write memblock float memnum,v*36+44,v#
endfunction

+ Code Snippet

sync on
sync rate 0
hide mouse
randomize timer()
disable escapekey
set text opaque
autocam off
set camera range 0.01,1000
color backdrop rgb(0,200,220)
while xtiles/2=xtiles/2.0 or xtiles<5
   print "Value must be odd and atleast 5"
   sync
   input "X tiles ",xtiles
   if escapekey()=1
      end
   endif
endwhile
while ytiles/2=ytiles/2.0 or ytiles<5
   print "Value must be odd and atleast 5"
   sync
   input "Y tiles ",ytiles
   if escapekey()=1
      end
   endif
endwhile
cls
counter=2*xtiles+2*ytiles-2
dim maze(xtiles,ytiles) as boolean
for x=1 to xtiles
   maze(x,1)=1
   maze(x,ytiles)=1
next x
for y=1 to ytiles
   maze(1,y)=1
   maze(xtiles,y)=1
next y
max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2
xs#=screen width()/(xtiles+0.0)
ys#=screen height()/(ytiles+0.0)
while counter<max and escapekey()=0
   x=rnd(xtiles-2)+1
   y=rnd(ytiles-2)+1
   if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1
   else
      maze(x,y)=1
      inc counter
   endif
   if spacekey()=1
      text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done"
      sync
   endif
endwhile
cls
make memblock 1,12+(36*((max-1)*30-24))
write memblock dword 1,0,338
write memblock dword 1,4,36
write memblock dword 1,8,(max-1)*30-24
width=xtiles*10
height=ytiles*10
dh=10
for x=1 to xtiles
   for y=1 to ytiles
      if maze(x,y)=1
         create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         inc vertex,30
      endif
   next y
next x
create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0)
create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles)
make mesh from memblock 1,1
make object 1,1,0
delete memblock 1
delete mesh 1
set object cull 1,1
set object normals 1
width=256
height=256
make memblock 1,width*height*4+12
write memblock dword 1,0,width
write memblock dword 1,4,height
write memblock dword 1,8,32
for x=0 to width-1
   for y=0 to height-1
      write memblock dword 1,(y*width+x)*4+12,rgb(0,x,255-y)
   next y
next x
make image from memblock 1,1
delete memblock 1
texture object 1,1
make object sphere 2,10
position object 2,10*xtiles-15,dh/2,10*ytiles-15
color object 2,rgb(255,255,0)
position camera 15,5,15
speed#=0.2
make object cube 3,1
hide object 3
while escapekey()=0
   sync
   px#=camera position x()
   py#=camera position y()
   pz#=camera position z()
   x#=camera angle x()
   xrotate camera 0
   move camera speed#*(upkey()-downkey())
   yrotate camera camera angle y()+90
   move camera speed#*(rightkey()-leftkey())
   rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0
   if camera angle x()>90
      xrotate camera 90
   endif
   if camera angle x()<-90
      xrotate camera -90
   endif
   if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0
      position camera px#,py#,pz#
   endif
   position object 3,camera position x(),camera position y(),camera position z()
   if object collision (2,3)=1
      delete objects 1,3
      delete image 1
      t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!"
      while escapekey()=0
         sync
         center text screen width()/2,(screen height()-text height(t$))/2,t$
      endwhile
      end
   endif
endwhile
end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx#
write memblock float memnum,v*36+16,vposy#
write memblock float memnum,v*36+20,vposz#
write memblock dword memnum,v*36+36,color
write memblock float memnum,v*36+40,u#
write memblock float memnum,v*36+44,v#
endfunction

Edit: Forgot to mention, you are trying to get to the yellow sphere.

Back to top

Profile PM Website

sadsack

20

Years of Service

User Offline

Joined: 27th Nov 2003

Location: here

Posted: 23rd Aug 2006 02:35

Link

very nice, that could be come a game when it grows up.
renny

Back to top

Profile PM Email Website

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 23rd Aug 2006 04:23

Link

Thanks.

Please post the dimensions of the largest maze you beat.
25*25 is it for me.

Back to top

Profile PM Website

flashing snall

18

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Boston

Posted: 23rd Aug 2006 06:35

Link

i tried 25x2, but got hopelssy lost

great code. definty could be one of those never ending games where you have a time limit and point, and mmunchies!

Your signature has been erased by a mod

Back to top

Profile PM Email Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 23rd Aug 2006 17:07 Edited at: 23rd Aug 2006 17:08

Link

AMAZING CODE!

I managed to beat a 27x27 maze!

But... I made a minimap

Back to top

Profile PM Email

Xenocythe

18

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 23rd Aug 2006 17:34

Link

Nice work. Didn't take a overhaul look at your code, but I saw how you created vertexes and then made a emsh out of it- very clever. But I ask, how did the mesh genereate in faces? Are the vertexes connected?

Back to top

Profile PM Email Website

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 23rd Aug 2006 19:39 Edited at: 23rd Aug 2006 19:43

Link

The verticies are automatically connected as triangles. That means the first 3 verticies are connected to form a triangle, and then the next 3 verticies are connected to form a triangle, and so on. The triangles are not connected to each other, they are just positioned next to each other. All the square faces you see in the maze are actually 2 triangles.

@Sixty Squares- A minimap is cheating, but good cheating, so congradulations as you have the highest score so far.

Back to top

Profile PM Website

Xenocythe

18

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 23rd Aug 2006 20:28

Link

Heh, I see.

Back to top

Profile PM Email Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 24th Aug 2006 00:34

Link

Quote: " A minimap is cheating"

Yeah, I know

Back to top

Profile PM Email

Hobgoblin Lord

18

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 24th Aug 2006 20:26

Link

I beat a 41x41 using the right hand rule. larger then that and sometimes it seems it does not make a complete maze and leaves some walls blank.

http://www.cafepress.com/blackarrowgames
Check out my great stuff here

Back to top

Profile PM Email Website

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 24th Aug 2006 22:31 Edited at: 24th Aug 2006 22:31

Link

Well done on beating a 41x41!
I just beat a 43x43 maze by trying the right hand rule.

I don't know what you mean when you say it doesn't complete a maze and leaves walls blank. I have never seen this.

Back to top

Profile PM Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 24th Aug 2006 22:43

Link

Right Hand Rule? What's that?

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 25th Aug 2006 00:05 Edited at: 25th Aug 2006 02:37

Link

You only use one hand. You only use the arrowkeys, never turning the camera, so it is impossible to get turned around.

Whether you use your left or right hand doensn't actually matter, that's not the point.

Here is a new challenge-
Balls of Fiery Doom
Try to reach the end of the maze now. It forces you to look where you are going, because those fires burn.

If you click on a sphere it will be force up and away from you. But beware, they slide quite a bit, and it could backfire.

My record: 15x15

Uncompressed code-

sync on
sync rate 0
hide mouse
randomize timer()
disable escapekey
set text opaque
autocam off
set camera range 0.01,1000
color backdrop 0
while xtiles/2=xtiles/2.0 or xtiles<5
   print "Value must be odd and atleast 5"
   sync
   input "X tiles ",xtiles
   if escapekey()=1
      end
   endif
endwhile
while ytiles/2=ytiles/2.0 or ytiles<5
   print "Value must be odd and atleast 5"
   sync
   input "Y tiles ",ytiles
   if escapekey()=1
      end
   endif
endwhile
cls
counter=2*xtiles+2*ytiles-2
dim maze(xtiles,ytiles) as boolean
for x=1 to xtiles
   maze(x,1)=1
   maze(x,ytiles)=1
next x
for y=1 to ytiles
   maze(1,y)=1
   maze(xtiles,y)=1
next y
max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2
xs#=screen width()/(xtiles+0.0)
ys#=screen height()/(ytiles+0.0)
while counter<max and escapekey()=0
   x=rnd(xtiles-2)+1
   y=rnd(ytiles-2)+1
   if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1
   else
      maze(x,y)=1
      inc counter
   endif
   if spacekey()=1
      text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done"
      sync
   endif
endwhile
cls
make memblock 1,12+(36*((max-1)*30-24))
write memblock dword 1,0,338
write memblock dword 1,4,36
write memblock dword 1,8,(max-1)*30-24
width=xtiles*10
height=ytiles*10
dh=10
for x=1 to xtiles
   for y=1 to ytiles
      if maze(x,y)=1
         create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         inc vertex,30
      endif
   next y
next x
create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0)
create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles)
make mesh from memblock 1,1
ode start : ode set world gravity 0,-20,0 : ode set world step 0.05
ode set world erp (0.2)*2.5 : ode set world cfm (10^-5)*2.5
convert mesh to vertexdata 1
make object 1,1,0
ode create static triangle mesh 1
delete memblock 1
delete mesh 1
set object cull 1,1
set object normals 1
width1=256
height1=256
make memblock 1,width1*height1*4+12
write memblock dword 1,0,width1
write memblock dword 1,4,height1
write memblock dword 1,8,32
for x=0 to width1-1
   for y=0 to height1-1
      write memblock dword 1,(y*width1+x)*4+12,rgb(0,rnd(255),0)
   next y
next x
make image from memblock 1,1
width2=64
height2=64
make memblock 2,width2*height2*4+12
write memblock dword 2,0,width2
write memblock dword 2,4,height2
write memblock dword 2,8,32
for x=0 to width2-1
   for y=0 to height2-1
      write memblock dword 2,(y*width2+x)*4+12,rgb(0,0,0)
   next y
next x
make image from memblock 2,2
texture object 1,1
make object sphere 2,10
position object 2,10*xtiles-15,dh/2,10*ytiles-15
color object 2,rgb(255,255,0)
position camera 15,5,15
speed#=0.2
make object cube 3,1
hide object 3
make object sphere 4,5
texture object 4,2
set object light 4,0
odeobjs=100
for obj=5 to odeobjs
   instance object obj,4
   position object obj,rnd(width),25,rnd(height)
   ode create dynamic sphere obj
next obj
position object 4,rnd(width),25,rnd(height)
ode create dynamic sphere 4
health=100
while escapekey()=0
   sync
   text 0,0,"Health: "+str$(health)
   px#=camera position x()
   py#=camera position y()
   pz#=camera position z()
   x#=camera angle x()
   xrotate camera 0
   move camera speed#*(upkey()-downkey())
   yrotate camera camera angle y()+90
   move camera speed#*(rightkey()-leftkey())
   rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0
   if camera angle x()>90
      xrotate camera 90
   endif
   if camera angle x()<-90
      xrotate camera -90
   endif
   if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0
      position camera px#,py#,pz#
   endif
   position object 3,camera position x(),camera position y(),camera position z()
   if object collision (2,3)=1
      delete objects 1,odeobjs
      t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!"
      while escapekey()=0
         sync
         center text screen width()/2,(screen height()-text height(t$))/2,t$
      endwhile
      end
   endif
   for i=1 to 4
      ode update
   next i
   for x=0 to width1-1
      for y=0 to height1-1
         nx=x+rnd(2)-1
         if nx>width1-1
            nx=width1-1
         endif
         if nx<0
            nx=0
         endif
         ny=y+rnd(2)-1
         if ny>height1-1
            ny=height1-1
         endif
         if ny<0
            ny=0
         endif
         write memblock byte 1,(y*width1+x)*4+13,memblock byte(1,(ny*width1+nx)*4+13)
      next y
   next x
   make image from memblock 1,1
   for x=0 to width2-1
      r=rnd(255)
      write memblock dword 2,((height2-1)*width2+x)*4+12,rgb(r,rnd(r/2),0)
      for y=0 to height2-2
         write memblock dword 2,(y*width2+x)*4+12,rgb(memblock byte(2,((y+1)*width2+x)*4+14)*.95,memblock byte(2,((y+1)*width2+x)*4+13)*.95,0)
      next y
   next x
   make image from memblock 2,2
   box screen width()/2-20,screen height()/2-1,screen width()/2+20,screen height()/2+1
   box screen width()/2-1,screen height()/2-20,screen width()/2+1,screen height()/2+20
   if mouseclick()=1
      p=pick object(screen width()/2,screen height()/2,1,odeobjs)
      if p>3
         ode set linear velocity p,sin(camera angle y())*10,25,cos(camera angle y())*10
      endif
   endif
   if object collision(3,0)>3
      dec health
      if health<0
         delete objects 1,odeobjs
         while escapekey()=0
            sync
            center text screen width()/2,(screen height()-text height("You died."))/2,"You died."
         endwhile
         end
      endif
   endif
endwhile
end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx#
write memblock float memnum,v*36+16,vposy#
write memblock float memnum,v*36+20,vposz#
write memblock dword memnum,v*36+36,color
write memblock float memnum,v*36+40,u#
write memblock float memnum,v*36+44,v#
endfunction

+ Code Snippet

sync on
sync rate 0
hide mouse
randomize timer()
disable escapekey
set text opaque
autocam off
set camera range 0.01,1000
color backdrop 0
while xtiles/2=xtiles/2.0 or xtiles<5
   print "Value must be odd and atleast 5"
   sync
   input "X tiles ",xtiles
   if escapekey()=1
      end
   endif
endwhile
while ytiles/2=ytiles/2.0 or ytiles<5
   print "Value must be odd and atleast 5"
   sync
   input "Y tiles ",ytiles
   if escapekey()=1
      end
   endif
endwhile
cls
counter=2*xtiles+2*ytiles-2
dim maze(xtiles,ytiles) as boolean
for x=1 to xtiles
   maze(x,1)=1
   maze(x,ytiles)=1
next x
for y=1 to ytiles
   maze(1,y)=1
   maze(xtiles,y)=1
next y
max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2
xs#=screen width()/(xtiles+0.0)
ys#=screen height()/(ytiles+0.0)
while counter<max and escapekey()=0
   x=rnd(xtiles-2)+1
   y=rnd(ytiles-2)+1
   if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1
   else
      maze(x,y)=1
      inc counter
   endif
   if spacekey()=1
      text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done"
      sync
   endif
endwhile
cls
make memblock 1,12+(36*((max-1)*30-24))
write memblock dword 1,0,338
write memblock dword 1,4,36
write memblock dword 1,8,(max-1)*30-24
width=xtiles*10
height=ytiles*10
dh=10
for x=1 to xtiles
   for y=1 to ytiles
      if maze(x,y)=1
         create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0)
         create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
         create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1)
         create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0)
         inc vertex,30
      endif
   next y
next x
create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0)
create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0)
create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles)
create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles)
make mesh from memblock 1,1
ode start : ode set world gravity 0,-20,0 : ode set world step 0.05
ode set world erp (0.2)*2.5 : ode set world cfm (10^-5)*2.5
convert mesh to vertexdata 1
make object 1,1,0
ode create static triangle mesh 1
delete memblock 1
delete mesh 1
set object cull 1,1
set object normals 1
width1=256
height1=256
make memblock 1,width1*height1*4+12
write memblock dword 1,0,width1
write memblock dword 1,4,height1
write memblock dword 1,8,32
for x=0 to width1-1
   for y=0 to height1-1
      write memblock dword 1,(y*width1+x)*4+12,rgb(0,rnd(255),0)
   next y
next x
make image from memblock 1,1
width2=64
height2=64
make memblock 2,width2*height2*4+12
write memblock dword 2,0,width2
write memblock dword 2,4,height2
write memblock dword 2,8,32
for x=0 to width2-1
   for y=0 to height2-1
      write memblock dword 2,(y*width2+x)*4+12,rgb(0,0,0)
   next y
next x
make image from memblock 2,2
texture object 1,1
make object sphere 2,10
position object 2,10*xtiles-15,dh/2,10*ytiles-15
color object 2,rgb(255,255,0)
position camera 15,5,15
speed#=0.2
make object cube 3,1
hide object 3
make object sphere 4,5
texture object 4,2
set object light 4,0
odeobjs=100
for obj=5 to odeobjs
   instance object obj,4
   position object obj,rnd(width),25,rnd(height)
   ode create dynamic sphere obj
next obj
position object 4,rnd(width),25,rnd(height)
ode create dynamic sphere 4
health=100
while escapekey()=0
   sync
   text 0,0,"Health: "+str$(health)
   px#=camera position x()
   py#=camera position y()
   pz#=camera position z()
   x#=camera angle x()
   xrotate camera 0
   move camera speed#*(upkey()-downkey())
   yrotate camera camera angle y()+90
   move camera speed#*(rightkey()-leftkey())
   rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0
   if camera angle x()>90
      xrotate camera 90
   endif
   if camera angle x()<-90
      xrotate camera -90
   endif
   if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0
      position camera px#,py#,pz#
   endif
   position object 3,camera position x(),camera position y(),camera position z()
   if object collision (2,3)=1
      delete objects 1,odeobjs
      t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!"
      while escapekey()=0
         sync
         center text screen width()/2,(screen height()-text height(t$))/2,t$
      endwhile
      end
   endif
   for i=1 to 4
      ode update
   next i
   for x=0 to width1-1
      for y=0 to height1-1
         nx=x+rnd(2)-1
         if nx>width1-1
            nx=width1-1
         endif
         if nx<0
            nx=0
         endif
         ny=y+rnd(2)-1
         if ny>height1-1
            ny=height1-1
         endif
         if ny<0
            ny=0
         endif
         write memblock byte 1,(y*width1+x)*4+13,memblock byte(1,(ny*width1+nx)*4+13)
      next y
   next x
   make image from memblock 1,1
   for x=0 to width2-1
      r=rnd(255)
      write memblock dword 2,((height2-1)*width2+x)*4+12,rgb(r,rnd(r/2),0)
      for y=0 to height2-2
         write memblock dword 2,(y*width2+x)*4+12,rgb(memblock byte(2,((y+1)*width2+x)*4+14)*.95,memblock byte(2,((y+1)*width2+x)*4+13)*.95,0)
      next y
   next x
   make image from memblock 2,2
   box screen width()/2-20,screen height()/2-1,screen width()/2+20,screen height()/2+1
   box screen width()/2-1,screen height()/2-20,screen width()/2+1,screen height()/2+20
   if mouseclick()=1
      p=pick object(screen width()/2,screen height()/2,1,odeobjs)
      if p>3
         ode set linear velocity p,sin(camera angle y())*10,25,cos(camera angle y())*10
      endif
   endif
   if object collision(3,0)>3
      dec health
      if health<0
         delete objects 1,odeobjs
         while escapekey()=0
            sync
            center text screen width()/2,(screen height()-text height("You died."))/2,"You died."
         endwhile
         end
      endif
   endif
endwhile
end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx#
write memblock float memnum,v*36+16,vposy#
write memblock float memnum,v*36+20,vposz#
write memblock dword memnum,v*36+36,color
write memblock float memnum,v*36+40,u#
write memblock float memnum,v*36+44,v#
endfunction

Compressed code-

sync on : sync rate 0 : hide mouse : randomize timer() : disable escapekey : set text opaque : autocam off : set camera range 0.01,1000 : color backdrop 0 : while xtiles/2=xtiles/2.0 or xtiles<5 : print "Value must be odd and atleast 5" : sync : input "X tiles ",xtiles : if escapekey()=1 : end : endif : endwhile : while ytiles/2=ytiles/2.0 or ytiles<5 : print "Value must be odd and atleast 5" : sync : input "Y tiles ",ytiles : if escapekey()=1 : end : endif : endwhile
cls : counter=2*xtiles+2*ytiles-2 : dim maze(xtiles,ytiles) as boolean : for x=1 to xtiles : maze(x,1)=1 : maze(x,ytiles)=1 : next x : for y=1 to ytiles : maze(1,y)=1 : maze(xtiles,y)=1 : next y : max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2 : xs#=screen width()/(xtiles+0.0) : ys#=screen height()/(ytiles+0.0) : while counter<max and escapekey()=0 : x=rnd(xtiles-2)+1 : y=rnd(ytiles-2)+1 : if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1 : else : maze(x,y)=1 : inc counter : endif : if spacekey()=1 : text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done" : sync
endif : endwhile : cls : make memblock 1,12+(36*((max-1)*30-24)) : write memblock dword 1,0,338 : write memblock dword 1,4,36 : write memblock dword 1,8,(max-1)*30-24 : width=xtiles*10 : height=ytiles*10 : dh=10 : for x=1 to xtiles : for y=1 to ytiles : if maze(x,y)=1 : create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,0)
create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : inc vertex,30 : endif : next y : next x : create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0) : create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0) : create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0) : create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles)
make mesh from memblock 1,1 : ode start : ode set world gravity 0,-20,0 : ode set world step 0.05 : ode set world erp (0.2)*2.5 : ode set world cfm (10^-5)*2.5 : convert mesh to vertexdata 1 : make object 1,1,0 : ode create static triangle mesh 1 : delete memblock 1 : delete mesh 1 : set object cull 1,1 : set object normals 1 : width1=256 : height1=256 : make memblock 1,width1*height1*4+12 : write memblock dword 1,0,width1 : write memblock dword 1,4,height1 : write memblock dword 1,8,32 : for x=0 to width1-1 : for y=0 to height1-1 : write memblock dword 1,(y*width1+x)*4+12,rgb(0,rnd(255),0) : next y : next x : make image from memblock 1,1 : width2=64 : height2=64 : make memblock 2,width2*height2*4+12
write memblock dword 2,0,width2 : write memblock dword 2,4,height2 : write memblock dword 2,8,32 : for x=0 to width2-1 : for y=0 to height2-1 : write memblock dword 2,(y*width2+x)*4+12,rgb(0,0,0) : next y : next x : make image from memblock 2,2 : texture object 1,1 : make object sphere 2,10 : position object 2,10*xtiles-15,dh/2,10*ytiles-15 : color object 2,rgb(255,255,0) : position camera 15,5,15 : speed#=0.2 : make object cube 3,1 : hide object 3 : make object sphere 4,5 : texture object 4,2 : set object light 4,0 : odeobjs=100 : for obj=5 to odeobjs : instance object obj,4 : position object obj,rnd(width),25,rnd(height) : ode create dynamic sphere obj
next obj : position object 4,rnd(width),25,rnd(height) : ode create dynamic sphere 4 : health=100 : while escapekey()=0 : sync : text 0,0,"Health: "+str$(health) : px#=camera position x() : py#=camera position y() : pz#=camera position z() : x#=camera angle x() : xrotate camera 0 : move camera speed#*(upkey()-downkey()) : yrotate camera camera angle y()+90 : move camera speed#*(rightkey()-leftkey()) : rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0 : if camera angle x()>90 : xrotate camera 90 : endif : if camera angle x()<-90 : xrotate camera -90 : endif : if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0 : position camera px#,py#,pz# : endif
position object 3,camera position x(),camera position y(),camera position z() : if object collision (2,3)=1 : delete objects 1,odeobjs : t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!" : while escapekey()=0 : sync : center text screen width()/2,(screen height()-text height(t$))/2,t$ : endwhile : end : endif : for i=1 to 4 : ode update : next i : for x=0 to width1-1 : for y=0 to height1-1 : nx=x+rnd(2)-1 : if nx>width1-1 : nx=width1-1 : endif : if nx<0 : nx=0 : endif : ny=y+rnd(2)-1 : if ny>height1-1 : ny=height1-1
endif : if ny<0 : ny=0 : endif : write memblock byte 1,(y*width1+x)*4+13,memblock byte(1,(ny*width1+nx)*4+13) : next y : next x : make image from memblock 1,1 : for x=0 to width2-1 : r=rnd(255) : write memblock dword 2,((height2-1)*width2+x)*4+12,rgb(r,rnd(r/2),0) : for y=0 to height2-2 : write memblock dword 2,(y*width2+x)*4+12,rgb(memblock byte(2,((y+1)*width2+x)*4+14)*.95,memblock byte(2,((y+1)*width2+x)*4+13)*.95,0) : next y : next x : make image from memblock 2,2 : box screen width()/2-20,screen height()/2-1,screen width()/2+20,screen height()/2+1 : box screen width()/2-1,screen height()/2-20,screen width()/2+1,screen height()/2+20 : if mouseclick()=1 : p=pick object(screen width()/2,screen height()/2,1,odeobjs) : if p>3 : ode set linear velocity p,sin(camera angle y())*10,25,cos(camera angle y())*10 : endif : endif : if object collision(3,0)>3
dec health : if health<0 : delete objects 1,odeobjs : while escapekey()=0 : sync : center text screen width()/2,(screen height()-text height("You died."))/2,"You died." : endwhile : end : endif : endif : endwhile : end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx# : write memblock float memnum,v*36+16,vposy# : write memblock float memnum,v*36+20,vposz# : write memblock dword memnum,v*36+36,color : write memblock float memnum,v*36+40,u# : write memblock float memnum,v*36+44,v#
endfunction

+ Code Snippet

sync on : sync rate 0 : hide mouse : randomize timer() : disable escapekey : set text opaque : autocam off : set camera range 0.01,1000 : color backdrop 0 : while xtiles/2=xtiles/2.0 or xtiles<5 : print "Value must be odd and atleast 5" : sync : input "X tiles ",xtiles : if escapekey()=1 : end : endif : endwhile : while ytiles/2=ytiles/2.0 or ytiles<5 : print "Value must be odd and atleast 5" : sync : input "Y tiles ",ytiles : if escapekey()=1 : end : endif : endwhile
cls : counter=2*xtiles+2*ytiles-2 : dim maze(xtiles,ytiles) as boolean : for x=1 to xtiles : maze(x,1)=1 : maze(x,ytiles)=1 : next x : for y=1 to ytiles : maze(1,y)=1 : maze(xtiles,y)=1 : next y : max=(xtiles*ytiles)-((xtiles-2)*(ytiles-2)-((xtiles-3)/2)*(ytiles-3))+2 : xs#=screen width()/(xtiles+0.0) : ys#=screen height()/(ytiles+0.0) : while counter<max and escapekey()=0 : x=rnd(xtiles-2)+1 : y=rnd(ytiles-2)+1 : if maze(x-1,y-1)=1 and maze(x-1,y)+maze(x,y-1)=0 or maze(x-1,y+1)=1 and maze(x-1,y)+maze(x,y+1)=0 or maze(x+1,y-1)=1 and maze(x+1,y)+maze(x,y-1)=0 or maze(x+1,y+1)=1 and maze(x+1,y)+maze(x,y+1)=0 or maze(x,y)=1 or x/2.0=x/2 and y/2.0=y/2 or maze(x-1,y)+maze(x+1,y)+maze(x,y-1)+maze(x,y+1)<>1 : else : maze(x,y)=1 : inc counter : endif : if spacekey()=1 : text 0,0,left$(str$(counter/(max+0.0)*100),4)+"% done" : sync
endif : endwhile : cls : make memblock 1,12+(36*((max-1)*30-24)) : write memblock dword 1,0,338 : write memblock dword 1,4,36 : write memblock dword 1,8,(max-1)*30-24 : width=xtiles*10 : height=ytiles*10 : dh=10 : for x=1 to xtiles : for y=1 to ytiles : if maze(x,y)=1 : create_vertex(1,vertex,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+1,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+2,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+3,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+4,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+5,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+6,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+7,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+8,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+9,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),1,0)
create_vertex(1,vertex+10,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+11,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+12,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+13,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+14,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+15,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+16,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+17,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+18,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+19,(x-1)*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+20,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+21,(x-1)*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1)
create_vertex(1,vertex+22,(x-1)*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+23,(x-1)*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+24,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : create_vertex(1,vertex+25,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+26,x*width/(xtiles+0.0),0,(y-1)*height/(ytiles+0.0),rgb(255,255,255),0,0) : create_vertex(1,vertex+27,x*width/(xtiles+0.0),dh,y*height/(ytiles+0.0),rgb(255,255,255),1,1) : create_vertex(1,vertex+28,x*width/(xtiles+0.0),0,y*height/(ytiles+0.0),rgb(255,255,255),0,1) : create_vertex(1,vertex+29,x*width/(xtiles+0.0),dh,(y-1)*height/(ytiles+0.0),rgb(255,255,255),1,0) : inc vertex,30 : endif : next y : next x : create_vertex(1,vertex,0,0,0,rgb(255,255,255),0,0) : create_vertex(1,vertex+1,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+2,width,0,0,rgb(255,255,255),xtiles,0) : create_vertex(1,vertex+3,width,0,0,rgb(255,255,255),xtiles,0) : create_vertex(1,vertex+4,0,0,height,rgb(255,255,255),0,ytiles) : create_vertex(1,vertex+5,width,0,height,rgb(255,255,255),xtiles,ytiles)
make mesh from memblock 1,1 : ode start : ode set world gravity 0,-20,0 : ode set world step 0.05 : ode set world erp (0.2)*2.5 : ode set world cfm (10^-5)*2.5 : convert mesh to vertexdata 1 : make object 1,1,0 : ode create static triangle mesh 1 : delete memblock 1 : delete mesh 1 : set object cull 1,1 : set object normals 1 : width1=256 : height1=256 : make memblock 1,width1*height1*4+12 : write memblock dword 1,0,width1 : write memblock dword 1,4,height1 : write memblock dword 1,8,32 : for x=0 to width1-1 : for y=0 to height1-1 : write memblock dword 1,(y*width1+x)*4+12,rgb(0,rnd(255),0) : next y : next x : make image from memblock 1,1 : width2=64 : height2=64 : make memblock 2,width2*height2*4+12
write memblock dword 2,0,width2 : write memblock dword 2,4,height2 : write memblock dword 2,8,32 : for x=0 to width2-1 : for y=0 to height2-1 : write memblock dword 2,(y*width2+x)*4+12,rgb(0,0,0) : next y : next x : make image from memblock 2,2 : texture object 1,1 : make object sphere 2,10 : position object 2,10*xtiles-15,dh/2,10*ytiles-15 : color object 2,rgb(255,255,0) : position camera 15,5,15 : speed#=0.2 : make object cube 3,1 : hide object 3 : make object sphere 4,5 : texture object 4,2 : set object light 4,0 : odeobjs=100 : for obj=5 to odeobjs : instance object obj,4 : position object obj,rnd(width),25,rnd(height) : ode create dynamic sphere obj
next obj : position object 4,rnd(width),25,rnd(height) : ode create dynamic sphere 4 : health=100 : while escapekey()=0 : sync : text 0,0,"Health: "+str$(health) : px#=camera position x() : py#=camera position y() : pz#=camera position z() : x#=camera angle x() : xrotate camera 0 : move camera speed#*(upkey()-downkey()) : yrotate camera camera angle y()+90 : move camera speed#*(rightkey()-leftkey()) : rotate camera x#+mousemovey()/2.0,camera angle y()-90+mousemovex()/2.0,0 : if camera angle x()>90 : xrotate camera 90 : endif : if camera angle x()<-90 : xrotate camera -90 : endif : if intersect object(1,px#,py#,pz#,camera position x(),camera position y(),camera position z())>0 : position camera px#,py#,pz# : endif
position object 3,camera position x(),camera position y(),camera position z() : if object collision (2,3)=1 : delete objects 1,odeobjs : t$="You beat a "+str$(xtiles)+" X "+str$(ytiles)+" maze!!!" : while escapekey()=0 : sync : center text screen width()/2,(screen height()-text height(t$))/2,t$ : endwhile : end : endif : for i=1 to 4 : ode update : next i : for x=0 to width1-1 : for y=0 to height1-1 : nx=x+rnd(2)-1 : if nx>width1-1 : nx=width1-1 : endif : if nx<0 : nx=0 : endif : ny=y+rnd(2)-1 : if ny>height1-1 : ny=height1-1
endif : if ny<0 : ny=0 : endif : write memblock byte 1,(y*width1+x)*4+13,memblock byte(1,(ny*width1+nx)*4+13) : next y : next x : make image from memblock 1,1 : for x=0 to width2-1 : r=rnd(255) : write memblock dword 2,((height2-1)*width2+x)*4+12,rgb(r,rnd(r/2),0) : for y=0 to height2-2 : write memblock dword 2,(y*width2+x)*4+12,rgb(memblock byte(2,((y+1)*width2+x)*4+14)*.95,memblock byte(2,((y+1)*width2+x)*4+13)*.95,0) : next y : next x : make image from memblock 2,2 : box screen width()/2-20,screen height()/2-1,screen width()/2+20,screen height()/2+1 : box screen width()/2-1,screen height()/2-20,screen width()/2+1,screen height()/2+20 : if mouseclick()=1 : p=pick object(screen width()/2,screen height()/2,1,odeobjs) : if p>3 : ode set linear velocity p,sin(camera angle y())*10,25,cos(camera angle y())*10 : endif : endif : if object collision(3,0)>3
dec health : if health<0 : delete objects 1,odeobjs : while escapekey()=0 : sync : center text screen width()/2,(screen height()-text height("You died."))/2,"You died." : endwhile : end : endif : endif : endwhile : end
function create_vertex(memnum,v,vposx#,vposy#,vposz#,color as dword,u#,v#)
write memblock float memnum,v*36+12,vposx# : write memblock float memnum,v*36+16,vposy# : write memblock float memnum,v*36+20,vposz# : write memblock dword memnum,v*36+36,color : write memblock float memnum,v*36+40,u# : write memblock float memnum,v*36+44,v#
endfunction

Back to top

Profile PM Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 25th Aug 2006 04:44 Edited at: 25th Aug 2006 04:45

Link

Here's what I found:
-The new texture hurt my eyes bit it was awesome!
-The fireball did nothing. I click on it and nothing happens. I go in it and nothing happens.

And what is that "ode create dynamic sphere" stuff? I seem to support it but I don't know what it is

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 25th Aug 2006 05:20 Edited at: 25th Aug 2006 05:24

Link

Ode is physics built into DBP; naturally it is undocumented.

I don't see why the fire balls aren't doing anything on your computer. I can't imagine how you couldn't be hurt by standing in it. The test is simply "if object collsion(3,0)>3", where object 3 is placed at the camera and objects 4 and up are the fire balls.

I can't really help because I have no idea why it wouldn't work. What version of Dark Basic Pro are you using?

Back to top

Profile PM Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 25th Aug 2006 18:37

Link

Version 6.2b. I'll try again.

ode=Physics!?

Back to top

Profile PM Email

lower logic

17

Years of Service

User Offline

Joined: 15th Jun 2006

Location:

Posted: 26th Aug 2006 22:14 Edited at: 26th Aug 2006 22:15

Link

The right-hand rule means you follow the wall on your right, turning right whenever possible and only turning left when you cannot go straight. http://en.wikipedia.org/wiki/Maze

I got through a 99x5 maze

. Pretty fun little code snippet.

Back to top

Profile PM

swJawa

17

Years of Service

User Offline

Joined: 24th Aug 2006

Location:

Posted: 26th Aug 2006 23:13

Link

beating a ?x5 maze is eazy as you can almost only go straight.
btw, I didn't see any fireballs and the new texture is only easyer to orientate.

getfirefox.com

Back to top

Profile PM

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 4th Sep 2006 01:20 Edited at: 4th Sep 2006 01:21

Link

O, well I thought I knew what the right hand rule was.

I am using v6.2 and it works fine for me. I can't really fix the problem because I wouldn't know when it was fixed.

This is what I see when I run my code-

Attachments

Login to view attachments

Back to top

Profile PM Website

The ARRAYinator

18

Years of Service

User Offline

Joined: 13th Aug 2005

Location:

Posted: 4th Sep 2006 01:35

Link

Nice Work Daemon! Im working on a maze game as well. Seems that everyones doing it,lol Great Job!!!

Back to top

Profile PM Website

Admin 7737

17

Years of Service

User Offline

Joined: 14th May 2006

Location: Japan... I WISH!!

Posted: 9th Sep 2006 15:47

Link

51*51 i beat

-----------------------------------------------------------
Im in A race With 5 People And I'm in third, I over Take 2nd, In what position am I? (Email me for the Answer!)

Back to top

Profile PM Email

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 9th Sep 2006 19:14

Link

Really? wow. Oh, and the fireballs decided to work for me and they killed me because they covered the whole hallway so there was no way through lol

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 10th Sep 2006 16:43

Link

A 51*51 maze! That is amazing. At this rate I may have to find a way to allow mazes larger than 65*65.

If anyone beats Admin 7737's score please say, because I have begun posting the highest score on my website. Don't be stupid and lie. No one looks at my website anyway.

Insanity is just a state of mind.

Back to top

Profile PM Website

Code Dragon

17

Years of Service

User Offline

Joined: 21st Aug 2006

Location: Everywhere

Posted: 18th Sep 2006 23:40

Link

I beat a 53*53 maze, but the fireballs don't work.

Back to top

Profile PM Email Website

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 19th Sep 2006 03:06

Link

hmm.... I wonder why the fireballs aren't working for some people.

O well, I'll still say you are winning.

Insanity is just a state of mind.

Back to top

Profile PM Website

sneaky smith12

17

Years of Service

User Offline

Joined: 30th Apr 2006

Location: Like id tell you, oh wait i just did

Posted: 20th Sep 2006 01:11 Edited at: 20th Sep 2006 01:17

Link

Quote: "But... I made a minimap "

I'm actually working on something quite similar to this maze idea
I for some reason left my programming skills in last year.

Could you please post/email me the code for the minimap.
I have only cloggy d3d and (forgot the name) multiplayer dll.

thanks...

and for the game beat a 23x23 map

also note... if you want me to post my code... it currently is over 3700 lines, i'm using fresh gui.
although for the map genorator i'm basically using tutorial 6(huge dungeons) i think it is

If at first you dont succeed, LOWER YOUR STANDARDS.

Back to top

Profile PM Email

Code Dragon

17

Years of Service

User Offline

Joined: 21st Aug 2006

Location: Everywhere

Posted: 20th Sep 2006 02:36

Link

This is strange... the fireballs work on my old computer (DBP v5.9)
but not on my new computer (DBP v6.2) I did see 1 fireball on my new computer yesterday, but it was stuck in the wall and didn't do anything.

I guess there's 76 fireballs by looking at your code, but don't you think there should be more for bigger mazes? In very large mazes they would be rare. I think that's why I only found one.

Back to top

Profile PM Email Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 20th Sep 2006 14:02

Link

@sneaky smith12:
It's not really a minimap, but all you need to do is use the SET CAMERA TO IMAGE command and position the camera over what you want to follow. Then put the camera image on a sprite. That will generate a 3D minimap.

Ummm...

Back to top

Profile PM Email

Code Dragon

17

Years of Service

User Offline

Joined: 21st Aug 2006

Location: Everywhere

Posted: 21st Sep 2006 00:00

Link

I beat a 65*65!

I used this cheating code to look for fireballs (not win the 65*65)
and they're all underneath the maze, and don't move either.

+ Code Snippet

   if inkey$() = "w" then inc cheaty#
   if inkey$() = "s" then dec cheaty#
   if inkey$() = "a" then inc speed#, .1
   if inkey$() = "d" then dec speed#, .1
   position camera camera position x(), cheaty#, camera position z()

Sixty Squares, could you post your code anyway? I think set camera to image may be the answer to something I've been trying to do for awhile now, but I don't understand how to use it...

Back to top

Profile PM Email Website

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 21st Sep 2006 02:49 Edited at: 21st Sep 2006 02:53

Link

Here is some messy (I didn't include REMs) minimap code. Hope it helps. It uses lots of variables for easy adjustment.

SYNC ON
SYNC RATE 60
autocam off

set window on
set window title "Minimap Thing"
set text font "verdana"
set text size 24

MiniMapSizeX=100
MiniMapSizeY=100
MiniMapCamera=1
MiniMapDistance=100
MiniMapX=5
MiniMapY=480-(MiniMapSizeY+5)

Cube=1
MiniMapImage=1
FloorImage=2

Create bitmap 1,100,100
for d = 1 to 1000
ink rgb(0,rnd(255),0),0
dot rnd(50),rnd(50)
ink rgb(0,0,rnd(255)),0
dot 50+rnd(50),50+rnd(50)
next d

get image FloorImage,0,0,100,100
delete bitmap 1

Make Camera MiniMapCamera
color backdrop 0,0
color backdrop MiniMapCamera,0

Make object cube Cube,10

Make matrix 1,1000,1000,20,20
randomize matrix 1,50
prepare matrix Texture 1,Floorimage,1,1
update matrix 1

Set Camera To Image MiniMapCamera , MiniMapImage , 256,256

do

text 0,0, "USE THE ARROW KEYS TO MOVE."
text 0,30, "USE W/S TO ZOOM IN AND OUT ON THE MINIMAP."
Text 0,90, "SCREEN FPS: "+str$(screen fps())

sprite 1,MiniMapX , MiniMapY , MiniMapImage
size sprite 1,MiniMapSizeX,MiniMapSizeY

inc MiniMapDistance,Keystate(31)-Keystate(17)

if MiniMapDistance<50 then MiniMapDistance=50
if MiniMapDistance>300 then MiniMapDistance=300

move object Cube,upkey()-downkey()
yrotate object Cube,wrapvalue(Object angle y(Cube)+rightkey()-leftkey())
position object cube,Object position x(Cube),Get Ground height(1,OBject position x(Cube),OBject position z(Cube))+5,Object position z(Cube)

ink rgb(255,0,0),0

rem Little box around minimap
Box MiniMapX-5,MiniMapY-5,MiniMApX+MiniMapSizeX+5,MiniMapY+MiniMapSizeY+5

position camera MinimapCamera,Object position x(Cube),Object position y(Cube)+MiniMapDistance,Object position z(Cube) : xrotate camera MiniMapCamera,90

Set Camera To Follow 0,Object position X(Cube),OBject position y(Cube),Object position z(Cube),Object angle y(Cube),25,10,30.5,0
sync
loop

+ Code Snippet

SYNC ON
SYNC RATE 60
autocam off


set window on
set window title "Minimap Thing"
set text font "verdana"
set text size 24

MiniMapSizeX=100
MiniMapSizeY=100
MiniMapCamera=1
MiniMapDistance=100
MiniMapX=5
MiniMapY=480-(MiniMapSizeY+5)

Cube=1
MiniMapImage=1
FloorImage=2



Create bitmap 1,100,100
for d = 1 to 1000
ink rgb(0,rnd(255),0),0
dot rnd(50),rnd(50)
ink rgb(0,0,rnd(255)),0
dot 50+rnd(50),50+rnd(50)
next d

get image FloorImage,0,0,100,100
delete bitmap 1


Make Camera MiniMapCamera
color backdrop 0,0
color backdrop MiniMapCamera,0


Make object cube Cube,10


Make matrix 1,1000,1000,20,20
randomize matrix 1,50
prepare matrix Texture 1,Floorimage,1,1
update matrix 1


Set Camera To Image MiniMapCamera , MiniMapImage , 256,256

do


text 0,0, "USE THE ARROW KEYS TO MOVE."
text 0,30, "USE W/S TO ZOOM IN AND OUT ON THE MINIMAP."
Text 0,90, "SCREEN FPS: "+str$(screen fps())




sprite 1,MiniMapX , MiniMapY , MiniMapImage
size sprite 1,MiniMapSizeX,MiniMapSizeY


inc MiniMapDistance,Keystate(31)-Keystate(17)

if MiniMapDistance<50 then MiniMapDistance=50
if MiniMapDistance>300 then MiniMapDistance=300

move object Cube,upkey()-downkey()
yrotate object Cube,wrapvalue(Object angle y(Cube)+rightkey()-leftkey())
position object cube,Object position x(Cube),Get Ground height(1,OBject position x(Cube),OBject position z(Cube))+5,Object position z(Cube)




ink rgb(255,0,0),0

rem Little box around minimap
Box MiniMapX-5,MiniMapY-5,MiniMApX+MiniMapSizeX+5,MiniMapY+MiniMapSizeY+5



position camera MinimapCamera,Object position x(Cube),Object position y(Cube)+MiniMapDistance,Object position z(Cube) : xrotate camera MiniMapCamera,90

Set Camera To Follow 0,Object position X(Cube),OBject position y(Cube),Object position z(Cube),Object angle y(Cube),25,10,30.5,0
sync
loop

Ummm...

Back to top

Profile PM Email

Code Dragon

17

Years of Service

User Offline

Joined: 21st Aug 2006

Location: Everywhere

Posted: 22nd Sep 2006 04:06 Edited at: 22nd Sep 2006 23:04

Link

Ok I understand it now. Thanks.

I was trying to make one of those TVs you see in Super Mario Karts 64 and Super Smash Bros. Melle, but what happend was I couldn't get the command to work with camera 0. I had to make a second camera right where the first one is; it's a ineffient, but much better than my other method, using get image then texture object. Very slow.

In fact it is now in this test program I made.
http://forum.thegamecreators.com/?m=forum_view&t=89228&b=7

Confucius Say...Programmer who makes genetic programming system loses job

Back to top

Profile PM Email Website

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 22nd Sep 2006 22:40

Link

Congradulations on beating the 65*65 Code Dragon.

Now I feel almost obligated to let it handle larger mazes. I think that if I broke it into limbs it should be able to set object normals for larger mazes.

Insanity is just a state of mind.

Back to top

Profile PM Website

Code Dragon

17

Years of Service

User Offline

Joined: 21st Aug 2006

Location: Everywhere

Posted: 22nd Sep 2006 23:00

Link

Thanks!

When I made that cheating code, I noticed just how big a 65*65 maze is. My first thought was "Wow. I must have way too much free time if I beat that."

I noticed mazes larger than 65*65 do work on my old computer (even though it's too slow to play it) because it doesn't recognize set object normals (it doesn't even report a syntax error), but my new computer crashes on it. With it off, big mazes work, it's just a bit darker; nothing set ambient light wouldn't fix.

Confucius Say...Programmer who makes genetic programming system loses job

Back to top

Profile PM Email Website

sneaky smith12

17

Years of Service

User Offline

Joined: 30th Apr 2006

Location: Like id tell you, oh wait i just did

Posted: 23rd Sep 2006 19:51

Link

ty sixty ill try it out.

If at first you dont succeed, LOWER YOUR STANDARDS.

Back to top

Profile PM Email

Sixty Squares

17

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 24th Sep 2006 00:00

Link

Alrighty

Ummm...

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / 3D Random Maze

Attachments