proc
    loadMap(file,X=1,Y=1,Z=1)
        
        // Vars
        var data = file2text(file)
        . = findtext(data,"\n\n")
        var map = copytext(data,.+2)
        data = copytext(data,1,.)
        . = findtext(map,"{\"")
        map = copytext(map,.+3,length(map)-3)
        var list/ids = new
        
        // Temp Vars
        var a,b,c,d,list/e,f,g
        
        // Koz Logic 4 IDs
        for()
            a = findtext(data,"\"")
            if(!a)break
            b = findtext(data,"\"",a+1)
            c = findtext(data,"(",a+1)
            d = findtext(data,")",c+1)
            f = copytext(data,a+1,b)
            g = copytext(data,c+1,d)
            e = splittext(g,",")
            for(. in e)
                if(findtext(.,"/turf")){e -= .}
                if(findtext(.,"/area")){e -= .}
            data = copytext(data,d+1)
            if(f in ids){continue}
            ids[f] = e
        
        // Koz Logic 4 DMM
        b = length(map)
        for(a = 1 to b)
            if(text2ascii(map,a)==10)
                c = a - 1
                break
        d = 1
        for(a = 1 to b)
            if(text2ascii(map,a)==10)
                d++
        // Koz Logic 5 Parse
        var C, XX = 1, YY = d, O
        for(a = 1 to b)
            C = copytext(map,a,a+1)
            if(C in ids)
                e = ids[C]
                for(O in e)
                    . = text2path(O)
                    O = new .
                    O:loc = locate(XX,YY,Z)
            else continue
            XX++
            if(XX > c)
                XX = 1
                YY --
        // Debug
        if(1)
            world << map
            world << "Map Size: [c],[d]"
            for(. in ids)
                world << "[.] = [ids[.]]"