O.K.
First demo of the first level if that makes sense.
All it is is a test of my scripting that allows you to walk around the lightmapped level.
Not that you'd probably want to, but please don't nick any media.
[href]http://www.freewebs.com/elbsoftware/realms of tutopia I demo.zip[/href]
Any comments welcome.
AnimeBlood:
I'm not using matrices any more but it's not hard.
Saving heights could be done thus:
Make Matrix 1,1000,1000,50,50
Randomize Matrix 1,100
Update Matrix 1
Dim MatrixHeight(1,50,50)
For X=0 To 50
For Z=0 To 50
MatrixHeight(1,X,Z)=Get Matrix Height(1,X,Z)
Next Z
Next X
Save Array "matrixheight.mtx",MatrixHeight(0)
Loading:
Make Matrix 1,1000,1000,50,50
Dim MatrixHeight(1,50,50)
Load Array "matrixheight.mtx",MatrixHeight(0)
For X=0 To 50
For Z=0 To 50
Set Matrix Height 1,X,Z,MatrixHeight(1,X,Z)
Next Z
Next X
Update Matrix 1
A simple height editor:
AutoCam Off
Hide Mouse
Make Matrix 1,100,100,50,50
Make Object Sphere 1,1
Color Object 1,RGB(200,0,0)
Position Camera 50,50,-50
Rotate Camera 20,0,0
Set Ambient Light 50
Sync On
Sync Rate 0
Do
MX=MX+(MouseMoveX()/2)
If MX<0 Then MX=0
If MX>100 Then MX=100
MZ=MZ-(MouseMoveY()/2)
If MZ<0 Then MZ=0
If MZ>100 Then MZ=100
MMX=MX/2
MMZ=MZ/2
MY#=Get Matrix Height(1,MMX,MMZ)
If MouseClick()=1
Set Matrix Height 1,MMX,MMZ,MY#+0.25
EndIf
If MouseClick()=2
Set Matrix Height 1,MMX,MMZ,MY#-0.25
EndIf
Update Matrix 1
MY#=Get Matrix Height(1,MMX,MMZ)
position object 1,MX,MY#,MZ
Sync
Loop
