-- This is a script which showcases the new path system for scripts, and new handling for processes

-- There are new APIs exist too for managing scripts
-- killProcess(coroutine)  >>> To kill exactly one process if you know the coroutine, 
--    runProcess exposes this by returning two variables: success, and coroutine
--    coroutine holds the index to kill this exact runProcess you're running
-- killProcessPID(script_pid())  >>> To kill all processes within one instance of the script
--    script_pid() are a local variable exposed to each script for the user to track and kill one full script
-- killProcessFile(script_file())  >> To kill all instances of scripts which originates from one file
--    script_pid() are a local variable exposed to each script for the user to track and kill all 
--    instances of scripts that uses the same file

backlog_post("---> START SCRIPT: script_tracking.lua")

-- Now you can track even the coroutine that the script has
-- You can exactly kill this one coroutine by killing them like this: killProcess(proc_coroutine)
local proc_success, proc_coroutine = runProcess(function()
	-- If you want to do stuff once but never again on the next sequence of reloads, you can do it like this 
	-- (apply to any scripts you have their PID tracked on script too)
	if not Script_Initialized(script_pid()) then
		backlog_post("\n")
		backlog_post("== Script INFO ==")
		backlog_post("script_dir(): "..script_dir())
		backlog_post("script_file(): "..script_file())
		backlog_post("script_pid(): "..script_pid())
		backlog_post("\n")

		-- By using a global table you can keep code data across reloads
		-- And if you want to keep each script instance separate you can use script_pid() to store the data
		-- e.g D[script_pid()].counter = 0
		D = {}
		D.counter = 0

		ClearWorld()
		D.prevPath = application.GetActivePath()
		D.path = RenderPath3D()
		D.path.SetLightShaftsEnabled(true)
		application.SetActivePath(D.path)

		D.font = SpriteFont("");
		D.font.SetSize(30)
		D.font.SetPos(Vector(10, 10))
		D.font.SetAlign(WIFALIGN_LEFT, WIFALIGN_TOP)
		D.font.SetColor(0xFFADA3FF)
		D.font.SetShadowColor(Vector(0,0,0,1))
		D.path.AddFont(D.font)

		-- With the new scripting system, use script_dir() string variable to load files relative to the script directory.
		-- Also running a script can now return its PID, which you can use to kill the script you just launched in this script
		-- Down below is a small demo to open a file on another script and open it relative to that script's path
		D.subscript_PID = dofile(script_dir() .. "subscript_demo/load_model.lua", true)
		backlog_post("subscript PID: "..D.subscript_PID)
	end

	while true do
		D.counter = D.counter + 0.00001
		-- Here's a fun thing: edit the text below and reload the script (press R)!
		-- e.g "Hello There!"" to "Yeehaw"
		D.font.SetText("Script directory: " .. script_dir() .. "\nScript file: " .. script_file() .. "\nScript PID: " .. script_pid() .. "\nPersistent counter value: " .. D.counter .. "\nSubscript PID: " .. D.subscript_PID)
		update()
		-- Here's an example on how to reload exactly this script
		if(input.Press(string.byte('R'))) then
			-- This is an example to restart a script using killProcessPID, to keep script PID add true to the argument
			killProcessPID(script_pid(), true)
			backlog_post("RESTART")
			dofile(script_file(), script_pid())
			return
		end
		if(input.Press(KEYBOARD_BUTTON_ESCAPE)) then
			-- restore previous component
			-- so if you loaded this script from the editor, you can go back to the editor with ESC
			-- This is an example to exit a script using killProcessPID
			killProcesses()
			backlog_post("EXIT")
			application.SetActivePath(D.prevPath)
			return
		end
	end
end)

backlog_post("---> END SCRIPT: script_tracking.lua")