well i tryid it but still dosen't load correctly in my load function i made separately
; Open the file to Read
Global Terrain
;Global Lod,TZscale,TYscale,TXscale,Tername$,Termap$,xpos,ypos,zpos
Graphics3D 800, 600, 32, 2
camPivot = CreatePivot( )
cam = CreateCamera( camPivot )
CameraRange cam, 1.0, 5000.0
PositionEntity cam, 0.0, 0.0,-10.0
;// Light
light = CreateLight( )
loadnoe("test2.noe")
Repeat
If KeyDown(200) Then
MoveEntity cam,0,0,15.0
EndIf
If KeyDown(208) Then
MoveEntity cam,0,0,-15.0
EndIf
If KeyDown(203) Then
TurnEntity cam,0,2.0,0
EndIf
If KeyDown(205) Then
TurnEntity cam,0,-2.0,0
EndIf
If KeyDown(78) Then
MoveEntity cam,0,-10.0,0
EndIf
If KeyDown(74) Then
MoveEntity cam,0,10.0,0
EndIf
RenderWorld
Color 255,255,255
Text 120,30,Tname$,False,True
Text 120,40,Tmap$,False,True
Text 120,50,Txs,False,True
Text 120,60,Tys,False,True
Text 120,70,Tzs,False,True
Text 120,80,xp,False,True
Text 120,90,yp,False,True
Text 120,100,zp,False,True
Until KeyHit( 1 )
Function LoadNoe(Filename$ )
File = ReadFile( Filename$ )
Tname$=ReadString$(File)
Tmap$=ReadString$(File)
Txs=ReadInt(File)
Tys=ReadInt(File)
Tzs=ReadInt(File)
xp=ReadInt(File)
yp=ReadInt(File)
zp=ReadInt(File)
Ld=ReadInt(File)
CloseFile (file)
AppTitle "Nova Editor 0.03b- " + Tmap$
End Function
; Open the file to Read
Global Terrain
;Global Lod,TZscale,TYscale,TXscale,Tername$,Termap$,xpos,ypos,zpos
Graphics3D 800, 600, 32, 2
camPivot = CreatePivot( )
cam = CreateCamera( camPivot )
CameraRange cam, 1.0, 5000.0
PositionEntity cam, 0.0, 0.0,-10.0
;// Light
light = CreateLight( )
loadnoe("test2.noe")
Repeat
If KeyDown(200) Then
MoveEntity cam,0,0,15.0
EndIf
If KeyDown(208) Then
MoveEntity cam,0,0,-15.0
EndIf
If KeyDown(203) Then
TurnEntity cam,0,2.0,0
EndIf
If KeyDown(205) Then
TurnEntity cam,0,-2.0,0
EndIf
If KeyDown(78) Then
MoveEntity cam,0,-10.0,0
EndIf
If KeyDown(74) Then
MoveEntity cam,0,10.0,0
EndIf
RenderWorld
Color 255,255,255
Text 120,30,Tname$,False,True
Text 120,40,Tmap$,False,True
Text 120,50,Txs,False,True
Text 120,60,Tys,False,True
Text 120,70,Tzs,False,True
Text 120,80,xp,False,True
Text 120,90,yp,False,True
Text 120,100,zp,False,True
Until KeyHit( 1 )
Function LoadNoe(Filename$ )
File = ReadFile( Filename$ )
Tname$=ReadString$(File)
Tmap$=ReadString$(File)
Txs=ReadInt(File)
Tys=ReadInt(File)
Tzs=ReadInt(File)
xp=ReadInt(File)
yp=ReadInt(File)
zp=ReadInt(File)
Ld=ReadInt(File)
CloseFile (file)
AppTitle "Nova Editor 0.03b- " + Tmap$
End Function