Sorry your browser is not supported!

rem --------
rem INCLUDES
rem --------
rem include the MatEdit LoadMatrix files
#include "LoadMatrix.dba"

rem ------
rem ARRAYS
rem ------
rem declare the MatEdit variables
Dim BigMatrix(600,600,1)
Dim StartLoc_X(1): Dim StartLoc_Z(1):Dim Info(2)
Dim TArrayX(1): Dim TArrayZ(1): Dim FKey(10,1)
Dim ColData(100): Dim ZoneData(100): Dim Tiles(500,500)
Dim OverTexture$(100): Dim OverName$(20): Dim ReplaceTex(100)
Dim MOffsetX(25): Dim MOffsetY(25)
Dim MWire(20): Dim MGhost(20): Dim Lock(20)
Dim MatX#(20): Dim MatY#(20): Dim MatZ#(20)
Dim MatWidth#(20): Dim MatHeight#(20)
Dim TilesX(20): Dim TilesZ(20)
Dim MatHi#(20): Dim MatLo#(20)

rem set up the program
sync on
sync rate 40
hide mouse

rem load the matrix
LoadMatrix("BASIC1",1)

`set light properties
set ambient light 50
color ambient light RGB(255,255,255)

rem set cameral draw range
set camera range 1,53000
   pitch camera down 60

autocam off

rem temp turbuckles
make object cube 1, 2100
position object 1, 50000, 12000, 53000
lock object ON 1

rem ---------
rem MAIN LOOP
rem ---------
main:
do

   rem the following is temporary. There will be more but it will made later
   rem get keyboard input for movement
   if upkey()=1 then move camera 1900
   if downkey()=1 then move camera -1900
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-10)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+10)

   rem sort out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get ground height(1,x#,z#)+24000

   rem position the camera
   position camera x#,y#,z#

   rem update the screen
   sync

   loop

rem set up the program
sync on
sync rate 40
hide mouse
rem --------
rem INCLUDES
rem --------
rem include the MatEdit LoadMatrix files
`#include "LoadMatrix.dba"
rem ------
rem ARRAYS
rem ------
rem declare the MatEdit variables
`Dim BigMatrix(600,600,1)
`Dim StartLoc_X(1): Dim StartLoc_Z(1):Dim Info(2)
`Dim TArrayX(1): Dim TArrayZ(1): Dim FKey(10,1)
`Dim ColData(100): Dim ZoneData(100): Dim Tiles(500,500)
`Dim OverTexture$(100): Dim OverName$(20): Dim ReplaceTex(100)
`Dim MOffsetX(25): Dim MOffsetY(25)
`Dim MWire(20): Dim MGhost(20): Dim Lock(20)
`Dim MatX#(20): Dim MatY#(20): Dim MatZ#(20)
`Dim MatWidth#(20): Dim MatHeight#(20)
`Dim TilesX(20): Dim TilesZ(20)
`Dim MatHi#(20): Dim MatLo#(20)
rem load the matrix
`LoadMatrix("BASIC1",1)

rem MAKE TEMP MATRIX
make matrix 1,100,100,10,10
position matrix 1,-50,0,-50

`set light properties
set ambient light 50
color ambient light RGB(255,255,255)

rem set cameral draw range
set camera range 1,1000
pitch camera down 20

rem temp turbuckles
make object cube 1, 5
rotate object 1,30,30,30
`scale object 1,10,100,200
position object 1, 0,0,0
disable object zdepth 1
lock object ON 1
rem from now on its new centerpoint loction is based on where it was locked
position object 1, 0,0,10

position camera 0,5,-5

rem ---------
rem MAIN LOOP
rem ---------
do
   rem the following is temporary. There will be more but it will made later
   rem get keyboard input for movement
   if upkey()=1 then move camera 1
   if downkey()=1 then move camera -1
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-1)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+1)

   rem sort out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get ground height(1,x#,z#)+5

   rem position the camera
   position camera x#,y#,z#

   rem update the screen
   sync
   loop

sync on
sync rate 60

make object cube 1,1

position object 1,10,0,10

make object cube 2,1

position object 2,-10,0,-10

make object cube 3,1

position object 3,-10,0,10

make object cube 4,1

position object 4,10,0,-10



make object cube 5,20
position object 5,0,-1,0
scale object 5,100,2,100



position camera 0,20,-20

point camera 0,0,0

do
sync
loop