h1-mod/src/client/resources/ui_scripts/common.lua

menucallbacks = {}
originalmenus = {}
stack = {}

LUI.MenuBuilder.m_types_build["generic_waiting_popup_"] = function (menu, event)
	local oncancel = stack.oncancel
	local popup = LUI.MenuBuilder.BuildRegisteredType("waiting_popup", {
		message_text = stack.text,
		isLiveWithCancel = true,
		cancel_func = function(...)
			local args = {...}
			oncancel()
			LUI.FlowManager.RequestLeaveMenu(args[1])
		end
	})

	local listchildren = popup:getChildById("LUIHorizontalList"):getchildren()
	local children = listchildren[2]:getchildren()
	popup.text = children[2]

	stack = {
		ret = popup
	}

	return popup
end

LUI.MenuBuilder.m_types_build["generic_yes_no_popup_"] = function()
	local callback = stack.callback
	local popup = LUI.MenuBuilder.BuildRegisteredType("generic_yesno_popup", {
		popup_title = stack.title,
		message_text = stack.text,
		yes_action = function()
			callback(true)
		end,
		no_action = function()
			callback(false)
		end
	})

	stack = {
		ret = popup
	}

	return popup
end

LUI.MenuBuilder.m_types_build["generic_confirmation_popup_"] = function()
	local popup = LUI.MenuBuilder.BuildRegisteredType( "generic_confirmation_popup", {
		cancel_will_close = false,
		popup_title = stack.title,
		message_text = stack.text,
		button_text = stack.buttontext,
		confirmation_action = stack.callback
	})

	stack = {
		ret = popup
	}

	return stack.ret
end

LUI.onmenuopen = function(name, callback)
	if (not LUI.MenuBuilder.m_types_build[name]) then
		return
	end

	if (not menucallbacks[name]) then
		menucallbacks[name] = {}
	end

	table.insert(menucallbacks[name], callback)

	if (not originalmenus[name]) then
		originalmenus[name] = LUI.MenuBuilder.m_types_build[name]
		LUI.MenuBuilder.m_types_build[name] = function(...)
			local args = {...}
			local menu = originalmenus[name](table.unpack(args))

			for k, v in luiglobals.next, menucallbacks[name] do
				v(menu, table.unpack(args))
			end

			return menu
		end
	end
end

local addoptionstextinfo = LUI.Options.AddOptionTextInfo
LUI.Options.AddOptionTextInfo = function(menu)
	local result = addoptionstextinfo(menu)
	menu.optionTextInfo = result
	return result
end

LUI.addmenubutton = function(name, data)
	LUI.onmenuopen(name, function(menu)
		if (not menu.list) then
			return
		end

		local button = menu:AddButton(data.text, data.callback, nil, true, nil, {
			desc_text = data.description
		})

		local buttonlist = menu:getChildById(menu.type .. "_list")

		if (data.id) then
			button.id = data.id
		end

		if (data.index) then
			buttonlist:removeElement(button)
			buttonlist:insertElement(button, data.index)
		end

		local hintbox = menu.optionTextInfo
		menu:removeElement(hintbox)

		LUI.Options.InitScrollingList(menu.list, nil)
		menu.optionTextInfo = LUI.Options.AddOptionTextInfo(menu)
	end)
end

LUI.openmenu = function(menu, args)
	stack = args
	LUI.FlowManager.RequestAddMenu(nil, menu)
	return stack.ret
end

LUI.openpopupmenu = function(menu, args)
	stack = args
	LUI.FlowManager.RequestPopupMenu(nil, menu)
	return stack.ret
end

LUI.yesnopopup = function(data)
	for k, v in luiglobals.next, data do
		stack[k] = v
	end
	LUI.FlowManager.RequestPopupMenu(nil, "generic_yes_no_popup_")
	return stack.ret
end

LUI.confirmationpopup = function(data)
	for k, v in luiglobals.next, data do
		stack[k] = v
	end
	LUI.FlowManager.RequestPopupMenu(nil, "generic_confirmation_popup_")
	return stack.ret
end

function userdata_:getchildren()
	local children = {}
	local first = self:getFirstChild()

	while (first) do
		table.insert(children, first)
		first = first:getNextSibling()
	end

	return children
end