Sorry your browser is not supported!

REM SET UP SYNC
   sync on
   sync rate 30
   Backdrop on
      hide mouse

Fog on
Fog distance 3000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)


REM LOAD IMAGES
   load image "grass09.bmp",1

REM CREATE MATRIX
   make matrix 1,10000,10000,150,150
      prepare matrix texture 1,1,2,2
         randomize matrix 1,10

REM PLACE THE TEXTURE TILES ONTO THE MATRIX
   for x = 0 to 19
   for z = 0 to 19
   t = rnd(3) +1
      set matrix tile 1,x,z,t
      next z
      next x

REM UPDATE CHANGES TO THE MATRIX
   update matrix 1

rem Load object
Load object "house.3ds",2
Loop object 2

position object 2,5000,Get Ground Height(1,5000,5500),5500

Rem Main loop
Do
set cursor 0,0
print X#
print Y#
print Z#

Rem  Store Object angle
CameraAngleY# = Camera angle Y()


REM MAIN LOOP////////////////////////////////////////////////////////
Do

CamX# = Camera position X()
CamZ# = Camera position Z()
CamY# = Camera position Y()


 OldCamAngleY# = CameraAngleY#
 OldCamAngleX# = CameraAngleX#

 CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

REM CONTROL INPUT FOR CAMERA

 If Upkey()=1
  XTest# = Newxvalue(X#,CameraAngleY#,10)
  ZTest# = Newzvalue(Z#,CameraAngleY#,10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Downkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Leftkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 If Rightkey()=1
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
   X#=XTest#
   Z#=ZTest#
  Endif
 Endif

 Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)




 Y# = Get ground height(1,X#,Z#)
 Position Camera X#,Y#+50,Z#



REM REFRESH AND END OF MAIN LOOP
 Sync
Loop
Loop

REM SET UP SYNC
   sync on
   sync rate 30
   Backdrop on
      hide mouse

Fog on
Fog distance 3000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)


REM LOAD IMAGES
   load image "grass09.bmp",1

REM CREATE MATRIX
   make matrix 1,10000,10000,150,150
      prepare matrix texture 1,1,2,2
         randomize matrix 1,10

REM PLACE THE TEXTURE TILES ONTO THE MATRIX
   for x = 0 to 19
   for z = 0 to 19
   t = rnd(3) +1
      set matrix tile 1,x,z,t
      next z
      next x

REM UPDATE CHANGES TO THE MATRIX
   update matrix 1

rem Load object
Load object "house.3ds",2
Loop object 2

position object 2,5000,Get Ground Height(1,5000,5500),5500

Rem Main loop
Do
set cursor 0,0
print X#
print Y#
print Z#

Rem  Store Object angle
CameraAngleY# = Camera angle Y()


REM MAIN LOOP////////////////////////////////////////////////////////
Do

Adjustment=0
Speed=0

CamX# = Camera position X()
CamZ# = Camera position Z()
CamY# = Camera position Y()


 OldCamAngleY# = CameraAngleY#
 OldCamAngleX# = CameraAngleX#

 CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

REM CONTROL INPUT FOR CAMERA

 If Upkey()=1 then Adjustment=0: Speed=10
 If Downkey()=1 then Adjustment=-180: Speed=10
 If Leftkey()=1 then Adjustment=-90: Speed=10
 If Rightkey()=1 then Adjustment=90: Speed=10

 XTest# = Newxvalue(X#,CameraAngleY#+Adjustment,Speed)
 ZTest# = Newzvalue(Z#,CameraAngleY#+Adjustment,Speed)
 If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
  X#=XTest#
  Z#=ZTest#
 Endif

 Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)




 Y# = Get ground height(1,X#,Z#)
 Position Camera X#,Y#+50,Z#



REM REFRESH AND END OF MAIN LOOP
 Sync
Loop
Loop

  REM ================
  REM   System Setup
  REM ================
  Sync On
  Sync Rate 0

  Open To Read 1,"grass09.bmp"

  Read Byte 1,Char1
  Read Byte 1,Char2

  REM Make Certain it is a bitmap
  If Upper$(Chr$(Char1) + Chr$(Char2)) = "BM"

    REM Begin collecting bitmap data from file header
    Read Long 1, VOID                              :`- Dont need
    Read Long 1, VOID                              :`  these bytes
    Read Long 1, OFFSET                            :`- Offset to bitmap data
    Read Long 1, VOID                              :`- Don't need this
    Read Long 1, WIDTH                             :`- Width
    Read Long 1, HEIGHT                            :`- Height
    Read Word 1, VOID                              :`- Don't need these 2 bytes
    Read Word 1, BITSPERPIXEL                      :`- Use this to make sure we are loading in a 24bit bmp
    Read Long 1, COMPRESSION                       :`- Compression type, we are only handling non compressed bmps

    REM Check that we are working with a 24bit bmp with no compression, if so, begin reading the
    REM Data into an array
    If BITSPERPIXEL = 24 And COMPRESSION = 0

      REM We've already read in the first 36 bytes. Calculate the remaining bytes left to
      REM reach the byte data and move to the correct position in the file
      For I = 1 to (OFFSET - 34)
        Read Byte 1,VOID
      Next I

      REM Create an array to hold the bitmap data
      Dim Bitmap(WIDTH, HEIGHT)

      REM Begin reading in the bitmap data
      REM First byte represents the lower left hand corner of the image
      REM Last byte represents the upper right
      For Y = 1 To HEIGHT
        For X = 1 To WIDTH
          Read Byte 1, Bitmap(X, HEIGHT-Y)
          Read Byte 1, Void : Read Byte 1, Void
        Next X
      Next Y

      REM Now we are ready to create our terrain. First we define some variable for our matrix
      MATWIDTH#    = 2000.0
      MATLENGTH#   = 2000.0
      XSEG         = 60
      ZSEG         = 60
      MAXHEIGHT#   = 600

      REM Create Our Terrain
      Make Matrix 1, MATWIDTH#, MATLENGTH#, XSEG, ZSEG

      REM Now we are going to use the pixel data to generate our terrain.
      REM Note: Pixels coordinates range from 0 to Width-1 and 0 to Height-1 so the bottom
      REM right pixel coordinate of a 256x256 bitmap would be at (255,255)
      For Z = 0 To ZSeg
        For X = 0 To XSeg
          PX = ((WIDTH-1.0) / XSEG) * X
          PY = ((HEIGHT-1.0) / ZSEG) * Z
          Set Matrix Height 1, X, Z, (MAXHEIGHT# / 255) * Bitmap(PX,PY)
        Next X
      Next Z

      REM Update the matrix so we can see the changes
      Update Matrix 1
    EndIf
  EndIf

  Close File 1

  Position Camera 0,1000,0
  Point Camera 500,500,500

  While SpaceKey() = 0

    Sync
  EndWhile

  End