Sorry your browser is not supported!

Function savefile(savefilename$,savefilenumber)
savefilename$ = "../First Game/" + savefilename$
if file exist(savefilename$) then delete file savefilename$
open to write savefilenumber,savefilename$
For y=0 to 9
    For x = 0 to 9

        write word savefilenumber, tiles(x,y).base
    set cursor 650,570
    ink rgb(255,255,255),0
        if x > 5
          print "x > 5"
          xpos = x - 5
          xpos = 5000+(xpos*500)
        endif
        if x < 5
        print "x < 5"
          xpos = 5000-(2500-(x*500))
        endif
        if y > 5
        print "y > 5"
          zpos = y - 5
          zpos = 5000+(zpos*500)
        endif
        if y < 5
          print "y < 5"
          zpos = 5000-(2500-(y*500))
        endif

        rot = tiles(x,y).rot
        ypos = 0
        write word savefilenumber, xpos
        write word savefilenumber, ypos
        write word savefilenumber, zpos
        write word savefilenumber, rot


    Next x
NEXT y

close file savefilenumber
endfunction

Function loadmap(filename$)
counter = 500
 open to read 1,filename$
   for x = 0 to 9
     for y = 0 to 9
       inc counter
       read word 1,obj
       read word 1,xpos
       read word 1,ypos
       read word 1,zpos
       read word 1,rot

       select obj
         case 2:
           load object "objects/houses/house.x",counter
           position object counter,xpos,ypos,zpos
         endcase
         case 6:
           load object "objects/houses/house_01.x",counter
           position object counter,xpos,ypos,zpos
           rotate object counter,0,180,0
         endcase
       endselect
     next y
   next x
 close file 1
endfunction

Function savefile(savefilename$,savefilenumber)
    savefilename$ = "../First Game/" + savefilename$
    if file exist(savefilename$) then delete file savefilename$
    open to write savefilenumber,savefilename$
    For y=0 to 9
        For x = 0 to 9
    
            write word savefilenumber, tiles(x,y).base
            
            xpos = x * 500 - 2500 + 250
            ypos = 0
            zpos = y * 500 - 2500 + 250
            rot  = tiles(x,y).rot
            
            write word savefilenumber, xpos
            write word savefilenumber, ypos
            write word savefilenumber, zpos
            write word savefilenumber, rot
    
        Next x
    NEXT y
    
    close file savefilenumber
endfunction

Function loadmap(filename$)
    counter = 500
    open to read 1,filename$
    for y = 0 to 9
        for x = 0 to 9
            inc counter
            
            read word 1, obj
            read word 1, xpos
            read word 1, ypos
            read word 1, zpos
            read word 1, rot
    
            select obj
                case 2:
                    load object "objects/houses/house.x",counter
                    position object counter,xpos,ypos,zpos
                endcase
                case 6:
                    load object "objects/houses/house_01.x",counter
                    position object counter,xpos,ypos,zpos
                    rotate object counter,0,180,0
                endcase
            endselect
        next y
    next x
    close file 1
endfunction

Function savefile(savefilename$,savefilenumber)

if file exist(savefilename$) then delete file savefilename$
open to write savefilenumber,savefilename$
For x=0 to 9
    For y = 0 to 9

        write word savefilenumber, tiles(x,y).base
        xcalc = x-5
        ycalc = y-5
        xdist = abs(xcalc)
        ydist = abs(ycalc)
        xpos = xdist*500
        zpos = ydist*500
        if xcalc < 0
          xpos = 5000 - xpos
        else
          xpos = 5000 + xpos
        endif
        if ycalc < 0
          zpos = 5000 - zpos
        else
          zpos = 5000 + zpos
        endif
        rot = tiles(x,y).rot
        ypos = 0
        write word savefilenumber, xpos
        write word savefilenumber, ypos
        write word savefilenumber, zpos
        write word savefilenumber, rot


    Next y
NEXT x

close file savefilenumber
endfunction