Sorry your browser is not supported!

rem Make a texture for the matrix
cls

ink rgb(200,0,0),0
box 0,0,31,31

ink rgb(0,200,0),0
box 32,0,63,31

ink rgb(0,0,200),0
box 0,32,31,63

ink rgb(255,200,0),0
box 32,32,63,63

get image 1,0,0,63,63

rem Make a matrix
make matrix 1,1000,1000,50,50
prepare matrix texture 1,1,2,2
randomize matrix 1,50
for x=0 to 49
for z=0 to 49
Tile=rnd(4)
if Tile<1 then Tile=1
if Tile>4 then Tile=4
set matrix tile 1,x,z,Tile
next z
next x
update matrix 1

rem Make a player object
make object box 1,20,20,20
make object box 2,20,20,20
scale object 2,-105,-105,-105
make mesh from object 2,2
delete object 2
add limb 1,1,2
color limb 1,0,rgb(200,0,200)
color limb 1,1,rgb(0,0,0)

rem Make walls
make object box 2,1000,100,20
make object box 3,1000,100,20
scale object 3,-105,-105,-101
make mesh from object 3,3
delete object 3
add limb 2,1,3
color limb 2,0,rgb(255,255,255)
color limb 2,1,rgb(0,0,0)
position object 2,500,35,990

make object box 3,1000,100,20
make object box 4,1000,100,20
scale object 4,-105,-105,-101
make mesh from object 4,4
delete object 4
add limb 3,1,4
color limb 3,0,rgb(255,255,255)
color limb 3,1,rgb(0,0,0)
position object 3,500,35,10

make object box 4,20,100,1000
make object box 5,20,100,1000
scale object 5,-101,-105,-105
make mesh from object 5,5
delete object 5
add limb 4,1,5
color limb 4,0,rgb(255,255,255)
color limb 4,1,rgb(0,0,0)
position object 4,10,35,500

make object box 5,20,100,1000
make object box 6,20,100,1000
scale object 6,-101,-105,-105
make mesh from object 6,6
delete object 6
add limb 5,1,6
color limb 5,0,rgb(255,255,255)
color limb 5,1,rgb(0,0,0)
position object 5,990,35,500

rem Start player variables
x#=500
y#=0
z#=500
ang#=0

rem Setup manual synchronisation
sync on
sync rate 0

rem Start main loop
do

rem Control player
if upkey()=1
x#=newxvalue(x#,ang#,1)
z#=newzvalue(z#,ang#,1)
endif
if downkey()=1
x#=newxvalue(x#,ang#,-1)
z#=newzvalue(z#,ang#,-1)
endif
if x#<30 then x#=30
if x#>970 then x#=970
if z#<30 then z#=30
if z#>970 then z#=970
if rightkey()=1
ang#=wrapvalue(ang#+1)
endif
if leftkey()=1
ang#=wrapvalue(ang#-1)
endif
y#=get ground height(1,x#,z#)+10
position object 1,x#,y#,z#
yrotate object 1,ang#

rem Control camera
set camera to follow x#,y#,z#,ang#,100,100,3.5,0
point camera x#,y#,z#

rem Update screen
sync

rem End the main loop
loop

`loads the image _map.bmp and allots it to image file 1
load image "_map.bmp",1
`makes a matrix and allots this to matrix file 1
`the matrix is defined in a 100x100 size basis divided by
`10 tiles down and 10 tiles across
make matrix 1,100,100,10,10
`prepares an image for use on the bitmap
`NOTE-only one image can be used on a matrix so
`the first line in this command will designate what matrix
`this image will apply to, the second will be what image we
`use, the next two will tell us how the image will be divided
`for use, Across first, and then down!
prepare matrix texture 1,1,3,3
`this will set individual tiles to a texture derived from the
`image
set matrix tile 1,1,1,6
set matrix tile 1,2,2,3
set matrix tile 1,5,5,9
`will make the changes to the matrix
update matrix 1
 `puts camera above and in the middle of the matrix
position camera 50,5,50

`main loop
do
if upkey()=1 then move camera 1
if downkey()=1 then move camera -1
if rightkey()=1 then turn camera right 5
if leftkey()=1 then turn camera left 5
loop

load image "grass.bmp",1
make matrix 1, 1000, 1000, 25, 25

prepare matrix texture 1, 1, 1, 1

load image "multiple_textures.bmp", 1
make matrix 1, 1000, 1000, 25, 25
prepare matrix texture 1, 1, 2, 2

for x = 1 to 24
 for y = 1 to 24
  set matrix tile 1, x, y, rnd(2)+1
 next y
next x