LIKO-12/terminal_commands.lua

local term = require("terminal")
local function tout(...) term:tout(...) end
local CMD = {}

function CMD.help()
  tout("COMMANDS <REQUIRED> [OPTIONAL]",13)
  --tout()
  tout("HELP: SHOW THIS HELP",7)
  tout("NEW: CLEARS THE MEMORY",7)
  tout("RELOAD: RELOADS THE EDITORSHEET",7)
  tout("RUN [args]: RUNS THE CURRENT GAME",7)
  tout("SAVE <NAME>: SAVES THE CURRENT GAME",7)
  tout("LOAD <NAME>: LOADS A GAME",7)
  tout("IMPORT <PATH>: IMPORTS A SPRITESHEET",7)
  tout("EXPORT <PATH>: EXPORTS THE SPRITESHEET",7)
  tout("CLS: CLEARS THE SCREEN",7)
  tout("VER: SHOWS LIKO12'S TITLE",7)
  --tout()
  tout("PRESS ESC TO OPEN THE EDITOR/EXIT THE GAME",9)
  tout("READ LIKO-12.TXT TO GET STARTED !",12)
end

function CMD.cls()
  for i=1, term.linesLimit do tout() end term:setLine(1)
end

function CMD.ver() tout() tout("-[[liko12]]-") tout(_LK12VER,_LK12VERC) end

function CMD.run(command,...)
  local sm = require("editor.sprite"):export()
  local cd = require("editor.code"):export()
  local rt = require("runtime")
  local sprsheet = api.SpriteSheet(api.ImageData(sm):image(),24,12)
  local tilemap = api.MapObj(api.TileMap.w,api.TileMap.h):import(api.ImageData(require("editor.tile"):export()))
    local ok, err = rt:loadGame(cd,sprsheet,tilemap,function(err)
    _auto_exitgame()
    tout("ERR: "..err,9)
    tout(term.rootDir.."> ",8,true)
  end,...)
  if not ok then
    _auto_exitgame()
    tout("ERR: "..err,9)
  else
    _auto_switchgame()
  end
end

function CMD.new()
  require("editor.sprite"):load()
  require("editor.code"):load()
  require("editor").lastCart = nil
  require("editor").lastSprpng = nil
  api.TileMap = api.MapObj()
  tout("CLEARED MEMORY",7)
end

function CMD.reload()
  api.EditorSheet = api.SpriteSheet(api.Image("/editorsheet.png"),24,12)
  api.loadDefaultCursors()
  tout("RELOADED EDITORSHEET",7)
end

function CMD.reboot()
  pcall(CMD.save,"save","/_backup")
  _REBOOT = true
  tout("REBOOTING...",7)
end

function CMD.save(command,name)
  local name = name
  if name then name = (name:sub(0,1) == "/" and name..".lk12" or term.rootDir..name..".lk12") else name = require("editor").lastCart end
  if not name then tout("PLEASE PROVIDE A NAME TO SAVE",9) return end
  local sm = require("editor.sprite"):export()
  local cd = require("editor.code"):export()
  local tm = require("editor.tile"):export()
  local saveCode = "local code = [["..cd.."]]\n\n"
  saveCode = saveCode .. "local spritemap = '"..sm.."'\n\n"
  saveCode = saveCode .. "local tilemap = '"..tm.."'\n\n"
  saveCode = saveCode .. "return {code=code,spritemap=spritemap,tilemap=tilemap}"
  local ok, err = api.fs.write(name,saveCode)
  if ok then
    tout("SAVED TO "..name,12)
  else
    tout("ERR: "..err,9)
  end
  require("editor").lastCart = name
end

function CMD.load(command,name)
  if not name then tout("PLEASE PROVIDE A NAME TO LOAD",9) return end
  local name = name:sub(0,1) == "/" and name..".lk12" or term.rootDir..name..".lk12"
  if not api.fs.exists(name) then tout(name.." DOES NOT EXISTS !",9) return end
  local code,err = api.fs.read(name)
  if not code then tout("ERR: "..(err or "UNKNOWN"),9) return end
  local chunk, err = loadstring(code)
  if not chunk then tout("ERR: "..err,9) return end
  setfenv(chunk,{})
  local ok, data = pcall(chunk)
  if not ok then tout("ERR: "..data,9) return end
  api.SpriteMap = api.SpriteSheet(api.ImageData(data.spritemap):image(),24,12)
  if data.tilemap then
    local MapData = api.ImageData(data.tilemap)
    api.TileMap = api.MapObj()
    api.TileMap:import(MapData)
  else
    api.TileMap = api.MapObj()
  end
  require("editor").lastsprpng = nil
  require("editor.code"):load(data.code)
  tout("LOADED "..name,12)
  require("editor").lastCart = name
end

function CMD.export(command,path)
  local es = (path == "editorsheet") or false
  local path = path or require("editor").lastSprpng
  if not path then tout("PLEASE PROVIDE A PATH TO EXPORT TO",9) return end
  require("editor.sprite"):export(es and path or "data/"..path)
  tout("EXPORTED TO /"..path..".PNG",12)
end

function CMD.import(command,path)
  local es = (path == "editorsheet") or false
  if not path then tout("PLEASE PROVIDE A PATH TO IMPORT FROM",9) return end
  if not love.filesystem.exists(es and path..".png" or "data/"..path..".png") then tout("/"..path..".png DOES NOT EXISTS !") return end
  require("editor.sprite"):load(es and path or "data/"..path)
  tout("IMPORTED /"..path..".PNG",12)
  require("editor").lastSprpng = path
end

function CMD.cd(command,path)
  if not path then tout("PLEASE PROVIDE A PATH FIRST",9) return end
  local curpath = path:sub(0,1) == "/" and path.."/" or term.rootDir..path.."/"
  if path == ".." then curpath = "/" end
  if not api.fs.exists(curpath) then tout(curpath.." DOES NOT EXISTS !",9) return end
  if not api.fs.isDir(curpath) then tout(path.." IS NOT A DIRECTORY !",9) return end
  term.rootDir = curpath
end

function CMD.mkdir(command,path)
  if not path then tout("PLEASE PROVIDE A PATH FIRST",9) return end
  local curpath = path:sub(0,1) == "/" and path or term.rootDir..path
  if api.fs.exists(curpath) then tout(path.." ALREADY EXISTS !",9) return end
  local ok, err = api.fs.mkDir(curpath)
  if ok then
    tout("MAKED DIRECTORY SUCCESSFULLY",12)
  else
    tout("ERR: "..err,9)
  end
end

function CMD.dir(command,path)
  local path = path or ""
  local curpath = path:sub(0,1) == "/" and path.."/" or term.rootDir..path.."/"
  local files = api.fs.dirItems(curpath)
  local dirstring = ""
  local filestring = ""
  for k,v in ipairs(files) do
    if api.fs.isDir(curpath..v) then
      dirstring = dirstring.." "..v
    elseif curpath..v ~= "//_backup.lk12" then
      filestring = filestring.." "..v
    end
  end
  if dirstring ~= "" then tout(dirstring,12) end
  if filestring ~= "" then tout(filestring,8) end
end

CMD.ls = CMD.dir

function CMD.folder()
  love.system.openURL("file://"..love.filesystem.getSaveDirectory().."/data"..term.rootDir)
end

function CMD.shutdown()
  pcall(CMD.save,"save","/_backup")
  love.event.quit()
end

local function delDir(path)
  local files = api.fs.dirItems(path)
  for k, file in ipairs(files) do
    if api.fs.isFile(path..file) then
      local ok, err = api.fs.del(path..file)
      if not ok then return ok, err end
    else
      local ok, err = delDir(path..file.."/")
      if not ok then return ok, err end
    end
  end
  local ok, err = api.fs.del(path)
  if not ok then return ok, err end
  return true
end

function CMD.del(command,path)
  if not path then tout("PLEASE PROVIDE A PATH FIRST",9) return end
  local curpath = term.rootDir..path
  if not api.fs.exists(curpath) then tout(curpath.." DOES NOT EXISTS !",9) return end
  local ok, err
  if api.fs.isFile(curpath) then
    ok, err = api.fs.del(curpath)
  else
    ok, err = delDir(curpath.."/")
  end
  
  if ok then
    tout("DELETED "..path.." SUCCESSFULLY",12)
  else
    tout("ERR["..curpath.."]: "..(err or "UNKNOWN"),9)
  end
  if not love.filesystem.exists("/data/") then love.filesystem.createDirectory("/data/") end
  if not love.filesystem.exists("/data/demos/") then
    love.filesystem.createDirectory("/data/demos/")
    for k, demo in ipairs(love.filesystem.getDirectoryItems("/demos/")) do
      api.fs.write("/demos/"..demo,love.filesystem.read("/demos/"..demo))
    end
  end
end

return CMD