Sorry your browser is not supported!

//
Function SaveObjects()


//How to save a data file CTRL + S
 If Keystate(29) = 1 and Keystate(31) = 1
    SaveFileName$ = "NativeSave.txt"
    `If File Exist(SaveFileName$) = 1 Then Delete File SaveFileName$

     If File Exist(SaveFileName$) = 0 Then OPEN DATAFILE TO Write 1, SaveFileName$ Else OPEN DATAFILE TO Update 1, SaveFileName$
     
//     `IsOpen = OPEN DATAFILE TO WRITE( 1, "save.txt" ) 
    aptr = GET ARRAYPTR( ObjPool(0) )
    `Save ARRAYPTR to DATAFILE aptr, 1 
    
    
    Save ARRAY To Datafile ObjPool(),1
    Close dataFile 1
    tEXT 0,0,"Saving To File..."
    Sync
    Wait 1000
    Endif
    

Endfunction
//
LoadObjects:
    //
    Global DFILE_LOADED
    //How to save a data file
    SaveFileName$ = "NativeSave.txt"
     Text 0,0,"Initializing Loading Of Data File: "+SaveFileName$
     Sync :Wait 1000
     If File Exist(SaveFileName$) = 1 
         Text 0,0,"Reading Data File:"+SaveFileName$
         Sync :Wait 1000
         //How to load datafile
         OPEN DATAFILE TO read 1, SaveFileName$
         ` IsOpen = OPEN DATAFILE TO WRITE( 1, "save.txt" ) 
         aptr = GET ARRAYPTR( ObjPool(0) )
         Nrraointer = LOAD ARRAYPTR FROM DATAFILE ( aptr, 1 )
         `Load ARRAY from Datafile ObjPool(),1
    
     Close dataFile 1

   ` Open To Read 1,SaveFileName$
  `  While File End(1) = 0
        //GET INDEX
                   
        For n = 0 to 999
            If ObjPool(n).ID > 0
  
        
        If ObjPool(n).File_Shape <> "" 
            Text 0,0,"Found - "+ObjPool(n).File_Shape
             Sync :Wait 100
            `If Object Exist(ObjPool(n).ID) = 0
                FileShape$ = ObjPool(n).File_Shape
                Select FileShape$
                    Case "Cube"
                        Text 0,0,"Making Cube From Array"
                        Sync :Wait 100
                        Indx = UseImage(ObjPool(n).Image)
                       
                        `For n = 1 to 999
                            `If Object Exist(n) = 0
                                
                                `Exit
                            `Endif
                        `Next n
                        
                        oidIndx = B3D Make Object Cube (100)
                        oid = oidIndx 
                        ObjPool(n).ID = oid
                        
                       ` Load Image ObjPool(n).Image,Indx
                        Texture Object oid,Indx
                        Position Object oid,ObjPool(n).px,ObjPool(n).py,ObjPool(n).pz
                        Rotate Object oid,ObjPool(n).ax,ObjPool(n).ay,ObjPool(n).az
                        
                        
                    Endcase
                    Case "Sphere"
                    Endcase
                    Case "Cone"
                    Endcase
                    Case "Cylinder"
                    Endcase
                Endselect
            Endif
        Endif 
   Next n        
  `  Endwhile
    Close File 1
    
    //
   `Text 0,0,"Loading Objs From Array:"+SaveFileName$
   `Sync :Wait 1000
    
Endif
Return 

type Object_t
    ID as integer
    File_Shape as string
    px as float
    py as float
    pz as float
    Image as integer
    ax as float
    ay as float
    az as float
endtype

sync on
sync rate 60
autocam off
move camera -20

dim ObjPool(999) as Object_t

` Set up some objects in the array
SetupObject(1)
SetupObject(2)
SetupObject(3)

` Save and load the objects
` NOTE: If loading when objects already exist, don't forget to clean up the old ones before loading
SaveObjects()
gosub LoadObjects

` Point at the central object
point camera object position x(2), object position y(2), object position z(2)

` Render
do
    if leftkey() then turn camera left 1.0
    if rightkey() then turn camera right 1.0
    sync
loop


Function SaveObjects()
    //How to save a data file CTRL + S
`    If Keystate(29) = 1 and Keystate(31) = 1
        SaveFileName$ = "NativeSave.txt"

        If File Exist(SaveFileName$) = 1 Then Delete File SaveFileName$

        OPEN DATAFILE TO Write 1, SaveFileName$
        Save ARRAY To Datafile ObjPool(),1
        Close dataFile 1

        tEXT 0,0,"Saving To File..."
        Sync
        Wait 1000
`    Endif
Endfunction

LoadObjects:
    Global DFILE_LOADED

    SaveFileName$ = "NativeSave.txt"
    Text 0,0,"Initializing Loading Of Data File: "+SaveFileName$
    Sync : Wait 1000
    If File Exist(SaveFileName$) = 1
        Text 0,0,"Reading Data File:"+SaveFileName$
        Sync : Wait 1000

        OPEN DATAFILE TO read 1, SaveFileName$
        LOAD ARRAY FROM DATAFILE ObjPool(), 1
        Close dataFile 1

        For n = 0 to 999
            If ObjPool(n).ID > 0
                If ObjPool(n).File_Shape <> ""
                    Text 0,0,"Found - "+ObjPool(n).File_Shape
                    Sync : Wait 100
                    FileShape$ = ObjPool(n).File_Shape
                    Select FileShape$
                        Case "Cube"
                            Text 0,0,"Making Cube From Array"
                            Sync : Wait 100
                            Indx = UseImage(ObjPool(n).Image)

                            ` Don't have this plug-in, so dummy one up using Matrix1 :)
`                            oidIndx = B3D Make Object Cube (100)
                            oidIndx = MakeObjectCube(1)
                            oid = oidIndx
                            ObjPool(n).ID = oid

                            Texture Object oid,Indx
                            Position Object oid,ObjPool(n).px,ObjPool(n).py,ObjPool(n).pz
                            Rotate Object oid,ObjPool(n).ax,ObjPool(n).ay,ObjPool(n).az
                        Endcase
                        Case "Sphere"
                        Endcase
                        Case "Cone"
                        Endcase
                        Case "Cylinder"
                        Endcase
                    Endselect
                Endif
            Endif
        Next n
        Close File 1

    Endif
Return


`****************************
`* Just my helper functions *
`****************************

function MakeObjectCube(size as float)
    local id as integer
    id = find free object()
    make object cube id, size
endfunction id

function SetupObject(id as integer)
    ObjPool(id).ID = 1
    ObjPool(id).File_Shape = "Cube"
    ObjPool(id).px = id * 10
    ObjPool(id).py = 0
    ObjPool(id).pz = 0
    ObjPool(id).Image = 0
    ObjPool(id).ax = 0
    ObjPool(id).ay = 0
    ObjPool(id).az = 0
endfunction

function UseImage(id as integer)
endfunction 0