diff --git a/tools/aseprite_scripts/export_tileset_psx_map.lua b/tools/aseprite_scripts/export_tileset_psx_map.lua
new file mode 100644
index 0000000..e56efb2
--- /dev/null
+++ b/tools/aseprite_scripts/export_tileset_psx_map.lua
@@ -0,0 +1,112 @@
+if TilesetMode == nil then return app.alert "Use Aseprite v1.3"  end
+
+-- Export tilesets for aseprite files with two layers: foreground and background
+-- Layer names don't matter. Make sure foreground is on top.
+-- 1. Copy both layers.
+-- 2. Turn original layers invisible
+-- 3. Flatten copied layers, make them visible
+-- 4. Convert flattened layer to tilemap layer
+-- 5. Export tileset
+-- 6. Delete flattened layer
+
+--local row_len = 32
+
+local function activeFrameNumber()
+  local f = app.activeFrame
+  if f == nil then
+    return 1
+  else
+    return f
+  end
+end
+
+
+app.command.GotoFirstFrame()
+local spr = app.activeSprite
+local lay = app.activeLayer
+local fs = app.fs
+local output_folder = fs.filePath(spr.filename)
+if not lay.isTilemap then return app.alert "No active tilemap layer" end
+
+local function layers_tilemap_duplicate(spr)
+  for i,layer in ipairs(spr.layers) do
+    if layer.isTilemap then
+      app.activeLayer = layer
+      layer.isVisible = true    
+      app.command.DuplicateLayer()
+      layer.isVisible = false
+    else
+      layer.isVisible = false
+    end
+  end
+end
+
+local function layers_visible_flatten(spr)
+  for i,layer in ipairs(spr.layers) do
+    app.command.FlattenLayers{["visibleOnly"]="true"}
+    local grid = spr.gridBounds
+    grid.height = 8
+    grid.width = 8
+    spr.gridBounds = grid
+
+    row_len = 256 / grid.width
+  end
+end
+
+local function layers_2visible(spr)
+  for i,layer in ipairs(spr.layers) do
+      layer.isVisible = true
+  end
+end
+
+local function layers_visible2tilemap(spr)
+  for i,layer in ipairs(spr.layers) do
+    if layer.isVisible then
+      app.command.ConvertLayer{["to"]="tilemap"}
+    end
+  end
+end
+
+
+local function layers_getName(layers,name)
+  local out
+  for i,layer in ipairs(layers) do
+    if (layers[i].name  == name) then
+      out = layers[i]
+      break
+    end
+  end
+  return out
+end
+
+layers_tilemap_duplicate(spr)
+layers_visible_flatten(spr)
+layers_visible2tilemap(spr)
+
+local lay = layers_getName(spr.layers,"Flattened")
+app.activeLayer = lay
+if lay.isTilemap then
+  local tileset = lay.tileset
+  local spec = spr.spec
+  local grid = tileset.grid
+  local size = grid.tileSize
+  spec.width = 256
+  local col_len = math.ceil(#tileset / row_len)
+  spec.height = size.height *  col_len
+  local image = Image(spec)
+  image:clear()
+
+  for i = 0,row_len-1 do
+     for j = 0, col_len-1 do
+	local current = i + j * row_len
+	if (current < #tileset) then
+	   local tile = tileset:getTile(current)
+	   image:drawImage(tile, i*size.width, j*size.height)
+	end
+     end
+  end
+  local path = fs.joinPath(output_folder, app.fs.fileTitle(spr.filename) .. ".png")
+  image:saveAs(path)
+end
+app.command.RemoveLayer()
+layers_2visible(spr)