save map - GameCreators Forum

Author

Message

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 26th Oct 2011 16:49

Link

I am working on my level editor and now i want to make my editor save maps i create, i create simple brush object and want to save it but it doesn't seem to work, nothing isn't written in file. What i had in mind was to check for all existing objects and determine witch is witch object like code below

type BrushType
    id as integer
    id2 as integer
    PosX as integer
    PosY as integer
    PosZ as integer
    AngX as integer
    AngY as integer
    AngZ as integer
    ScaleX as integer
    ScaleY as integer
    ScaleZ as integer
    model as string
    texture as string
    material as string
endtype
global Brush as BrushType

`save map/level
function SaveMap(file$)
    GameDir$=dir exe()
    cd GameDir$
    
    brushes=find free file()
    open to write brushes,"maps/brushes.data"
    
        for i=1 to 262144
            if object exist(i)=1
                if Brush.id=i
                    write string brushes,str$(Brush.id)
                    write string brushes,str$(Brush.id2)
                    write string brushes,str$(Brush.PosX)
                    write string brushes,str$(Brush.PosY)
                    write string brushes,str$(Brush.PosZ)
                    write string brushes,str$(Brush.AngX)
                    write string brushes,str$(Brush.AngY)
                    write string brushes,str$(Brush.AngZ)
                    write string brushes,str$(Brush.ScaleX)
                    write string brushes,str$(Brush.ScaleY)
                    write string brushes,str$(Brush.ScaleZ)
                    write string brushes,Brush.model
                    write string brushes,Brush.texture
                    write string brushes,Brush.material
                endif
            else
                close file brushes
                exitfunction
            endif
            
            inc i
        next i
    
    close file brushes
endfunction

+ Code Snippet

type BrushType
    id as integer
    id2 as integer
    PosX as integer
    PosY as integer
    PosZ as integer
    AngX as integer
    AngY as integer
    AngZ as integer
    ScaleX as integer
    ScaleY as integer
    ScaleZ as integer
    model as string
    texture as string
    material as string
endtype
global Brush as BrushType

`save map/level
function SaveMap(file$)
    GameDir$=dir exe()
    cd GameDir$
    
    brushes=find free file()
    open to write brushes,"maps/brushes.data"
    
        for i=1 to 262144
            if object exist(i)=1
                if Brush.id=i
                    write string brushes,str$(Brush.id)
                    write string brushes,str$(Brush.id2)
                    write string brushes,str$(Brush.PosX)
                    write string brushes,str$(Brush.PosY)
                    write string brushes,str$(Brush.PosZ)
                    write string brushes,str$(Brush.AngX)
                    write string brushes,str$(Brush.AngY)
                    write string brushes,str$(Brush.AngZ)
                    write string brushes,str$(Brush.ScaleX)
                    write string brushes,str$(Brush.ScaleY)
                    write string brushes,str$(Brush.ScaleZ)
                    write string brushes,Brush.model
                    write string brushes,Brush.texture
                    write string brushes,Brush.material
                endif
            else
                close file brushes
                exitfunction
            endif
            
            inc i
        next i
    
    close file brushes
endfunction

but now i am not certain will this work in any way. Why i don't get anything written in the file and is this secure way to this thing i i have two object types will there be conflict with object id's and should i put different objects in dims?

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 26th Oct 2011 18:26 Edited at: 26th Oct 2011 18:55

Link

Looks like maybe you should be creating a UDT array rather than a single UDT object.

Something like this?

type BrushType
    id as integer
    id2 as integer
    PosX as integer
    PosY as integer
    PosZ as integer
    AngX as integer
    AngY as integer
    AngZ as integer
    ScaleX as integer
    ScaleY as integer
    ScaleZ as integer
    model as string
    texture as string
    material as string
endtype
dim Brush(262144) as BrushType //<< this is a LARGE amount I would limit it to minimum required

`save map/level
function SaveMap(file$)
    GameDir$=dir exe()
    cd GameDir$
    
    brushes=find free file()
    open to write brushes,"maps/brushes.data"
    
        for i=1 to 262144
            if object exist(Brush(i).id)=1
                write string brushes,str$(Brush(i).id)
                write string brushes,str$(Brush(i).id2)
                write string brushes,str$(Brush(i).PosX)
                write string brushes,str$(Brush(i).PosY)
                write string brushes,str$(Brush(i).PosZ)
                write string brushes,str$(Brush(i).AngX)
                write string brushes,str$(Brush(i).AngY)
                write string brushes,str$(Brush(i).AngZ)
                write string brushes,str$(Brush(i).ScaleX)
                write string brushes,str$(Brush(i).ScaleY)
                write string brushes,str$(Brush(i).ScaleZ)
                write string brushes,Brush(i).model
                write string brushes,Brush(i).texture
                write string brushes,Brush(i).material
            else
                close file brushes
                exitfunction
            endif
            
            inc i
        next i
    
    close file brushes
endfunction

+ Code Snippet

type BrushType
    id as integer
    id2 as integer
    PosX as integer
    PosY as integer
    PosZ as integer
    AngX as integer
    AngY as integer
    AngZ as integer
    ScaleX as integer
    ScaleY as integer
    ScaleZ as integer
    model as string
    texture as string
    material as string
endtype
dim Brush(262144) as BrushType //<< this is a LARGE amount I would limit it to minimum required

`save map/level
function SaveMap(file$)
    GameDir$=dir exe()
    cd GameDir$
    
    brushes=find free file()
    open to write brushes,"maps/brushes.data"
    
        for i=1 to 262144
            if object exist(Brush(i).id)=1
                write string brushes,str$(Brush(i).id)
                write string brushes,str$(Brush(i).id2)
                write string brushes,str$(Brush(i).PosX)
                write string brushes,str$(Brush(i).PosY)
                write string brushes,str$(Brush(i).PosZ)
                write string brushes,str$(Brush(i).AngX)
                write string brushes,str$(Brush(i).AngY)
                write string brushes,str$(Brush(i).AngZ)
                write string brushes,str$(Brush(i).ScaleX)
                write string brushes,str$(Brush(i).ScaleY)
                write string brushes,str$(Brush(i).ScaleZ)
                write string brushes,Brush(i).model
                write string brushes,Brush(i).texture
                write string brushes,Brush(i).material
            else
                close file brushes
                exitfunction
            endif
            
            inc i
        next i
    
    close file brushes
endfunction

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 26th Oct 2011 18:45

Link

ok, i already had that in my code earlier but when i decided to write all data to file str$(Brush.id) and other stuff won't write to file, so how should i use this array?

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 26th Oct 2011 18:55

Link

I changed that part in the code I posted, you need to use the array format for getting the data back out (with parentheses)

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 27th Oct 2011 00:38

Link

i am not sure how to do this i get data like this

+ Code Snippet

if button clicked(BrushOkBrush3)
        `setup brush
        Brush.id=brush3
        Brush.id2=BS
        Brush.PosX=object position x(brush3)
        Brush.PosY=object position y(brush3)
        Brush.PosZ=object position z(brush3)
        Brush.AngX=object angle x(brush3)
        Brush.AngY=object angle y(brush3)
        Brush.AngZ=object angle z(brush3)
        Brush.ScaleX=object scale x(brush3)
        Brush.ScaleY=object scale y(brush3)
        Brush.ScaleZ=object scale z(brush3)
        Brush.model="models/editor/3_sided_brush.x"
        Brush.texture=""
        Brush.material=""
        
        delete window BrushWinBrush3
    endif

and i want to save that data to file like this

for i=1 to 262144
            if object exist(i)=1
                if Brush(i).id=i
                    Brush(i).id=Brush.id
                    Brush(i).id2=Brush.id2
                    Brush(i).PosX=Brush.PosX
                    Brush(i).PosY=Brush.PosY
                    Brush(i).PosZ=Brush.PosZ
                    Brush(i).AngX=Brush.AngX
                    Brush(i).AngY=Brush.AngY
                    Brush(i).AngZ=Brush.AngZ
                    Brush(i).ScaleX=Brush.ScaleX
                    Brush(i).ScaleY=Brush.ScaleY
                    Brush(i).ScaleZ=Brush.ScaleZ
                    Brush(i).model=Brush.model
                    Brush(i).texture=Brush.texture
                    Brush(i).material=Brush.material
                    
                    write string brushes,str$(Brush.id)
                    write string brushes,str$(Brush.id2)
                    write string brushes,str$(Brush.PosX)
                    write string brushes,str$(Brush.PosY)
                    write string brushes,str$(Brush.PosZ)
                    write string brushes,str$(Brush.AngX)
                    write string brushes,str$(Brush.AngY)
                    write string brushes,str$(Brush.AngZ)
                    write string brushes,str$(Brush.ScaleX)
                    write string brushes,str$(Brush.ScaleY)
                    write string brushes,str$(Brush.ScaleZ)
                    write string brushes,Brush.model
                    write string brushes,Brush.texture
                    write string brushes,Brush.material
                endif
            else

+ Code Snippet

for i=1 to 262144
            if object exist(i)=1
                if Brush(i).id=i
                    Brush(i).id=Brush.id
                    Brush(i).id2=Brush.id2
                    Brush(i).PosX=Brush.PosX
                    Brush(i).PosY=Brush.PosY
                    Brush(i).PosZ=Brush.PosZ
                    Brush(i).AngX=Brush.AngX
                    Brush(i).AngY=Brush.AngY
                    Brush(i).AngZ=Brush.AngZ
                    Brush(i).ScaleX=Brush.ScaleX
                    Brush(i).ScaleY=Brush.ScaleY
                    Brush(i).ScaleZ=Brush.ScaleZ
                    Brush(i).model=Brush.model
                    Brush(i).texture=Brush.texture
                    Brush(i).material=Brush.material
                    
                    write string brushes,str$(Brush.id)
                    write string brushes,str$(Brush.id2)
                    write string brushes,str$(Brush.PosX)
                    write string brushes,str$(Brush.PosY)
                    write string brushes,str$(Brush.PosZ)
                    write string brushes,str$(Brush.AngX)
                    write string brushes,str$(Brush.AngY)
                    write string brushes,str$(Brush.AngZ)
                    write string brushes,str$(Brush.ScaleX)
                    write string brushes,str$(Brush.ScaleY)
                    write string brushes,str$(Brush.ScaleZ)
                    write string brushes,Brush.model
                    write string brushes,Brush.texture
                    write string brushes,Brush.material
                endif
            else

this Brush(i).id=Brush.id must be Brush(i).id=i to compile and the line below then returns error

how should i do this?

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / save map