Sorry your browser is not supported!

ry#=wrapvalue(ry#+mousemovex())
rotate camera rx#,ry#,0

set display mode 800,600,16
sync on
sync rate 0
hide mouse

backcolor=rgb(0,0,0)

backdrop on
color backdrop backcolor
cls

` Attention ... This value is the size of the map ! change it to fit your map file
mapsize=512
dim map$(mapsize,mapsize)

maxcubes=16
cubesize=200
collisionstep=int(cubesize/10)

fog on
fog color backcolor
fog distance (int(maxcubes)*cubesize)
set camera range 1,(maxcubes*cubesize)

` Current map
loadmap("Bin/Work in progress/media/dungeon.map",mapsize)
autocam off

` Wall
for i=1 to maxcubes*maxcubes
   make object cube 100+i,cubesize
   texture object 100+i,5
next i

` floor
for i=1 to maxcubes*maxcubes
   make object plain 10000+i,cubesize,cubesize
   rotate object 10000+i,90,0,0
   texture object 10000+i,6
next i

` ceiling
for i=1 to maxcubes*maxcubes
   make object plain 20000+i,cubesize,cubesize
   rotate object 20000+i,270,0,0
   texture object 20000+i,7
next i

set ambient light 30
make light 1
make light 2
set point light 1,0,0,0
set spot light 2,45,90
color light 2,RGB(252,216,141)
color light 1,RGB(236,182,100)
color light 0,RGB(0,0,0)

` Search startpoint
for z=1 to mapsize
for x=1 to mapsize
    if map$(x,z)="O"
       cx=x*cubesize
       cz=z*cubesize
    endif
    if map$(x,z)="U"
       ex=x
       ez=z
    endif
next x
next zd
position camera cx,0,cz

oldpositionx#=camera position x()
oldpositionz#=camera position z()

randomize timer()
cls

do

if keystate(17)=1 then move camera maxcubes
if keystate(30)=1 then turn camera left 90 : move camera maxcubes : turn camera right 90
if keystate(31)=1 then move camera maxcubes*(-1)
if keystate(32)=1 then turn camera right 90 : move camera maxcubes : turn camera left 90
ry#=wrapvalue(ry#+mousemovex())
rotate camera rx#,ry#,0

cx#=int(camera position x()/cubesize)-int(maxcubes/2)
cz#=int(camera position z()/cubesize)-int(maxcubes/2)

tx#=camera position x()
tz#=camera position z()

zzz=0
for zz=1 to maxcubes
for xx=1 to maxcubes
    zzz=zzz+1
    curposx=int(cx#)+xx
    curposz=int(cz#)+zz
    if curposx<=1 then curposx=1
    if curposx>=mapsize then curposx=mapsize
    if curposz<=1 then curposz=1
    if curposz>=mapsize then curposz=mapsize

    ` wall
    if map$(int(curposx),int(curposz))="#" or map$(int(curposx),int(curposz))="S"
       show object 100+zzz
       position object 100+zzz,curposx*cubesize,0.0,curposz*cubesize
       ` Collisiondetection
       if map$(int(curposx),int(curposz))="#"
       if tx#>=((curposx*cubesize)-(cubesize/2))-collisionstep and tx#<=((curposx*cubesize)+(cubesize/2))+collisionstep and tz#>=((curposz*cubesize)-(cubesize/2))-collisionstep and tz#<=((curposz*cubesize)+(cubesize/2))+collisionstep
          position camera oldpositionx#,camera position y(),oldpositionz#
          oldpositionx#=camera position x()
          oldpositionz#=camera position z()
       endif
       endif
    else
       hide object 100+zzz
    endif

    ` floor
    if map$(int(curposx),int(curposz))=":" or map$(int(curposx),int(curposz))="D" or map$(int(curposx),int(curposz))="S" or map$(int(curposx),int(curposz))="T"
       show object 10000+zzz
       position object 10000+zzz,curposx*cubesize,(cubesize/2)*(-1),curposz*cubesize
    else
       hide object 10000+zzz
    endif

    ` ceiling
    if map$(int(curposx),int(curposz))=":" or map$(int(curposx),int(curposz))="D" or map$(int(curposx),int(curposz))="S" or map$(int(curposx),int(curposz))="T"
       show object 20000+zzz
       position object 20000+zzz,curposx*cubesize,(cubesize/2),curposz*cubesize
    else
       hide object 20000+zzz
    endif

next xx#
next yy#

oldpositionx#=camera position x()
oldpositionz#=camera position z()

position light 1,camera position x(),camera position y(),camera position z()
position light 2,camera position x(),camera position y(),camera position z()
color light 1,RGB(200+int(rnd(50)-25),120,60)
rotate light 2,camera angle x(),camera angle y(),camera angle z()

sync
loop

function loadmap(filename$,size)
   open to read 1,filename$
   for y=1 to size
   for x=1 to size
       read byte 1,tmp
       map$(x,y)=chr$(tmp)
   next x
   next y
   close file 1
endfunction

ry#=wrapvalue(ry#+mousemovex())
rx#=wrapvalue(rx#+mousemovey())
rotate camera rx#,ry#,0

set display mode desktop width(), desktop height(), 32
sync on: sync rate 60: sync

autocam off
position camera -150, 50, -300
point camera 0, 0, 0

make object plain 1, 1000, 1000
position object 1, 0, 0, 0
xrotate object 1, 90

for obj = 2 to 10
  make object cube obj, 50
  position object obj, rnd(900)-450, 25, rnd(900)-450
next obj

global cx#
global cy#

cx# = camera angle x()
cy# = camera angle y()

repeat
  positionCamera()
  sync
until spacekey()

end

function positionCamera()
  control camera using arrowkeys 0, 1, 0
  cx# = cx# + mousemovey()*0.25: cy# = cy# + mousemovex()*0.25
  rotate camera cx#, cy#, 0
endfunction