Sorry your browser is not supported!

write the header (the object number)
write the X position
write the Y position
write the Z position
write the X angle
write the Y angle
write the Z angle

1
0
0
0
0
0
0
2
100
100
100
0
0
0

Open To Write 1,"C:\Saved Map.txt"
For n = 1 to 1000
If Object Exist(n) = 1 Then SaveObject(1,n)
Next n
Close File 1



Function SaveObject(File,Object)
         Write Float File,Object Position X(Object)
         Write Float File,Object Position Y(Object)
         Write Float File,Object Position Z(Object)
         Write Float File,Object Angle X(Object)
         Write Float File,Object Angle Y(Object)
         Write Float File,Object Angle Z(Object)

EndFunction

Function LoadObject(File,Object)
         Position Object Object,ReadFloat(File),ReadFloat(File),ReadFloat(File)
         Rotate Object Object,ReadFloat(File),ReadFloat(File),ReadFloat(File)

EndFunction

Function ReadInteger(File)
         Read Integer File,v
EndFunction v
Function ReadFloat(File)
         Read Float File,v#
EndFunction v#
Function ReadString(File)
         Read String$ Integer File,v$
EndFunction v$

   if scancode() = 16
      Open To Write 1,"C:\Saved Map.txt"
      For n = 1 to 1000
         If Object Exist(n) = 1 Then SaveObject(1,n)
      Next n
      Close File 1
   endif

Function LoadObject(File,Object)
Position Object Object,ReadFloat(File),ReadFloat(File),ReadFloat(File)
  Rotate Object Object,ReadFloat(File),ReadFloat(File),ReadFloat(File)

EndFunction

Function ReadInteger(File)
         Read v,File
EndFunction v
Function ReadFloat(File)
         Read v#,File
EndFunction v#
Function ReadString(File)
         Read v$, File
EndFunction v$