Techmino/parts/scenes/app_cmd.lua

local gc=love.graphics
local int=math.floor
local ins=table.insert

local inputBox=WIDGET.newInputBox{name="input",x=40,y=650,w=1200,h=50}
local outputBox=WIDGET.newTextBox{name="output",x=40,y=30,w=1200,h=600,font=25,lineH=25,fix=true}
outputBox:push("Techmino Shell")
outputBox:push("©2020 26F Studio   some rights reserved")
local history,hisPtr={"help"}

local scene={}

local function log(str)
	outputBox:push(str)
end
local userEnv={
	print=log,
	math=math,
	table=table,
	string=string,
}

function scene.sceneInit()
	TASK.new(function()YIELD()WIDGET.sel=inputBox end)
	BG.set("none")
end

-- command_help_messages format:
-- command_help_messages is a table
--     key: the command
--     value: a table containing the following two elements:
--         description: a string that shows when user types `help` or
--                      `help [page]`.
--         details: an array of strings, each representing a line, that shows
--                  when user types `help [command]`.
local command_help_messages={
	help={
		description="Display help messages.",
		details={
			"Display help messages.",
			"",
			"Usage:",
			"help",
			"help [page]",
			"help [command_name]"
		}
	},
	["#"]={
		description="Run arbitrary Lua code.",
		details={
			"Run arbitrary Lua code.",
			"",
			"Usage:",
			"#<lua_source_code>",
			"",
			"print() can be used to print text into this window."
		}
	},
	["exit"]={
		description="Return to the previous menu.",
		details={
			"Return to the previous menu.",
			"",
			"Aliases: exit quit bye",
			"",
			"Usage:",
			"exit"
		}
	},
	quit={
		description="Return to the previous menu.",
		details={
			"Return to the previous menu.",
			"",
			"Aliases: exit quit bye",
			"",
			"Usage:",
			"exit"
		}
	},
	bye={
		description="Return to the previous menu.",
		details={
			"Return to the previous menu.",
			"",
			"Aliases: exit quit bye",
			"",
			"Usage:",
			"exit"
		}
	},
	echo={
		description="Print a message to this window.",
		details={
			"Print a message to this window.",
			"",
			"Usage:",
			"echo <message>"
		}
	},
	cls={
		description="Clear the log output.",
		details={
			"Clear the log output.",
			"",
			"Usage:",
			"cls"
		}
	},
	shutdown={
		description="(Attempt to) shutdown your machine.",
		details={
			"(Attempt to) shutdown your machine. Arguments to this command",
			"will be passed on to the system shutdown command.",
			"",
			"Usage:",
			"shutdown",
			"shutdown [args]"
		}
	},
	fn={
		description="Simulates a Function key press.",
		details={
			"Acts as if you have pressed a function key (i.e. F1-F12) on a keyboard.",
			"Useful if you are on a mobile device without access to these keys.",
			"",
			"Usage:",
			"fn <1-12>"
		}
	},
	scrinfo={
		description="Display information about your screen.",
		details={
			"Display information about your screen.",
			"",
			"Usage:",
			"scrinfo"
		}
	},
	wireframe={
		description="Enable or disable wireframe.",
		details={
			"Enable or disable wireframe.",
			"",
			"Usage:",
			"wireframe <true|false>"
		}
	},
	gammacorrect={
		description="Enable or disable gamma correction.",
		details={
			"Enable or disable gamma correction.",
			"",
			"Usage:",
			"gammacorrect <true|false>"
		}
	},
	rmwtm={
		description="Remove the \"no recording\" watermark.",
		details={
			"Remove the \"no recording\" watermark.",
			"You will need a password to do that.",
			"",
			"Usage:",
			"rmwtm <password>"
		}
	},
	unlockall={
		description="Unlock all modes on the map.",
		details={
			"Unlock all modes on the map.",
			"",
			"Usage:",
			"unlockall"
		}
	},
	play={
		description="Load a game mode, including those that are not on the map.",
		details={
			"Load a game mode, including those that are not on the map.",
			"",
			"Usage:",
			"play <mode_name>"
		}
	},
}

-- while I could have used a for loop to get this... the order at which the
-- table elements turn up in the loop is not quite ideal. Doing this manually
-- so that at least the most basic commands are on page 1.
local command_help_list={
	"help",
	"#",
	"exit",
	"echo",
	"cls",
	"shutdown",
	"fn",
	"scrinfo",
	"wireframe",
	"gammacorrect",
	"rmwtm",
	"unlockall",
	"play",
}

local command_help_page_size=10

local commands={
	--Basic commands
	help=function(arg)
		if command_help_messages[arg] then -- help [command]
			for i,v in pairs(command_help_messages[arg]["details"]) do
				log(v)
			end
			return
		end
		if tonumber(arg) then
			arg=int(tonumber(arg))
		else
			arg=1
		end -- help or help [page]
		local total_pages=math.ceil(#command_help_list/command_help_page_size)
		if arg<=0 or arg>total_pages then
			log("Invalid page number. Must be between 1 and "..total_pages.." (inclusive).")
			return
		end
		log("Use help [page] to view more commands,")
		log("or help [command_name] for more info on a command.")
		log("")
		log("Page "..arg.." of "..total_pages)
		for i=(arg-1)*10+1,math.min(arg*10,#command_help_list) do
			local _c=command_help_list[i]
			log("".._c.." - "..command_help_messages[_c]["description"])
		end
	end,
	shutdown=function(arg)os.execute("shutdown "..arg)end,
	cls=function()outputBox:clear()end,
	echo=log,
	exit=backScene,
	quit=backScene,
	bye=backScene,

	--Game commands
	fn=function(n)
		if tonumber(n)then
			n=int(tonumber(n))
			if n>=1 and n<=12 then
				love.keypressed("f"..n)
				return
			end
		end
		log"Usage: fn [1~12]"
	end,
	scrinfo=function()for _,v in next,SCR.info()do log(v)end end,
	wireframe=function(bool)
		if bool=="true"or bool=="false"then
			gc.setWireframe(bool=="true")
			log("Wireframe: "..(gc.isWireframe()and"on"or"off"))
		else
			log"Usage: wireframe [true|false]"
		end
	end,
	gammacorrect=function(bool)
		if bool=="true"or bool=="false"then
			love._setGammaCorrect(bool=="true")
			log("GammaCorrect: "..(gc.isGammaCorrect()and"on"or"off"))
		else
			log"Usage: gammacorrect [true|false]"
		end
	end,
	rmwtm=function(password)
		if password=="196022"then
			_G["\100\114\97\119\70\87\77"]=NULL
			log("\68\69\86\58\87\97\116\101\114\109\97\114\107\32\82\101\109\111\118\101\100")
			SFX.play("clear")
		else
			log"Usage: None."
		end
	end,
	unlockall=function(bool)
		if bool=="sure"then
			for name,M in next,MODES do
				if type(name)=="string"and not RANKS[name]and M.x then
					RANKS[name]=M.score and 0 or 6
				end
			end
			FILE.save(RANKS,"conf/unlock")
			log("\68\69\86\58\85\78\76\79\67\75\65\76\76")
			SFX.play("clear_2")
		else
			log"Are you sure to unlock all modes?"
			log"Type: unlockall sure"
		end
	end,
	play=function(m)--marathon_bfmax can only played here
		if MODES[m]then
			loadGame(m)
		elseif m then
			log("No mode called "..m)
		else
			log"Usage: play [modeName]"
		end
	end,
}
function scene.keyDown(k)
	if k=="return"then
		local input=inputBox.value
		log("> "..input)
		if input:byte()==35 then
			--Execute code
			local code=loadstring(input:sub(2))
			if code then
				setfenv(code,userEnv)
				ins(history,input)
				code()
			else
				log"Syntax error"
			end
		elseif input~=""then
			--Load command
			local p=input:find(" ")
			local cmd,arg
			if p then
				cmd=input:sub(1,p-1):lower()
				arg=input:sub(p+1)
			else
				cmd=input
				arg=""
			end
			if commands[cmd]then
				commands[cmd](arg)
			else
				log("No command called "..cmd)
			end
			ins(history,input)
			hisPtr=nil
		end
		inputBox:clear()
	elseif k=="up"then
		if not hisPtr then
			hisPtr=#history
			if hisPtr>0 then
				inputBox.value=history[hisPtr]
			end
		elseif hisPtr>1 then
			hisPtr=hisPtr-1
			inputBox.value=history[hisPtr]
		end
	elseif k=="down"then
		if hisPtr then
			hisPtr=hisPtr+1
			if history[hisPtr]then
				inputBox.value=history[hisPtr]
			else
				hisPtr=nil
				inputBox.value=""
			end
		end
	else
		WIDGET.keyPressed(k)
	end
end

scene.widgetList={
	inputBox,
	outputBox,
}

return scene