LÖVE

Code: Select all

--18 up, 25 across
function CreateQuads(quadArray, tileSize, tileset, rows, cols, tileKey)
    local index, xPos, yPos = 1, 0, 0

    for _ = 1, rows do
        for __ = 1, cols do
            quadArray[tileKey[index]] = love.graphics.newQuad(xPos, yPos, tileSize, tileSize, tileset:getWidth(), tileset:getHeight())
            xPos = xPos + tileSize
            index = index + 1
        end
        xPos = 0
        yPos = yPos + tileSize
    end
end

function AddTile(tilemap, mouseX, mouseY, tilekey)
    local yTile, xTile = math.floor(mouseY / 32)  + 1, math.floor(mouseX / 32) + 1
    tilemap[yTile][xTile] = tilekey
end

function RemoveTile(tilemap, mouseX, mouseY)
    local yTile, xTile = math.floor(mouseY / 32)  + 1, math.floor(mouseX / 32) + 1
    tilemap[yTile][xTile] = nil
end

function SaveMap(path, tilemap)
  local map = io.open("C:\\Users\\Robert\\Desktop\\map.txt", "w")
  io.output(map)
  for i = 1, 18 do
    for j = 1, 25 do
      if tilemap[i][j] ~= nil then
        io.write(tilemap[i][j])
      else
        io.write(".")
      end
    end
    if i < 18 then
      io.write("\n")
    end
  end
  io.close(map)
  saved = true
end

function love.load(args)
    --Zerobrane debugging
    if arg[#arg] == "-debug" then
          require("mobdebug").start()
    end

    -- Is the map saved? On opening map will not have been saved
    saved = false

    -- Hide the mouse cursor
    love.mouse.setVisible(false)

      -- Loads the tileset
    tileset = love.graphics.newImage('countryside.png')
    x, y, tileSize = nil, nil, 32

    -- Index of the current tile to be drawn, corresponds with tile key
    currentTile = 1

    -- Table to hold string representation of tiles
    TileMap = {}

    rows, cols = 2, 2

    -- Table with tile keys to allow incrementing of tiles
    tileKey = {' ', '#', '*', '^'}

    -- Table of tile quads
    TileQuads = {}
    CreateQuads(TileQuads, tileSize, tileset, rows, cols, tileKey)

    -- Iterate through array, create another table for each y, for a 2D array
    for i = 1,18 do
        TileMap[i] = {}
    end
end

function love.update(dt)
  -- Ensures the edges of the tiles never pass the edge of the screen
    if love.mouse.getX() <= 0 then
        xPos = 0
    elseif love.mouse.getX() >= love.graphics.getWidth() - tileSize then
        xPos = love.graphics.getWidth() - 32
    elseif love.mouse.getY() <= 0 then
        yPos = 0
    elseif love.mouse.getY() >= love.graphics.getHeight() - tileSize then
        yPos = love.graphics.getHeight() - tileSize
    else
        xPos, yPos = love.mouse.getX(), love.mouse.getY()
    end

    -- Checks to see if the tilemap is saved, changing the title if not saved
    if not saved then
      love.window.setTitle("Tile Map Editor - *")
    else
      love.window.setTitle("Tile Map Editor")
    end

end

function love.keypressed(key, isrepeat)
    -- Change tiles, wraps around if end is reached.
    if key == "right" then
      if currentTile < rows * cols then
          currentTile = currentTile + 1
      else
          currentTile = 1
      end
    elseif key == "left" then
      if currentTile > 1 then
          currentTile = currentTile - 1
      else
          currentTile = rows * cols
      end
    elseif key == "s" then
      SaveMap("C:\\Users\\Robert\\Desktop\\map.txt", TileMap)
    elseif key == 'escape' then
      love.event.quit()
    end
end

function love.mousepressed(x, y, button, istouch)
  saved = false
   if button == 1 then -- the primary button
      AddTile(TileMap, x, y, tileKey[currentTile])
    elseif button == 2 then
      RemoveTile(TileMap, x, y)
    end
end

function love.draw()
    -- Draws tile map, black if nil
    for yAxis = 1, 18 do
        for xAxis = 1, 25 do
            if TileMap[yAxis][xAxis] ~= nil then
                local index = TileMap[yAxis][xAxis]
                love.graphics.draw(tileset, TileQuads[index], (xAxis - 1) * 32, (yAxis - 1) * 32)
            end
        end
    end

    love.graphics.draw(tileset, TileQuads[tileKey[currentTile]], xPos, yPos)
end

Code: Select all

function defineQuad(image, col, row, ncols, nrows)
  local w, h = image:getWidth(), image:getHeight()
  local tw, th = w/ncols, h/nrows
  local x, y = tw*col, th*row
  return love.graphics.newQuad(x, y, tw, th, w, h)
end
-- let's keep our quads indexed by name:
quads = {}
-- the first sprite on the spritesheet (0,0) is grass:
quads['grasstile'] = defineQuad(image, 0, 0, 10, 10)

Code: Select all

--18 up, 25 across
function CreateQuads(quadArray, tileSize, tileset, rows, cols, tileKey)
    local index, xPos, yPos = 1, 0, 0

    for _ = 1, rows do
        for __ = 1, cols do
            quadArray[tileKey[index]] = love.graphics.newQuad(xPos, yPos, tileSize, tileSize, tileset:getWidth(), tileset:getHeight())
            xPos = xPos + tileSize
            index = index + 1
        end
        xPos = 0
        yPos = yPos + tileSize
    end
end

Code: Select all

function CreateQuads( tileSize, tileset, rows, cols, tileKey)
    local quadTable = {}
    for y = 1, rows do
        for x = 1, cols do
            local index = (y - 1)*cols + x
            quadTable[tileKey[index]] = love.graphics.newQuad((x - 1)*tileSize, (y - 1)*tileSize, tileSize, tileSize, tileset:getWidth(), tileset:getHeight())
        end
    end
    return quadTable
end

Code: Select all

    TileQuads = {}
    CreateQuads(TileQuads, tileSize, tileset, rows, cols, tileKey)

Code: Select all

    TileQuads = CreateQuads(tileSize, tileset, rows, cols, tileKey)

Code: Select all

      if tilemap[i][j] ~= nil then
        io.write(tilemap[i][j])
      else
        io.write(".")
      end

Code: Select all

io.write(tilemap[i][j] or ".") -- or uses the first value if it is not false/nil otherwise it uses the second

Code: Select all

function clamp( val, min, max )
    return math.max( min, math.min( max, val ) )
end

function love.update( dt )
        xPos, yPos = clamp(love.mouse.getX(), 0, maxX), clamp(love.mouse.getY(), 0, maxY) -- define maxX and maxY in love.load because it never changes, does it?
-- don't set the window title in update, but in the SaveMap function
end