Including Construction

local sprite = require "sprite"
local loadMap = require "loadMap"
--[[
Loads a map layer with sprite data from a text file
name is the file name to load from
xOrigin and yOrigin describe the square in the map data to place in 1, 1 of the display field
--]]
local function loadMapFile(self, name, xOrigin, yOrigin)
    self.data = loadMap(name, self.terrain.mapping)
end

local function createMap(self, size, columns, rows)
    local map = display.newGroup()
    map.terrain = self
    map.tiles = {}
    for row = 0, rows + 1 do
        map.tiles[row] = {}
        for column=0, columns + 1 do
            local tile = sprite.newSprite(self)
            tile:setReferencePoint(display.BottomLeftReferencePoint)
            map:insert(tile)
            tile.xScale, tile.yScale = size / tile.width, size / tile.height
            tile.x, tile.y = column * size, row * size
            map.tiles[row][column] = tile
        end
    end
    map.load = loadMapFile
    return map
end

return function(spritesheet, size, kinds, mapping)
    if not mapping then
        mapping = {}
        for _, kind in ipairs(kinds) do
            mapping[kind:sub(1, 1):upper()] = kind
        end
    end
    local terrain = sprite.newSpriteSet(sprite.newSpriteSheet(spritesheet,  size, size), 1, 1)
    for i, kind in ipairs(kinds) do
        sprite.add(terrain, kind, i + 1, 1, 1, 1)
    end
    terrain.create = createMap
    terrain.mapping = mapping
    return terrain
end