global_exchange/exchange_machine.lua

local exchange = ...
local search_cooldown = 2
local summary_interval = 600

local summary_fs = ""
local function mk_summary_fs()
	local res = {
		"size[8,8]",
		"label[0,0;Updated Periodically]",
		"tablecolumns[text;text;text;text;text;text]",
		"table[0,1;8,6;summary_table;",
		"Item,Description,Buy Vol,Buy Max,Sell Vol,Sell Min"
	}

	local all_items = minetest.registered_items
	for i, row in ipairs(exchange:market_summary()) do
		local n = #res+1
		res[n] = "," .. row.item_name
		local def = all_items[row.item_name] or {}
		res[n+1] = "," .. (def.description or "Unknown Item")
		res[n+2] = "," .. (row.buy_volume or 0)
		res[n+3] = "," .. (row.buy_max or "N/A")
		res[n+4] = "," .. (row.sell_volume or 0)
		res[n+5] = "," .. (row.sell_min or "N/A")
	end

	res[#res+1] = "]"
	res[#res+1] = "button[3,7;2,1;back;Back]"

	summary_fs = table.concat(res)
end
minetest.after(0, mk_summary_fs)


local elapsed = 0
minetest.register_globalstep(function(dtime)
	elapsed = elapsed + dtime
	if elapsed >= summary_interval then
		mk_summary_fs()
		elapsed = 0
	end
end)

local summary_form = "global_exchange:summary"
local function show_summary(p_name)
	minetest.show_formspec(p_name, summary_form, summary_fs)
end

local main_state = {}
-- ^ A per-player state for the main form. It contains these values:
--     old_fields: Keeps track of the fields before this update, when changing
--                 things slightly
--     search_results: The last search results the player obtained
--     last_search_time: The last time the player did a search. Used to implement
--                       a cooldown on searches
--     sell: A boolean whether the player has sell selected

minetest.register_on_joinplayer(function(player)
	exchange:new_account(player:get_player_name()) --just to make sure
	main_state[player:get_player_name()] = {
		old_fields = {},
		search_results = {},
		last_search_time = 0,
	}
end)

minetest.register_on_leaveplayer(function(player)
	main_state[player:get_player_name()] = nil
end)


local main_form = "global_exchange:exchange_main"


local tablecolumns =
	"tablecolumns[text;text;text;text;text;text]"


local function table_from_results(results, x, y, w, h, selected)
	local fs_tab

	local function insert(str)
		fs_tab[#fs_tab+1] = str
	end

	fs_tab = {
		tablecolumns,
		"table[" .. x .. "," .. y .. ";" .. w .. "," .. h .. ";",
		"result_table;",
		"Poster,Type,Item,Description,Amount,Rate"
	}

	local all_items = minetest.registered_items

	for i, row in ipairs(results) do
		insert(",")
		insert(tostring(row.Poster))
		insert(",")
		insert(tostring(row.Type))
		insert(",")
		insert(tostring(row.Item))
		insert(",")
		local def = all_items[row.Item] or {}
		insert(def.description or "Unknown Item")
		insert(",")
		insert(tostring(row.Amount))
		insert(",")
		insert(tostring(row.Rate))
	end

	if selected and selected ~= "" then
		insert(";")
		insert(selected)
	end
	insert("]")

	return table.concat(fs_tab)
end


local function mk_main_fs(p_name, new_item, err_str, success)
	local state = main_state[p_name]
	if not state then return end -- Should have been initialized on player join

	local old_fields = state.old_fields
	local results = state.search_results
	local item_def = new_item or old_fields.item or ""
	local amount_def = old_fields.amount or ""
	local rate_def = old_fields.rate or ""
	local sell_def = state.sell or false
	local selected_def = old_fields.selected or ""

	local bal = exchange:get_balance(p_name)

	local fs
	if bal then
		fs = "label[0,0;Balance: " .. bal .. "]"
	else
		fs = "label[0.2,0.5;Use an ATM to make your account.]"
	end

	fs = fs .. "button[4,0;2,1;summary;Market Summary]" ..
		"button[6,0;2,1;your_orders;Your Orders]" ..
		"field[0.2,1.5;3,1;item;Item: ;" .. item_def .. "]" ..
		"field[3.2,1.5;3,1;amount;Amount: ;" .. amount_def .. "]" ..
		"button[6,1;2,1.4;select_item;Select Item]" ..
		"checkbox[5,3;sell;Sell;" .. tostring(sell_def) .. "]" ..
		"field[0.2,2.5;2,1;rate;Rate: ;" .. rate_def .. "]" ..
		"button[2,2;2,1.4;search;Search]" ..
		"button[4,2;3,1.4;post_order;Post Order]"

	if err_str then
		fs = fs .. "label[0,3;Error: " .. err_str .. "]"
	end

	if success then
		fs = fs .. "label[0,3;Success!]"
	end

	return "size[8,9]" .. fs .. table_from_results(results, 0, 4, 8, 5, selected_def)
end


local function show_main(p_name, new_item, err_str, success)
	minetest.show_formspec(p_name, main_form, mk_main_fs(p_name, new_item, err_str, success))
end


-- Something similar to creative inventory
local pagemax = 1

-- Create detached inventory after loading all mods
minetest.after(0, function()
	local inv = minetest.create_detached_inventory("global_exchange", {
		allow_move = function(inv, from_list, _, to_list, _,_, player)
			local p_name = player:get_player_name()

			if from_list == "main"
			and to_list == "p_" .. p_name then
				return 1
			else
				return 0
			end
		end,
		allow_put = function()
			return 0
		end,
		allow_take = function()
			return 0
		end,
		on_move = function(inv, _, _, _, _, _, player)
			local p_name = player:get_player_name()
			local p_list = "p_" .. p_name

			local item_name = inv:get_list(p_list)[1]:get_name()
			inv:set_list(p_list, {})
			inv:add_item("main", item_name)
			show_main(p_name, item_name)
		end,
	})

	local selectable_list,n = {},1
	for name, def in pairs(minetest.registered_items) do
		if (not def.groups.not_in_creative_inventory
			or def.groups.not_in_creative_inventory == 0)
		and def.description
		and def.description ~= "" then
			selectable_list[n] = name
			n = n+1
		end
	end
	table.sort(selectable_list)
	inv:set_size("main", #selectable_list)
	for _,itemstring in ipairs(selectable_list) do
		inv:add_item("main", ItemStack(itemstring))
	end

	pagemax = math.ceil((#selectable_list - 1) / (8 * 4))
end)


minetest.register_on_joinplayer(function(player)
	-- the inventory list name is "p_"..player_name
	minetest.get_inventory({
		type="detached",
		name="global_exchange"
	}):set_size("p_" .. player:get_player_name(), 1)
end)


local select_form = "global_exchange:select_form"


local function mk_select_formspec(p_name, start_i, pagenum)
	return "size[9.3,8]" ..
		"list[detached:global_exchange;main;0.3,0.5;8,4;" .. tostring(start_i) .. "]" ..
		"button[0.3,4.5;1.6,1;select_prev;<<]"..
		"button[6.7,4.5;1.6,1;select_next;>>]"..
		"label[2.0,5.55;"..tostring(math.floor(pagenum)).."/"..tostring(pagemax).."]"..
		"list[detached:global_exchange;p_" .. p_name .. ";0.3,7;1,1;]"
end


local player_pages = {}


local function show_select(p_name)
	local pagenum = player_pages[p_name] or 1
	local start_i = (pagenum - 1) * 8 * 4

	local fs = mk_select_formspec(p_name, start_i, pagenum)
	minetest.show_formspec(p_name, select_form, fs)
end


local own_form = "global_exchange:my_orders"

local own_state = {}
-- ^ Per=player state for the own orders form. Contains these fields:
--     selected_index: The selected index
--     own_results: Results for own orders.

local function mk_own_orders_fs(p_name, results, selected)
	return "size[8,8]" ..
		"label[0.5,0.2;Your Orders]" ..
		"button[6,0;2,1;refresh;Refresh]" ..
		table_from_results(results, 0, 2, 8, 4.5, selected or "") ..
		"button[0,7;2,1;cancel;Cancel]" ..
		"button[3,7;2,1;back;Back]"
end


local function show_own_orders(p_name, results, selected)
	minetest.show_formspec(p_name, own_form, mk_own_orders_fs(p_name, results, selected))
end


-- Returns success, and also returns an error message if failed.
local function post_order(player, ex_name, order_type, item_name, amount_str, rate_str)
	local p_name = player:get_player_name()

	if item_name == "" then
		return false, "You must input an item"
	end

	if not minetest.registered_items[item_name] then
		return false, "That item does not exist."
	end

	local amount = tonumber(amount_str)
	local rate = tonumber(rate_str)

	if not amount then
		return false, "Invalid amount."
	end

	if not rate then
		return false, "Invalid rate."
	end

	if amount > 1000 then
		return false, "Max amount is 1000"
	end

	local p_inv = player:get_inventory()
	local stack = ItemStack(item_name)
	stack:set_count(amount)

	if order_type == "buy" then
		if not p_inv:room_for_item("main", stack) then
			return false, "Not enough space in inventory."
		end

		local succ, res = exchange:buy(p_name, ex_name, item_name, amount, rate)
		if not succ then
			return false, res
		end

		stack:set_count(res)
		p_inv:add_item("main", stack)
	else
		if not p_inv:contains_item("main", stack) then
			return false, "Items not in inventory."
		end

		local succ, res = exchange:sell(p_name, ex_name, item_name, amount, rate)
		if not succ then
			return false, res
		end

		p_inv:remove_item("main", stack)
	end

	return true
end


local function handle_main(player, fields)
	local p_name = player:get_player_name()
	local state = main_state[p_name]
	local old_fields = state.old_fields

	for k, v in pairs(fields) do
		old_fields[k] = v
	end

	if fields.select_item then
		show_select(p_name)
	end

	if fields.search then
		local now = os.time()
		local last_search = state.last_search_time

		if now - last_search < search_cooldown then
			show_main(p_name, nil, "Please wait before searching again.")
			return
		end

		-- If the player is selling, she wants "buy" type offers.
		local order_type
		if state.sell then
			order_type = "buy"
		else
			order_type = "sell"
		end
		local item_name = fields["item"]

		local results = exchange:search_orders("", order_type, item_name)
		state.search_results = results
		state.last_search_time = now

		show_main(p_name)
	end

	if fields.sell then
		state.sell = fields.sell == "true"
	end


	if fields.post_order then
		local now = os.time()
		local last_search = state.last_search_time

		if now - last_search < search_cooldown then
			show_main(p_name, nil, "Please wait before posting.")
			return
		end

		local order_type
		if state.sell then
			order_type = "sell"
		else
			order_type = "buy"
		end

		local succ, err =
			post_order(player, "", order_type, fields.item, fields.amount, fields.rate)

		if succ then
			state.search_results = {}
			show_main(p_name, nil, nil, true)
		else
			show_main(p_name, nil, err)
		end
	end


	if fields.result_table then
		local results = state.search_results
		local event = minetest.explode_table_event(fields.result_table)

		if event.type ~= "CHG" then
			return
		end

		local index = event.row - 1
		result = results[index]

		if result then
			old_fields.amount = tostring(result.Amount)
			old_fields.rate = tostring(result.Rate)
		end

		show_main(p_name)
	end

	if fields.summary then
		show_summary(p_name)
	end

	if fields.your_orders then
		if not own_state[p_name] then
			own_state[p_name] = {}
		end
		local o_state = own_state[p_name]

		o_state.own_results = exchange:search_player_orders(p_name) or {}

		show_own_orders(p_name, o_state.own_results)
	end
end


local function handle_select(player, fields)
	local p_name = player:get_player_name()

	local pagenum = player_pages[p_name] or 1

	if fields.select_prev then
		player_pages[p_name] = math.max(1, pagenum - 1)
		show_select(p_name)
	elseif fields.select_next then
		player_pages[p_name] = math.min(pagemax, pagenum + 1)
		show_select(p_name)
	end
end


local function handle_own_orders(player, fields)
	local p_name = player:get_player_name()

	local state = own_state[p_name] or {}
	local results = state.own_results or {}
	local idx = state.selected_index

	if fields.refresh then
		state.own_results = exchange:search_player_orders(p_name) or {}
		show_own_orders(p_name, state.own_results)
	end

	if fields.cancel and idx then
		local row = results[idx]
		if not row then return true end
		local p_inv = player:get_inventory()

		local amount = row.Amount
		local item = row.Item
		local stack = ItemStack(item)
		stack:set_count(amount)
		if row.Type == "sell" then
			if not p_inv:room_for_item("main", stack) then
				show_own_orders(p_name, state.own_results, "Not enough room.")
				return true
			end
		end

		local succ, err =
			exchange:cancel_order(p_name, row.Id, row.Type, row.Item, row.Amount, row.Rate)
		if succ then
			table.remove(results, idx)
			if row.Type == "sell" then
				p_inv:add_item("main", stack)
			end
		else
			-- Refresh the results, since there might have been a problem.
			state.own_results = exchange:search_player_orders(p_name) or {}
		end

		show_own_orders(p_name, state.own_results)
	end

	if fields.result_table then
		local event = minetest.explode_table_event(fields.result_table)
		if event.type == "CHG" then
			state.selected_index = event.row - 1
			show_own_orders(p_name, results, event.row)
		end
	end

	if fields.back then
		show_main(p_name)
	end
end


local function handle_summary(player, fields)
	if fields.back then
		show_main(player:get_player_name())
	end
end


minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname == main_form then
		handle_main(player, fields)
	elseif formname == select_form then
		handle_select(player, fields)
	elseif formname == own_form then
		handle_own_orders(player, fields)
	elseif formname == summary_form then
		handle_summary(player, fields)
	else
		return
	end
	return true
end)


minetest.register_node("global_exchange:exchange", {
	description = "Exchange",
	tiles = {"global_exchange_atm_top.png",
		 "global_exchange_atm_top.png",
		 "global_exchange_exchange_side.png",
	},
	groups = {cracky=2},
	on_rightclick = function(_, _, clicker)
		local p_name = clicker:get_player_name()
		local state = main_state[p_name]
		if state then
			state.search_results = {}
		end

		show_main(p_name)
	end,
})


minetest.register_craft( {
	output = "global_exchange:exchange",
	recipe = {
		{ "default:steel_ingot", "default:steel_ingot", "default:steel_ingot" },
		{ "default:mese_crystal", "default:steel_ingot", "default:diamond" },
		{ "default:steel_ingot", "default:steel_ingot", "default:steel_ingot" },
	}
})