engine/bin/data/entities/gui/pause/scripts/menu.lua

local ent = ent
local scene = entities.currentScene()
local controller = entities.controller()
local metadataJson = ent:getComponent("Metadata")
local metadata = ent:getComponent("GuiBehavior::Metadata")
local masterdata = scene:getComponent("Metadata")

local children = {
	circleOut = ent:loadChild("./circle-out.json",true),
	circleIn = ent:loadChild("./circle-in.json",true),
	coverBar = ent:loadChild("./yellow-box.json",true),
	commandText = ent:loadChild("./command-text.json",true),
	closeOption = ent:loadChild("./close.json",true),
	quit = ent:loadChild("./quit.json",true),
}

local soundEmitter = ent:loadChild("./sound.json",true)

local timer = Timer.new()
if not timer:running() then timer:start() end

Static = {
	values = {},
	get = function( obj )
		if obj == nil then
			obj = scene
		end
		if Static.values[""..obj:uid()] == nil then
			Static.values[""..obj:uid()] = {}
		end
		return Static.values[""..obj:uid()]
	end
}

local destination = function( obj, x, y, z )
	local static = Static.get(obj)
	local transform = obj:getComponent("Transform")
	static.from = Vector3f(x or transform.position.x, y or transform.position.y, z or transform.position.z)
end
-- circleOut
destination(children.circleOut, nil, -2, 0)
destination(children.circleIn, nil, 2, 0)
destination(children.coverBar, -1.5, nil, 0)
destination(children.commandText, -1.5, nil, 0)
destination(children.closeOption, -1.5, nil, 0)
destination(children.quit, -1.5, nil, 0)

local playSound = function( key )
	local url = "/ui/" .. key .. ".ogg"
	soundEmitter:callHook("sound:Emit.%UID%", { filename = url })
--	local assetLoader = scene:getComponent("Asset")
--	assetLoader:cache(soundEmitter:formatHookName("asset:Load.%UID%"), string.resolveURI(url), "")
end

local closing = false
local closed = false
local onClose = nil
ent:addHook("menu:Close.%UID%", function( json )
	--playSound("menu close")
	closing = true
	onClose = json["callback"];
end )

--playSound("menu open")

local selectableElements = {
	children.closeOption,
	children.quit,
}
local selectableElementColors = {}
local selectedElement = 0
local selectionColor = Vector4f( 1, 0, 1, 1 )
local INPUT_DELAY = 0.2

local function array_index_of( haystack, needle )
	for i, v in ipairs(haystack) do
		if v == needle then
			return i
		end
	end
	return 0
end

local function onHover( payload )
	playSound( "buttonrollover" )
	selectedElement = 0
end
local function onClick( payload )
	playSound( "buttonclickrelease" )
end

for i, v in ipairs( selectableElements ) do
	selectableElementColors[i] = nil
	v:addHook("gui:HoverStart.%UID%", onHover )
	v:addHook("gui:ClickStart.%UID%", onClick )
end

local function handleSelectionIndex()
	if (inputs.key("L_DPAD_UP") or inputs.key("Up")) and timer:elapsed() >= INPUT_DELAY then
		timer:reset()
		-- nothing is selected
		if selectedElement == 0 then
			-- set to bottom
			selectedElement = #selectableElements
		else
			selectedElement = selectedElement - 1
			-- wrap to bottom
			if selectedElement <= 0 then
				selectedElement = #selectableElements
			end
		end
		playSound( "buttonrollover" )
	end
	if (inputs.key("L_DPAD_DOWN") or inputs.key("Down")) and timer:elapsed() >= INPUT_DELAY then
		timer:reset()
		-- nothing is selected
		if selectedElement == 0 then
			-- set to top
			selectedElement = 1
		else
			selectedElement = selectedElement + 1
			-- wrap to top
			if selectedElement > #selectableElements then
				selectedElement = 1
			end
		end
		playSound( "buttonrollover" )
	end
end


local function updateVisuals(self, dt)
	local static = Static.get(self)
	if not static.alpha then
		static.alpha = 0
	end

	if window.keyPressed("Escape") and timer:elapsed() >= INPUT_DELAY then
		timer:reset()
		self:callHook("menu:Close.%UID%", {})
	end

	-- handle closing
	if closing then
		if static.alpha <= 0 then
			static.alpha = 0
			closing = false
			closed = true
		else
			static.alpha = static.alpha - dt
		end
	elseif closed then
		timer:stop()
		if onClose then
			local payload = onClose["payload"]
			local target = self
			if onClose["scope"] == "parent" then
				target = ent:getParent()
			elseif onClose["scope"] == "scene" then
				target = scene
			end

			if type(onClose["delay"]) == "number" and target:uid() ~= self:uid() then
				target:queueHook( onClose["name"], payload, onClose["delay"] );
			else
				target:callHook( onClose["name"], payload );
			end
		end

		entities.destroy(self)
		-- scene:queueHook("system:Destroy", { uid = self:uid() }, 0)
		return
	else
		if not metadata.initialized then
			static.alpha = 0
		end
		if dt > 0 then
			metadata.initialized = true;
		end
		if  static.alpha >= 1.0 then
			static.alpha = 1.0
		else
			static.alpha = static.alpha + dt * 1.5
		end
	end

	metadata.color.w = static.alpha

	-- set alphas
	for k, v in pairs(children) do
		if v:uid() <= 0 then goto continue end

		local metadata = v:getComponent("GuiBehavior::Metadata")
		local index = array_index_of( selectableElements, v )
		-- mark element as hovered if selected
		if 0 < selectedElement and selectedElement <= #selectableElements then
			if 0 < index and index <= #selectableElements then
				metadata.hovered = index == selectedElement
			end
		end

		if metadata.clickable then
			-- backup color
			if selectableElementColors[index] == nil then
				selectableElementColors[index] = Vector4f(metadata.color)
			end

			-- color for selection
			if metadata.hovered then
				metadata.color = selectionColor
				-- simulate click on input press
				if (inputs.key("A") or inputs.key("START") or inputs.key("Enter")) and timer:elapsed() >= INPUT_DELAY then
					timer:reset()
					--playSound( "buttonclickrelease" )
					v:callHook("gui:Clicked.%UID%", {})
				end
			else
				metadata.color = selectableElementColors[index]
			end
		end
		-- set alpha
		metadata.color.w = static.alpha

		local transform = v:getComponent("Transform")
		local static = Static.get(v)
		-- translation
		if not static.from then goto continue end
		if not static.to then static.to = Vector3f(transform.position) end
		if not static.delta then static.delta = 0 end

		if static.delta >= 1 then
			static.delta = 1
		else
			static.delta = static.delta + dt * 1.5
			transform.position = Vector3f.lerp( static.from, static.to, static.delta )
		end

		::continue::
	end

	-- circle in
	child = children.circleIn
	if child:uid() > 0 then
		local static = Static.get( child )

		local transform = child:getComponent("Transform")
		local metadata = child:getComponent("GuiBehavior::Metadata")
		local speed = metadata.hovered and 0.25 or 0.0125
		static.time = (static.time or 0) + dt * -speed
		transform.orientation = Quaternion.axisAngle( Vector3f(0, 0, 1), static.time )
	end
	-- circle out
	child = children.circleOut
	if child:uid() > 0 then
		local static = Static.get( child )

		local transform = child:getComponent("Transform")
		local metadata = child:getComponent("GuiBehavior::Metadata")
		local speed = metadata.hovered and 0.25 or 0.0125
		static.time = (static.time or 0) + dt * speed
		transform.orientation = Quaternion.axisAngle( Vector3f(0, 0, 1), static.time )
	end
end

updateVisuals(ent, 0)

ent:bind( "tick", function(self)
	handleSelectionIndex()
	updateVisuals(self, time.delta())
end )