Sorry your browser is not supported!

` LBFN  DBC CHALLENGE - MAZE GAME

set display mode 800,600,32
sync on : sync rate 60
randomize timer()
hide mouse
sw = screen width()
sh = screen height()
backdrop on
color backdrop rgb(18,18,18)
autocam off
MapWidth=32
MapHeight=32
UnitSize=200
maxw=Mapwidth-3
maxh=MapHeight-3
fog on
fog color rgb(18,18,18)
fog distance 1500
set camera range 1,2000
set ambient light 55

cls
dim map$(mapwidth,mapheight) : dim EnemySpeed(20)

gosub StoreMap
MakeImages()
player = 1
make object sphere player,10
set object collision on player
make object collision box player,-5,-5,-5,5,5,5,0
hide object player
WallObj=200
FloorObj=1000
EnemyObj=2500
for z=1 to MapHeight
  for x=1 to MapWidth
    if map$(x,z)="W"
      xsize#=(x-1.0)*UnitSize
      zsize#=(z-1.0)*UnitSize
      make object box WallObj,UnitSize,150.0,UnitSize
      set object WallObj,1,1,1
      texture object WallObj,43
      position object WallObj,xsize#,75.0,zsize#
      set object collision on WallObj
      make object collision box WallObj,-100,-100,-100,100,100,100,0
      inc WallObj,1
    endif
    if map$(x,z)="_" or map$(x,z)="S" or map$(x,z)="F"
      xsize#=(x-1.0)*UnitSize
      zsize#=(z-1.0)*UnitSize
      make object plain FloorObj,UnitSize,UnitSize
      set object FloorObj,1,1,1
      xrotate object FloorObj,90
      texture object FloorObj,53
      position object FloorObj,xsize#,0.0,zsize#
      set object collision off FloorObj
`      if map$(x,z)="F"
`        color object FloorObj,rgb(255,0,0)
`        fx#=((x-1)*200)+100 : fz#=((z-1)*200)+100
`        FloorBZ = FloorObj
`      endif
      inc FloorObj,1
    endif
  next x
next z
TotalWalls = (WallObj-1)
okay = 0

gosub GetPlayerXY
gosub MakeEnemies

cls
get image 999,0,0,170,45
draw to front
ty#=camera position y()
rem ______________________________________________________________________________________________

ink rgb(255,0,0),0
StartTime#=timer()
do
  text 100,10,"FPS = "+str$(screen fps() )
`  center text sw/2,10,"Time:"+str$(int(timer()-StartTime#)/1000)
  camx#=camera position x() : oldx#=camx#
  camy#=camera position y() : oldy#=camy#
  camz#=camera position z() : oldz#=camz#
  position object player,camx#,camy#,camz#
  set object to camera orientation player
  move object player,10
  y#=camera angle y()
  yrotate camera wrapvalue(y#+mousemovex() )
  camx#=camera position x()
  camy#=camera position y()
  camz#=camera position z()
  position object player,camx#,camy#,camz#
  set object to camera orientation player
  move object player,10
 ` text 10,10,"camx#="+str$(camx#)
 ` text 10,30,"camy#="+str$(camy#)
 ` text 10,50,"camz#="+str$(camz#)
  mc=mouseclick()
  if mc=1
    move camera 10 : move object player,10
    gosub CheckCollision
    if hit = 1 then move camera -10 : move object player,-10
  endif
  if mc=2
    move camera -10 : move object player,-10
    gosub CheckCollision
    if hit = 1 then move camera 10 : move object player,10
  endif
  if spacekey()=1 then exit
  c# = (camx# - tx#) : c# = c# * c#
  d# = (camz# - tz#) : d# = d# * d#
  dist# = sqrt(c# + d#)
  text 200,10,str$(dist#)
  if dist#<=150.0
    t#=int((timer()-StartTime#)/1000)
    ink rgb(255,255,0),0
    repeat
       center text sw/2,200,"You are the Winner!!!"
 `      center text sw/2,220,"You made it in "+str$(t#)+" seconds!"
       center text sw/2,400,"Press [Return] to play again."
       center text sw/2,420,"Press [ESC] to quit."
       sync
      rt = returnkey()
    until rt=1 or escapekey()=1
    if rt = 1
      rt = 0 : gosub RESTART
      repeat
        sync
      until keystate(28)=0
    endif
    if escapekey()=1 then exit
  endif
  For enemy = 2500 to 2519
    point object enemy,camx#,camy#,camz#
    move object enemy,EnemySpeed(enemy-2499)
    for f = 200 to TotalWalls
      e=enemy-2499
      if object collision(enemy,f)=1 then move object enemy,0-EnemySpeed(e) : exit
    next f
  next enemy
  gosub CheckEnemyCollision
  if hit = 1 then gosub P1Died
  sync
loop
`set window off
show mouse
end

Restart:
  gosub StoreMap
  gosub GetPlayerXY
  gosub MakeEnemies
  StartTime#=timer()
  if object exist(9000)=1 then hide object 9000
return

P1Died:
if object exist(9000)=0
  make object plain 9000,screen width()+100,screen height()+100
endif
show object 9000
position object 9000,camx#,camy#,camz#
set object to camera orientation 9000
move object 9000,50
rg = 255
color object 9000,rgb(rg,rg,rg)
OldTime#=timer()
time# = timer()+3000.0
repeat
  t#=timer()
  if (t#-OldTime#)>59.0
    dec rg,5
    color object 9000,rgb(rg,rg,rg)
    OldTime#=timer()
  endif
  sync
until timer()>time#
color backdrop rgb(18,18,18)
gosub Restart
return


MakeEnemies:
EnemyObj=2500
while EnemyObj<2520
for z=1 to MapHeight
  for x=1 to MapWidth
    if map$(x,z)="_" and rnd(1000)>970 and EnemyObj<2520
      ` make enemy
      x# = ((x - 1)*UnitSize)
      z# = ((z - 1)*UnitSize)
      camx#=camera position x()
      camy#=camera position y()
      camz#=camera position z()
      c# = (camx# - x#) : c# = c# * c#
      d# = (camz# - z#) : d# = d# * d#
      dist# = sqrt(c# + d#)
      if dist#>750.0
        if object exist(EnemyObj)=0
          make object sphere EnemyObj,50
          yrotate object EnemyObj,145.0
          fix object pivot EnemyObj
        endif
        position object EnemyObj,x#,25.0,z#
        texture object EnemyObj,12
        set object collision on EnemyObj
        make object collision box EnemyObj,-25,-25,-25,25,25,25,0
        EnemySpeed(EnemyObj-2499)=rnd(3)+3
        inc EnemyObj,1
      endif
    endif
  next x
next z
endwhile
return

CheckCollision:
hit = 0
oldcamx#=camera position x()
oldcamy#=camera position y()
oldcamz#=camera position z()
for f = 200 to TotalWalls
  if object collision(player,f)=1 then hit = 1
next f
return

CheckEnemyCollision:
hit = 0
for e = 2500 to 2519
  if object collision(player,e)=1 then hit = 1 : P1Died = 1
next e
return

StoreMap:
  restore MapData
  for y=1 to mapheight
    read a$
    for x=1 to len(a$)
      map$(x,y)=mid$(a$,x)
    next x
  next y
  gosub PickFinal
return

PickFinal:
  ` pick random spot for the final
  okay = 0
  repeat
    x=rnd(mapWidth-1)+1
    z=rnd(MapHeight-1)+1
    if map$(x,z)="_" then map$(x,z)="F" : okay = 1
  until okay = 1
  tx# = ((x-1)*200) : ty# = 50.0 : tz# = ((z-1)*200)
  rem make light at the end of the zone
  if object exist(20)=0
    make object cone 20,100
    zrotate object 20,180.0
    scale object 20,200.0,500.0,200.0
  endif
  position object 20,tx#,ty#+200.0,tz#
  color object 20,rgb(0,0,225)
  ghost object on 20
return

GetPlayerXY:
okay = 0
repeat
  x = rnd(maxw)+2 : z = rnd(maxh)+2
  if map$(x-1,z)="_" and map$(x,z)="_" and map$(x+1,z)="_" and map$(x-1,z+1)="_" and map$(x,z+1)="_" and map$(x+1,z+1)="_" and map$(x-1,z-1)="_" and map$(x,z-1)="_" and map$(x+1,z-1)="_"
    x# = ((x - 1)*200.0)
    z# = ((z - 1)*200.0)
    c# = abs(tx# - x#) : c# = c# * c#
    d# = abs(tz# - z#) : d# = d# * d#
    dist# = sqrt(c# + d#)
    if dist#>2000.0
      position camera x#,50.0,z#
      position object player,x#,50.0,z#
      set object to camera orientation player
      move object player,10
      okay = 1
    endif
  endif
until okay = 1

return

function MakeImages()
` wall
create bitmap 2,256,256
ink rgb(119,41,9),0
box 0,0,255,255
ink rgb(190,190,190),0
box 0,0,255,5 : box 62,0,67,57
box 190,0,195,57
box 0,54,255,57 : box 0,54,4,108
box 128,54,133,108
box 0,104,255,108 : box 40,104,45,157
box 101,104,106,157 : box 200,104,205,157
box 0,155,255,159 : box 12,155,17,208
box 133,155,138,208 : box 0,204,255,208
box 68,204,73,255 : box 195,204,200,255
box 0,251,255,255
get image 43,0,0,255,255
` floor
cls
ink rgb(130,116,71),0
box 0,0,255,255
ink rgb(0,98,197),0
box 3,3,250,250
ink rgb(130,116,71),0
box 64,64,190,190
ink rgb(0,98,197),0
box 96,96,157,157
get image 53,0,0,255,255

` mad face
cls
ink rgb(255,255,0),0
box 0,0,255,255
ink rgb(18,18,18),0
box 67,77,82,100
line 71,73,78,73 : line 70,74,79,74
line 69,75,80,75 : line 68,76,81,76
line 68,101,81,101 : line 69,102,80,102
line 70,103,79,103 : line 71,104,78,104
get image 19000,67,73,83,105
paste image 19000,117,73
delete image 19000
line 84,137,118,137 : line 81,138,121,138 : line 79,139,123,139
line 77,140,125,140 : line 76,141,126,141 : line 75,142,127,142
line 74,143,128,143 : line 73,144,89,144 : line 112,144,129,144
line 73,145,85,145 : line 117,145,129,145 : line 72,146,80,146
line 122,146,130,146 : line 71,147,79,147 : line 123,147,131,147
line 71,148,78,148 : line 124,148,131,148 : line 70,149,77,149
line 125,149,132,149 : line 70,150,76,150 : line 126,150,132,150
line 69,151,75,151 : line 127,151,133,151 : line 69,152,74,152
line 128,152,133,152 : line 69,153,74,153 : line 128,153,133,153
line 69,154,73,154 : line 129,154,133,154
get image 12,0,0,255,255

delete bitmap 2
set current bitmap 0
endfunction


MapData:
data "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
data "W______________________________W"
data "W______________WWWWWWWWWWWWWWWWW"
data "WWWWWW_________W_W_____WWWWW_WWW"
data "W____W_________W_W_____W______WW"
data "W____WWWWWWWWW_W_W_____WWWWW_WWW"
data "W______________W_W________WW___W"
data "W_WWWWWWWW_____W_W________WW___W"
DATA "W_W____________W_________WWW___W"
DATA "W_WWWWW__________________WWW___W"
DATA "W__WWWW________________________W"
DATA "W__WWWWWW______________________W"
DATA "W_____WWW_________WWWWW________W"
DATA "W_____WWW_________W___W________W"
DATA "W_____WWW_________W___W________W"
DATA "WWWW__WWW_________W____WW______W"
DATA "W_____WWW_________W____________W"
DATA "W_________________WWWWWWW______W"
DATA "W_____WWWWWWW__________________W"
DATA "W_____W_____WWW______________WWW"
DATA "W___WWW_________WW_________WWWWW"
DATA "WWWWWWW_____WWW_________WWWW___W"
DATA "W____WWWW___WWW_________WWW____W"
DATA "W____WWWW___WWW_________WWW____W"
DATA "W_________WWWWW________________W"
DATA "W_________WWWWWWWWW________WWWWW"
DATA "W_________W_______W________W___W"
DATA "W_________W________________W___W"
DATA "WWWW______W_______W________W___W"
DATA "WWWW______________W________W__WW"
DATA "WWWW__S___________W___________WW"
DATA "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"

sync on
hide mouse
randomize timer()
fog on
fog distance 400

gosub GetStoneTex
gosub GetHedgeTex

gridwidth=25
griddepth=25
maxradar=25

restart:

dim radar(maxradar)
dim mazepoint(gridwidth,griddepth)

gosub GenerateMaze
gosub MakeArrow
gosub MakeMatrix
gosub MakeEnd
gosub FindStartandEnd

gosub setup3D

starttime=timer()
finish=0

do

   set cursor 0,0

   gosub HandleInput
   gosub HandleVariables
   gosub HandleDisplay
   gosub Handle3D

   if finish=1 then goto Finish

   sync

loop

rem ******************************
rem *********SUB-ROUTINES*********
rem ******************************

GetStoneTex:

   texturexsize=64
   textureysize=64

   ink rgb(150,150,150),0
   box 1,1,texturexsize,textureysize

   ink rgb(50,50,50),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      grey=rnd(100)+50
      ink rgb(grey,grey,grey),0
      line x1,y1,x2,y2
   next i

   get image 2,1,1,texturexsize,textureysize

return

GetHedgeTex:

   texturexsize=64
   textureysize=64

   ink rgb(0,128,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(0,rnd(150)+100,0),0
      line x1,y1,x2,y2
   next i

   get image 1,1,1,texturexsize,textureysize

return

GenerateMaze:

   cls

   ink rgb(255,255,255),0
   print "Generating Maze..";

   unreachables=-100

   dim mazefill(gridwidth,griddepth)

   while unreachables<0

      print ".";
      `cls

      undim mazefill(gridwidth,griddepth)

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            rand=rnd(4)
            if rand=0 or rand=1 or rand=2
               mazepoint(x,z)=0
            else
               mazepoint(x,z)=1
            endif
         next z
      next x

      for x=0 to gridwidth
         mazepoint(x,0)=1
         mazepoint(x,griddepth)=1
      next x

      for z=0 to griddepth
         mazepoint(0,z)=1
         mazepoint(gridwidth,z)=1
      next z

      dim mazefill(gridwidth,griddepth)

      fillmaze(gridwidth,griddepth)

      unreachables=20
      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazepoint(x,z)=0 and mazefill(x,z)=0 then unreachables=unreachables-1
         next z
      next x

      sync

   endwhile

   for x=0 to gridwidth
      for z=0 to griddepth
         if mazepoint(x,z)=0 and mazefill(x,z)=0 then mazepoint(x,z)=1
      next z
   next x

return

MakeArrow:

   make object cone 1,5
   scale object 1,100,30,200
   color object 1,rgb(255,255,0)
   disable object zdepth 1
   xrotate object 1,90
   fix object pivot 1
   hide object 1

return

MakeMatrix:

   make matrix 1,5000,5000,gridwidth,griddepth
   prepare matrix texture 1,1,1,1

   make matrix 2,5000,5000,gridwidth,griddepth
   prepare matrix texture 2,2,1,1
   position matrix 2,0,200,0

   for x=0 to gridwidth-0
      for z=0 to griddepth-0
         if mazepoint(x,z)=1
            set matrix height 1,x,z,100
            set matrix height 2,x,z,-200
         endif
      next z
   next x

   update matrix 1
   update matrix 2

return

MakeEnd:

   make object sphere 2,40
   color object 2,rgb(255,255,0)

   make mesh from object 1,2
   add limb 2,1,1
   hide limb 2,1

   make object sphere 3,45
   color object 3,rgb(255,255,0)
   ghost object on 3
   glue object to limb 3,2,1

   make object sphere 4,50
   color object 4,rgb(255,0,0)
   ghost object on 4
   glue object to limb 4,2,1

return

FindStartandEnd:

   startsection=rnd(3)+1
   select startsection
      case 1
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 2
         repeat
            startx#=rnd(gridwidth*100/2)+gridwidth*100/2
            startz#=rnd(gridwidth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 3
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 4
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)
         until get ground height(1,endx#,endz#)<=20
      endcase
   endselect

return

Setup3D:

   position camera startx#,get ground height(1,startx#,startz#)+20,startz#
   rotate camera 0,0,0
   `position camera endx#,0,endz#

   position object 2,endx#,50,endz#

   make light 1
   set point light 1,camera position x(),camera position y(),camera position z()
   set light to object position 1,2
   show light 1

   backdrop on
   color backdrop 0

return

HandleInput:

   if upkey()=1 then move camera 2
   if downkey()=1 then move camera -2
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

return

HandleVariables:

   distancetoend=enddistance()

   x#=camera position x()
   z#=camera position z()
   y#=get ground height(1,x#,z#)+20

   if sqrt((x#-endx#)^2+(z#-endz#)^2)<100 then finish=1

   if y#>get ground height(2,x#,z#)+180 then x#=oldx# : z#=oldz#

   oldx#=x#
   oldz#=z#

   for i=maxradar to 1 step -1
      radar(i)=radar(i-1)
   next i

   if timer()>=radartime
      radar(1)=1
      if distancetoend<300 then radartime=timer()+300 else radartime=timer()+distancetoend
   endif

return

HandleDisplay:

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)
   ink 0,0
   box 5,290,48,310
   ink rgb(0,200,0),0
   linebox(5,290,48,310)
   ink rgb(0,255,0),0
   text 9,292,timediff$

   ink 0,0
   Nanofillcircle(30,350,maxradar+1)
   ink rgb(0,200,0),0
   circle 30,350,maxradar+1
   for i=1 to maxradar
      if radar(i)=1
         green=(250-i*10)
         ink rgb(0,green,0),0
         circle 30,350,i
      endif
   next i

   angle#=wrapvalue(360-wrapvalue(camera angle y()-270))
   Northx#=50.0+cos(angle#)*30
   Northy#=430.0+sin(angle#)*30
   Northtxtx#=50.0+cos(angle#)*35
   Northtxty#=430.0+sin(angle#)*35

   Eastx#=50.0+cos(wrapvalue(angle#+90))*20
   Easty#=430.0+sin(wrapvalue(angle#+90))*20

   Westx#=50.0+cos(wrapvalue(angle#-90))*20
   Westy#=430.0+sin(wrapvalue(angle#-90))*20

   Southx#=50.0+cos(wrapvalue(angle#+180))*20
   Southy#=430.0+sin(wrapvalue(angle#+180))*20

   ink rgb(255,255,255),0
   line Southx#,Southy#,50,430
   ink rgb(255,0,0),0
   line 50,430,northx#,northy#
   center text northtxtx#,northtxty#-text height("N")/2,"N"
   ink rgb(255,255,255),0
   line Eastx#,Easty#,Westx#,Westy#
   ink rgb(0,200,0),0
   circle 50,430,45

return

Handle3D:

   position camera x#,y#,z#

   move camera 15
   point object 1,endx#,camera position y()-5,endz#
   position object 1,camera position x(),camera position y()+5,camera position z()

   move camera -15

   point light 1,x#,y#,z#

return

Finish:

   if object visible(1)=1 then hide object 1

   sync

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)

   ink rgb(0,255,0),0
   set text size 100
   center text 320,100,"WINNER!"
   ink rgb(0,200,0),0
   set text size 20
   center text 320,200,"Congratulations! You finished in "+left$(timediff$,2)+" minutes and "+right$(timediff$,2)+" seconds!"
   center text 320,230,"Play another random maze?"
   center text 320,255,"[Y]es / [N]o"

   rem delete all data

   undim radar(maxradar)
   undim mazepoint(gridwidth,griddepth)
   undim mazefill(gridwidth,griddepth)

   delete matrix 1
   delete matrix 2

   delete object 1
   delete object 2
   delete object 3
   delete object 4

   delete light 1

   backdrop off

   repeat : sync : until inkey$()="y" or inkey$()="n"

   if inkey$()="y" then goto restart

end

rem ******************************
rem **********FUNCTIONS***********
rem ******************************

function linebox(x1,y1,x2,y2)

   line x1,y1,x1,y2
   line x1,y2,x2,y2
   line x2,y2,x2,y1
   line x2,y1,x1,y1

endfunction

function Nanofillcircle(x,y,r)

   d#=90

   repeat

      d#=d#-0.1
      xc=cos(d#)*r
      ys=sin(d#)*r
      box x-xc,y-ys,x+xc,y+ys

   until d#<=0

endfunction

function enddistance()

   x#=object position x(2)-camera position x()
   z#=object position z(2)-camera position z()

   distance#=sqrt(x#^2+z#^2)

endfunction distance#

function converttimer$(timer)

   timer=timer/1000
   timer2#=timer
   endloop=0
   seconds=0
   check#=0
   if timer>=60
      repeat
         check#=timer2#/60
         check$=str$(check#)
         dpoint=0
         for i=1 to len(check$)
            if mid$(check$,i)="." then dpoint=1
         next i
         if dpoint=0
            endloop=1
         else
            timer2#=timer2#-1
            seconds=seconds+1
         endif
      until endloop=1
      minutes=timer2#/60
   else
      minutes=0
      seconds=timer2#
   endif
   if seconds<10 then seconds$="0"+str$(seconds) else seconds$=str$(seconds)
   if minutes<10 then minutes$="0"+str$(minutes) else minutes$=str$(minutes)
   time$=minutes$+":"+seconds$

endfunction time$

function fillmaze(gridwidth,griddepth)

   for x=1 to gridwidth-1
      for z=1 to griddepth-1
         if mazepoint(x,z)=0 then mazefill(x,z)=1 : goto Ihategotos
      next z
   next x

   Ihategotos:

   repeat

      endfill=1

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazefill(x,z)=1

               if mazepoint(x,z-1)=0 and mazefill(x,z-1)=0
                  mazefill(x,z-1)=1
               endif
               if mazepoint(x+1,z)=0 and mazefill(x+1,z)=0
                  mazefill(x+1,z)=1
               endif
               if mazepoint(x,z+1)=0 and mazefill(x,z+1)=0
                  mazefill(x,z+1)=1
               endif
               if mazepoint(x-1,z)=0 and mazefill(x-1,z)=0
                  mazefill(x-1,z)=1
               endif

               mazefill(x,z)=2
               endfill=0

            endif
         next z
      next x

   until endfill=1

endfunction

sync on
hide mouse
autocam off
randomize timer()
fog on
fog distance 400

gosub GetStoneTex
gosub GetHedgeTex

gridwidth=25
griddepth=25
maxradar=25
maxenemies=20
maxmarkers=5

restart:

dim radar(maxradar)
dim mazepoint(gridwidth,griddepth)
dim enemydir(maxenemies)

gosub GenerateMaze
gosub MakeArrow
gosub MakeMatrix
gosub MakeEnd
gosub MakeMarkers

Replay:

gosub FindStartandEnd
gosub MakeEnemies

gosub setup3D

starttime=timer()
finish=0
death=0
usedmarkers=0

do

   set cursor 0,0

   print "fps ";screen fps()

   gosub HandleInput
   gosub HandleVariables
   gosub HandleEnemies
   gosub HandleDisplay
   gosub Handle3D

   if finish=1 then goto Finish
   if death=1 then goto Death

   sync

loop

rem ******************************
rem *********SUB-ROUTINES*********
rem ******************************

GetStoneTex:

   texturexsize=64
   textureysize=64

   ink rgb(150,150,150),0
   box 1,1,texturexsize,textureysize

   ink rgb(50,50,50),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      grey=rnd(100)+50
      ink rgb(grey,grey,grey),0
      line x1,y1,x2,y2
   next i

   get image 2,1,1,texturexsize,textureysize

return

GetHedgeTex:

   texturexsize=64
   textureysize=64

   ink rgb(0,128,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(0,rnd(150)+100,0),0
      line x1,y1,x2,y2
   next i

   get image 1,1,1,texturexsize,textureysize

return

GenerateMaze:

   cls

   ink rgb(255,255,255),0
   print "Generating Maze..";

   unreachables=-100

   dim mazefill(gridwidth,griddepth)

   while unreachables<0

      print ".";

      undim mazefill(gridwidth,griddepth)

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            rand=rnd(4)
            if rand=0 or rand=1 or rand=2
               mazepoint(x,z)=0
            else
               mazepoint(x,z)=1
            endif
         next z
      next x

      for x=0 to gridwidth
         mazepoint(x,0)=1
         mazepoint(x,griddepth)=1
      next x

      for z=0 to griddepth
         mazepoint(0,z)=1
         mazepoint(gridwidth,z)=1
      next z

      dim mazefill(gridwidth,griddepth)

      fillmaze(gridwidth,griddepth)

      unreachables=20
      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazepoint(x,z)=0 and mazefill(x,z)=0 then unreachables=unreachables-1
         next z
      next x

      sync

   endwhile

   for x=0 to gridwidth
      for z=0 to griddepth
         if mazepoint(x,z)=0 and mazefill(x,z)=0 then mazepoint(x,z)=1
      next z
   next x

return

MakeArrow:

   make object cone 1,5
   scale object 1,100,30,200
   color object 1,rgb(255,255,0)
   disable object zdepth 1
   xrotate object 1,90
   fix object pivot 1
   hide object 1

return

MakeMatrix:

   make matrix 1,5000,5000,gridwidth,griddepth
   prepare matrix texture 1,1,1,1

   make matrix 2,5000,5000,gridwidth,griddepth
   prepare matrix texture 2,2,1,1
   position matrix 2,0,200,0

   for x=0 to gridwidth-0
      for z=0 to griddepth-0
         if mazepoint(x,z)=1
            set matrix height 1,x,z,100
            set matrix height 2,x,z,-200
         endif
      next z
   next x

   update matrix 1
   update matrix 2

return

MakeEnd:

   make object sphere 2,40
   color object 2,rgb(255,255,0)

   make mesh from object 1,2
   add limb 2,1,1
   hide limb 2,1

   make object sphere 3,45
   color object 3,rgb(255,255,0)
   ghost object on 3
   glue object to limb 3,2,1

   make object sphere 4,50
   color object 4,rgb(255,0,0)
   ghost object on 4
   glue object to limb 4,2,1

return

MakeMarkers:

   for i=1 to maxmarkers
      make object cone i+10,25
      scale object i+10,100,10,100
      color object i+10,rgb(0,255,255)
      position object i+10,0,1000,0
   next i

return


FindStartandEnd:

   startsection=rnd(3)+1
   select startsection
      case 1
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 2
         repeat
            startx#=rnd(gridwidth*100/2)+gridwidth*100/2
            startz#=rnd(gridwidth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 3
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 4
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)
         until get ground height(1,endx#,endz#)<=20
      endcase
   endselect

return

MakeEnemies:

   for i=1 to maxenemies
      repeat
         enemyx#=rnd(gridwidth*100)
         enemyz#=rnd(griddepth*100)
      until get ground height(1,enemyx#,enemyz#)<=20 and sqrt((enemyx#-startx#)^2+(enemyz#-startz#)^2)>600
      make object cube i+100,30
      color object i+100,255
      position object i+100,enemyx#,40,enemyz#
      enemydir(i)=rnd(360)
   next i

return

Setup3D:

   position camera startx#,get ground height(1,startx#,startz#)+20,startz#
   rotate camera 0,0,0

   position object 2,endx#,50,endz#

   if light exist(1)=0
      make light 1
      set point light 1,camera position x(),camera position y(),camera position z()
      set light to object position 1,2
      show light 1
   endif

   backdrop on
   color backdrop 0

return

HandleInput:

   if upkey()=1 then move camera 3.5
   if downkey()=1 then move camera -3.5
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   if spacekey()=1
      if oldspacekey=0
         x#=camera position x()
         z#=camera position z()
         if get ground height(1,x#,z#)=0 and usedmarkers<maxmarkers
            position object usedmarkers+1+10,x#,2.5,z#
            usedmarkers=usedmarkers+1
         endif
      endif
      oldspacekey=1
   else
      oldspacekey=0
   endif

return

HandleVariables:

   distancetoend=enddistance()

   x#=camera position x()
   z#=camera position z()
   y#=get ground height(1,x#,z#)+20

   if sqrt((x#-endx#)^2+(z#-endz#)^2)<100 then finish=1

   if y#>get ground height(2,x#,z#)+180 then x#=oldx# : z#=oldz#

   oldx#=x#
   oldz#=z#

   for i=maxradar to 1 step -1
      radar(i)=radar(i-1)
   next i

   if timer()>=radartime
      radar(1)=1
      if distancetoend<300 then radartime=timer()+300 else radartime=timer()+distancetoend
   endif

return

HandleEnemies:

   for i=1 to maxenemies
      object=100+i
      oldenemyx#=object position x(object)
      oldenemyz#=object position z(object)
      if sqrt((x#-oldenemyx#)^2+(z#-oldenemyz#)^2)<500
         point object object,x#,object position y(object),z#
         move object object,1.5
         newenemyx#=object position x(object)
         newenemyz#=object position z(object)
         if get ground height(1,newenemyx#,newenemyz#)+40>get ground height(2,x#,z#)+180
            position object object,oldenemyx#,get ground height(1,oldenemyx#,oldenemyz#)+40,oldenemyz#
         else
            position object object,newenemyx#,get ground height(1,newenemyx#,newenemyz#)+40,newenemyz#
         endif
         enemyx#=object position x(object)
         enemyz#=object position z(object)
         if sqrt((enemyx#-x#)^2+(enemyz#-z#)^2)<40
            death=1
         endif
      else
         yrotate object object,enemydir(i)
         move object object,1.5
         newenemyx#=object position x(object)
         newenemyz#=object position z(object)
         if get ground height(1,newenemyx#,newenemyz#)+40>get ground height(2,x#,z#)+180
            position object object,oldenemyx#,get ground height(1,oldenemyx#,oldenemyz#)+40,oldenemyz#
            enemydir(i)=rnd(360)
         else
            position object object,newenemyx#,get ground height(1,newenemyx#,newenemyz#)+40,newenemyz#
         endif
      endif
   next i

return

HandleDisplay:

   markersleft$=""
   for i=1 to maxmarkers-usedmarkers
      markersleft$=markersleft$+"*"
   next i
   ink 0,0
   box 5,260,128,290
   ink rgb(0,200,0),0
   linebox(5,260,128,280)
   ink rgb(0,255,0),0
   text 9,262,"Markers left: "+markersleft$

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)
   ink 0,0
   box 5,290,48,310
   ink rgb(0,200,0),0
   linebox(5,290,48,310)
   ink rgb(0,255,0),0
   text 9,292,timediff$

   ink 0,0
   Nanofillcircle(30,350,maxradar+1)
   ink rgb(0,200,0),0
   circle 30,350,maxradar+1
   for i=1 to maxradar
      if radar(i)=1
         green=(250-i*10)
         ink rgb(0,green,0),0
         circle 30,350,i
      endif
   next i

   ink 0,0
   Nanofillcircle(50,430,40)

   cameraangle#=wrapvalue(360-wrapvalue(camera angle y()-270))

   ink rgb(255,0,0),0
   for i=1 to maxenemies
      enemyx#=object position x(i+100)
      enemyz#=object position z(i+100)
      if sqrt((x#-enemyx#)^2+(z#-enemyz#)^2)<1000
         enemyx2#=((enemyx#-x#)/25)+50
         enemyz2#=((100-(enemyz#/25))-(100-(z#/25)))+430
         distance#=sqrt((50-enemyx2#)^2+(430-enemyz2#)^2)
         angle#=wrapvalue(wrapvalue(360-atanfull(enemyx2#-50,enemyz2#-430))-270)
         newangle#=wrapvalue(angle#+cameraangle#+90)
         expos#=(cos(newangle#)*distance#)+50
         eypos#=(sin(newangle#)*distance#)+430
         dot expos#,eypos#
      endif
   next i

   if usedmarkers>0
      for i=1 to usedmarkers
         markerx#=object position x(i+10)
         markerz#=object position z(i+10)
         if sqrt((x#-markerx#)^2+(z#-markerz#)^2)<1000
            markerx2#=((markerx#-x#)/25)+50
            markerz2#=((100-(markerz#/25))-(100-(z#/25)))+430
            distance#=sqrt((50-markerx2#)^2+(430-markerz2#)^2)
            angle#=wrapvalue(wrapvalue(360-atanfull(markerx2#-50,markerz2#-430))-270)
            newangle#=wrapvalue(angle#+cameraangle#+90)
            mxpos#=(cos(newangle#)*distance#)+50
            mypos#=(sin(newangle#)*distance#)+430
            ink rgb(0,255,255),0
            circle mxpos#,mypos#,1
            ink rgb(0,155,155),0
            circle mxpos#,mypos#,2
         endif
      next i
   endif

   if sqrt((x#-endx#)^2+(z#-endz#)^2)<1000
      endx2#=((endx#-x#)/25)+50
      endz2#=((100-(endz#/25))-(100-(z#/25)))+430
      distance#=sqrt((50-endx2#)^2+(430-endz2#)^2)
      angle#=wrapvalue(wrapvalue(360-atanfull(endx2#-50,endz2#-430))-270)
      newangle#=wrapvalue(angle#+cameraangle#+90)
      expos#=(cos(newangle#)*distance#)+50
      eypos#=(sin(newangle#)*distance#)+430
      ink rgb(255,200,0),0
      circle expos#,eypos#,2
      circle expos#,eypos#,3
   endif

   Northx#=50.0+cos(cameraangle#)*47
   Northy#=430.0+sin(cameraangle#)*47
   ink rgb(0,220,0),0
   center text northx#,northy#-text height("N")/2,"N"

   startc=wrapvalue(cameraangle#+8)
   endc=wrapvalue(cameraangle#-11)
   partcircle(50,430,45,startc,endc)

   ink rgb(0,200,0),0
   circle 50,430,1

   ink rgb(0,200,0),0
   circle 50,430,40

return

Handle3D:

   position camera x#,y#,z#

   move camera 15
   point object 1,endx#,camera position y()-5,endz#
   position object 1,camera position x(),camera position y()+5,camera position z()

   move camera -15

   point light 1,x#,y#,z#

return

Finish:

   if object visible(1)=1 then hide object 1

   sync

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)

   ink rgb(0,255,0),0
   set text size 100
   center text 320,100,"WINNER!"
   ink rgb(0,200,0),0
   set text size 20
   center text 320,200,"Congratulations! You finished in "+left$(timediff$,2)+" minutes and "+right$(timediff$,2)+" seconds!"
   center text 320,230,"Play another random maze?"
   center text 320,255,"[Y]es / [N]o"

   rem delete all data

   undim radar(maxradar)
   undim mazepoint(gridwidth,griddepth)
   undim mazefill(gridwidth,griddepth)
   undim enemydir(maxenemies)

   delete matrix 1
   delete matrix 2

   delete object 1
   delete object 2
   delete object 3
   delete object 4

   for i=1 to maxenemies
      delete object 100+i
   next i

   for i=1 to maxmarkers
      delete object i+10
   next i

   delete light 1

   backdrop off

   repeat : sync : until inkey$()="y" or inkey$()="n"

   if inkey$()="y" then goto restart

end

Death:

   for i=1 to maxenemies
      delete object 100+i
   next i

   fog distance 200
   fog color rgb(200,0,0)
   for i=100 to 0 step -2
      fog distance i
      sync
   next i
   for i=200 to 0 step -2
      fog color rgb(i,0,0)
      sync
   next i

   sync

   repeat

      ink rgb(255,0,0),0
      set text size 100
      center text 320,100,"You Lose!"
      ink rgb(200,0,0),0
      set text size 20
      center text 320,200,"They got you!"
      center text 320,230,"Play again?"
      center text 320,255,"[Y]es / [N]o"

      sync

   until inkey$()="y" or inkey$()="n"

   fog distance 400
   undim enemydir(maxenemies)

   if inkey$()="y" then goto Replay

end

rem ******************************
rem **********FUNCTIONS***********
rem ******************************

function linebox(x1,y1,x2,y2)

   line x1,y1,x1,y2
   line x1,y2,x2,y2
   line x2,y2,x2,y1
   line x2,y1,x1,y1

endfunction

function Nanofillcircle(x,y,r)

   d#=90

   repeat

      d#=d#-0.1
      xc=cos(d#)*r
      ys=sin(d#)*r
      box x-xc,y-ys,x+xc,y+ys

   until d#<=0

endfunction

function partcircle(x,y,radius,startc,endc)

   endc=wrapvalue(endc)
   startc=wrapvalue(startc)
   crcmfrnc=wrapvalue(endc-startc)
   if endc=startc then crcmfrnc=360

   do#=wrapvalue(startc)
   sofar#=0

   repeat

      sofar#=sofar#+1

      do#=wrapvalue(do#+1)
      dx#=cos(do#)*radius
      dy#=sin(do#)*radius
      bx=x+dx#
      by=y+dy#

      dot bx,by

   until sofar#>=crcmfrnc

endfunction

function enddistance()

   x#=object position x(2)-camera position x()
   z#=object position z(2)-camera position z()

   distance#=sqrt(x#^2+z#^2)

endfunction distance#

function converttimer$(timer)

   timer=timer/1000
   timer2#=timer
   endloop=0
   seconds=0
   check#=0
   if timer>=60
      repeat
         check#=timer2#/60
         check$=str$(check#)
         dpoint=0
         for i=1 to len(check$)
            if mid$(check$,i)="." then dpoint=1
         next i
         if dpoint=0
            endloop=1
         else
            timer2#=timer2#-1
            seconds=seconds+1
         endif
      until endloop=1
      minutes=timer2#/60
   else
      minutes=0
      seconds=timer2#
   endif
   if seconds<10 then seconds$="0"+str$(seconds) else seconds$=str$(seconds)
   if minutes<10 then minutes$="0"+str$(minutes) else minutes$=str$(minutes)
   time$=minutes$+":"+seconds$

endfunction time$

function fillmaze(gridwidth,griddepth)

   for x=1 to gridwidth-1
      for z=1 to griddepth-1
         if mazepoint(x,z)=0 then mazefill(x,z)=1 : goto Ihategotos
      next z
   next x

   Ihategotos:

   repeat

      endfill=1

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazefill(x,z)=1

               if mazepoint(x,z-1)=0 and mazefill(x,z-1)=0
                  mazefill(x,z-1)=1
               endif
               if mazepoint(x+1,z)=0 and mazefill(x+1,z)=0
                  mazefill(x+1,z)=1
               endif
               if mazepoint(x,z+1)=0 and mazefill(x,z+1)=0
                  mazefill(x,z+1)=1
               endif
               if mazepoint(x-1,z)=0 and mazefill(x-1,z)=0
                  mazefill(x-1,z)=1
               endif

               mazefill(x,z)=2
               endfill=0

            endif
         next z
      next x

   until endfill=1

endfunction

sync on
hide mouse
autocam off
randomize timer()
fog on
fog distance 400

gosub GetStoneTex
gosub GetHedgeTex
gosub GetWaterTex

gridwidth=25
griddepth=25
maxradar=25
maxenemies=20
maxmarkers=5
waterheight#=180
whdir=1
watershift#=180

restart:

dim radar(maxradar)
dim mazepoint(gridwidth,griddepth)
dim enemydir(maxenemies)

gosub GenerateMaze
gosub MakeArrow
gosub MakeMatrix
gosub MakeEnd
gosub MakeMarkers

Replay:

gosub FindStartandEnd
gosub MakeEnemies

gosub setup3D

starttime=timer()
finish=0
death=0
usedmarkers=0

do

   set cursor 0,0

   print "fps ";screen fps()

   gosub HandleInput
   gosub HandleVariables
   gosub HandleEnemies
   gosub HandleDisplay
   gosub Handle3D

   if finish=1 then goto Finish
   if death=1 then goto Death

   sync

loop

rem ******************************
rem *********SUB-ROUTINES*********
rem ******************************

GetStoneTex:

   texturexsize=64
   textureysize=64

   ink rgb(150,150,150),0
   box 1,1,texturexsize,textureysize

   ink rgb(50,50,50),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      grey=rnd(100)+50
      ink rgb(grey,grey,grey),0
      line x1,y1,x2,y2
   next i

   get image 2,1,1,texturexsize,textureysize

return

GetHedgeTex:

   texturexsize=64
   textureysize=64

   ink rgb(0,128,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(0,rnd(150)+100,0),0
      line x1,y1,x2,y2
   next i

   get image 1,1,1,texturexsize,textureysize

return

GetWaterTex:

   texturexsize=256
   textureysize=256

   ink rgb(64,64,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   remend
   for i=1 to 64000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(rnd(10)+80,rnd(15)+95,0),0
      line x1,y1,x2,y2
   next i

   get image 3,1,1,texturexsize,textureysize

return

GenerateMaze:

   cls

   ink rgb(255,255,255),0
   print "Generating Maze..";

   unreachables=-100

   dim mazefill(gridwidth,griddepth)

   while unreachables<0

      print ".";

      undim mazefill(gridwidth,griddepth)

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            rand=rnd(4)
            if rand=0 or rand=1 or rand=2
               mazepoint(x,z)=0
            else
               mazepoint(x,z)=1
            endif
         next z
      next x

      for x=0 to gridwidth
         mazepoint(x,0)=1
         mazepoint(x,griddepth)=1
      next x

      for z=0 to griddepth
         mazepoint(0,z)=1
         mazepoint(gridwidth,z)=1
      next z

      dim mazefill(gridwidth,griddepth)

      fillmaze(gridwidth,griddepth)

      unreachables=20
      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazepoint(x,z)=0 and mazefill(x,z)=0 then unreachables=unreachables-1
         next z
      next x

      sync

   endwhile

   for x=0 to gridwidth
      for z=0 to griddepth
         if mazepoint(x,z)=0 and mazefill(x,z)=0 then mazepoint(x,z)=1
      next z
   next x

return

MakeArrow:

   make object cone 1,5
   scale object 1,100,30,200
   color object 1,rgb(255,255,0)
   disable object zdepth 1
   xrotate object 1,90
   fix object pivot 1
   hide object 1

return

MakeMatrix:

   make matrix 3,5000,5000,gridwidth,griddepth
   prepare matrix texture 3,3,1,1
   set matrix 3,1,1,0,1,1,1,1
   `xrotate object 5,90
   position matrix 3,0,15,0
   `color object 5,rgb(170,170,115)
   `ghost matrix on 3

   make matrix 4,5000,5000,gridwidth,griddepth
   prepare matrix texture 4,3,1,1
   set matrix 4,1,1,0,1,1,1,1
   position matrix 4,0,12,0
   ghost matrix on 4

   make matrix 1,5000,5000,gridwidth,griddepth
   prepare matrix texture 1,1,1,1

   make matrix 2,5000,5000,gridwidth,griddepth
   prepare matrix texture 2,2,1,1
   position matrix 2,0,200,0

   for x=0 to gridwidth-0
      for z=0 to griddepth-0
         if mazepoint(x,z)=1
            set matrix height 1,x,z,100
            set matrix height 2,x,z,-200
         endif
      next z
   next x

   update matrix 1
   update matrix 2

return

MakeEnd:

   make object sphere 2,40
   color object 2,rgb(255,255,0)

   make mesh from object 1,2
   add limb 2,1,1
   hide limb 2,1

   make object sphere 3,45
   color object 3,rgb(255,255,0)
   ghost object on 3
   glue object to limb 3,2,1

   make object sphere 4,50
   color object 4,rgb(255,0,0)
   ghost object on 4
   glue object to limb 4,2,1

return

MakeMarkers:

   for i=1 to maxmarkers
      make object cone i+10,25
      scale object i+10,100,10,100
      color object i+10,rgb(0,255,255)
      position object i+10,0,1000,0
   next i

return


FindStartandEnd:

   startsection=rnd(3)+1
   select startsection
      case 1
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 2
         repeat
            startx#=rnd(gridwidth*100/2)+gridwidth*100/2
            startz#=rnd(gridwidth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 3
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 4
         repeat
            startx#=rnd(gridwidth*100/2)
            startz#=rnd(griddepth*100/2)+griddepth*100/2
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*100/2)+gridwidth*100/2
            endz#=rnd(griddepth*100/2)
         until get ground height(1,endx#,endz#)<=20
      endcase
   endselect

return

MakeEnemies:

   for i=1 to maxenemies
      repeat
         enemyx#=rnd(gridwidth*100)
         enemyz#=rnd(griddepth*100)
      until get ground height(1,enemyx#,enemyz#)+40<get ground height(2,enemyx#,enemyz#)+180 and sqrt((enemyx#-startx#)^2+(enemyz#-startz#)^2)>600
      make object cube i+100,30
      color object i+100,255
      position object i+100,enemyx#,40,enemyz#
      enemydir(i)=rnd(360)
   next i

return

Setup3D:

   position camera startx#,get ground height(1,startx#,startz#)+20,startz#
   rotate camera 0,0,0

   position object 2,endx#,50,endz#

   if light exist(1)=0
      make light 1
      set point light 1,camera position x(),camera position y(),camera position z()
      set light to object position 1,2
      show light 1
   endif

   backdrop on
   color backdrop 0

return

HandleInput:

   if upkey()=1 then move camera 3.5
   if downkey()=1 then move camera -3.5
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   if spacekey()=1
      if oldspacekey=0
         x#=camera position x()
         z#=camera position z()
         if get ground height(1,x#,z#)=0 and usedmarkers<maxmarkers
            position object usedmarkers+1+10,x#,15,z#
            usedmarkers=usedmarkers+1
         endif
      endif
      oldspacekey=1
   else
      oldspacekey=0
   endif

return

HandleVariables:

   distancetoend=enddistance()

   x#=camera position x()
   z#=camera position z()
   y#=get ground height(1,x#,z#)+20

   if sqrt((x#-endx#)^2+(z#-endz#)^2)<100 then finish=1

   if y#>get ground height(2,x#,z#)+180 then x#=oldx# : z#=oldz#

   oldx#=x#
   oldz#=z#

   for i=maxradar to 1 step -1
      radar(i)=radar(i-1)
   next i

   if timer()>=radartime
      radar(1)=1
      if distancetoend<300 then radartime=timer()+300 else radartime=timer()+distancetoend
   endif

   if whdir2=1
      waterheight#=waterheight#+1
      if waterheight#>360 then waterheight#=359 : whdir2=2
   else
      waterheight#=waterheight#-1
      if waterheight#<1 then waterheight#=1 : whdir2=1
   endif
   actualwh#=cos(waterheight#)*2
   watershift#=watershift#+1

return

HandleEnemies:

   for i=1 to maxenemies
      object=100+i
      oldenemyx#=object position x(object)
      oldenemyz#=object position z(object)
      if sqrt((x#-oldenemyx#)^2+(z#-oldenemyz#)^2)<500
         point object object,x#,object position y(object),z#
         move object object,1.5
         newenemyx#=object position x(object)
         newenemyz#=object position z(object)
         if get ground height(1,newenemyx#,newenemyz#)+40>get ground height(2,newenemyx#,newenemyz#)+180
            position object object,oldenemyx#,get ground height(1,oldenemyx#,oldenemyz#)+40,oldenemyz#
         else
            position object object,newenemyx#,get ground height(1,newenemyx#,newenemyz#)+40,newenemyz#
         endif
         enemyx#=object position x(object)
         enemyz#=object position z(object)
         if sqrt((enemyx#-x#)^2+(enemyz#-z#)^2)<40
            death=1
         endif
      else
         yrotate object object,enemydir(i)
         move object object,1.5
         newenemyx#=object position x(object)
         newenemyz#=object position z(object)
         if get ground height(1,newenemyx#,newenemyz#)+40>get ground height(2,newenemyx#,newenemyz#)+180
            position object object,oldenemyx#,get ground height(1,oldenemyx#,oldenemyz#)+40,oldenemyz#
            enemydir(i)=rnd(360)
         else
            position object object,newenemyx#,get ground height(1,newenemyx#,newenemyz#)+40,newenemyz#
         endif
      endif
   next i

return

HandleDisplay:

   markersleft$=""
   for i=1 to maxmarkers-usedmarkers
      markersleft$=markersleft$+"*"
   next i
   ink 0,0
   box 5,260,128,290
   ink rgb(0,200,0),0
   linebox(5,260,128,280)
   ink rgb(0,255,0),0
   text 9,262,"Markers left: "+markersleft$

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)
   ink 0,0
   box 5,290,48,310
   ink rgb(0,200,0),0
   linebox(5,290,48,310)
   ink rgb(0,255,0),0
   text 9,292,timediff$

   ink 0,0
   Nanofillcircle(30,350,maxradar+1)
   ink rgb(0,200,0),0
   circle 30,350,maxradar+1
   for i=1 to maxradar
      if radar(i)=1
         green=(250-i*10)
         ink rgb(0,green,0),0
         circle 30,350,i
      endif
   next i

   ink 0,0
   Nanofillcircle(50,430,40)

   cameraangle#=wrapvalue(360-wrapvalue(camera angle y()-270))

   ink rgb(255,0,0),0
   for i=1 to maxenemies
      enemyx#=object position x(i+100)
      enemyz#=object position z(i+100)
      if sqrt((x#-enemyx#)^2+(z#-enemyz#)^2)<1000
         enemyx2#=((enemyx#-x#)/25)+50
         enemyz2#=((100-(enemyz#/25))-(100-(z#/25)))+430
         distance#=sqrt((50-enemyx2#)^2+(430-enemyz2#)^2)
         angle#=wrapvalue(wrapvalue(360-atanfull(enemyx2#-50,enemyz2#-430))-270)
         newangle#=wrapvalue(angle#+cameraangle#+90)
         expos#=(cos(newangle#)*distance#)+50
         eypos#=(sin(newangle#)*distance#)+430
         dot expos#,eypos#
      endif
   next i

   if usedmarkers>0
      for i=1 to usedmarkers
         markerx#=object position x(i+10)
         markerz#=object position z(i+10)
         if sqrt((x#-markerx#)^2+(z#-markerz#)^2)<1000
            markerx2#=((markerx#-x#)/25)+50
            markerz2#=((100-(markerz#/25))-(100-(z#/25)))+430
            distance#=sqrt((50-markerx2#)^2+(430-markerz2#)^2)
            angle#=wrapvalue(wrapvalue(360-atanfull(markerx2#-50,markerz2#-430))-270)
            newangle#=wrapvalue(angle#+cameraangle#+90)
            mxpos#=(cos(newangle#)*distance#)+50
            mypos#=(sin(newangle#)*distance#)+430
            ink rgb(0,255,255),0
            circle mxpos#,mypos#,1
            ink rgb(0,155,155),0
            circle mxpos#,mypos#,2
         endif
      next i
   endif

   remstart
   if sqrt((x#-endx#)^2+(z#-endz#)^2)<1000
      endx2#=((endx#-x#)/25)+50
      endz2#=((100-(endz#/25))-(100-(z#/25)))+430
      distance#=sqrt((50-endx2#)^2+(430-endz2#)^2)
      angle#=wrapvalue(wrapvalue(360-atanfull(endx2#-50,endz2#-430))-270)
      newangle#=wrapvalue(angle#+cameraangle#+90)
      expos#=(cos(newangle#)*distance#)+50
      eypos#=(sin(newangle#)*distance#)+430
      ink rgb(255,200,0),0
      circle expos#,eypos#,2
      circle expos#,eypos#,3
   endif
   remend

   Northx#=50.0+cos(cameraangle#)*47
   Northy#=430.0+sin(cameraangle#)*47
   ink rgb(0,220,0),0
   center text northx#,northy#-text height("N")/2,"N"

   startc=wrapvalue(cameraangle#+8)
   endc=wrapvalue(cameraangle#-11)
   partcircle(50,430,45,startc,endc)

   ink rgb(0,200,0),0
   circle 50,430,1

   ink rgb(0,200,0),0
   circle 50,430,40

return

Handle3D:

   position camera x#,y#,z#

   move camera 15
   point object 1,endx#,camera position y()-5,endz#
   position object 1,camera position x(),camera position y()+5,camera position z()

   move camera -15

   point light 1,x#,y#,z#

   position matrix 3,cos(watershift#)*2,actualwh#+10,sin(watershift#)*2

   if usedmarkers>0
      for i=1 to usedmarkers
         yrotate object i+10,wrapvalue(object angle y(i+10)+1)
      next i
   endif

return

Finish:

   if object visible(1)=1 then hide object 1

   sync

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)

   for i=100 to 0 step -5
      fog distance i
      sync
   next i

   ink rgb(0,255,0),0
   set text size 100
   center text 320,100,"WINNER!"
   ink rgb(0,200,0),0
   set text size 20
   center text 320,200,"Congratulations! You finished in "+left$(timediff$,2)+" minutes and "+right$(timediff$,2)+" seconds!"
   center text 320,230,"Play another random maze?"
   center text 320,255,"[Y]es / [N]o"

   rem delete all data

   undim radar(maxradar)
   undim mazepoint(gridwidth,griddepth)
   undim mazefill(gridwidth,griddepth)
   undim enemydir(maxenemies)

   delete matrix 1
   delete matrix 2
   delete matrix 3
   delete matrix 4

   delete object 1
   delete object 2
   delete object 3
   delete object 4

   for i=1 to maxenemies
      delete object 100+i
   next i

   for i=1 to maxmarkers
      delete object i+10
   next i

   delete light 1

   backdrop off

   repeat : sync : until inkey$()="y" or inkey$()="n"

   fog distance 400

   if inkey$()="y" then goto restart

end

Death:

   for i=1 to maxenemies
      delete object 100+i
   next i

   fog distance 200
   fog color rgb(200,0,0)
   for i=100 to 0 step -2
      fog distance i
      sync
   next i
   for i=200 to 0 step -2
      fog color rgb(i,0,0)
      sync
   next i

   sync

   repeat

      ink rgb(255,0,0),0
      set text size 100
      center text 320,100,"You Lose!"
      ink rgb(200,0,0),0
      set text size 20
      center text 320,200,"They got you!"
      center text 320,230,"Play again?"
      center text 320,255,"[Y]es / [N]o"

      sync

   until inkey$()="y" or inkey$()="n"

   fog distance 400
   undim enemydir(maxenemies)

   if inkey$()="y" then goto Replay

end

rem ******************************
rem **********FUNCTIONS***********
rem ******************************

function linebox(x1,y1,x2,y2)

   line x1,y1,x1,y2
   line x1,y2,x2,y2
   line x2,y2,x2,y1
   line x2,y1,x1,y1

endfunction

function Nanofillcircle(x,y,r)

   d#=90

   repeat

      d#=d#-0.1
      xc=cos(d#)*r
      ys=sin(d#)*r
      box x-xc,y-ys,x+xc,y+ys

   until d#<=0

endfunction

function partcircle(x,y,radius,startc,endc)

   endc=wrapvalue(endc)
   startc=wrapvalue(startc)
   crcmfrnc=wrapvalue(endc-startc)
   if endc=startc then crcmfrnc=360

   do#=wrapvalue(startc)
   sofar#=0

   repeat

      sofar#=sofar#+1

      do#=wrapvalue(do#+1)
      dx#=cos(do#)*radius
      dy#=sin(do#)*radius
      bx=x+dx#
      by=y+dy#

      dot bx,by

   until sofar#>=crcmfrnc

endfunction

function enddistance()

   x#=object position x(2)-camera position x()
   z#=object position z(2)-camera position z()

   distance#=sqrt(x#^2+z#^2)

endfunction distance#

function converttimer$(timer)

   timer=timer/1000
   timer2#=timer
   endloop=0
   seconds=0
   check#=0
   if timer>=60
      repeat
         check#=timer2#/60
         check$=str$(check#)
         dpoint=0
         for i=1 to len(check$)
            if mid$(check$,i)="." then dpoint=1
         next i
         if dpoint=0
            endloop=1
         else
            timer2#=timer2#-1
            seconds=seconds+1
         endif
      until endloop=1
      minutes=timer2#/60
   else
      minutes=0
      seconds=timer2#
   endif
   if seconds<10 then seconds$="0"+str$(seconds) else seconds$=str$(seconds)
   if minutes<10 then minutes$="0"+str$(minutes) else minutes$=str$(minutes)
   time$=minutes$+":"+seconds$

endfunction time$

function fillmaze(gridwidth,griddepth)

   for x=1 to gridwidth-1
      for z=1 to griddepth-1
         if mazepoint(x,z)=0 then mazefill(x,z)=1 : goto Ihategotos
      next z
   next x

   Ihategotos:

   repeat

      endfill=1

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazefill(x,z)=1

               if mazepoint(x,z-1)=0 and mazefill(x,z-1)=0
                  mazefill(x,z-1)=1
               endif
               if mazepoint(x+1,z)=0 and mazefill(x+1,z)=0
                  mazefill(x+1,z)=1
               endif
               if mazepoint(x,z+1)=0 and mazefill(x,z+1)=0
                  mazefill(x,z+1)=1
               endif
               if mazepoint(x-1,z)=0 and mazefill(x-1,z)=0
                  mazefill(x-1,z)=1
               endif

               mazefill(x,z)=2
               endfill=0

            endif
         next z
      next x

   until endfill=1

endfunction

function SBFillCircle( CX, CY, R )
   sR = R*R
   for i = 1 to R
      h = sqrt( sR - i*i )
      box CX - i, CY - h, CX + i, CY + h
   next i
endfunction

sync on
hide mouse
autocam off
randomize timer()
randomize 100
fog on
fog distance 400

sync rate 0

gosub GetStoneTex
gosub GetHedgeTex
gosub GetWaterTex

gridwidth=25
griddepth=25
maxradar=25
maxenemies=50
maxmarkers=5
waterheight#=180
whdir=1
watershift#=180

restart:

dim radar(maxradar)
dim mazepoint(gridwidth,griddepth)
dim enemydir(maxenemies)

gosub GenerateMaze
gosub MakeArrow
gosub MakeMatrix
gosub MakeEnd
gosub MakeMarkers

Replay:

gosub FindStartandEnd
gosub MakeEnemies

gosub setup3D

starttime=timer()
finish=0
death=0
usedmarkers=0

sync rate 40

do

   set cursor 0,0

   print "fps ";screen fps()

   gosub HandleInput
   gosub HandleVariables
   gosub HandleEnemies
   gosub HandleDisplay
   gosub Handle3D

   if finish=1 then goto Finish
   if death=1 then goto Death

   sync

loop

rem ******************************
rem *********SUB-ROUTINES*********
rem ******************************

GetStoneTex:

   texturexsize=64
   textureysize=64

   ink rgb(150,150,150),0
   box 1,1,texturexsize,textureysize

   ink rgb(50,50,50),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      grey=rnd(100)+50
      ink rgb(grey,grey,grey),0
      line x1,y1,x2,y2
   next i

   get image 2,1,1,texturexsize,textureysize

return

GetHedgeTex:

   texturexsize=64
   textureysize=64

   ink rgb(0,128,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(0,rnd(150)+100,0),0
      line x1,y1,x2,y2
   next i

   get image 1,1,1,texturexsize,textureysize

return

GetWaterTex:

   texturexsize=256
   textureysize=256

   ink rgb(100,100,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   remend
   for i=1 to 64000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(rnd(10)+80,rnd(15)+95,0),0
      line x1,y1,x2,y2
   next i

   get image 3,1,1,texturexsize,textureysize

return

GenerateMaze:

   cls

   ink rgb(255,255,255),0
   print "Generating Maze..";

   unreachables=-100

   dim mazefill(gridwidth,griddepth)

   while unreachables<0

      print ".";

      undim mazefill(gridwidth,griddepth)

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            rand=rnd(4)
            if rand=0 or rand=1 or rand=2
               mazepoint(x,z)=0
            else
               mazepoint(x,z)=1
            endif
         next z
      next x

      for x=0 to gridwidth
         mazepoint(x,0)=1
         mazepoint(x,griddepth)=1
      next x

      for z=0 to griddepth
         mazepoint(0,z)=1
         mazepoint(gridwidth,z)=1
      next z

      dim mazefill(gridwidth,griddepth)

      fillmaze(gridwidth,griddepth)

      unreachables=20
      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazepoint(x,z)=0 and mazefill(x,z)=0 then unreachables=unreachables-1
         next z
      next x

      sync

   endwhile

   for x=0 to gridwidth
      for z=0 to griddepth
         if mazepoint(x,z)=0 and mazefill(x,z)=0 then mazepoint(x,z)=1
      next z
   next x

return

MakeArrow:

   make object cone 1,5
   scale object 1,100,30,200
   color object 1,rgb(255,255,0)
   disable object zdepth 1
   xrotate object 1,90
   fix object pivot 1
   hide object 1

return

MakeMatrix:

   make matrix 3,5000,5000,gridwidth,griddepth
   prepare matrix texture 3,3,1,1
   set matrix 3,1,1,0,1,1,1,1
   position matrix 3,0,15,0

   make matrix 4,5000,5000,gridwidth,griddepth
   prepare matrix texture 4,3,1,1
   set matrix 4,1,1,0,1,1,1,1
   position matrix 4,0,12,0
   ghost matrix on 4

   make matrix 1,5000,5000,gridwidth,griddepth
   prepare matrix texture 1,1,1,1

   make matrix 2,5000,5000,gridwidth,griddepth
   prepare matrix texture 2,2,1,1
   position matrix 2,0,200,0

   for x=0 to gridwidth-0
      for z=0 to griddepth-0
         if mazepoint(x,z)=1
            set matrix height 1,x,z,100
            set matrix height 2,x,z,-200
         endif
      next z
   next x

   update matrix 1
   update matrix 2

return

MakeEnd:

   make object sphere 2,40
   color object 2,rgb(255,255,0)

   make mesh from object 1,2
   add limb 2,1,1
   hide limb 2,1

   make object sphere 3,45
   color object 3,rgb(255,255,0)
   ghost object on 3
   glue object to limb 3,2,1

   make object sphere 4,50
   color object 4,rgb(255,0,0)
   ghost object on 4
   glue object to limb 4,2,1

return

MakeMarkers:

   for i=1 to maxmarkers
      make object cone i+10,25
      scale object i+10,100,10,100
      color object i+10,rgb(0,255,255)
      position object i+10,0,1000,0
   next i

return

FindStartandEnd:

   startsection=rnd(3)+1
   select startsection
      case 1
         repeat
            startx#=rnd(gridwidth*200/2)
            startz#=rnd(griddepth*200/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*200/2)+gridwidth*200/2
            endz#=rnd(griddepth*200/2)+griddepth*200/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 2
         repeat
            startx#=rnd(gridwidth*200/2)+gridwidth*200/2
            startz#=rnd(gridwidth*200/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*200/2)
            endz#=rnd(griddepth*200/2)+griddepth*200/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 3
         repeat
            startx#=rnd(gridwidth*200/2)
            startz#=rnd(griddepth*200/2)
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*200/2)+gridwidth*200/2
            endz#=rnd(griddepth*200/2)+griddepth*200/2
         until get ground height(1,endx#,endz#)<=20
      endcase
      case 4
         repeat
            startx#=rnd(gridwidth*200/2)
            startz#=rnd(griddepth*200/2)+griddepth*200/2
         until get ground height(1,startx#,startz#)<=20
         repeat
            endx#=rnd(gridwidth*200/2)+gridwidth*200/2
            endz#=rnd(griddepth*200/2)
         until get ground height(1,endx#,endz#)<=20
      endcase
   endselect

return

MakeEnemies:

   for i=1 to maxenemies
      repeat
         enemyx#=rnd(gridwidth*200)
         enemyz#=rnd(griddepth*200)
      until get ground height(1,enemyx#,enemyz#)+40<get ground height(2,enemyx#,enemyz#)+180 and sqrt((enemyx#-startx#)^2+(enemyz#-startz#)^2)>600
      make object cube i+100,30
      color object i+100,255
      position object i+100,enemyx#,40,enemyz#
      enemydir(i)=rnd(360)
   next i

return

Setup3D:

   position camera startx#,get ground height(1,startx#,startz#)+20,startz#
   rotate camera 0,0,0

   position object 2,endx#,50,endz#

   if light exist(1)=0
      make light 1
      set point light 1,camera position x(),camera position y(),camera position z()
      set light to object position 1,2
      show light 1
   endif

   backdrop on
   color backdrop 0

return

HandleInput:

   if upkey()=1 then move camera 3.5
   if downkey()=1 then move camera -3.5
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   if spacekey()=1
      if oldspacekey=0
         x#=camera position x()
         z#=camera position z()
         if get ground height(1,x#,z#)=0 and usedmarkers<maxmarkers
            position object usedmarkers+1+10,x#,15,z#
            usedmarkers=usedmarkers+1
         endif
      endif
      oldspacekey=1
   else
      oldspacekey=0
   endif

return

HandleVariables:

   distancetoend=enddistance()

   x#=camera position x()
   z#=camera position z()
   y#=get ground height(1,x#,z#)+20

   if sqrt((x#-endx#)^2+(z#-endz#)^2)<100
      finish=1
   endif

   if y#>get ground height(2,x#,z#)+180 then x#=oldx# : z#=oldz#

   oldx#=x#
   oldz#=z#

   for i=maxradar to 1 step -1
      radar(i)=radar(i-1)
   next i

   if timer()>=radartime
      radar(1)=1
      if distancetoend<300 then radartime=timer()+300 else radartime=timer()+distancetoend
   endif

   if whdir2=1
      waterheight#=waterheight#+1
      if waterheight#>360 then waterheight#=359 : whdir2=2
   else
      waterheight#=waterheight#-1
      if waterheight#<1 then waterheight#=1 : whdir2=1
   endif
   actualwh#=cos(waterheight#)*2
   watershift#=watershift#+1

return

HandleEnemies:

   for i=1 to maxenemies
      object=100+i
      oldenemyx#=object position x(object)
      oldenemyz#=object position z(object)
      if sqrt((x#-oldenemyx#)^2+(z#-oldenemyz#)^2)<500
         point object object,x#,object position y(object),z#
         move object object,1.5
         newenemyx#=object position x(object)
         newenemyz#=object position z(object)
         if get ground height(1,newenemyx#,newenemyz#)+40>get ground height(2,newenemyx#,newenemyz#)+180
            position object object,oldenemyx#,get ground height(1,oldenemyx#,oldenemyz#)+40,oldenemyz#
         else
            position object object,newenemyx#,get ground height(1,newenemyx#,newenemyz#)+40,newenemyz#
         endif
         enemyx#=object position x(object)
         enemyz#=object position z(object)
         if sqrt((enemyx#-x#)^2+(enemyz#-z#)^2)<40
            death=1
         endif
      else
         yrotate object object,enemydir(i)
         move object object,1.5
         newenemyx#=object position x(object)
         newenemyz#=object position z(object)
         if get ground height(1,newenemyx#,newenemyz#)+40>get ground height(2,newenemyx#,newenemyz#)+180
            position object object,oldenemyx#,get ground height(1,oldenemyx#,oldenemyz#)+40,oldenemyz#
            enemydir(i)=rnd(360)
         else
            position object object,newenemyx#,get ground height(1,newenemyx#,newenemyz#)+40,newenemyz#
         endif
      endif
   next i

return

HandleDisplay:

   markersleft$=""
   for i=1 to maxmarkers-usedmarkers
      markersleft$=markersleft$+"*"
   next i
   ink 0,0
   box 5,260,128,280
   ink rgb(0,200,0),0
   linebox(5,260,128,280)
   ink rgb(0,255,0),0
   text 9,262,"Markers left: "+markersleft$

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)
   ink 0,0
   box 5,290,48,310
   ink rgb(0,200,0),0
   linebox(5,290,48,310)
   ink rgb(0,255,0),0
   text 9,292,timediff$

   ink 0,0
   SBFillCircle(30,350,maxradar+1)
   ink rgb(0,200,0),0
   circle 30,350,maxradar+1
   for i=1 to maxradar
      if radar(i)=1
         green=(250-i*10)
         ink rgb(0,green,0),0
         circle 30,350,i
      endif
   next i

   ink 0,0
   SBFillCircle(50,430,40)

   cameraangle#=wrapvalue(360-wrapvalue(camera angle y()-270))

   ink rgb(255,0,0),0
   for i=1 to maxenemies
      enemyx#=object position x(i+100)
      enemyz#=object position z(i+100)
      if sqrt((x#-enemyx#)^2+(z#-enemyz#)^2)<1000
         enemyx2#=((enemyx#-x#)/25)+50
         enemyz2#=((100-(enemyz#/25))-(100-(z#/25)))+430
         distance#=sqrt((50-enemyx2#)^2+(430-enemyz2#)^2)
         angle#=wrapvalue(wrapvalue(360-atanfull(enemyx2#-50,enemyz2#-430))-270)
         newangle#=wrapvalue(angle#+cameraangle#+90)
         expos#=(cos(newangle#)*distance#)+50
         eypos#=(sin(newangle#)*distance#)+430
         dot expos#,eypos#
      endif
   next i

   if usedmarkers>0
      for i=1 to usedmarkers
         markerx#=object position x(i+10)
         markerz#=object position z(i+10)
         if sqrt((x#-markerx#)^2+(z#-markerz#)^2)<1000
            markerx2#=((markerx#-x#)/25)+50
            markerz2#=((100-(markerz#/25))-(100-(z#/25)))+430
            distance#=sqrt((50-markerx2#)^2+(430-markerz2#)^2)
            angle#=wrapvalue(wrapvalue(360-atanfull(markerx2#-50,markerz2#-430))-270)
            newangle#=wrapvalue(angle#+cameraangle#+90)
            mxpos#=(cos(newangle#)*distance#)+50
            mypos#=(sin(newangle#)*distance#)+430
            ink rgb(0,255,255),0
            circle mxpos#,mypos#,1
            ink rgb(0,155,155),0
            circle mxpos#,mypos#,2
         endif
      next i
   endif

   Northx#=50.0+cos(cameraangle#)*47
   Northy#=430.0+sin(cameraangle#)*47
   ink rgb(0,220,0),0
   center text northx#,northy#-text height("N")/2,"N"

   startc=wrapvalue(cameraangle#+8)
   endc=wrapvalue(cameraangle#-11)
   partcircle(50,430,45,startc,endc)

   ink rgb(0,200,0),0
   circle 50,430,1

   ink rgb(0,200,0),0
   circle 50,430,40

return

Handle3D:

   position camera x#,y#,z#

   move camera 15
   point object 1,endx#,camera position y()-5,endz#
   position object 1,camera position x(),camera position y()+5,camera position z()

   move camera -15

   point light 1,x#,y#,z#

   position matrix 3,cos(watershift#)*2,actualwh#+10,sin(watershift#)*2

   if usedmarkers>0
      for i=1 to usedmarkers
         yrotate object i+10,wrapvalue(object angle y(i+10)+1)
      next i
   endif

return

Finish:

   if object visible(1)=1 then hide object 1

   sync

   timenow=timer()
   timediff$=converttimer$(timenow-starttime)

   for i=100 to 0 step -5
      fog distance i
      sync
   next i

   ink rgb(0,255,0),0
   set text size 100
   center text 320,100,"WINNER!"
   ink rgb(0,200,0),0
   set text size 20
   center text 320,200,"Congratulations! You finished in "+left$(timediff$,2)+" minutes and "+right$(timediff$,2)+" seconds!"
   center text 320,230,"Play another random maze?"
   center text 320,255,"[Y]es / [N]o"

   rem delete all data

   undim radar(maxradar)
   undim mazepoint(gridwidth,griddepth)
   undim mazefill(gridwidth,griddepth)
   undim enemydir(maxenemies)

   delete matrix 1
   delete matrix 2
   delete matrix 3
   delete matrix 4

   delete object 1
   delete object 2
   delete object 3
   delete object 4

   for i=1 to maxenemies
      delete object 100+i
   next i

   delete light 1

   backdrop off

   repeat : sync : until inkey$()="y" or inkey$()="n"

   fog distance 400

   if inkey$()="y" then goto restart

end

Death:

   for i=1 to maxenemies
      delete object 100+i
   next i

   fog distance 200
   fog color rgb(200,0,0)
   for i=100 to 0 step -2
      fog distance i
      sync
   next i
   for i=200 to 0 step -2
      fog color rgb(i,0,0)
      sync
   next i

   sync

   repeat

      ink rgb(255,0,0),0
      set text size 100
      center text 320,100,"You Lose!"
      ink rgb(200,0,0),0
      set text size 20
      center text 320,200,"They got you!"
      center text 320,230,"Play again?"
      center text 320,255,"[Y]es / [N]o"

      sync

   until inkey$()="y" or inkey$()="n"

   fog distance 400
   undim enemydir(maxenemies)

   if inkey$()="y" then goto Replay

end

rem ******************************
rem **********FUNCTIONS***********
rem ******************************

function linebox(x1,y1,x2,y2)

   line x1,y1,x1,y2
   line x1,y2,x2,y2
   line x2,y2,x2,y1
   line x2,y1,x1,y1

endfunction

function SBFillCircle( CX, CY, R )
   sR = R*R
   for i = 1 to R
      h = sqrt( sR - i*i )
      box CX - i, CY - h, CX + i, CY + h
   next i
endfunction

function partcircle(x,y,radius,startc,endc)

   endc=wrapvalue(endc)
   startc=wrapvalue(startc)
   crcmfrnc=wrapvalue(endc-startc)
   if endc=startc then crcmfrnc=360

   do#=wrapvalue(startc)
   sofar#=0

   repeat

      sofar#=sofar#+1

      do#=wrapvalue(do#+1)
      dx#=cos(do#)*radius
      dy#=sin(do#)*radius
      bx=x+dx#
      by=y+dy#

      dot bx,by

   until sofar#>=crcmfrnc

endfunction

function enddistance()

   x#=object position x(2)-camera position x()
   z#=object position z(2)-camera position z()

   distance#=sqrt(x#^2+z#^2)

endfunction distance#

function converttimer$(timer)

   timer=timer/1000
   timer2#=timer
   endloop=0
   seconds=0
   check#=0
   if timer>=60
      repeat
         check#=timer2#/60
         check$=str$(check#)
         dpoint=0
         for i=1 to len(check$)
            if mid$(check$,i)="." then dpoint=1
         next i
         if dpoint=0
            endloop=1
         else
            timer2#=timer2#-1
            seconds=seconds+1
         endif
      until endloop=1
      minutes=timer2#/60
   else
      minutes=0
      seconds=timer2#
   endif
   if seconds<10 then seconds$="0"+str$(seconds) else seconds$=str$(seconds)
   if minutes<10 then minutes$="0"+str$(minutes) else minutes$=str$(minutes)
   time$=minutes$+":"+seconds$

endfunction time$

function fillmaze(gridwidth,griddepth)

   for x=1 to gridwidth-1
      for z=1 to griddepth-1
         if mazepoint(x,z)=0 then mazefill(x,z)=1 : goto Ihategotos
      next z
   next x

   Ihategotos:

   repeat

      endfill=1

      for x=1 to gridwidth-1
         for z=1 to griddepth-1
            if mazefill(x,z)=1

               if mazepoint(x,z-1)=0 and mazefill(x,z-1)=0
                  mazefill(x,z-1)=1
               endif
               if mazepoint(x+1,z)=0 and mazefill(x+1,z)=0
                  mazefill(x+1,z)=1
               endif
               if mazepoint(x,z+1)=0 and mazefill(x,z+1)=0
                  mazefill(x,z+1)=1
               endif
               if mazepoint(x-1,z)=0 and mazefill(x-1,z)=0
                  mazefill(x-1,z)=1
               endif

               mazefill(x,z)=2
               endfill=0

            endif
         next z
      next x

   until endfill=1

endfunction

remstart
   ==============================================================
   =  Title  : Super basic maze-like room generator
   =  Author : Latch
   =  Date   : 04/25/2008
   =  Update :
   =  Version:
   ==============================================================
   Comments    This is a maze generator that uses a one walled
               mesh, creates multiple copies of it based on a
               grid (width x depth), rotates rooms randomly at
               90 degrees increments, and places them.  It creates
               a mazey structure with very little code.
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   randomize timer()

rem =============================================================
rem = MAIN
rem =============================================================
   input "Maze Width ? :";wd
   input "Maze Depth ? :";dp
   Input "Wall x Size# ? :";sizex#
   input "Wall y Hieght# ? :";sizey#
   Print "GENERATING MAZE"
   wait 100
   sync
   one_wall(1,sizex#,sizey#)
   random_rooms(wd,dp,1)
   position camera 0,0,sizex#*2
   do
      gosub _move_camera

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _move_camera:
      move camera (upkey()-downkey())*2
      turn camera right (rightkey()-leftkey())*2
   return
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function one_wall(obj,sizex#,sizey#)
      make object plain obj,sizex#,sizey#
      offset limb obj,0,0,0,sizex#/2.0
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
   endfunction
`----------------------------------------------------------------
   function random_rooms(wd,dp,obj)
      size#=object size x(obj)
      make mesh from object obj,obj
      lmb=0
      for x=0 to wd-1
         for z=0 to dp-1
            inc lmb
            add limb obj,lmb,obj
            offset limb obj,lmb,x*size#,0,z*size#
            rotate limb obj,lmb,0,rnd(3)*90,0
         next z
      next x
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
      set object obj,1,0,0
   endfunction

Rem Random Maze Generation By TDK_Man
Rem For DBC Challenges

Set Display Mode 800,600,32
Sync On
Sync Rate 0
Randomize Timer()
AutoCam Off
Gosub MakeTextures
CLS

CellSize = 32: GridSize = 16
Dim CellVisited(GridSize-1,GridSize-1)
Dim WallArray(GridSize-1,GridSize-1)
Dim Neighbours(3)
Dim NextPathDir(3)
Dim OriginalPath(200,1)
MazeOffsetX = 10: MazeOffsetY = 10

OrigPathCells = 1: CellNum = 1
OriginX = -1: OriginY = -1

Rem Cells...
CLS
For Ny=0 To GridSize-1
  For Nx=0 To GridSize-1
    CellVisited(Nx,Ny) = -1: Rem Set Each Cell To Unvisited (1=Visited)
    WallArray(Nx,Ny) = 15: Rem Set Each Cell To Having All Four Walls
  Next Nx
Next Ny

EntryX = GridSize/2: EntryY = 0
ExitX = -1: ExitY = -1
CurrentCellX = EntryX: CurrentCellY = EntryY

WallArray(EntryX,EntryY) = WallArray(EntryX,EntryY)-1: Rem Remove top wall for exit door
CellVisited(EntryX,EntryY) = 1: Rem Set Entry Cell As Visited
Phase = 1
Print "Please Wait - Generating Random Maze..."

Do
  If Phase = 1 Then Gosub MainPath
  If Phase = 2 Then Gosub NextCell
  If Phase = 3 Then Gosub UnChartered
  If Phase = 4 Then Gosub Finished
  Sync
Loop
End

Finished:
  Gosub DrawMaze
  Rem Maze Finished!!!!
  Center Text 400,580,"Finished - Press A Key For 3D View"
  Wait Key
  Set Camera View 0,0,800,580
  Make Matrix 1,CellSize*(GridSize*1.2),CellSize*(GridSize*1.2),10,10
  Prepare Matrix Texture 1,1,1,1
  Position Camera EntryX*CellSize+(CellSize/2),6,CellSize*GridSize
  Hide Mouse

  Backz = CellSize*GridSize
  ObjNum = 1
  For Ny=1 To GridSize
    Make Object Box ObjNum,1,24,CellSize
    Texture Object ObjNum,2
    Position Object ObjNum,0,12,Ny*CellSize
    Inc ObjNum
  Next Ny
  For Nx=1 To GridSize
    ThisCell = WallArray(Nx-1,0)
    If ThisCell >= 8
      Rem Right Wall
      Dec ThisCell,8
    Endif
    If ThisCell >= 4
      Rem Left Wall
      Dec ThisCell,4
    Endif
    If ThisCell >= 2
      Rem Bottom Wall
      Dec ThisCell,2
    Endif
    If ThisCell = 1
      Make Object Box ObjNum,CellSize,24,1
      Texture Object ObjNum,2
      Position Object ObjNum,Nx*CellSize-(CellSize/2),12,Backz+(CellSize/2) : Rem +(CellSize/2)
      Inc ObjNum
    Endif
  Next Ny

  For Ny=0 To GridSize-1
    For Nx=0 To GridSize-1
      CLS
      ThisCell = WallArray(Nx,Ny)
      Text 0,580,Str$(ThisCell)
      If ThisCell >= 8
        Rem Right Wall
        Make Object Box ObjNum,1,24,CellSize
    Texture Object ObjNum,2
        Position Object ObjNum,Nx*CellSize+CellSize,12,Backz-(Ny*CellSize)
        Inc ObjNum
        Dec ThisCell,8
      Endif
      If ThisCell >= 4
        Dec ThisCell,4
      Endif
      If ThisCell >= 2
        Rem Bottom Wall
        Make Object Box ObjNum,CellSize,24,1
        Texture Object ObjNum,2
        Position Object ObjNum,Nx*CellSize+(CellSize/2),12,Backz-(Ny*CellSize)-(CellSize/2)
        Inc ObjNum
        Dec ThisCell,2
      Endif
    Next Nx
  Next Ny

  Make Object Box ObjNum,2,4,2
  Position Object ObjNum,ExitX*CellSize+(CellSize/2),2,4

  Do
    CX#=Camera Angle X(): CY#=Camera Angle Y(): CZ#=Camera Angle Z()
    CY#=Wrapvalue(CY#+mousemovex())
    CX#=Wrapvalue(CX#+mousemovey())
    Rotate Camera CX#,CY#,CZ#
    If MouseClick()=1 Then Move Camera 1
    If MouseClick()=2 Then Move Camera -1
    Rem Unrem following line to walk through maze - leave remmed to fly
    Rem Position Camera Camera Position X(),6,Camera Position Z()
    Sync
  Loop
Return

UnChartered:
  FoundOne=0
  For Ny=0 To GridSize-1
    For Nx=0 To GridSize-1
      If CellVisited(NX,NY)=-1: Rem Unvisited Cell
        CurrentCellX = Nx: CurrentCellY = Ny
        CellVisited(NX,NY) = Phase
        Nx=GridSize-1: Ny=GridSize-1
        Inc FoundOne
      Endif
    Next Nx
  Next Ny
  If FoundOne=0
    Phase = 4
  Else
    Phase = 2
    CellNum = 3
    OrigPathCells=0
  Endif
Return

NextCell:
  Rem Clear Last Array Data
  For N=0 To 3
    NextPathDir(N) = 0: Neighbours(N) = 0
  Next N
  Rem Neighbours Start At 1=North  2=South  3=East  4=West
  If CurrentCellY > 0 Then Neighbours(0) = CellVisited(CurrentCellX,CurrentCellY-1)
  If CurrentCellY < GridSize-1 Then Neighbours(1) = CellVisited(CurrentCellX,CurrentCellY+1)
  If CurrentCellX < GridSize-1 Then Neighbours(2) = CellVisited(CurrentCellX+1,CurrentCellY)
  If CurrentCellX > 0 Then Neighbours(3) = CellVisited(CurrentCellX-1,CurrentCellY)
  DirCounter = 0
  For N=0 To 3
    If Neighbours(N) = -1: Rem Unvisited
      NextPathDir(DirCounter) = N
      Inc DirCounter
    Endif
  Next N
  If DirCounter > 0

    If CellNum=3
      OriginalPath(OrigPathCells,0) = CurrentCellX
      OriginalPath(OrigPathCells,1) = CurrentCellY
      Inc OrigPathCells
    Endif

    Rem Choose Random Direction
    DirToGo = Rnd(DirCounter-1)
    ActDir = NextPathDir(DirToGo)
    Select ActDir
      Case 0
        Rem North
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-1
        Dec CurrentCellY
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-2
      EndCase
      Case 1
        Rem South
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-2
        Inc CurrentCellY
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-1
      EndCase
      Case 2
        Rem East
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
        Inc CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
      EndCase
      Case 3
        Rem West
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
        Dec CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
      EndCase
    EndSelect
    Rem Record Main Path X/Y Positions For Later Retracing

    Rem Move Into New Cell
    CellVisited(CurrentCellX,CurrentCellY) = CellNum

  Else
    Rem No adjacent -1 cells to jump into
    Inc RetraceSteps
    If RetraceSteps > OrigPathCells
      RetraceSteps=1
      OrigPathCells=1
      Phase = 3
    Else
      CurrentCellX = OriginalPath(RetraceSteps,0)
      CurrentCellY = OriginalPath(RetraceSteps,1)
      OriginX = CurrentCellX: OriginY = CurrentCellY
    Endif
  Endif
Return

MainPath:
  Rem Clear Last Array Data
  For N=0 To 3
    NextPathDir(N) = 0: Neighbours(N) = 0
  Next N
  Rem Neighbours Start At 1=North  2=South  3=East  4=West
  If CurrentCellY < GridSize-1 Then Neighbours(1) = CellVisited(CurrentCellX,CurrentCellY+1)
  If CurrentCellX < GridSize-1 Then Neighbours(2) = CellVisited(CurrentCellX+1,CurrentCellY)
  If CurrentCellX > 0 Then Neighbours(3) = CellVisited(CurrentCellX-1,CurrentCellY)
  DirCounter = 0
  For N=1 To 3
    If Neighbours(N) = -1: Rem Unvisited
      NextPathDir(DirCounter) = N
      Inc DirCounter
    Endif
  Next N
  If CurrentCellY < GridSize-1
    Rem Choose Random Direction
    DirToGo = Rnd(DirCounter-1)
    ActDir = NextPathDir(DirToGo)
    Select ActDir
      Case 1
        Rem South
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-2
        Inc CurrentCellY
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-1
      EndCase
      Case 2
        Rem East
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
        Inc CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
      EndCase
      Case 3
        Rem West
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
        Dec CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
      EndCase
    EndSelect
    Rem Record Main Path X/Y Positions For Later Retracing
    OriginalPath(OrigPathCells,0) = CurrentCellX
    OriginalPath(OrigPathCells,1) = CurrentCellY
    Inc OrigPathCells
    Rem Move Into New Cell
    CellVisited(CurrentCellX,CurrentCellY) = CellNum
  Else
    Rem Reached Exit Wall
    WallArray(CurrentCellX,CurrentCellY) = 12: Rem Open Door To Outside
    ExitX = CurrentCellX: ExitY = CurrentCellY
    RetraceSteps = 1
    CurrentCellX = OriginalPath(RetraceSteps,0): CurrentCellY = OriginalPath(RetraceSteps,1)
    OriginX = CurrentCellX: OriginY = CurrentCellY
    Phase = 2
    CellNum = 2
  Endif
Return

DrawMaze:
  CLS
  For Ny=0 To GridSize-1
    For Nx=0 To GridSize-1
      Rem Draw Floor
      Ink RGB(255,255,255),0
      rem If (Nx=EntryX and Ny=EntryY) Or (Nx=ExitX and Ny=ExitY) Then Ink RGB(230,230,230),0

      If CellVisited(Nx,Ny)=1 Then Ink RGB(255,240,240),0
      rem If CellVisited(Nx,Ny)=3 Then Ink RGB(255,200,140),0

      rem If CellVisited(Nx,Ny)=-1 Then Ink RGB(255,240,240),0

      Box Nx*CellSize+MazeOffsetX,Ny*CellSize+MazeOffsetY,  Nx*CellSize+MazeOffsetX+CellSize-1,  Ny*CellSize+MazeOffsetY+CellSize-1
      TextPosX = Nx*CellSize+(CellSize/2)+2: TextPosY = Ny*CellSize+(CellSize/2)+2

      Ink 0,0: Text TextPosX,TextPosY,Str$(WallArray(NX,NY))
      rem Ink 0,0: Text TextPosX,TextPosY,Str$(CellVisited(NX,NY))

      Rem If CellVisited(Nx,Ny)=-1 Then Ink 0,0: Text TextPosX,TextPosY,Str$(CellVisited(Nx,Ny))
      Rem All Four Walls = 1+2+4+8 (15)
      ThisCell = WallArray(Nx,Ny)
      Ink RGB(255,0,0),0
      If ThisCell >= 8
        Rem Right Wall
        WallPosX = Nx*CellSize+(MazeOffsetX+CellSize-1)
        Line WallPosX,  Ny*CellSize+MazeOffsetY,  WallPosX,  Ny*CellSize+MazeOffsetY+CellSize-1
        Dec ThisCell,8
      Endif
      If ThisCell >= 4
        Rem Left Wall
        Dec ThisCell,4
      Endif
      If ThisCell >= 2
        Rem Bottom Wall
        WallPosY = Ny*CellSize+(MazeOffsetY+CellSize-1)
        Line Nx*CellSize+MazeOffsetX,WallPosY,Nx*CellSize+MazeOffsetX+CellSize-1,WallPosY
        Dec ThisCell,2
      Endif
      If ThisCell = 1
        Rem Top Wall
      Endif
    Next Nx
  Next Ny
  Ink RGB(255,255,255),0
Return

MakeTextures:
  Create Bitmap 1,800,600
  CLS RGB(200,200,200): Ink RGB(90,90,100),0
  For N=0 To 3: Circle 6,6,4-N: Next N
  For N=0 To 3: Circle 123,6,4-N: Next N
  For N=0 To 3: Circle 6,59,4-N: Next N
  For N=0 To 3: Circle 123,59,4-N: Next N
  Box 6,2,124,63: Box 2,6,127,59
  For N=1 To 4000
    C=Rnd(200): Ink RGB(C,C,C),0: Dot Rnd(122)+4,Rnd(58)+4
  Next N
  Sync
  Get Image 1,0,0,128,64
  For Ny=0 To 15
    For Nx=0 To 9
      Paste Image 1,Nx*128-Offset,Ny*64
    Next Nx
    Inc Offset,64: If Offset=128 Then Offset=0
  Next Ny
  Delete Image 1
  Blur Bitmap 1,1
  Get Image 2,0,0,512,512

  CLS RGB(96,96,96)
  Get Image 1,0,0,128,128

  Set Current Bitmap 0
  Delete Bitmap 1
Return

remstart
   ==============================================================
   =  Title  : Super basic maze-like room generator
   =  Author : Latch
   =  Date   : 04/25/2008
   =  Update :
   =  Version: .02
   ==============================================================
   Comments    This is a maze generator that uses a one walled
               mesh, creates multiple copies of it based on a
               grid (width x depth), rotates rooms randomly at
               90 degrees increments, and places them.  It creates
               a mazey structure with very little code.
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   randomize timer()
   hide mouse

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   gosub _init
   position camera object size x(1)/2,0,object size z(1)/2
   do
      gosub _move_camera

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      ink rgb(255,255,255),0
      grey=11
      grey2=12
      gosub _grey
      gosub _grey2
      cls 0
      input "Maze Width ? :";wd
      input "Maze Depth ? :";dp
      Input "Wall x Size# ? :";sizex#
      input "Wall y Hieght# ? :";sizey#
      Print "GENERATING MAZE"
      wait 100
      sync
      one_wall(1,sizex#,sizey#)
      random_rooms(wd,dp,1)

      texture object 1,grey2
      set object collision to polygons 1
      set object collision on 1

      make object box 2,(sizex#*(wd+1)),sizey#,(sizex#*(dp+1))
      position object 2,(object size x(2)/2)-sizex#,0,(object size z(2)/2)-sizex#
      set object 2,1,1,0
      texture object 2,grey
      set object collision off 2
      offx#=object size x(2)/2
      offz#=object size z(2)/2

      make object cube 3,10
      set object collision to boxes 3
      set object collision on 3
      hide object 3

      speed#=sizex#/50

   return
`----------------------------------------------------------------
   _move_camera:
      oldcamx#=newx#
      oldcamz#=newz#
      newx#=newxvalue(camera position x(),camera angle y(),(upkey()-downkey())*speed#)
      newz#=newzvalue(camera position z(),camera angle y(),(upkey()-downkey())*speed#)
      position camera newx#,0,newz#

      rem check collision with maze walls
      bang=object collision(3,0)
      if bang > 0
         if upkey() then drtn#=-1*speed#
         if downkey() then drtn#=speed#
         newx#=newxvalue(camera position x(),camera angle y(),drtn#)
         newz#=newzvalue(camera position z(),camera angle y(),drtn#)
         position camera newx#,0,newz#
      endif

      rem check camera leaving box
      x1#=object position x(2)-offx#
      x2#=object position x(2)+offx#
      z1#=object position z(2)-offz#
      z2#=object position z(2)+offz#
      if newx# <= x1# or newx# >= x2#
         if upkey() then drtn#=-1*speed#
         if downkey() then drtn#=speed#
         newx#=newxvalue(camera position x(),camera angle y(),drtn#)
         `newz#=newzvalue(camera position z(),camera angle y(),drtn#)
         position camera newx#,0,newz#
      endif
      if newz# <= z1# or newz# >= z2#
         if upkey() then drtn#=-1*speed#
         if downkey() then drtn#=speed#
         `newx#=newxvalue(camera position x(),camera angle y(),drtn#)
         newz#=newzvalue(camera position z(),camera angle y(),drtn#)
         position camera newx#,0,newz#
      endif

      yrotate camera wrapvalue(camera angle y()+((rightkey()-leftkey())*2))
      position object 3,camera position x(),camera position y(),camera position z()

      text 0,20,str$(bang)
   return
`----------------------------------------------------------------
   _grey:
      cls 0
      dot 0,1
      get image grey,0,0,2,2
      sync
   return
`----------------------------------------------------------------
   _grey2:
      cls 0
      dot 0,0
      get image grey2,0,0,1,2
      sync
   return
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function one_wall(obj,sizex#,sizey#)
      make object plain obj,sizex#,sizey#
      offset limb obj,0,0,0,sizex#/2.0
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
   endfunction
`----------------------------------------------------------------
   function random_rooms(wd,dp,obj)
      size#=object size x(obj)
      make mesh from object obj,obj
      lmb=0
      for x=0 to wd-1
         for z=0 to dp-1
            inc lmb
            add limb obj,lmb,obj
            offset limb obj,lmb,x*size#,0,z*size#
            rotate limb obj,lmb,0,rnd(3)*90,0
         next z
      next x
      make mesh from object obj,obj
      delete object obj
      make object obj,obj,0
      set object obj,1,1,0
   endfunction

` LBFN  DBC CHALLENGE - MAZE GAME

set display mode 800,600,32
sync on : sync rate 60
randomize timer()
hide mouse
sw = screen width()
sh = screen height()
backdrop on
color backdrop rgb(18,18,18)
autocam off
MapWidth = 32
MapHeight = 32
UnitSize = 200
maxw = Mapwidth-3
maxh = MapHeight-3
pointer = 49900
TotalWalls = 0 : TotalFloors = 0 : TotalEnemies = 40
fog on
fog color rgb(18,18,18)
fog distance 1500
set camera range 1,2000
set ambient light 55

cls
dim map$(mapwidth,mapheight) : dim EnemySpeed(TotalEnemies)

`gosub StoreMap
gosub MakeMaze
MakeImages()
gosub PickFinal
`gosub MakeCeiling

player = 1
make object sphere player,10
set object collision on player
make object collision box player,-5,-5,-5,5,5,5,0
hide object player

okay = 0

gosub GetPlayerXY
gosub MakeEnemies
gosub FixMaze
gosub ShowMap
make object cone pointer,30
texture object pointer,2319
xrotate object pointer,90.0
fix object pivot pointer
cls
get image 999,0,0,170,45
draw to front
ty#=camera position y()
ink rgb(255,0,0),0
StartTime#=timer()
u#=.1
rem Main Loop ______________________________________________________________________________________________

do
  text 100,10,"FPS = "+str$(screen fps() )
`  center text sw/2,10,"Time:"+str$(int(timer()-StartTime#)/1000)
  camx#=camera position x() : oldx#=camx#
  camy#=camera position y() : oldy#=camy#
  camz#=camera position z() : oldz#=camz#
  position object player,camx#,camy#,camz#
  set object to camera orientation player
  move object player,10
  position object pointer,camx#,camy#+42.0,camz#
  set object to camera orientation pointer
  move object pointer,100
  if u#<3.0
    u#=u#+.0000001
  else
    u#=0.001
  endif
  scroll object texture pointer,0.0,u#
  point object pointer,tx#,ty#,tz#
  y#=camera angle y()
  yrotate camera wrapvalue(y#+mousemovex() )
  camx#=camera position x()
  camy#=camera position y()
  camz#=camera position z()
  position object player,camx#,camy#,camz#
  set object to camera orientation player
  move object player,10
  y#=object angle y(20)
  yrotate object 20,wrapvalue(y#+6.0)
  mc=mouseclick()
  if mc=1
    move camera 10 : move object player,10
    gosub CheckCollision
    if hit = 1 then move camera -10 : move object player,-10
  endif
  if mc=2
    move camera -10 : move object player,-10
    gosub CheckCollision
    if hit = 1 then move camera 10 : move object player,10
 `   gosub DP_Map
  endif
`  if upkey()=1
`    camy#=camy#+5.0
`    position camera camx#,camy#,camz#
`  endif
`  if downkey()=1
`    camy#=camy#-5.0
`    position camera camx#,camy#,camz#
`  endif
  if spacekey()=1 then exit
  gosub CheckWinner
  gosub MoveEnemies
  gosub CheckEnemyCollision : if hit = 1 then gosub P1Died
  sync
loop
rem Main Loop ______________________________________________________________________________________________

show mouse
end

Restart:
  gosub MakeMaze
  gosub PickFinal
  gosub GetPlayerXY
  gosub FixMaze
  gosub ShowMap
  gosub MakeEnemies
  StartTime#=timer()
  if object exist(9000)=1 then hide object 9000
return

P1Died:
if object exist(9000)=0
  make object plain 9000,screen width()+100,screen height()+100
endif
show object 9000
position object 9000,camx#,camy#,camz#
set object to camera orientation 9000
move object 9000,50
rg = 255
color object 9000,rgb(rg,rg,rg)
OldTime#=timer()
time# = timer()+3000.0
repeat
  t#=timer()
  if (t#-OldTime#)>59.0
    dec rg,5
    color object 9000,rgb(rg,rg,rg)
    OldTime#=timer()
  endif
  sync
until timer()>time#
color backdrop rgb(18,18,18)
gosub Restart
return


MakeEnemies:
EnemyObj=25000
while EnemyObj<(25000 + TotalEnemies)
for z=1 to MapHeight
  for x=1 to MapWidth
    if map$(x,z)="_" and rnd(1000)>970 and EnemyObj<(25000 + TotalEnemies)
      ` make enemy
      x# = (x*UnitSize)
      z# = (z*UnitSize)
      camx#=camera position x()
      camy#=camera position y()
      camz#=camera position z()
      c# = (camx# - x#) : c# = c# * c#
      d# = (camz# - z#) : d# = d# * d#
      dist# = sqrt(c# + d#)
      if dist#>750.0
        if object exist(EnemyObj)=0
          make object sphere EnemyObj,50
          yrotate object EnemyObj,145.0
          fix object pivot EnemyObj
        endif
        position object EnemyObj,x#,25.0,z#
        texture object EnemyObj,12
        set object collision on EnemyObj
        make object collision box EnemyObj,-25,-25,-25,25,25,25,0
        EnemySpeed(EnemyObj-24999)=rnd(3)+3
        inc EnemyObj,1
      endif
    endif
  next x
next z
endwhile
return

MoveEnemies:
 For enemy = 25000 to (25000 + TotalEnemies-1)
    point object enemy,camx#,camy#,camz#
    e=enemy-24999
    move object enemy,EnemySpeed(e)
    for f = 200 to TotalWalls
      if object collision(enemy,f)=1 then move object enemy,0-EnemySpeed(e) : exit
    next f
  next enemy
return


CheckCollision:
hit = 0
oldcamx#=camera position x()
oldcamy#=camera position y()
oldcamz#=camera position z()
for f = 200 to TotalWalls
  if object collision(player,f)=1 then hit = 1
next f
return

CheckEnemyCollision:
hit = 0
for e = 25000 to (25000 + TotalEnemies)
  if object collision(player,e)=1 then hit = 1 : P1Died = 1
next e
return

StoreMap:
  restore MapData
  for y=1 to mapheight
    read a$
    for x=1 to len(a$)
      map$(x,y)=mid$(a$,x)
    next x
  next y
  gosub PickFinal
return

PickFinal:
  ` pick random spot for the final
  x=rnd(mapWidth-10)+6
  z=rnd(MapHeight-10)+6
  map$(x-1,z)="_" : map$(x,z)="_" : map$(x+1,z)="_"
  map$(x-1,z+1)="_" : map$(x,z+1)="_" : map$(x+1,z+1)="_"
  map$(x-1,z-1)="_" : map$(x,z-1)="_" : map$(x+1,z-1)="_"
  map$(x,z)="F"
  tx# = (x*UnitSize) : ty# = 50.0 : tz# = (z*UnitSize)
  a = rnd(3)
  if a = 0 then map$(x-2,z)="_" : map$(x-3,z)="_"
  if a = 1 then map$(x,z-2)="_" : map$(x,z-3)="_"
  if a = 2 then map$(x+2,z)="_" : map$(x+3,z)="_"
  if a = 3 then map$(x,z+2)="_" : map$(x,z+3)="_"
  rem make light at the end of the zone
  if object exist(20)=0
    make object cone 20,100
    zrotate object 20,180.0
    scale object 20,200.0,500.0,200.0
  endif
  position object 20,tx#,ty#+200.0,tz#
  color object 20,rgb(0,0,225)
  ghost object on 20
return

GetPlayerXY:
okay = 0
tries = 0
repeat

  x = rnd(20)+6 : z = rnd(20)+6
  x# = (x*UnitSize)
  z# = (z*UnitSize)
  c# = abs(tx# - x#) : c# = c# * c#
  d# = abs(tz# - z#) : d# = d# * d#
  dist# = sqrt(c# + d#)
  if dist#>3000.0 or tries>100
    okay = 1
    map$(x-1,z-1)="_" : map$(x,z-1)="_" : map$(x+1,z-1)="_"
    map$(x-1,z)="_" : map$(x,z)="_" : map$(x+1,z)="_"
    map$(x-1,z+1)="_" : map$(x,z+1)="_" : map$(x+1,z+1)="_"
    playerX=x
    playerZ=z
    position camera playerX*UnitSize,50.0,playerZ*UnitSize
    a = rnd(3)
    if a = 0 then map$(x-2,z)="_"
    if a = 1 then map$(x,z-2)="_"
    if a = 2 then map$(x+2,z)="_"
    if a = 3 then map$(x,z+2)="_"
  endif
  inc tries,1

until okay = 1

return

function MakeImages()
` wall
create bitmap 2,256,256
ink rgb(119,41,9),0
box 0,0,255,255
ink rgb(190,190,190),0
box 0,0,255,5 : box 62,0,67,57
box 190,0,195,57
box 0,54,255,57 : box 0,54,4,108
box 128,54,133,108
box 0,104,255,108 : box 40,104,45,157
box 101,104,106,157 : box 200,104,205,157
box 0,155,255,159 : box 12,155,17,208
box 133,155,138,208 : box 0,204,255,208
box 68,204,73,255 : box 195,204,200,255
box 0,251,255,255
get image 43,0,0,255,255
` floor
cls
ink rgb(130,116,71),0
box 0,0,255,255
ink rgb(0,98,197),0
box 3,3,250,250
ink rgb(130,116,71),0
box 64,64,190,190
ink rgb(0,98,197),0
box 96,96,157,157
get image 53,0,0,255,255

` mad face
cls
ink rgb(255,255,0),0
box 0,0,255,255
ink rgb(18,18,18),0
box 67,77,82,100
line 71,73,78,73 : line 70,74,79,74
line 69,75,80,75 : line 68,76,81,76
line 68,101,81,101 : line 69,102,80,102
line 70,103,79,103 : line 71,104,78,104
get image 19000,67,73,83,105
paste image 19000,117,73
delete image 19000
line 84,137,118,137 : line 81,138,121,138 : line 79,139,123,139
line 77,140,125,140 : line 76,141,126,141 : line 75,142,127,142
line 74,143,128,143 : line 73,144,89,144 : line 112,144,129,144
line 73,145,85,145 : line 117,145,129,145 : line 72,146,80,146
line 122,146,130,146 : line 71,147,79,147 : line 123,147,131,147
line 71,148,78,148 : line 124,148,131,148 : line 70,149,77,149
line 125,149,132,149 : line 70,150,76,150 : line 126,150,132,150
line 69,151,75,151 : line 127,151,133,151 : line 69,152,74,152
line 128,152,133,152 : line 69,153,74,153 : line 128,153,133,153
line 69,154,73,154 : line 129,154,133,154
get image 12,0,0,255,255
` pointer texture
cls
ink rgb(255,0,0),0
box 0,0,127,21
ink rgb(0,183,91),0
box 0,22,127,127
get image 2319,0,0,128,128
delete bitmap 2
set current bitmap 0
endfunction

MakeMaze:
cls
set text size 26
backdrop off
t# = timer()
center text sw/2,sh/2,"Generating maze...." : sync
` set all of map to "W"
sync rate 0
for z=1 to mapheight
  for x=1 to mapwidth
    map$(x,z)="W"
  next x
next z

for g=1 to 8
  Column=rnd(28)+2
  for z=2 to mapheight-1
    map$(column,z)="_"
    a=rnd(2)+1
    if a=1 and column>2 then dec column,1 :  map$(column,z)="_"
    if a=2 and column<(mapwidth-2) then inc column,1 :  map$(column,z)="_"
  next z
next g

for g=1 to 8
  Row=rnd(28)+2
  for x=2 to mapwidth-1
    map$(x,row)="_"
    a=rnd(2)+1
    if a=1 and row>2 then dec row,1 : map$(x,row)="_"
    if a=2 and row<(mapheight-2) then inc row,1 : map$(x,row)="_"
  next x
next g
repeat
  ink rgb(rnd(255),rnd(255),rnd(255)),0
  center text sw/2,sh/2,"Generating maze...."
  sync
until timer()>t#+1000.0
sync rate 60

backdrop on

return

FixMaze:

repeat
  resolved = 0
  for z=3 to mapheight-2
    for x=3 to mapwidth-2
      if map$(x,z)="_"
         num = 0 : left = 0 : up = 0 : right = 0 : down = 0
         if map$(x-1,z)="_" then left = 1 : inc num,1
         if map$(x,z-1)="_" then up = 1 : inc num,1
         if map$(x+1,z)="_" then right = 1 : inc num,1
         if map$(x,z+1)="_" then down = 1 : inc num,1
         if num<=1
           okeydokey = 0 : resolved = 1
           repeat
             a = rnd(3)
             if a = 0 and left = 0 then map$(x-1,z) = "_" : okeydokey = 1
             if a = 1 and up = 0 then map$(x,z-1) = "_" : okeydokey = 1
             if a = 2 and right = 0 then map$(x+1,z) = "_" : okeydokey = 1
             if a = 3 and down = 0 then map$(x,z+1) = "_" : okeydokey = 1
           until okeydokey = 1
         endif
      endif
    next x
  next z
until resolved = 0
return

CheckWinner:
  c# = (camx# - tx#) : c# = c# * c#
  d# = (camz# - tz#) : d# = d# * d#
  dist# = sqrt(c# + d#)
 ` text 200,10,str$(dist#)
  if dist#<=150.0
    t#=int((timer()-StartTime#)/1000)
    ink rgb(255,255,0),0
    repeat
       center text sw/2,200,"You are the Winner!!!"
 `      center text sw/2,220,"You made it in "+str$(t#)+" seconds!"
       center text sw/2,400,"Press [Return] to play again."
       center text sw/2,420,"Press [ESC] to quit."
       sync
       rt = returnkey()
    until rt=1 or escapekey()=1
    if rt = 1
      rt = 0 : gosub RESTART
      repeat
        sync
      until keystate(28)=0
    endif
  endif
return

MakeCeiling:
` make image
create bitmap 2,512,512
ink rgb(96,96,96),0
box 0,0,511,511
get image 7,0,0,512,512
set current bitmap 0
delete bitmap 2
make object plain 11000,6400,6400
texture object 11000,7
rotate object 11000,90.0,0.0,0.0
set object collision off 11000
position object 11000,3200.0,498.0,3200.0
return

DP_Map:
for f = 200 to TotalWalls
  hide object f
next f
for f = 1000 to TotalFloors
  hide object f
next f
hide object pointer
backdrop off
cls
sync

cx=int((camx#+100)/200)
cz=int((camz#+100)/200)
for z=1 to mapheight
  for x=1 to mapwidth
    if x=cx and z=cz
      ink rgb(0,255,0),0
    else
      ink rgb(255,255,0),0
    endif
    a$=map$(x,z)
    text x*16,z*16,a$
  next x
next z
sync
wait key
backdrop on
for f = 200 to TotalWalls
  show object f
next f
for f = 1000 to TotalFloors
  show object f
next f
show object pointer
return

ShowMap:
if TotalWalls>0
  for i = 200 to TotalWalls
    if object exist(i)=1 then delete object i
  next i
endif
if TotalFloors>0
  for i = 1000 to TotalFloors
    if object exist(i)=1 then delete object i
  next i
endif
WallObj=200
FloorObj=15000
EnemyObj=25000
for z=1 to MapHeight
  for x=1 to MapWidth
    if map$(x,z)="W"
      xsize#=(x*UnitSize)
      zsize#=(z*UnitSize)
      make object box WallObj,UnitSize,500.0,UnitSize
      set object WallObj,1,1,1
      texture object WallObj,43
      position object WallObj,xsize#,248.0,zsize#
      set object collision on WallObj
      make object collision box WallObj,-100,-250,-100,100,250,100,0
      inc WallObj,1
    endif
    if map$(x,z)="_" or map$(x,z)="S" or map$(x,z)="F"
      xsize#=(x*UnitSize)
      zsize#=(z*UnitSize)
      make object plain FloorObj,UnitSize,UnitSize
      set object FloorObj,1,1,1
      xrotate object FloorObj,90
      texture object FloorObj,53
      position object FloorObj,xsize#,0.0,zsize#
      set object collision off FloorObj
      inc FloorObj,1
    endif
  next x
next z
TotalWalls = (WallObj-1)
TotalFloors= (FloorObj-1)
return


MapData:
data "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
data "W______________________________W"
data "W______________WWWWWWWWWWWWWWWWW"
data "WWWWWW_________W_W_____WWWWW_WWW"
data "W____W_________W_W_____W______WW"
data "W____WWWWWWWWW_W_W_____WWWWW_WWW"
data "W______________W_W________WW___W"
data "W_WWWWWWWW_____W_W________WW___W"
DATA "W_W____________W_________WWW___W"
DATA "W_WWWWW__________________WWW___W"
DATA "W__WWWW________________________W"
DATA "W__WWWWWW______________________W"
DATA "W_____WWW_________WWWWW________W"
DATA "W_____WWW_________W___W________W"
DATA "W_____WWW_________W___W________W"
DATA "WWWW__WWW_________W____WW______W"
DATA "W_____WWW_________W____________W"
DATA "W_________________WWWWWWW______W"
DATA "W_____WWWWWWW__________________W"
DATA "W_____W_____WWW______________WWW"
DATA "W___WWW_________WW_________WWWWW"
DATA "WWWWWWW_____WWW_________WWWW___W"
DATA "W____WWWW___WWW_________WWW____W"
DATA "W____WWWW___WWW_________WWW____W"
DATA "W_________WWWWW________________W"
DATA "W_________WWWWWWWWW________WWWWW"
DATA "W_________W_______W________W___W"
DATA "W_________W________________W___W"
DATA "WWWW______W_______W________W___W"
DATA "WWWW______________W________W__WW"
DATA "WWWW__S___________W___________WW"
DATA "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"

Rem Random Maze Generation By TDK_Man
Rem For DBC Challenges

Set Display Mode 800,600,32
Sync On
Sync Rate 0
Randomize Timer()
AutoCam Off
Gosub MakeTextures
CLS

rem Input "Maze Grid Size (Eg: 16 = 16x16 Maze): ";GridSize
CellSize = 32: GridSize=16

PlayerHeight# = CellSize/3.0
CeilingHeight# = CellSize
rem Set Camera Range 1.0,Gridsize*CellSize

Dim CellVisited(GridSize-1,GridSize-1)
Dim WallArray(GridSize-1,GridSize-1)
Dim Neighbours(3)
Dim NextPathDir(3)
Dim OriginalPath(GridSize*GridSize,1)
MazeOffsetX = 10: MazeOffsetY = 10

OrigPathCells = 1: CellNum = 1
OriginX = -1: OriginY = -1

Rem Cells...
CLS
For Ny=0 To GridSize-1
  For Nx=0 To GridSize-1
    CellVisited(Nx,Ny) = -1: Rem Set Each Cell To Unvisited (1=Visited)
    WallArray(Nx,Ny) = 15: Rem Set Each Cell To Having All Four Walls
  Next Nx
Next Ny

EntryX = GridSize/2: EntryY = 0
ExitX = -1: ExitY = -1
CurrentCellX = EntryX: CurrentCellY = EntryY

WallArray(EntryX,EntryY) = WallArray(EntryX,EntryY)-1: Rem Remove top wall for exit door
CellVisited(EntryX,EntryY) = 1: Rem Set Entry Cell As Visited
Phase = 1
Print "Please Wait - Generating Random Maze..."

Do
  If Phase = 1 Then Gosub MainPath
  If Phase = 2 Then Gosub NextCell
  If Phase = 3 Then Gosub UnChartered
  If Phase = 4 Then Gosub Finished
  Sync
Loop
End

Finished:
  Rem Maze Finished!!!!
  Set Camera View 0,0,800,600
  Position Camera EntryX*CellSize+(CellSize/2),PlayerHeight,CellSize*GridSize
  YRotate Camera 180
  Fog On: Fog Color 0: Fog Distance CellSize*3
  Backdrop On: Color Backdrop 0
  Hide Mouse
  LightLevel = 40
  Color Light 0,0
  Set Mipmap Mode 2
  Wireframe=1: Transparency=1: Cull=0: Filter=1: Light=1: Fog=1: Ambient=0

  Rem Missing Left Walls
  Backz = CellSize*GridSize
  ObjNum = 1
  For Ny=1 To GridSize
    Make Object Box ObjNum,1,CellSize,CellSize
    Make Object Collision Box ObjNum,-0.5,0-(CellSize/2),0-(CellSize/2),0.5,CellSize/2,CellSize/2,0
    Set Object ObjNum,Wireframe, Transparency, Cull, Filter, Light, Fog, Ambient
    Set Object Ambient ObjNum,RGB(LightLevel,LightLevel,LightLevel)
    Texture Object ObjNum,2
    Scale Object Texture ObjNum,4,4
    Position Object ObjNum,0,CellSize/2,Ny*CellSize
    Inc ObjNum
  Next Ny

  Rem Missing Top Wall
  For Nx=1 To GridSize
    ThisCell = WallArray(Nx-1,0)
    If ThisCell >= 8: Rem Right Wall
      Dec ThisCell,8
    Endif
    If ThisCell >= 4 : Rem Left Wall
      Dec ThisCell,4
    Endif
    If ThisCell >= 2: Rem Bottom Wall
      Dec ThisCell,2
    Endif
    If ThisCell = 1: Rem Top Wall
      Make Object Box ObjNum,CellSize,CellSize,1
      Make Object Collision Box ObjNum,0-(CellSize/2),0-(CellSize/2),-0.5,CellSize/2,CellSize/2,0.5,0
      Set Object ObjNum,Wireframe, Transparency, Cull, Filter, Light, Fog, Ambient
      Set Object Ambient ObjNum,RGB(LightLevel,LightLevel,LightLevel)
      Texture Object ObjNum,2
      Scale Object Texture ObjNum,4,4
      Position Object ObjNum,Nx*CellSize-(CellSize/2),CellSize/2,Backz+(CellSize/2)
      Inc ObjNum
    Endif
  Next Ny

  Rem Maze Walls
  For Ny=0 To GridSize-1
    For Nx=0 To GridSize-1
      CLS
      ThisCell = WallArray(Nx,Ny)
      If ThisCell >= 8
        Rem Right Wall
        Make Object Box ObjNum,1,CellSize,CellSize
        Make Object Collision Box ObjNum,-0.5,0-(CellSize/2),0-(CellSize/2),0.5,CellSize/2,CellSize/2,0
        Set Object ObjNum,Wireframe, Transparency, Cull, Filter, Light, Fog, Ambient
        Set Object Ambient ObjNum,RGB(LightLevel,LightLevel,LightLevel)
        Texture Object ObjNum,2
        Scale Object Texture ObjNum,4,4
        Position Object ObjNum,Nx*CellSize+CellSize,CellSize/2,Backz-(Ny*CellSize)
        Inc ObjNum
        Dec ThisCell,8
      Endif
      If ThisCell >= 4
        Dec ThisCell,4
      Endif
      If ThisCell >= 2
        Rem Bottom Wall
        Make Object Box ObjNum,CellSize,CellSize,1
        Make Object Collision Box ObjNum,0-(CellSize/2),0-(CellSize/2),0.5,CellSize/2,CellSize/2,0.5,0
        Set Object ObjNum,Wireframe, Transparency, Cull, Filter, Light, Fog, Ambient
        Set Object Ambient ObjNum,RGB(LightLevel,LightLevel,LightLevel)
        Texture Object ObjNum,2
        Scale Object Texture ObjNum,4,4
        If Ny=GridSize-1
        Else
        Endif
        Position Object ObjNum,Nx*CellSize+(CellSize/2),CellSize/2,Backz-(Ny*CellSize)+(CellSize/2)
        Inc ObjNum
        Dec ThisCell,2
      Endif
    Next Nx
  Next Ny

  Rem Finish Sign
  Make Object Box ObjNum,CellSize,CellSize/4,.01
  Set Object ObjNum, Wireframe, Transparency, Cull, Filter, 0, 0, 0
  Texture Object ObjNum,3
  Position Object ObjNum,ExitX*CellSize+(CellSize/2),CeilingHeight#-(CellSize/8),CellSize/2

  Rem Sliding Collision Box For Camera
  Make Object Sphere 5000,2
  Set Object Collision To Spheres 5000
  Make Object Collision Box 5000,-2,-2,-2,2,2,2,0

  RoofPosX=(Gridsize*CellSize)/2: RoofPosZ=RoofPosX + (CellSize/2)
  RoofWid = Gridsize*CellSize: RoofHig=RoofWid : rem - (CellSize/4)

  Rem Floor
  Inc ObjNum
  Make Object Plain ObjNum,RoofWid,RoofHig
  Set Object Ambient ObjNum,RGB(LightLevel,LightLevel,LightLevel)
  Set Object ObjNum,Wireframe, Transparency, Cull, Filter, Light, 0, Ambient
  Position Object ObjNum,RoofPosX,0,RoofPosZ
  XRotate Object ObjNum,90
  Texture Object ObjNum,2
  Scale Object Texture ObjNum,Gridsize*4,Gridsize*4

  Rem Roof
  Inc ObjNum
  Make Object Plain ObjNum,RoofWid,RoofHig
  Set Object Ambient ObjNum,RGB(LightLevel,LightLevel,LightLevel)
  Set Object ObjNum,Wireframe, Transparency, Cull, Filter, Light, 0, Ambient
  Position Object ObjNum,RoofPosX,CeilingHeight#,RoofPosZ
  XRotate Object ObjNum,90
  Texture Object ObjNum,2
  Scale Object Texture ObjNum,Gridsize*4,Gridsize*4

  Do
    CX#=Camera Angle X(): CY#=Camera Angle Y(): CZ#=Camera Angle Z()
    CY#=Wrapvalue(CY#+mousemovex())
    CX#=Wrapvalue(CX#+mousemovey())
    Rotate Camera CX#,CY#,CZ#
    If MouseClick()=1 Then Move Camera CellSize/120.0
    If MouseClick()=2 Then Move Camera 0-CellSize/120.0
    CamX# = Camera Position X(): CamY# = PlayerHeight#: CamZ# = Camera Position Z()
    Position Camera CamX#,PlayerHeight#,CamZ#
    Position Object 5000,CamX#,PlayerHeight#,CamZ#
    ObjHit = Object Collision(5000,0)
    If ObjHit > 0
      Dec CamX#,Get Object Collision X()
      Dec CamZ#,Get Object Collision Z()
      Position Camera CamX#,PlayerHeight#,CamZ#
      Position Object 5000,CamX#,PlayerHeight#,CamZ#
    Endif
    Sync
  Loop
Return

UnChartered:
  FoundOne=0
  For Ny=0 To GridSize-1
    For Nx=0 To GridSize-1
      If CellVisited(NX,NY)=-1: Rem Unvisited Cell
        CurrentCellX = Nx: CurrentCellY = Ny
        CellVisited(NX,NY) = Phase
        Nx=GridSize-1: Ny=GridSize-1
        Inc FoundOne
      Endif
    Next Nx
  Next Ny
  If FoundOne=0
    Phase = 4
  Else
    Phase = 2
    CellNum = 3
    OrigPathCells=0
  Endif
Return

NextCell:
  Rem Clear Last Array Data
  For N=0 To 3
    NextPathDir(N) = 0: Neighbours(N) = 0
  Next N
  Rem Neighbours Start At 1=North  2=South  3=East  4=West
  If CurrentCellY > 0 Then Neighbours(0) = CellVisited(CurrentCellX,CurrentCellY-1)
  If CurrentCellY < GridSize-1 Then Neighbours(1) = CellVisited(CurrentCellX,CurrentCellY+1)
  If CurrentCellX < GridSize-1 Then Neighbours(2) = CellVisited(CurrentCellX+1,CurrentCellY)
  If CurrentCellX > 0 Then Neighbours(3) = CellVisited(CurrentCellX-1,CurrentCellY)
  DirCounter = 0
  For N=0 To 3
    If Neighbours(N) = -1: Rem Unvisited
      NextPathDir(DirCounter) = N
      Inc DirCounter
    Endif
  Next N
  If DirCounter > 0

    If CellNum=3
      OriginalPath(OrigPathCells,0) = CurrentCellX
      OriginalPath(OrigPathCells,1) = CurrentCellY
      Inc OrigPathCells
    Endif

    Rem Choose Random Direction
    DirToGo = Rnd(DirCounter-1)
    ActDir = NextPathDir(DirToGo)
    Select ActDir
      Case 0
        Rem North
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-1
        Dec CurrentCellY
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-2
      EndCase
      Case 1
        Rem South
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-2
        Inc CurrentCellY
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-1
      EndCase
      Case 2
        Rem East
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
        Inc CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
      EndCase
      Case 3
        Rem West
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
        Dec CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
      EndCase
    EndSelect
    Rem Record Main Path X/Y Positions For Later Retracing

    Rem Move Into New Cell
    CellVisited(CurrentCellX,CurrentCellY) = CellNum

  Else
    Rem No adjacent -1 cells to jump into
    Inc RetraceSteps
    If RetraceSteps > OrigPathCells
      RetraceSteps=1
      OrigPathCells=1
      Phase = 3
    Else
      CurrentCellX = OriginalPath(RetraceSteps,0)
      CurrentCellY = OriginalPath(RetraceSteps,1)
      OriginX = CurrentCellX: OriginY = CurrentCellY
    Endif
  Endif
Return

MainPath:
  Rem Clear Last Array Data
  For N=0 To 3
    NextPathDir(N) = 0: Neighbours(N) = 0
  Next N
  Rem Neighbours Start At 1=North  2=South  3=East  4=West
  If CurrentCellY < GridSize-1 Then Neighbours(1) = CellVisited(CurrentCellX,CurrentCellY+1)
  If CurrentCellX < GridSize-1 Then Neighbours(2) = CellVisited(CurrentCellX+1,CurrentCellY)
  If CurrentCellX > 0 Then Neighbours(3) = CellVisited(CurrentCellX-1,CurrentCellY)
  DirCounter = 0
  For N=1 To 3
    If Neighbours(N) = -1: Rem Unvisited
      NextPathDir(DirCounter) = N
      Inc DirCounter
    Endif
  Next N
  If CurrentCellY < GridSize-1
    Rem Choose Random Direction
    DirToGo = Rnd(DirCounter-1)
    ActDir = NextPathDir(DirToGo)
    Select ActDir
      Case 1
        Rem South
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-2
        Inc CurrentCellY
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-1
      EndCase
      Case 2
        Rem East
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
        Inc CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
      EndCase
      Case 3
        Rem West
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-4
        Dec CurrentCellX
        WallArray(CurrentCellX,CurrentCellY) = WallArray(CurrentCellX,CurrentCellY)-8
      EndCase
    EndSelect
    Rem Record Main Path X/Y Positions For Later Retracing
    OriginalPath(OrigPathCells,0) = CurrentCellX
    OriginalPath(OrigPathCells,1) = CurrentCellY
    Inc OrigPathCells
    Rem Move Into New Cell
    CellVisited(CurrentCellX,CurrentCellY) = CellNum
  Else
    Rem Reached Exit Wall
    WallArray(CurrentCellX,CurrentCellY) = 12: Rem Open Door To Outside
    ExitX = CurrentCellX: ExitY = CurrentCellY
    RetraceSteps = 1
    CurrentCellX = OriginalPath(RetraceSteps,0): CurrentCellY = OriginalPath(RetraceSteps,1)
    OriginX = CurrentCellX: OriginY = CurrentCellY
    Phase = 2
    CellNum = 2
  Endif
Return

DrawMaze:
  CLS
  For Ny=0 To GridSize-1
    For Nx=0 To GridSize-1
      Rem Draw Floor
      Ink RGB(255,255,255),0
      rem If (Nx=EntryX and Ny=EntryY) Or (Nx=ExitX and Ny=ExitY) Then Ink RGB(230,230,230),0

      rem If CellVisited(Nx,Ny)=1 Then Ink RGB(255,240,240),0
      rem If CellVisited(Nx,Ny)=3 Then Ink RGB(255,200,140),0

      rem If CellVisited(Nx,Ny)=-1 Then Ink RGB(255,240,240),0

      Box Nx*CellSize+MazeOffsetX,Ny*CellSize+MazeOffsetY,  Nx*CellSize+MazeOffsetX+CellSize-1,  Ny*CellSize+MazeOffsetY+CellSize-1
      TextPosX = Nx*CellSize+(CellSize/2)+2: TextPosY = Ny*CellSize+(CellSize/2)+2

      rem Ink 0,0: Text TextPosX,TextPosY,Str$(WallArray(NX,NY))
      rem Ink 0,0: Text TextPosX,TextPosY,Str$(CellVisited(NX,NY))

      Rem If CellVisited(Nx,Ny)=-1 Then Ink 0,0: Text TextPosX,TextPosY,Str$(CellVisited(Nx,Ny))
      Rem All Four Walls = 1+2+4+8 (15)
      ThisCell = WallArray(Nx,Ny)
      Ink RGB(255,0,0),0
      If ThisCell >= 8
        Rem Right Wall
        WallPosX = Nx*CellSize+(MazeOffsetX+CellSize-1)
        Line WallPosX,  Ny*CellSize+MazeOffsetY,  WallPosX,  Ny*CellSize+MazeOffsetY+CellSize-1
        Dec ThisCell,8
      Endif
      If ThisCell >= 4
        Rem Left Wall
        Dec ThisCell,4
      Endif
      If ThisCell >= 2
        Rem Bottom Wall
        WallPosY = Ny*CellSize+(MazeOffsetY+CellSize-1)
        Line Nx*CellSize+MazeOffsetX,WallPosY,Nx*CellSize+MazeOffsetX+CellSize-1,WallPosY
        Dec ThisCell,2
      Endif
      If ThisCell = 1
        Rem Top Wall
      Endif
    Next Nx
  Next Ny
  Ink RGB(255,255,255),0
Return

MakeTextures:
  Create Bitmap 1,800,600
  CLS RGB(200,200,200): Ink RGB(90,90,100),0
  For N=0 To 3: Circle 6,6,4-N: Next N
  For N=0 To 3: Circle 123,6,4-N: Next N
  For N=0 To 3: Circle 6,59,4-N: Next N
  For N=0 To 3: Circle 123,59,4-N: Next N
  Box 6,2,124,63: Box 2,6,127,59
  For N=1 To 4000
    C=Rnd(200): Ink RGB(C,C,C),0: Dot Rnd(122)+4,Rnd(58)+4
  Next N
  Sync
  Get Image 1,0,0,128,64
  For Ny=0 To 15
    For Nx=0 To 9
      Paste Image 1,Nx*128-Offset,Ny*64
    Next Nx
    Inc Offset,64: If Offset=128 Then Offset=0
  Next Ny
  Delete Image 1
  Blur Bitmap 1,1
  Get Image 2,0,0,512,512

  CLS RGB(96,96,96)
  Get Image 1,0,0,128,128

  CLS RGB(255,255,255)
  Ink 0,0
  Text 2,0,"EXIT"
  Get Image 3,0,0,Text Width("EXIT")+4,Text Height("X")+2

  Set Current Bitmap 0
  Delete Bitmap 1
  CLS
  Ink RGB(255,255,255),0
Return