save load map - GameCreators Forum

Author

Message

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 28th Nov 2011 21:30

Link

how can i make dbp read file and load the map/level from it, i tried to save my map to kind of ini file, but when i want to load it i get one more object that was not saved before and ini file gets corrupted with some other data in the source code that is not related?

this is the map file

+ Code Snippet

[13]
Brush=13
Model=models/editor/3_sided_brush.x
Texture=
Material=
PosX=70
PosY=50
PosZ=75
AngX=-5
AngY=-5
AngZ=-5
ScaleX=100
ScaleY=100
ScaleZ=104.999992371
[14]
Brush=14
Model=models/editor/3_sided_brush.x
Texture=
Material=
PosX=-80
PosY=-75
PosZ=-100
AngX=5
AngY=5
AngZ=5
ScaleX=100
ScaleY=100
ScaleZ=95

and this is my function for loading

`load map/level
function LoadMap(file$)
    GameDir$=dir exe()
    
    `return to the root game folder
    cd GameDir$
    WriteLog("Loading map")
    AddConsole("Loading map")
    
    `load map file -> get map data
    if file exist(file$)=1
        `prepare for loading
        `delete editor brushes
        DeleteBrushes()
        
        `flush video memory
        CleanUpGfx()
        
        `load editor brushes
        LoadBrushes()
        
        mapfile=find free file()
        SecNum=0
        
        `get total number of objects in the map
        open to read mapfile,file$
            repeat
                read string mapfile,s$
                
                if left$(s$,1)="["
                    inc SecNum,1
                endif
            until file end(mapfile)=1
            
            `report number of objects in the map
            WriteLog("Number of objects: "+str$(SecNum))
            
            `if there is no objects
            if SecNum=0
                WriteLog("Empty map")
                exitfunction
            endif
            
            `if there is full capacity of three sided brushes
            if SecNum>1000
                WriteWarning("Maximum number of objects found")
            endif
        close file mapfile
        
        `process three sided brushes
        for i=12 to 12+SecNum
            `get id, position, angle and scale data for each brush object
            BrushObj$=GetString(file$,str$(i+1),"Brush")
            BrushPosX$=GetString(file$,str$(i+1),"PosX")
            BrushPosY$=GetString(file$,str$(i+1),"PosY")
            BrushPosZ$=GetString(file$,str$(i+1),"PosZ")
            BrushAngX$=GetString(file$,str$(i+1),"AngX")
            BrushAngY$=GetString(file$,str$(i+1),"AngY")
            BrushAngZ$=GetString(file$,str$(i+1),"AngZ")
            BrushScaleX$=GetString(file$,str$(i+1),"ScaleX")
            BrushScaleY$=GetString(file$,str$(i+1),"ScaleY")
            BrushScaleZ$=GetString(file$,str$(i+1),"ScaleZ")
            
            `convert data to integer values
            BrushObj#=intval(BrushObj$)
            BrushPosX#=intval(BrushPosX$)
            BrushPosY#=intval(BrushPosY$)
            BrushPosZ#=intval(BrushPosZ$)
            BrushAngX#=intval(BrushAngX$)
            BrushAngY#=intval(BrushAngY$)
            BrushAngZ#=intval(BrushAngZ$)
            BrushScaleX#=intval(BrushScaleX$)
            BrushScaleY#=intval(BrushScaleY$)
            BrushScaleZ#=intval(BrushScaleZ$)
            
            `load object
            WriteLog("Loading object")
            load object "models/editor/3_sided_brush.x",BrushObj#
            position object BrushObj#,BrushPosX#,BrushPosY#,BrushPosZ#
            rotate object BrushObj#,BrushAngX#,BrushAngY#,BrushAngZ#
            scale object BrushObj#,BrushScaleX#,BrushScaleY#,BrushScaleZ#
        next i
    
        `return to the root game folder
        cd GameDir$
        WriteLog("map loaded successfully")
        AddConsole("map loaded successfully")
    endif
    
    `report number of brushes and entities in the map
endfunction

+ Code Snippet

`load map/level
function LoadMap(file$)
    GameDir$=dir exe()
    
    `return to the root game folder
    cd GameDir$
    WriteLog("Loading map")
    AddConsole("Loading map")
    
    `load map file -> get map data
    if file exist(file$)=1
        `prepare for loading
        `delete editor brushes
        DeleteBrushes()
        
        `flush video memory
        CleanUpGfx()
        
        `load editor brushes
        LoadBrushes()
        
        mapfile=find free file()
        SecNum=0
        
        `get total number of objects in the map
        open to read mapfile,file$
            repeat
                read string mapfile,s$
                
                if left$(s$,1)="["
                    inc SecNum,1
                endif
            until file end(mapfile)=1
            
            `report number of objects in the map
            WriteLog("Number of objects: "+str$(SecNum))
            
            `if there is no objects
            if SecNum=0
                WriteLog("Empty map")
                exitfunction
            endif
            
            `if there is full capacity of three sided brushes
            if SecNum>1000
                WriteWarning("Maximum number of objects found")
            endif
        close file mapfile
        
        `process three sided brushes
        for i=12 to 12+SecNum
            `get id, position, angle and scale data for each brush object
            BrushObj$=GetString(file$,str$(i+1),"Brush")
            BrushPosX$=GetString(file$,str$(i+1),"PosX")
            BrushPosY$=GetString(file$,str$(i+1),"PosY")
            BrushPosZ$=GetString(file$,str$(i+1),"PosZ")
            BrushAngX$=GetString(file$,str$(i+1),"AngX")
            BrushAngY$=GetString(file$,str$(i+1),"AngY")
            BrushAngZ$=GetString(file$,str$(i+1),"AngZ")
            BrushScaleX$=GetString(file$,str$(i+1),"ScaleX")
            BrushScaleY$=GetString(file$,str$(i+1),"ScaleY")
            BrushScaleZ$=GetString(file$,str$(i+1),"ScaleZ")
            
            `convert data to integer values
            BrushObj#=intval(BrushObj$)
            BrushPosX#=intval(BrushPosX$)
            BrushPosY#=intval(BrushPosY$)
            BrushPosZ#=intval(BrushPosZ$)
            BrushAngX#=intval(BrushAngX$)
            BrushAngY#=intval(BrushAngY$)
            BrushAngZ#=intval(BrushAngZ$)
            BrushScaleX#=intval(BrushScaleX$)
            BrushScaleY#=intval(BrushScaleY$)
            BrushScaleZ#=intval(BrushScaleZ$)
            
            `load object
            WriteLog("Loading object")
            load object "models/editor/3_sided_brush.x",BrushObj#
            position object BrushObj#,BrushPosX#,BrushPosY#,BrushPosZ#
            rotate object BrushObj#,BrushAngX#,BrushAngY#,BrushAngZ#
            scale object BrushObj#,BrushScaleX#,BrushScaleY#,BrushScaleZ#
        next i
    
        `return to the root game folder
        cd GameDir$
        WriteLog("map loaded successfully")
        AddConsole("map loaded successfully")
    endif
    
    `report number of brushes and entities in the map
endfunction

what am i doing wrong, can someone show me thier method of performing save/load operation?

Back to top

Profile PM Email

Daniel wright 2311

User Banned

Posted: 28th Nov 2011 21:40

Link

Need to see the way you saved in your map to know for shure

Here is how I do it

FUNCTION SaveGameobjects(name$)   
    if file exist("savegame\"+name$+".dat")=1 then delete file "savegame\"+name$+".dat"
    open to write 1,"savegame\"+name$+".dat"
    write byte 1,n //first i save my object number
    for x=20 to n
    if object exist(x)=1
        x#=object position x(x)
        y#=object position y(x)
        z#=object position z(x)
        ax#=object angle x(x)
        ay#=object angle y(x)
        az#=object angle z(x)

rem These WRITEs have been moved from after the NEXT to before the NEXT.

write float 1,x#
        write float 1,y#
        write float 1,z#
        write float 1,ax#
        write float 1,ay#
        write float 1,az#

endif
    next x

close file 1
    CENTER TEXT 500, 160, "Save Succesfull! Press enter key to continue."
ENDFUNCTION SaveGameobjects

FUNCTION loadGameobjects(name$)
    if file exist("savegame\"+name$+".dat")=1 then open to read 1,"savegame\"+name$+".dat"
    read byte 1,n //first i read my object number
    for x=20 to n
    load object "entitybank\cactus_plant.x", x,2
    texture object x,2
    if object exist(x)=1
        rem These READs have been moved from before the FOR to after the FOR.
        read float 1,x#
        read float 1,y#
        read float 1,z#
        read float 1,ax#
        read float 1,ay#
        read float 1,az#

position object x,x#,y#,z#
        xrotate object x,ax#
        yrotate object x,ay#
        zrotate object x,az#
        hide object 20
        endif

next x

close file 1
endfunction

+ Code Snippet

FUNCTION SaveGameobjects(name$)   
    if file exist("savegame\"+name$+".dat")=1 then delete file "savegame\"+name$+".dat"
    open to write 1,"savegame\"+name$+".dat"
    write byte 1,n //first i save my object number
    for x=20 to n
    if object exist(x)=1
        x#=object position x(x)
        y#=object position y(x)
        z#=object position z(x)
        ax#=object angle x(x)
        ay#=object angle y(x)
        az#=object angle z(x)

        rem These WRITEs have been moved from after the NEXT to before the NEXT.

        write float 1,x#
        write float 1,y#
        write float 1,z#
        write float 1,ax#
        write float 1,ay#
        write float 1,az#

        endif
    next x

    close file 1
    CENTER TEXT 500, 160, "Save Succesfull! Press enter key to continue."
ENDFUNCTION SaveGameobjects


FUNCTION loadGameobjects(name$)
    if file exist("savegame\"+name$+".dat")=1 then open to read 1,"savegame\"+name$+".dat"
    read byte 1,n //first i read my object number
    for x=20 to n
    load object "entitybank\cactus_plant.x", x,2
    texture object x,2
    if object exist(x)=1
        rem These READs have been moved from before the FOR to after the FOR.
        read float 1,x#
        read float 1,y#
        read float 1,z#
        read float 1,ax#
        read float 1,ay#
        read float 1,az#

        position object x,x#,y#,z#
        xrotate object x,ax#
        yrotate object x,ay#
        zrotate object x,az#
        hide object 20
        endif

    next x


    close file 1
endfunction

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Daniel wright 2311

User Banned

Posted: 28th Nov 2011 21:56

Link

doubloe post.

Here is a way to save memory blocks that work so much better.I use this from another thread

type PlayerData
xp as integer
health as integer
Level as integer
canupgrade as integer
dead as integer
won as integer
oldpositionz as float
oldpositiony as float
endtype

REM SET VALUES
dim player(0) as PlayerData
player(0).xp = 12306
player(0).health = 78
player(0).Level = 36

player(0).canupgrade = 0
player(0).dead = 0
player(0).won = 1
player(0).oldpositionz = 550.0
player(0).oldpositiony = 444.0

REM WRITE TO MEMBLOCK
if file exist("player.dat") then delete file "player.dat"
open to write 1, "player.dat"
make memblock from array 1, player()
write memblock 1, 1
delete memblock 1
close file 1

REM CLEAR VALUES
player(0).xp = 0
player(0).health =0
player(0).Level = 0
player(0).canupgrade = 0
player(0).dead = 0
player(0).won = 0
player(0).oldpositionz =0
player(0).oldpositiony = 0

REM READ FROM MEMBLOCK
open to read 1, "player.dat"
read memblock 1, 1
make array from memblock player(), 1
delete memblock 1
close file 1

REM PRINT VALUES
print "Read From Memblock:"
print player(0).xp
print player(0).health
print player(0).Level
print player(0).canupgrade
print player(0).dead
print player(0).won
print player(0).oldpositionz
print player(0).oldpositiony

wait key

+ Code Snippet

type PlayerData
xp as integer
health as integer
Level as integer
canupgrade as integer
dead as integer
won as integer
oldpositionz as float
oldpositiony as float
endtype

REM SET VALUES
dim player(0) as PlayerData
player(0).xp = 12306
player(0).health = 78
player(0).Level = 36

player(0).canupgrade = 0
player(0).dead = 0
player(0).won = 1
player(0).oldpositionz = 550.0
player(0).oldpositiony = 444.0

REM WRITE TO MEMBLOCK
if file exist("player.dat") then delete file "player.dat"
open to write 1, "player.dat"
make memblock from array 1, player()
write memblock 1, 1
delete memblock 1
close file 1

REM CLEAR VALUES
player(0).xp = 0
player(0).health =0
player(0).Level = 0
player(0).canupgrade = 0
player(0).dead = 0
player(0).won = 0
player(0).oldpositionz =0
player(0).oldpositiony = 0

REM READ FROM MEMBLOCK
open to read 1, "player.dat"
read memblock 1, 1
make array from memblock player(), 1
delete memblock 1
close file 1

REM PRINT VALUES
print "Read From Memblock:"
print player(0).xp
print player(0).health
print player(0).Level
print player(0).canupgrade
print player(0).dead
print player(0).won
print player(0).oldpositionz
print player(0).oldpositiony

wait key

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 28th Nov 2011 22:12

Link

this is my save function

`save map/level
function SaveMap(map$)
    GameDir$=dir exe()
    cd GameDir$
    
    if file exist(map$)=1 then delete file map$
    
    `store all brushes
    map=find free file()
    open to write map,map$
        for i=12 to 1012
            if object exist(i+1)=1
                write string map,"["+str$(i+1)+"]"
                write string map,"Brush="+str$(i+1)
                write string map,"Model="+BrushModel3$
                write string map,"Texture="+TexBrush3$
                write string map,"Material="+MatBrush3$
                write string map,"PosX="+str$(object position x(i+1))
                write string map,"PosY="+str$(object position y(i+1))
                write string map,"PosZ="+str$(object position z(i+1))
                write string map,"AngX="+str$(object angle x(i+1))
                write string map,"AngY="+str$(object angle y(i+1))
                write string map,"AngZ="+str$(object angle z(i+1))
                write string map,"ScaleX="+str$(object scale x(i+1))
                write string map,"ScaleY="+str$(object scale y(i+1))
                write string map,"ScaleZ="+str$(object scale z(i+1))
            else
                close file map
            endif
        next i
    close file map
endfunction

+ Code Snippet

`save map/level
function SaveMap(map$)
    GameDir$=dir exe()
    cd GameDir$
    
    if file exist(map$)=1 then delete file map$
    
    `store all brushes
    map=find free file()
    open to write map,map$
        for i=12 to 1012
            if object exist(i+1)=1
                write string map,"["+str$(i+1)+"]"
                write string map,"Brush="+str$(i+1)
                write string map,"Model="+BrushModel3$
                write string map,"Texture="+TexBrush3$
                write string map,"Material="+MatBrush3$
                write string map,"PosX="+str$(object position x(i+1))
                write string map,"PosY="+str$(object position y(i+1))
                write string map,"PosZ="+str$(object position z(i+1))
                write string map,"AngX="+str$(object angle x(i+1))
                write string map,"AngY="+str$(object angle y(i+1))
                write string map,"AngZ="+str$(object angle z(i+1))
                write string map,"ScaleX="+str$(object scale x(i+1))
                write string map,"ScaleY="+str$(object scale y(i+1))
                write string map,"ScaleZ="+str$(object scale z(i+1))
            else
                close file map
            endif
        next i
    close file map
endfunction

also i had some problems when i wanted to save array like player from your post to file so i tried to save this way

Back to top

Profile PM Email

Daniel wright 2311

User Banned

Posted: 28th Nov 2011 22:31

Link

arrays are always saved in and loaded in better in blocks and not strings. try the code i posted abouve and change your saving code and loading code and it should work.If you can wait till later i will write it for you, right now its bottal time for my baby..

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 28th Nov 2011 23:16

Link

ok

Back to top

Profile PM Email

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 29th Nov 2011 02:30

Link

now there is another problem with this

`save map/level
function SaveMap(map$)
    GameDir$=dir exe()
    cd GameDir$
    if file exist(map$)=1 then delete file map$
    
    `store all data
    map=find free file()
    TotalObj=find free object()
    total=TotalObj-1
    
    open to write map,map$
        for i=12 to total
            if object exist(i)=1
                `get data
                MaxObj=total
                id=i
                PosX=object position x(i)
                PosY=object position y(i)
                PosZ=object position z(i)
                AngX=object angle x(i)
                AngY=object angle y(i)
                AngZ=object angle z(i)
                ScaleX=object scale x(i)
                ScaleY=object scale y(i)
                ScaleZ=object scale z(i)
                
                `write data
                write long map,MaxObj
                write long map,id
                write long map,PosX
                write long map,PosY
                write long map,PosZ
                write long map,AngX
                write long map,AngY
                write long map,AngZ
                write long map,ScaleX
                write long map,ScaleY
                write long map,ScaleZ
            endif
        next i
    close file map
endfunction

`load map/level
function LoadMap(file$)
    GameDir$=dir exe()
    file=find free file()
    
    if file exist(file$)=1 then open to read file,file$
    read long file,MaxObj
    
    for i=12 to total
        `read data
        read long file,id
        read long file,PosX
        read long file,PosY
        read long file,PosZ
        read long file,AngX
        read long file,AngY
        read long file,AngZ
        read long file,ScaleX
        read long file,ScaleY
        read long file,ScaleZ
        
        `setup object
        cd GameDir$
        load object "models/editor/3_sided_brush.x",id
        position object id,PosX,PosY,PosZ
        rotate object id,AngX,AngY,AngZ
        scale object id,ScaleX,ScaleY,ScaleZ
    next i
    
    close file file
endfunction

+ Code Snippet

`save map/level
function SaveMap(map$)
    GameDir$=dir exe()
    cd GameDir$
    if file exist(map$)=1 then delete file map$
    
    `store all data
    map=find free file()
    TotalObj=find free object()
    total=TotalObj-1
    
    open to write map,map$
        for i=12 to total
            if object exist(i)=1
                `get data
                MaxObj=total
                id=i
                PosX=object position x(i)
                PosY=object position y(i)
                PosZ=object position z(i)
                AngX=object angle x(i)
                AngY=object angle y(i)
                AngZ=object angle z(i)
                ScaleX=object scale x(i)
                ScaleY=object scale y(i)
                ScaleZ=object scale z(i)
                
                `write data
                write long map,MaxObj
                write long map,id
                write long map,PosX
                write long map,PosY
                write long map,PosZ
                write long map,AngX
                write long map,AngY
                write long map,AngZ
                write long map,ScaleX
                write long map,ScaleY
                write long map,ScaleZ
            endif
        next i
    close file map
endfunction

`load map/level
function LoadMap(file$)
    GameDir$=dir exe()
    file=find free file()
    
    if file exist(file$)=1 then open to read file,file$
    read long file,MaxObj
    
    for i=12 to total
        `read data
        read long file,id
        read long file,PosX
        read long file,PosY
        read long file,PosZ
        read long file,AngX
        read long file,AngY
        read long file,AngZ
        read long file,ScaleX
        read long file,ScaleY
        read long file,ScaleZ
        
        `setup object
        cd GameDir$
        load object "models/editor/3_sided_brush.x",id
        position object id,PosX,PosY,PosZ
        rotate object id,AngX,AngY,AngZ
        scale object id,ScaleX,ScaleY,ScaleZ
    next i
    
    close file file
endfunction

now i don't get any result from loading the map, no errors, crashes or anything

Back to top

Profile PM Email

Daniel wright 2311

User Banned

Posted: 29th Nov 2011 04:27

Link

Quote: "now i don't get any result from loading the map, no errors, crashes or anything"

good, Im glade you worked it out.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 29th Nov 2011 05:20

Link

I don't think he means he worked it out...

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 29th Nov 2011 06:22

Link

Quote: "I don't think he means he worked it out"

well then, if you are right my bad,I will wait to see what he says then.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 29th Nov 2011 17:30

Link

no i didn't worked it out, i have problems with loading data, i don't get any result, when i used my original code i had one bulk object created, and 'corrupted' map file?

Back to top

Profile PM Email

Daniel wright 2311

User Banned

Posted: 29th Nov 2011 20:58

Link

Quote: "no i didn't worked it out, i have problems with loading data, i don't get any result, when i used my original code i had one bulk object created, and 'corrupted' map file? "

Your open to write map should be right below your if file exist so the values hold true in the writing prosess.Now I dont know for shure if this was the problem but this is what I would test first,if it is not the problem we will fo from there.I changed it for you already.

`save map/level
function SaveMap(map$)
    if file exist(map$)=1 then delete file map$
    open to write map,map$
    `store all data
    GameDir$=dir exe()
    cd GameDir$

map=find free file()
    TotalObj=find free object()
    total=TotalObj-1
    
    
        for i=12 to total
            if object exist(i)=1
                `get data
                MaxObj=total
                id=i
                PosX=object position x(i)
                PosY=object position y(i)
                PosZ=object position z(i)
                AngX=object angle x(i)
                AngY=object angle y(i)
                AngZ=object angle z(i)
                ScaleX=object scale x(i)
                ScaleY=object scale y(i)
                ScaleZ=object scale z(i)
                
                `write data
                write long map,MaxObj
                write long map,id
                write long map,PosX
                write long map,PosY
                write long map,PosZ
                write long map,AngX
                write long map,AngY
                write long map,AngZ
                write long map,ScaleX
                write long map,ScaleY
                write long map,ScaleZ
            endif
        next i
    close file map
endfunction

`load map/level
function LoadMap(file$)
    GameDir$=dir exe()
    file=find free file()
    
    if file exist(file$)=1 then open to read file,file$
    read long file,MaxObj
    
    for i=12 to total
        `read data
        read long file,id
        read long file,PosX
        read long file,PosY
        read long file,PosZ
        read long file,AngX
        read long file,AngY
        read long file,AngZ
        read long file,ScaleX
        read long file,ScaleY
        read long file,ScaleZ
        
        `setup object
        cd GameDir$
        load object "models/editor/3_sided_brush.x",id
        position object id,PosX,PosY,PosZ
        rotate object id,AngX,AngY,AngZ
        scale object id,ScaleX,ScaleY,ScaleZ
    next i
    
    close file file
endfunction

+ Code Snippet

`save map/level
function SaveMap(map$)
    if file exist(map$)=1 then delete file map$
    open to write map,map$
    `store all data
    GameDir$=dir exe()
    cd GameDir$

    map=find free file()
    TotalObj=find free object()
    total=TotalObj-1
    
    
        for i=12 to total
            if object exist(i)=1
                `get data
                MaxObj=total
                id=i
                PosX=object position x(i)
                PosY=object position y(i)
                PosZ=object position z(i)
                AngX=object angle x(i)
                AngY=object angle y(i)
                AngZ=object angle z(i)
                ScaleX=object scale x(i)
                ScaleY=object scale y(i)
                ScaleZ=object scale z(i)
                
                `write data
                write long map,MaxObj
                write long map,id
                write long map,PosX
                write long map,PosY
                write long map,PosZ
                write long map,AngX
                write long map,AngY
                write long map,AngZ
                write long map,ScaleX
                write long map,ScaleY
                write long map,ScaleZ
            endif
        next i
    close file map
endfunction

`load map/level
function LoadMap(file$)
    GameDir$=dir exe()
    file=find free file()
    
    if file exist(file$)=1 then open to read file,file$
    read long file,MaxObj
    
    for i=12 to total
        `read data
        read long file,id
        read long file,PosX
        read long file,PosY
        read long file,PosZ
        read long file,AngX
        read long file,AngY
        read long file,AngZ
        read long file,ScaleX
        read long file,ScaleY
        read long file,ScaleZ
        
        `setup object
        cd GameDir$
        load object "models/editor/3_sided_brush.x",id
        position object id,PosX,PosY,PosZ
        rotate object id,AngX,AngY,AngZ
        scale object id,ScaleX,ScaleY,ScaleZ
    next i
    
    close file file
endfunction

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 29th Nov 2011 23:53

Link

your code doesn't change anything, with that code program crashes, but this is the code that i found on the forum

+ Code Snippet

set display mode 640,480,32,1
sync on
sync
cls rgb(255,255,0)
get image 1,0,0,32,32,1
sprite 1,0,0,1
dim map(2)
cls 0
x=100
y=100

if file exist("map.dat")=1
    load array "map.dat",map()
    x=map(1)
    y=map(2)
ENDIF


do 
    gosub keychecks
    gosub update
    sync 
loop

keychecks:
if returnkey()=1 and rep=0
    save array "map.dat",map()
ENDIF
if upkey()=1
    dec y
endif
if downkey()=1
    inc y
endif
if leftkey()=1
    dec x
endif
if rightkey()=1
    inc x
endif
if scancode()=0
    rep=0
ENDIF
return

update:
sprite 1,x,y,1
map(1)=x
map(2)=y
return

i'am not sure who coded this, how can i put this in a function to save every object, with position, angle, scale and other details; for me point of concern is this

+ Code Snippet

dim map(2)

x=100
y=100

if file exist("map.dat")=1
    load array "map.dat",map()
    x=map(1)
    y=map(2)
ENDIF

is there another method besides this because i wanted to save object with type like this one

+ Code Snippet

type BrushType
    id as integer
    `bs 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 dim WorldBrush() as BrushType

and load it later?

Back to top

Profile PM Email

basjak

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location: feel like signing up for mars

Posted: 30th Nov 2011 00:23 Edited at: 30th Nov 2011 15:27

Link

in my opinion creating a level this way is very mixing and time consuming. create your own format:

example: string$="objno,scale,x,y,z,Ox,Oy,Oz,texture,FX"

and make a small app the can create a file this way then let your game app break up the string.

Back to top

Profile PM Email Website

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 1st Dec 2011 01:54

Link

the basic idea was to write every object or whatever with its data to file and later to be able to load it, the problem is that data can be written but can't be loaded later.

Quote: "
create your own format:

example: string$="objno,scale,x,y,z,Ox,Oy,Oz,texture,FX"

and make a small app the can create a file this way then let your game app break up the string
"

i think that this is not bad idea but it is almost the same thing that i was doing, i wrote data to file and later i read the data from there but it can't be used to create object.

Back to top

Profile PM Email

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 1st Dec 2011 02:28

Link

I just had a rogue idea... Maybe experiment and save the data to a memblock? Just a thought...

Also another thought was save position data in one file and object data in anothef...

Just as a diagnostic approach...

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 1st Dec 2011 03:19

Link

Quote: "I just had a rogue idea... Maybe experiment and save the data to a memblock? Just a thought...

Also another thought was save position data in one file and object data in anothef...

Just as a diagnostic approach..."

I had already told him this, im not shure he understands,i even posted a example.I hope he gets it to work for him, dont give up my friend.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 1st Dec 2011 04:42

Link

Sorry buddy I did not notice... Oh well a fresh reminder haha

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 1st Dec 2011 07:37 Edited at: 1st Dec 2011 09:21

Link

hi nruser

Your variable SecNum counts how many objects are in the file, and then you do this for...next loop to load the objects accordingly:

for i=12 to 12+SecNum
            `get id, position, angle and scale data for each brush object
            BrushObj$=GetString(file$,str$(i+1),"Brush")
            BrushPosX$=GetString(file$,str$(i+1),"PosX")
            BrushPosY$=GetString(file$,str$(i+1),"PosY")
            BrushPosZ$=GetString(file$,str$(i+1),"PosZ")
            BrushAngX$=GetString(file$,str$(i+1),"AngX")
            BrushAngY$=GetString(file$,str$(i+1),"AngY")
            BrushAngZ$=GetString(file$,str$(i+1),"AngZ")
            BrushScaleX$=GetString(file$,str$(i+1),"ScaleX")
            BrushScaleY$=GetString(file$,str$(i+1),"ScaleY")
            BrushScaleZ$=GetString(file$,str$(i+1),"ScaleZ")
            
            `convert data to integer values
            BrushObj#=intval(BrushObj$)
            BrushPosX#=intval(BrushPosX$)
            BrushPosY#=intval(BrushPosY$)
            BrushPosZ#=intval(BrushPosZ$)
            BrushAngX#=intval(BrushAngX$)
            BrushAngY#=intval(BrushAngY$)
            BrushAngZ#=intval(BrushAngZ$)
            BrushScaleX#=intval(BrushScaleX$)
            BrushScaleY#=intval(BrushScaleY$)
            BrushScaleZ#=intval(BrushScaleZ$)
            
            `load object
            WriteLog("Loading object")
            load object "models/editor/3_sided_brush.x",BrushObj#
            position object BrushObj#,BrushPosX#,BrushPosY#,BrushPosZ#
            rotate object BrushObj#,BrushAngX#,BrushAngY#,BrushAngZ#
            scale object BrushObj#,BrushScaleX#,BrushScaleY#,BrushScaleZ#
        next i

+ Code Snippet

        for i=12 to 12+SecNum
            `get id, position, angle and scale data for each brush object
            BrushObj$=GetString(file$,str$(i+1),"Brush")
            BrushPosX$=GetString(file$,str$(i+1),"PosX")
            BrushPosY$=GetString(file$,str$(i+1),"PosY")
            BrushPosZ$=GetString(file$,str$(i+1),"PosZ")
            BrushAngX$=GetString(file$,str$(i+1),"AngX")
            BrushAngY$=GetString(file$,str$(i+1),"AngY")
            BrushAngZ$=GetString(file$,str$(i+1),"AngZ")
            BrushScaleX$=GetString(file$,str$(i+1),"ScaleX")
            BrushScaleY$=GetString(file$,str$(i+1),"ScaleY")
            BrushScaleZ$=GetString(file$,str$(i+1),"ScaleZ")
            
            `convert data to integer values
            BrushObj#=intval(BrushObj$)
            BrushPosX#=intval(BrushPosX$)
            BrushPosY#=intval(BrushPosY$)
            BrushPosZ#=intval(BrushPosZ$)
            BrushAngX#=intval(BrushAngX$)
            BrushAngY#=intval(BrushAngY$)
            BrushAngZ#=intval(BrushAngZ$)
            BrushScaleX#=intval(BrushScaleX$)
            BrushScaleY#=intval(BrushScaleY$)
            BrushScaleZ#=intval(BrushScaleZ$)
            
            `load object
            WriteLog("Loading object")
            load object "models/editor/3_sided_brush.x",BrushObj#
            position object BrushObj#,BrushPosX#,BrushPosY#,BrushPosZ#
            rotate object BrushObj#,BrushAngX#,BrushAngY#,BrushAngZ#
            scale object BrushObj#,BrushScaleX#,BrushScaleY#,BrushScaleZ#
        next i

However, if SecNum were 0, you'd sill be loading an object, because for i=12 to 12 would still loop once. Tell me if this fixes it:

for i=12 to 11+SecNum
            `get id, position, angle and scale data for each brush object
            BrushObj$=GetString(file$,str$(i+1),"Brush")
            BrushPosX$=GetString(file$,str$(i+1),"PosX")
            BrushPosY$=GetString(file$,str$(i+1),"PosY")
            BrushPosZ$=GetString(file$,str$(i+1),"PosZ")
            BrushAngX$=GetString(file$,str$(i+1),"AngX")
            BrushAngY$=GetString(file$,str$(i+1),"AngY")
            BrushAngZ$=GetString(file$,str$(i+1),"AngZ")
            BrushScaleX$=GetString(file$,str$(i+1),"ScaleX")
            BrushScaleY$=GetString(file$,str$(i+1),"ScaleY")
            BrushScaleZ$=GetString(file$,str$(i+1),"ScaleZ")
            
            `convert data to integer values
            BrushObj#=intval(BrushObj$)
            BrushPosX#=intval(BrushPosX$)
            BrushPosY#=intval(BrushPosY$)
            BrushPosZ#=intval(BrushPosZ$)
            BrushAngX#=intval(BrushAngX$)
            BrushAngY#=intval(BrushAngY$)
            BrushAngZ#=intval(BrushAngZ$)
            BrushScaleX#=intval(BrushScaleX$)
            BrushScaleY#=intval(BrushScaleY$)
            BrushScaleZ#=intval(BrushScaleZ$)
            
            `load object
            WriteLog("Loading object")
            load object "models/editor/3_sided_brush.x",BrushObj#
            position object BrushObj#,BrushPosX#,BrushPosY#,BrushPosZ#
            rotate object BrushObj#,BrushAngX#,BrushAngY#,BrushAngZ#
            scale object BrushObj#,BrushScaleX#,BrushScaleY#,BrushScaleZ#
        next i

+ Code Snippet

        for i=12 to 11+SecNum
            `get id, position, angle and scale data for each brush object
            BrushObj$=GetString(file$,str$(i+1),"Brush")
            BrushPosX$=GetString(file$,str$(i+1),"PosX")
            BrushPosY$=GetString(file$,str$(i+1),"PosY")
            BrushPosZ$=GetString(file$,str$(i+1),"PosZ")
            BrushAngX$=GetString(file$,str$(i+1),"AngX")
            BrushAngY$=GetString(file$,str$(i+1),"AngY")
            BrushAngZ$=GetString(file$,str$(i+1),"AngZ")
            BrushScaleX$=GetString(file$,str$(i+1),"ScaleX")
            BrushScaleY$=GetString(file$,str$(i+1),"ScaleY")
            BrushScaleZ$=GetString(file$,str$(i+1),"ScaleZ")
            
            `convert data to integer values
            BrushObj#=intval(BrushObj$)
            BrushPosX#=intval(BrushPosX$)
            BrushPosY#=intval(BrushPosY$)
            BrushPosZ#=intval(BrushPosZ$)
            BrushAngX#=intval(BrushAngX$)
            BrushAngY#=intval(BrushAngY$)
            BrushAngZ#=intval(BrushAngZ$)
            BrushScaleX#=intval(BrushScaleX$)
            BrushScaleY#=intval(BrushScaleY$)
            BrushScaleZ#=intval(BrushScaleZ$)
            
            `load object
            WriteLog("Loading object")
            load object "models/editor/3_sided_brush.x",BrushObj#
            position object BrushObj#,BrushPosX#,BrushPosY#,BrushPosZ#
            rotate object BrushObj#,BrushAngX#,BrushAngY#,BrushAngZ#
            scale object BrushObj#,BrushScaleX#,BrushScaleY#,BrushScaleZ#
        next i

Quote: "I had already told him this, im not shure he understands,i even posted a example.I hope he gets it to work for him, dont give up my friend."

What are you blabbering about?

You haven't mentioned the word "memblock" anywhere in your previous posts. You obviously have no idea what you're talking about

Please restrain yourself from posting useless and unhelpful posts, as all it does is clutter up the thread. That goes for you too MrValentine.

TheComet

Back to top

Profile PM Email Website

Daniel wright 2311

User Banned

Posted: 1st Dec 2011 16:33 Edited at: 1st Dec 2011 16:34

Link

Quote: "What are you blabbering about? You haven't mentioned the word "memblock"

Here is a way to save memory blocks that work so much better.I use this from another thread,YOU DID NOT READ THAT POST?????????

I just double read all my posts and yes I did ,dont start trouble when its not needed,I even gave him a great example for memory blocks,YES I DID.

You need to calm down and stop acting like if you are better then me,his code deals with strings,I already gave him a great example of memory blocks and how to use them for strings.

You need to open your eyes and re read all my posts.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 1st Dec 2011 16:40

Link

Comet... What did I say? I genuinly gave useful direction.......

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 1st Dec 2011 17:23

Link

Sorry MrValentine, I excuse myself

I overreacted and am not being fair on your behalf.

Quote: "Here is a way to save memory blocks that work so much better.I use this from another thread,YOU DID NOT READ THAT POST?????????

I just double read all my posts and yes I did ,dont start trouble when its not needed,I even gave him a great example for memory blocks,YES I DID."

And I just figured out that my "search" function can't search inside code snippets

The intention of nruser is to save his brushes in a readable format to a file. Your code example would output weird stuff. While this isn't a problem for the program to read/write, it definitely is a problem for the user to open the file and edit it. That's why the goal here is to figure out what's wrong with HIS code, not give him new code. There's a good reason why he chose to output it as text rather than memblocks.

Quote: "You need to calm down and stop acting like if you are better then me,"

And this is waaaayy beside the point. I never intended to "prove" myself to you that I'm better than you, that's just absurd and you know it

We are a community, we help each other, and everyone is valued equally (well except for the mods and valued members I suppose).

TheComet

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 1st Dec 2011 17:39

Link

I never have issues with you Comet...

Well can the OP please comment

Has anythinh helped?

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 1st Dec 2011 17:41

Link

Quote: "The intention of nruser is to save his brushes in a readable format to a file."

Ok, so I did tell him about blocks did I not??? I gave him a great example on how they work either way. Just becousae I did not wirte his whole code does not mean I did not try to help him out.

You are trying to make it seem like you are smart and I am stupid and did nothing to try to help him,this is not so,I tryed to help him out. done and done.

Th

Quote: "ere's a good reason why he chose to output it as text rather than memblocks"

Yes, and he never expalined this till way latter on, And I now see this point.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 1st Dec 2011 17:57

Link

Quote: "Ok, so I did tell him about blocks did I not??? I gave him a great example on how they work either way. Just becousae I did not wirte his whole code does not mean I did not try to help him out."

Yes, but your program outputs this:

+ Code Snippet

             ÀD  œC       A       @  @A  €@  €?   @ÍÌÌ>š™>`ÅÁ›€?+^ÁÍÌL>   A        
×£=        
×£<

Quote: "You are trying to make it seem like you are smart and I am stupid and did nothing to try to help him,this is not so,I tryed to help him out. done and done."

Are we going around in circles? I just pointed out that it is not my intention to make myself appear smart, my only goal is to help out nruser. I'm sorry I exploded like that, it was wrong of me.

TheComet

Back to top

Profile PM Email Website

Daniel wright 2311

User Banned

Posted: 1st Dec 2011 18:37 Edited at: 1st Dec 2011 18:37

Link

Quote: "I'm sorry I exploded like that, it was wrong of me."

All forgiven, I stll think he needs to not use strings for saving and loading, I guess it deends on what it is he is saving and loading in his directory folders.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 1st Dec 2011 20:55

Link

Ok thanks to TheComet i menaged to fix this, i also needed to fix some other places for this code to work. Now is there any way to obtain witch texture object is using, but to get it as a string not integer?

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / save load map