--[[
	Money Mod by Kotolegokot and Xiong
	Edited by TenPlus1 (13th May 2016)
]]

-- Does player have permissions for this shop?

local function has_shop_privilege(meta, player)
	return player:get_player_name() == meta:get_string("owner")
	or minetest.get_player_privs(player:get_player_name())["protection_bypass"] -- was server
end

-- Barter shop

minetest.register_node("money:barter_shop", {
	description = "Barter Shop",
	tiles = {
		"default_chest_top.png",
		"default_chest_top.png",
		"default_chest_side.png",
		"default_chest_side.png",
		"default_chest_side.png",
		"default_chest_front.png^money_barter_shop_front.png"
	},
	groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
	sounds = default.node_sound_wood_defaults(),
	paramtype2 = "facedir",

	after_place_node = function(pos, placer)
		local meta = minetest.get_meta(pos)
		meta:set_string("owner", placer:get_player_name())
		meta:set_string("infotext", "Untuned Barter Shop (owned by " .. placer:get_player_name() .. ")")
	end,

	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		meta:set_string("formspec", "size[8,5.6]"
			.. default.gui_bg
			.. default.gui_bg_img
			.. default.gui_slots
			.. "field[0.256,0.5;8,1;bartershopname;Name of barter shop:;]"
			.. "field[0.256,1.5;8,1;nodename1;Node name (A) shop gives to player:;]"
			.. "field[0.256,2.5;8,1;nodename2;Node name (B) player gives to shop:;]"
			.. "field[0.256,3.5;8,1;amount1;Quantity of node A per swap:;]"
			.. "field[0.256,4.5;8,1;amount2;Quantity of node B per swap:;]"
			.. "button_exit[3.1,5;2,1;button;Tune]")
		meta:set_string("infotext", "Untuned Barter Shop")
		meta:set_string("owner", "")
		meta:set_string("form", "yes")
	end,

	-- retune

	on_punch = function( pos, node, player )
		local meta = minetest.get_meta(pos)
		if player:get_player_name() == meta:get_string("owner") then
		meta:set_string("formspec", "size[8,5.6]"
			.. default.gui_bg
			.. default.gui_bg_img
			.. default.gui_slots
			.. "field[0.256,0.5;8,1;bartershopname;Name of barter shop:;${bartershopname}]"
			.. "field[0.256,1.5;8,1;nodename1;Node name (A) shop gives to player:;${nodename1}]"
			.. "field[0.256,2.5;8,1;nodename2;Node name (B) player gives to shop:;${nodename2}]"
			.. "field[0.256,3.5;8,1;amount1;Quantity of node A per swap:;${amount1}]"
			.. "field[0.256,4.5;8,1;amount2;Quantity of node B per swap:;${amount2}]"
			.. "button_exit[3.1,5;2,1;button;Retune]")
			meta:set_string("infotext", "Detuned Barter Shop")
			meta:set_string("form", "yes")
			minetest.chat_send_player(player:get_player_name(), "Barter Shop detuned.")
		end
	end,

	-- end retune

	can_dig = function(pos,player)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		return inv:is_empty("main") and (meta:get_string("owner") == player:get_player_name() or minetest.get_player_privs(player:get_player_name())["server"])
	end,

	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		local meta = minetest.get_meta(pos)
		if not has_shop_privilege(meta, player) then
			minetest.log("action", player:get_player_name()..
				" tried to access barter shop belonging to "..
				meta:get_string("owner").." at "..
				minetest.pos_to_string(pos))
			return 0
		end
		return count
	end,

	allow_metadata_inventory_put = function(pos, listname, index, stack, player)
		local meta = minetest.get_meta(pos)
		if not has_shop_privilege(meta, player) then
			minetest.log("action", player:get_player_name()..
				" tried to access barter shop belonging to "..
				meta:get_string("owner").." at "..
				minetest.pos_to_string(pos))
			return 0
		end
		-- if item is worn do not put in shop
		if stack:get_wear() > 0 then return 0 end
		return stack:get_count()
	end,

	allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		local meta = minetest.get_meta(pos)
		if not has_shop_privilege(meta, player) then
			minetest.log("action", player:get_player_name()..
				" tried to access barter shop belonging to "..
				meta:get_string("owner").." at "..
				minetest.pos_to_string(pos))
			return 0
		end
		return stack:get_count()
	end,
--[[
	on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		minetest.log("action", player:get_player_name()..
			" moves stuff in barter shop at "..minetest.pos_to_string(pos))
	end,

	on_metadata_inventory_put = function(pos, listname, index, stack, player)
		minetest.log("action", player:get_player_name()..
			" puts stuff in barter shop at "..minetest.pos_to_string(pos))
	end,

	on_metadata_inventory_take = function(pos, listname, index, count, player)
		minetest.log("action", player:get_player_name()..
			" takes stuff from barter shop at "..minetest.pos_to_string(pos))
	end,
]]
	on_receive_fields = function(pos, formname, fields, sender)

		local meta = minetest.get_meta(pos)

		if meta:get_string("form") == "yes" then

			if fields.bartershopname ~= ""
			and minetest.registered_items[fields.nodename1]
			and minetest.registered_items[fields.nodename2]
			and tonumber(fields.amount1)
			and tonumber(fields.amount1) >= 1
			and tonumber(fields.amount2)
			and tonumber(fields.amount2) >= 1
			and (meta:get_string("owner") == sender:get_player_name()
			or minetest.get_player_privs(sender:get_player_name())["server"]) then

				meta:set_string("formspec", "size[8,10]"
					.. default.gui_bg
					.. default.gui_bg_img
					.. default.gui_slots
					.. "list[context;main;0,0;8,4;]"
					.. "label[0,4.25.0;Selling "
						.. fields.amount1 .."x "
						.. fields.nodename1 .. " for "
						.. fields.amount2 .. "x "
						.. fields.nodename2 .. "]"
					.. "button[3,5;2,1;button;Exchange]"
					.. "list[current_player;main;0,6;8,4;]"
					.. "listring[]")

				meta:set_string("bartershopname", fields.bartershopname)
				meta:set_string("nodename1", fields.nodename1)
				meta:set_string("nodename2", fields.nodename2)
				meta:set_string("amount1", fields.amount1)
				meta:set_string("amount2", fields.amount2)
				meta:set_string("infotext", "Barter Shop \"" .. fields.bartershopname .. "\" (owned by " .. meta:get_string("owner") .. ")")
				meta:set_string("form", "no")

				local inv = meta:get_inventory()
				inv:set_size("main", 8*4)
			end

		elseif fields["button"] then

			local sender_name = sender:get_player_name()
			local inv = meta:get_inventory()
			local sender_inv = sender:get_inventory()

			if not inv:contains_item("main", meta:get_string("nodename1") .. " " .. meta:get_string("amount1")) then
				minetest.chat_send_player(sender_name, "Barter shop does not have enough goods.")
				return

			elseif not sender_inv:contains_item("main", meta:get_string("nodename2") .. " " .. meta:get_string("amount2")) then
				minetest.chat_send_player(sender_name, "You do not have enough goods to trade.")
				return

			elseif not inv:room_for_item("main", meta:get_string("nodename2") .. " " .. meta:get_string("amount2")) then
				minetest.chat_send_player(sender_name, "Not enough space in barter shop.")
				return

			elseif not sender_inv:room_for_item("main", meta:get_string("nodename1") .. " " .. meta:get_string("amount1")) then
				minetest.chat_send_player(sender_name, "Your inventory is too full.")
				return
			end

			inv:remove_item("main", meta:get_string("nodename1") .. " " .. meta:get_string("amount1"))
			sender_inv:remove_item("main", meta:get_string("nodename2") .. " " .. meta:get_string("amount2"))
			inv:add_item("main", meta:get_string("nodename2") .. " " .. meta:get_string("amount2"))
			sender_inv:add_item("main", meta:get_string("nodename1") .. " " .. meta:get_string("amount1"))
			minetest.chat_send_player(sender_name, "You exchanged " .. meta:get_string("amount2") .. " " .. meta:get_string("nodename2") .. " for " .. meta:get_string("amount1") .. " " .. meta:get_string("nodename1") .. ".")
		end
	end,
})

-- Barter Shop recipe

minetest.register_craft({
	type = "shapeless",
	output = "money:barter_shop",
	recipe = {"default:sign_wall", "default:chest_locked"},
})

-- Admin barter shop.

minetest.register_node("money:admin_barter_shop", {
	description = "Admin Barter Shop",
	tiles = {
		"default_chest_top.png",
		"default_chest_top.png",
		"default_chest_side.png",
		"default_chest_side.png",
		"default_chest_side.png",
		"default_chest_front.png^money_admin_barter_shop_front.png"},
	groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
	sounds = default.node_sound_wood_defaults(),
	paramtype2 = "facedir",

	on_construct = function(pos)

		local meta = minetest.get_meta(pos)

		meta:set_string("formspec", "size[8,6]"
			.. default.gui_bg
			.. default.gui_bg_img
			.. default.gui_slots
			.. "field[0.256,0.5;8,1;nodename1;What are you giving to player:;]"
			.. "field[0.256,1.75;8,1;amount1;Amount to give:;]"
			.. "field[0.256,3;8,1;nodename2;In exchange for what:;]"
			.. "field[0.256,4.25;8,1;amount2;Amount to take:;]"
			.. "button_exit[3.1,5;2,1;button;Proceed]")

		meta:set_string("infotext", "Untuned Admin Barter Shop")
		meta:set_string("form", "yes")
	end,

	can_dig = function(pos,player)
		return minetest.get_player_privs(player:get_player_name())["protection_bypass"] -- was server
	end,

	on_receive_fields = function(pos, formname, fields, sender)

		local meta = minetest.get_meta(pos)

		if meta:get_string("form") == "yes" then

			if minetest.registered_items[fields.nodename1]
			and minetest.registered_items[fields.nodename2]
			and tonumber(fields.amount1) and tonumber(fields.amount1) >= 1
			and tonumber(fields.amount2) and tonumber(fields.amount2) >= 1
			and (meta:get_string("owner") == sender:get_player_name()
			or minetest.get_player_privs(sender:get_player_name())["server"]) then

				meta:set_string("formspec", "size[8,6]"
					.. default.gui_bg
					.. default.gui_bg_img
					.. default.gui_slots
					.. "label[0,0.0;Selling "
						.. fields.amount1 .."x "
						.. fields.nodename1 .. " for "
						.. fields.amount2 .. "x "
						.. fields.nodename2 .. "]"
					.. "button[3,0.75;2,1;button;Exchange]"
					.. "list[current_player;main;0,2;8,4;]")

				meta:set_string("nodename1", fields.nodename1)
				meta:set_string("nodename2", fields.nodename2)
				meta:set_string("amount1", fields.amount1)
				meta:set_string("amount2", fields.amount2)
				meta:set_string("form", "no")
				meta:set_string("infotext", "Selling "
					.. fields.amount1 .. "x "
					.. fields.nodename1 .. " for "
					.. fields.amount2 .. "x "
					.. fields.nodename2)
			end

		elseif fields["button"] then

			local sender_name = sender:get_player_name()
			local sender_inv = sender:get_inventory()

			if not sender_inv:contains_item("main", meta:get_string("nodename2") .. " " .. meta:get_string("amount2")) then
				minetest.chat_send_player(sender_name, "You do not have enough goods to trade.")
				return

			elseif not sender_inv:room_for_item("main", meta:get_string("nodename1") .. " " .. meta:get_string("amount1")) then
				minetest.chat_send_player(sender_name, "Your inventory is too full.")
				return
			end

			sender_inv:remove_item("main", meta:get_string("nodename2") .. " " .. meta:get_string("amount2"))
			sender_inv:add_item("main", meta:get_string("nodename1") .. " " .. meta:get_string("amount1"))

			minetest.chat_send_player(sender_name, "You exchanged " .. meta:get_string("amount2") .. " " .. meta:get_string("nodename2") .. " on " .. meta:get_string("amount1") .. " " .. meta:get_string("nodename1") .. ".")
		end
	end,
})