--[[

Bags for Minetest

Copyright (c) 2012 cornernote, Brett O'Donnell <cornernote@gmail.com>
Source Code: https://github.com/cornernote/minetest-particles
License: GPLv3

]]--

local S = minetest.get_translator("bags")

local bags_page = {}

local get_formspec = function(player, page)
	if page=="bags" then
		local name = player:get_player_name()
		return "size[8,7.5]"
			..hades_gui.gui_inventory_bg_img
			.."list[current_player;main;0,4.7;8,1;]"
			.."list[current_player;main;0,5.85;8,3;8]"
			.."button[0,2.2;2,0.5;bag1;Bag 1]"
			.."button[2,2.2;2,0.5;bag2;Bag 2]"
			.."button[4,2.2;2,0.5;bag3;Bag 3]"
			.."button[6,2.2;2,0.5;bag4;Bag 4]"
			.."list[detached:"..name.."_bags;bag1;0.5,1;1,1;]"
			.."list[detached:"..name.."_bags;bag2;2.5,1;1,1;]"
			.."list[detached:"..name.."_bags;bag3;4.5,1;1,1;]"
			.."list[detached:"..name.."_bags;bag4;6.5,1;1,1;]"
			.."listring[current_player;main]"
			.."listring[detached:"..name.."_bags;bag1]"
			.."listring[current_player;main]"
			.."listring[detached:"..name.."_bags;bag2]"
			.."listring[current_player;main]"
			.."listring[detached:"..name.."_bags;bag3]"
			.."listring[current_player;main]"
			.."listring[detached:"..name.."_bags;bag4]"
			.."listring[current_player;main]"
	end
	for b=1,4 do
		if page=="bag"..b then
			local image = player:get_inventory():get_stack("bag"..b, 1):get_definition().inventory_image
			return "size[8,8.5]"
				..hades_gui.gui_inventory_bg_img
				.."list[current_player;main;0,4.7;8,1;]"
				.."list[current_player;main;0,5.85;8,3;8]"
				.."button[0,0;2,0.5;main;Main]"
				.."label[3,0;"..string.format("Bag %d", b).."]"
				.."image[7,0;1,1;"..image.."]"
				.."list[current_player;bag"..b.."contents;0,1;8,3;]"
				.."listring[]"
		end
	end
end

sfinv.register_page("bags:bags", {
	title = "Bags",
	is_in_nav = function(self, player, context)
		return true
	end,
	get = function(self, player, context)
		local player_name = player:get_player_name()
		local inv = player:get_inventory()
		local page
		if not bags_page[player_name] then
			page = "bags"
		else
			page = bags_page[player_name]
		end
		return sfinv.make_formspec(player, context, get_formspec(player, page))
	end,
	on_player_receive_fields = function(self, player, context, fields)
		local player_name = player:get_player_name()
		local inv = player:get_inventory()
		assert(inv)

		if fields.main then
			bags_page[player_name] = "bags"
		else
			for b=1, 4 do
				if fields["bag"..b] and not inv:get_stack("bag"..b, 1):is_empty() then
					bags_page[player_name] = "bag"..b
					break
				end
			end
		end
		sfinv.set_player_inventory_formspec(player, context)
	end,
})

-- register_on_joinplayer
minetest.register_on_joinplayer(function(player)
	local player_inv = player:get_inventory()
	local bags_inv = minetest.create_detached_inventory(player:get_player_name().."_bags",{
		on_put = function(inv, listname, index, stack, player)
			player:get_inventory():set_stack(listname, index, stack)
			player:get_inventory():set_size(listname.."contents", stack:get_definition().groups.bagslots)
		end,
		on_take = function(inv, listname, index, stack, player)
			player:get_inventory():set_stack(listname, index, nil)
		end,
		allow_put = function(inv, listname, index, stack, player)
			if stack:get_definition().groups.bagslots then
				return 1
			else
				return 0
			end
		end,
		allow_take = function(inv, listname, index, stack, player)
			if player:get_inventory():is_empty(listname.."contents")==true then
				return stack:get_count()
			else
				return 0
			end
		end,
		allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
			return 0
		end,
	})
	for i=1,4 do
		local bag = "bag"..i
		player_inv:set_size(bag, 1)
		bags_inv:set_size(bag, 1)
		bags_inv:set_stack(bag,1,player_inv:get_stack(bag,1))
	end
end)

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

-- register bag tools
minetest.register_tool("bags:small", {
	description = S("Small Bag"),
	_tt_help = S("+8 inventory slots"),
	inventory_image = "bags_small.png",
	groups = {bagslots=8, disable_repair=1},
})
minetest.register_tool("bags:medium", {
	description = S("Medium Bag"),
	_tt_help = S("+16 inventory slots"),
	inventory_image = "bags_medium.png",
	groups = {bagslots=16, disable_repair=1},
})
minetest.register_tool("bags:large", {
	description = S("Large Bag"),
	_tt_help = S("+24 inventory slots"),
	inventory_image = "bags_large.png",
	groups = {bagslots=24, disable_repair=1},
})

-- register bag crafts
minetest.register_craft({
	output = "bags:small",
	recipe = {
        {"", "farming:string", ""},
        {"wool:white", "wool:white", "wool:white"},
        {"wool:white", "wool:white", "wool:white"},
    },
})
minetest.register_craft({
	output = "bags:medium",
	recipe = {
        {"", "group:stick", ""},
        {"bags:small", "farming:string", "bags:small"},
        {"bags:small", "farming:string", "bags:small"},
    },
})
minetest.register_craft({
	output = "bags:large",
	recipe = {
        {"", "group:stick", ""},
        {"bags:medium", "farming:string", "bags:medium"},
        {"bags:medium", "farming:string", "bags:medium"},
    },
})

-- log that we started
minetest.log("action", "[MOD]"..minetest.get_current_modname().." -- loaded from "..minetest.get_modpath(minetest.get_current_modname()))
