here is code and attached models and images in zip
Rem Project: averend
Rem Created: Friday, August 03, 2018
set display mode 1920,1080,32
`set global shadows on
`set global shadow shades 64
`set global shadow color 0,0,0,200
autocam off
color backdrop rgb(0,0,0)
set ambient light 0
hide light 0
set normalization on
xrotate camera 0,65
global sw:sw=screen width()
global sh:sh=screen height()
`LIGHT
make light 1
set light range 1,3
lightmode=0
`set shadow position lightmode,0,0,0
`set shadow shading on 1,-1,20,1
make light 2
set light range 2,2
`load level 1
load_level1()
make object box 3,.1,.1,.1
position object 3,.5,1,1.5
set object emissive 3,rgb(255,255,255)
time=0
sync on
sync sleep 100
sync rate 60
set current bitmap 0
DO
position light 1,camera position x(0),1,camera position z(0)+1
position light 2,camera position x(0),1,camera position z(0)+1
position object 3,camera position x(0),1,camera position z(0)+1
`position object 4,camera position x(0),-.901,camera position z(0)+1
a$=str$(camera position x(0))
b$= str$(camera position z(0)-1)
text 10,10, a$+" x fps"+str$(screen fps())
text 10,20, b$+" z"
if upkey()=1
position camera 0,camera position x(),camera position y(),camera position z()+.05
endif
if downkey()=1
position camera 0,camera position x(),camera position y(),camera position z()-.05
endif
if rightkey()=1
position camera 0,camera position x()+.05,camera position y(),camera position z()
endif
if leftkey()=1
position camera 0,camera position x()-.05,camera position y(),camera position z()
endif
sync
loop
function load_level1()
flor=11
wall=1
position camera 0,0,7.5,0
load image "map3.png",9,1
load object "a.x",wall,3
`set object diffuse wall,rgb(255,255,255)
set object filter wall,1
`set object smoothing wall,100
texture object wall,9
position object wall,2,0,10
rotate object wall,-90,-90,0
set object light wall,1
load object "a2.x",flor,3
load image "map2.png",11,1
texture object flor,11
`set object diffuse flor,rgb(255,255,255)
set object filter flor,1
position object flor,2,-.9,10
rotate object flor,180,90,0
set object light flor,1
endfunction
A child's dream never dies.