Sorry your browser is not supported!

Data 1,2,3,4,5,6,7,8,9,0

rem Or;

Data 1
Data 2
Data 3
Data 4
Data 5
Data 6
Data 7
Data 8
Data 9
Data 0

rem Or Even;

Data 1,2,3,4,5
Data 6,7,8,9,0

rem this reads the first bit of data (the number; 1) into the variable numvar
Read numvar
Print numvar

rem this reads the second bit of data (the number; 2) into the variable numvar
Read numvar
Print numvar

rem this moves the data read-head to the label my_label2.
Restore my_label2

rem this reads the first bit of data after the label my_label2 (the number; 6) into the variable numvar
Read numvar
Print numvar

rem Since no label is specified, this moves the read head back
rem to the very first bit of data in the first Data command.
Restore

rem this reads the first bit of data (the number; 1) into the variable numvar
Read numvar
Print numvar

Wait Key
End

my_label1:
Data 1,2,3,4,5

my_label2:
Data 6,7,8,9,0

For x = 1 To 5
   Read numvar
   Print numvar
   If numvar = 3 Then Restore my_label2
Next x

Restore my_label1

For x = 1 To 3
   Read numvar
Next x

Read numvar
Print numvar

Wait Key
End

my_label1:
Data 1,2,3,4,5

my_label2:
Data 6,7,8,9,0

`Set's the sync rate
Sync On : Sync Rate 20

`These array's hold the data for the matrix and object data
Dim mat(5)
Dim obj(8)
Dim cam(6)



`This restor command positions the read head at the label "matrix_data"
Restore matrix_data

`These commands reads the information that is in the data command
`for the matrix into the corresponding array variables.
For x = 1 To 5
   Read mat(x)
Next x



`This restor command positions the read head at the label "obj_data"
Restore obj_data

`These commands reads the information that is in the data command
`for the object into the corresponding array variables.
For x = 1 To 8
   Read obj(x)
Next x



`This restor command positions the read head at the label "cam_data"
Restore cam_data

`These commands reads the information that is in the data command
`for the camera into the corresponding array variables.
For x = 1 To 6
   Read cam(x)
Next x



`Just makes a basic matrix using the values obtained from the Data command
`This would represent   Make Matrix 1,10000,10000,20,20
Make Matrix mat(1),mat(2),mat(3),mat(4),mat(5)



`Just makes a basic charater using the data obtained from the data command
`This would represent   Make Object Sphere 1,30
Make Object Sphere obj(1),obj(2)

`Positions the object at the location that is specified in the data command
`This would represent   Position Object 1,100,15,100
Position Object obj(1),obj(3),obj(4),obj(5)

`Points the object toward the location that is specified in the data command
`This would represent   Point Object 1,100,15,2000
Point Object obj(1),obj(6),obj(7),obj(8)



`Positions the camera using the values specified in the data command.
`This would represent   Position Camera -100,100,100
Position Camera cam(1),cam(2),cam(3)

`Points the camera toward the location specified by the data commands.
`This would represent   Point Camera 100,15,100
Point Camera cam(4),cam(5),cam(6)

Print "Press any key to end"
Wait Key

End



`******************************************************************
`*** This is all the data that is needed throughout the program ***
`******************************************************************
matrix_data:
Data 1,10000,10000,20,20

obj_data:
Data 1,30,100,15,100,100,15,2000

cam_data:
Data -100,100,100,100,15,100

matrix_data:
Data 1,10000,10000,20,20

obj_data:
Data 1,30,100,15,100,100,15,2000

cam_data:
Data -100,100,100,100,15,100

`Sets the sync rate
Sync On : Sync Rate 0

`Makes the matrix with a 10x10 tile set
Make Matrix 1,500,500,10,10

`This is where the Data command comes in...
`each "z" vaue represents one z tile/point of the matrix
`Like-wise for the x value in these following loops
For z = 1 To 10

   For x = 1 To 10

      `This reads the next data command into the variable "height#"
      Read height#

      `If the value of "height#" <> 0 then the matrix height of the current tile,
      `which is determined by the x and z values in these loops.
      `if you swap the values of the x and z values in the "Set Matrix Height" coomand, you can get a mirrored result.
      If height# <> 0
         Set Matrix Height 1,x,z,(height#*40)
      EndIf

   Next x

Next z

Update Matrix 1

Do

`Simple camera control
If UpKey() = 1 Then Move Camera 5
If DownKey() = 1 Then Move Camera -5

If RightKey() = 1 Then YRotate Camera (Camera Angle Y() + 5)
If LeftKey() = 1 Then YRotate Camera (Camera Angle Y() - 5)


Sync
Loop



`This is the data whihc i have set-out to represent a top-down view of the matrix.
`All the 0 values mean no height is changed
`All the values greater than 0 mean that that tile is effected by that number times 40
`Change some of these values and have a look at the results of the matrix...
Data 1,1,1,1,1,1,1,1,1,1
Data 1,0,0,0,0,0,0,0,0,1
Data 1,0,2,0,0,0,0,2,0,1
Data 1,0,0,1,1,1,1,0,0,1
Data 1,0,0,1,0,0,1,0,0,1
Data 1,0,0,1,0,0,1,0,0,1
Data 1,0,0,1,1,1,1,0,0,1
Data 1,0,2,0,0,0,0,2,0,1
Data 1,0,0,0,0,0,0,0,0,1
Data 1,1,1,1,1,1,1,1,1,1


`try un-REMing this:
remstart
Data 0,0,0,0,0,0,0,0,0,0
Data 1,1,1,1,1,1,1,1,1,1
Data 2,2,2,2,2,2,2,2,2,2
Data 3,3,3,0,0,0,0,3,3,3
Data 4,4,4,1,1,1,1,4,4,4
Data 5,5,5,2,2,2,2,5,5,5
Data 6,6,6,3,3,3,3,6,6,6
Data 7,7,7,7,7,7,7,7,7,7
Data 8,8,8,8,8,8,8,8,8,8
Data 9,9,9,9,9,9,9,9,9,9
remend