--[[
	Mod MacroLoja para Minetest
	Copyright (C) 2017 BrunoMine (https://github.com/BrunoMine)
	
	Recebeste uma cópia da GNU Lesser General
	Public License junto com esse software,
	se não, veja em <http://www.gnu.org/licenses/>. 
	
	Bau de trocas
  ]]



-- Controle de bau acessado
local acesso_bau = {}
-- Remove valor quando jogador sair
minetest.register_on_leaveplayer(function(player)
	acesso_bau[player:get_player_name()] = nil
end)

-- Tocar som de troca feita
local tocar_som_troca = function(pos)
	minetest.sound_play("macroloja_troca", {
		pos = pos,
		max_hear_distance = 5,
		gain = 1.0,
	})
end


-- Trocar
--[[
	Retorna nil caso os dados sejam invalidos
	Retorna 1 quando tudo deu certo
	Retorna 2 quando o vendedor esta lotado
	Retorna 3 quando o vendedor nao tem mais estoque
	Retorna 4 quando o jogador esta lotado
	Retorna 5 quando o jogador nao consegue pagar
  ]]
local trocar = function(inv_comprador, list_pagante, list_recebedor, inv_vendedor, list_estoque, list_lucro, list_custo, list_oferta)
	
	-- Ajustar tabelas
	local tb_custo = {}
	local tb_oferta = {}
	for i=1, 4, 1 do
		local item = inv_vendedor:get_stack(list_custo, i)
		if item:get_name() ~= "" then
			if not tb_custo[item:get_name()] then
				tb_custo[item:get_name()] = item:get_count()
			else
				tb_custo[item:get_name()] = tb_custo[item:get_name()] + item:get_count()
			end
		end
	end
	for i=1, 4, 1 do
		local item = inv_vendedor:get_stack(list_oferta, i)
		if item:get_name() ~= "" then
			if not tb_oferta[item:get_name()] then
				tb_oferta[item:get_name()] = item:get_count()
			else
				tb_oferta[item:get_name()] = tb_oferta[item:get_name()] + item:get_count()
			end
		end
	end
	
	-- Verificar se vendedor consegue vender
	-- Verifica se vendedor possui estoque
	for item, qtd in pairs(tb_oferta) do
		if inv_vendedor:contains_item(list_estoque, item.." "..qtd) == false then
			return 3
		end
	end
	-- Verifica se vendedor esta lotado
	for item, qtd in pairs(tb_custo) do
		if inv_vendedor:room_for_item(list_lucro, item.." "..qtd) == false then
			return 2
		end
	end
	
	-- Veriica se o comprador consegue comprar
	-- Verifica se comprador consegue pagar
	for item, qtd in pairs(tb_custo) do
		if inv_comprador:contains_item(list_pagante, item.." "..qtd) == false then
			return 5
		end
	end
	-- Verifica se comprador esta lotado
	for item, qtd in pairs(tb_oferta) do
		if inv_comprador:room_for_item(list_recebedor, item.." "..qtd) == false then
			return 4
		end
	end
	
	-- Realiza a troca
	-- Retira itens do comprador e passa para o vendedor
	for item, qtd in pairs(tb_custo) do
		-- Retira itens do comprador
		inv_comprador:remove_item(list_pagante, item.." "..qtd)
		-- Adiciona itens ao vendedor
		inv_vendedor:add_item(list_lucro, item.." "..qtd)
	end
	-- Retira itens do vendedor e passa para o comprador
	for item, qtd in pairs(tb_oferta) do
		-- Retira itens do vendedor
		inv_vendedor:remove_item(list_estoque, item.." "..qtd)
		-- Adiciona itens ao comprador
		inv_comprador:add_item(list_recebedor, item.." "..qtd)
	end
	
	return 1

end

-- Verificar se bau pode estar ativo
local verif_bau_ativo = function(pos)
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()
	
	-- Zerar numero de vendas
	meta:set_float("vendas", 0)
	
	-- Verifica se um dos dois esta vazio
	if inv:is_empty("oferta") == true or inv:is_empty("custo") == true then 
		meta:set_string("status", "inativo")
		return
	end
	
	-- Verifica cada um dos itens de oferta
	for i=1, 4, 1 do
		local item = inv:get_stack("oferta", i)
		if item:get_wear() ~= 0 or item:get_metadata() ~= "" then
			meta:set_string("status", "inativo")
			return
		end
	end
	-- Verifica cada um dos itens de custo
	for i=1, 4, 1 do
		local item = inv:get_stack("custo", i)
		if item:get_wear() ~= 0 or item:get_metadata() ~= "" then
			meta:set_string("status", "inativo")
			return
		end
	end
	
	-- Ativa o bau para vendas
	meta:set_string("status", "ativo")
	
end

-- Bau de venda
minetest.register_node("macroloja:shop", {

	description = "Bau de Venda",
	paramtype2 = "facedir",
	tiles = {
		"default_chest_top.png",
		"default_chest_top.png^macroloja_shop_top.png",
		"default_chest_side.png",
		"default_chest_side.png",
		"default_chest_front.png",
		"default_chest_inside.png^macroloja_shop_front.png"
	},
	tiles = {
		"default_chest_top.png^macroloja_shop_top.png",
                "default_chest_top.png",
		"default_chest_side.png",
		"default_chest_side.png",
		"default_chest_side.png",
		"default_chest_front.png^macroloja_shop_front.png"
	},
	groups = {choppy=2,oddly_breakable_by_hand=2},
	sounds = default.node_sound_wood_defaults(),
	
	
	can_dig = function(pos, player)
		if player:get_player_name() == minetest.get_meta(pos):get_string("dono") 
			or minetest.check_player_privs(player:get_player_name(), {protection_bypass=true})
		then
			return true
		else
			return false
		end
	end,
	
	after_place_node = function(pos, placer, itemstack)
	
		-- Salvar metadados iniciais
		local meta = minetest.get_meta(pos)
		meta:set_string("infotext", "Bau de Venda (Vendedor "..placer:get_player_name()..")")
		meta:set_string("dono", placer:get_player_name())
		meta:set_string("status", "inativo")
		meta:set_float("vendas", 0)
		
		-- Inventarios do bau
		local inv = meta:get_inventory()
		inv:set_size("oferta", 4*1)
		inv:set_size("custo", 4*1)
		inv:set_size("estoque", 2*4)
		inv:set_size("lucro", 2*4)
		
	end,
	
	on_rightclick = function(pos, node, clicker, itemstack)
		
		local name = clicker:get_player_name()
		local meta = minetest.get_meta(pos)
		
		-- Armazena o bau acessado
		acesso_bau[name] = pos
		
		-- Acesso do dono
		if name == minetest.get_meta(pos):get_string("dono") 
			or minetest.check_player_privs(name, {protection_bypass=true})
		then
			
			-- Exibe formspec
			minetest.show_formspec(name, "macroloja:shop_dono", 
				"size[10,9]"
				
				-- Inventario do jogador
				..default.gui_bg
				..default.gui_bg_img
				..default.gui_slots
				.."list[current_player;main;1,4.85;8,1;]"
				.."list[current_player;main;1,6.08;8,3;8]"
				.."listring[current_player;main]"
				..default.get_hotbar_bg(1,4.85)
				
				-- Estoque
				.."label[0,-0.1;Estoque]"
				.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";estoque;0,0.3;2,4;]"
				.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";estoque]"
				
				-- Lucro
				.."label[8,-0.1;Lucro]"
				.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";lucro;8,0.3;2,4;]"
				.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";lucro]"
				
				-- Oferta
				.."label[3,0.3;Oferta]"
				.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta;3,0.8;4,1;]"
				.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta]"
				.."image[2,0.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"
				
				-- Custo
				.."label[3,2.3;Custo]"
				.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo;3,2.8;4,1;]"
				.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo]"
				.."image[7,2.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"
				
				-- Seta pra baixo
				.."image[4.5,1.8;1,1;gui_furnace_arrow_bg.png^[transformR180]"
				
				-- Trocas feitas
				.."label[3,3.8;Vendas feitas: "..meta:get_float("vendas").."]"
				
				-- Botoes de troca rapida [CANCELADOS]
				--.."image_button[0,4.3;1,1;macroloja_bt_fast_up.png;reabastecer;]"
				--.."image_button[9,4.3;1,1;macroloja_bt_fast_down.png;receber;]"
				
			)
			
			return
		end
		
		-- Exibe formspec
		minetest.show_formspec(name, "macroloja:shop", 
			"size[8,9]"
			
			-- Inventario do jogador
			..default.gui_bg
			..default.gui_bg_img
			..default.gui_slots
			.."list[current_player;main;0,4.85;8,1;]"
			.."list[current_player;main;0,6.08;8,3;8]"
			.."listring[current_player;main]"
			..default.get_hotbar_bg(0,4.85)
			
			-- Custo
			.."label[2,0.3;Custo]"
			.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo;2,0.8;4,1;]"
			.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";custo]"
			
			-- Oferta
			.."label[2,2.8;Oferta]"
			.."list[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta;2,3.3;4,1;]"
			.."listring[nodemeta:"..pos.x..","..pos.y..","..pos.z..";oferta]"
			
			-- Seta pra baixo
			.."image[2,1.8;1,1;gui_furnace_arrow_bg.png^[transformR180]"
			
			-- Botão de troca
			.."button[3,1.8;2,1;trocar;Comprar]"
			
			-- Botoes de troca rapida
			.."image_button[5,1.8;1,1;macroloja_bt_fast_down.png;trocar10x;10x]"
			
		)
		
	end,
	
	on_destruct = function(pos)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		
		-- Dropar itens
		macroloja.drop_inventory(pos, inv, "estoque")
		macroloja.drop_inventory(pos, inv, "oferta")
		macroloja.drop_inventory(pos, inv, "custo")
		macroloja.drop_inventory(pos, inv, "lucro")
		
	end,
	
	-- Verificar permissão de acesso ao bau
	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		if player:get_player_name() == minetest.get_meta(pos):get_string("dono") 
			or minetest.check_player_privs(player:get_player_name(), {protection_bypass=true})
		then return count else return 0 end
	end,
	allow_metadata_inventory_put = function(pos, listname, index, stack, player)
		if player:get_player_name() == minetest.get_meta(pos):get_string("dono") 
			or minetest.check_player_privs(player:get_player_name(), {protection_bypass=true})
		then return stack:get_count() else return 0 end
	end,
	allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		if player:get_player_name() == minetest.get_meta(pos):get_string("dono") 
			or minetest.check_player_privs(player:get_player_name(), {protection_bypass=true})
		then return stack:get_count() else return 0 end
	end,
	
	-- Verificar se mudança no inventario permite ativar trocas
	on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		if from_list == "oferta" or from_list == "custo" 
			or to_list == "oferta" or to_list == "custo"
		then verif_bau_ativo(pos) end
	end,
	on_metadata_inventory_put = function(pos, listname, index, stack, player)
		if listname == "custo" or listname == "oferta" then verif_bau_ativo(pos) end
	end,
	on_metadata_inventory_take = function(pos, listname, index, stack, player)
		if listname == "custo" or listname == "oferta" then verif_bau_ativo(pos) end
	end,
})


minetest.register_on_player_receive_fields(function(player, formname, fields)
	
	-- Clientes
	if formname == "macroloja:shop" then
		local name = player:get_player_name()
		local pos = acesso_bau[name]
		local meta = minetest.get_meta(pos)
		
		
		-- Troca 
		if fields.trocar and meta:get_string("status") == "ativo" then
			
			-- Tentativa de troca
			local troca = trocar(player:get_inventory(), "main", "main", meta:get_inventory(), "estoque", "lucro", "custo", "oferta")
			
			if troca == 2 then
				minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
			elseif troca == 3 then
				minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
			elseif troca == 4 then
				minetest.chat_send_player(name, "Inventario lotado. Esvazie um pouco seu inventario.")
			elseif troca == 5 then
				minetest.chat_send_player(name, "Itens insuficientes para pagar pela compra.")
			end
			
			if troca == 1 then
			
				meta:set_float("vendas", meta:get_float("vendas") + 1)
			
				-- Tocar som de troca feita
				tocar_som_troca(pos)
			
			end
			
			return
			
		elseif fields.trocar10x then
			
			-- Tentativa de primeira troca
			local troca = trocar(player:get_inventory(), "main", "main", meta:get_inventory(), "estoque", "lucro", "custo", "oferta")
						
			if troca == 2 then
				minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
			elseif troca == 3 then
				minetest.chat_send_player(name, "Bau com problemas de estoque. Aguarde o vendedor verificar.")
			elseif troca == 4 then
				minetest.chat_send_player(name, "Inventario lotado. Esvazie um pouco seu inventario.")
			elseif troca == 5 then
				minetest.chat_send_player(name, "Itens insuficientes para pagar pela compra.")
			end
			
			if troca == 1 then
			
				meta:set_float("vendas", meta:get_float("vendas") + 1)
			
				-- Tocar som de troca feita
				tocar_som_troca(pos)
				
				-- Tenta trocar mais 9
				do
					local i = 0
					while i < 9 
						and trocar(player:get_inventory(), "main", "main", meta:get_inventory(), "estoque", "lucro", "custo", "oferta") == 1
					do
						meta:set_float("vendas", meta:get_float("vendas") + 1)
						i = i + 1
					end
				end
			
			end
			
			return
			
		elseif fields.quit then
		
			return
			
		-- Nenhum botao valido ate aqui
		else
			minetest.chat_send_player(name, "Bau de venda inativo")
		end
	end
end)

-- Bau de Venda
minetest.register_craft({
	output = 'macroloja:shop',
	recipe = {
		{'wool:green', 'wool:white', 'wool:green'},
		{'wool:blue', 'default:chest_locked', 'wool:blue'},
		{'default:wood', 'default:wood', 'default:wood'},
	}
})