--[[

Infinite Chest for Minetest

Copyright (c) 2012 cornernote, Brett O'Donnell <cornernote@gmail.com>
Source Code: https://github.com/cornernote/minetest-infinite_chest
License: BSD-3-Clause https://raw.github.com/cornernote/minetest-infinite_chest/master/LICENSE

API

]]--


infinite_chest = {}

infinite_chest.log = function(message)
    minetest.log("action", message)
end

infinite_chest.formspec = function(pos,page)
    local formspec = "size[15,11]"
        .."button[12,10;1,0.5;go;Go]"
    if page=="main" then
        local meta = minetest.env:get_meta(pos)
        local pages = infinite_chest.get_pages(meta)
        local x,y = 0,0
        local p
        for i = #pages,1,-1 do
            p = pages[i]
            x = x+2
            if x == 16 then
                y = y+1
                x = 2
            end
            formspec = formspec .."button["..(x-1.5)..","..(y+1)..";1.5,0.5;jump;"..p.."]"
        end
        if #pages == 0 then
            formspec = formspec
                .."label[4,3; --== Infinite Chest ==--]"
                .."label[4,4.5; Create as many inventory slots as you like!]"
                .."label[4,5.0; Simply enter a name for your inventory slot]"
                .."label[4,5.5; then click Go.]"
        end
        return formspec
            .."field[10.5,10.1;2,1;page;;]"
            .."label[0,0;Infinite Chest]"
    end
    return formspec
        .."field[10.5,10.1;2,1;page;;"..page.."]"
        .."label[0,0;Infinite Chest - page: " .. page .. "]"
        .."button[13,10;2,0.5;back;Back]"
        .."button[13,6.5;2,0.5;delete;Delete]"
        .."list[current_name;"..page..";0,1;15,5;]"
        .."list[current_player;main;0,7;8,4;]"
end

infinite_chest.get_pages = function(meta)
    local invs = meta:get_string("infinite_chest_list")
    local pages = {}
    for p in string.gmatch(invs, "[^%s]+") do
        table.insert(pages,p)
    end
    return pages
end

infinite_chest.add_page = function(pos,page)
    local meta = minetest.env:get_meta(pos)
    local invs = meta:get_string("infinite_chest_list")
    local pages = {}
    for p in string.gmatch(invs, "[^%s]+") do
        if page ~= p then
            table.insert(pages,p)
        end
    end
    table.insert(pages,page)
    invs = ""
    for i,p in pairs(pages) do
        invs = invs .." ".. p
    end
    meta:set_string("infinite_chest_list",invs)
    meta:get_inventory():set_size(page, 15*5)
end

infinite_chest.remove_page = function (pos, page, sender)
    local meta = minetest.env:get_meta(pos)

    if sender and
        not infinite_chest.has_locked_chest_privilege (meta, sender) then
        infinite_chest.log (sender:get_player_name() .. " tried to edit a locked chest belonging to "..meta:get_string("owner").." at "..minetest.pos_to_string(pos))
        return 0
    end

    local invs = meta:get_string("infinite_chest_list")
    local inv = meta:get_inventory()
    if not inv:is_empty(page) then
        return
    end
    local pages = {}
    for p in string.gmatch(invs, "[^%s]+") do
        if page ~= p then
            table.insert(pages,p)
        end
    end
    invs = ""
    for i,p in pairs(pages) do
        invs = invs .." ".. p
    end
    meta:set_string("infinite_chest_list",invs)
    return true
end

infinite_chest.on_receive_fields = function(pos, formname, fields, sender)
    local meta = minetest.env:get_meta(pos)
    local page
    if fields.go ~= nil and fields.page ~= "" then
        page = string.lower(string.gsub(fields.page, "%W", "_"))
    end
    if fields.jump ~= nil then
        page = fields.jump
    end
    if page ~= nil then
        infinite_chest.add_page(pos,page)
        meta:set_string("formspec", infinite_chest.formspec(pos,page))
        return
    end
    if fields.delete ~= nil then
        if not infinite_chest.remove_page (pos,fields.page, sender) then
            minetest.chat_send_player(sender:get_player_name(), "cannot delete \""..fields.page.."\" - page is not empty")
            return
        end
    end
    meta:set_string("formspec", infinite_chest.formspec(pos,"main"))
end

infinite_chest.on_construct = function(pos)
    local meta = minetest.env:get_meta(pos)
    meta:set_string("formspec", infinite_chest.formspec(pos,"main"))
    meta:set_string("infotext", "Infinite Chest")
end

infinite_chest.can_dig = function(pos,player)
    local meta = minetest.env:get_meta(pos);
    local pages = infinite_chest.get_pages(meta)
    local inv = meta:get_inventory()
    for i,page in pairs(pages) do
        if not inv:is_empty(page) then
            minetest.chat_send_player(player:get_player_name(), "cannot dig - page \""..page.."\" is not empty")
            return false
        end
    end
    return true
end

infinite_chest.after_place_node = function(pos, placer)
    local meta = minetest.env:get_meta(pos)
    meta:set_string("owner", placer:get_player_name() or "")
    meta:set_string("infotext", "Locked Infinite Chest (owned by "..meta:get_string("owner")..")")
end

infinite_chest.allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
    local meta = minetest.env:get_meta(pos)
    if not infinite_chest.has_locked_chest_privilege(meta, player) then
        infinite_chest.log(player:get_player_name().." tried to access a locked chest belonging to "..meta:get_string("owner").." at "..minetest.pos_to_string(pos))
        return 0
    end
    return count
end

infinite_chest.allow_metadata_inventory_put = function(pos, listname, index, stack, player)
    local meta = minetest.env:get_meta(pos)
    if not infinite_chest.has_locked_chest_privilege(meta, player) then
        infinite_chest.log(player:get_player_name().." tried to access a locked chest belonging to "..meta:get_string("owner").." at "..minetest.pos_to_string(pos))
        return 0
    end
    return stack:get_count()
end

infinite_chest.allow_metadata_inventory_take = function(pos, listname, index, stack, player)
    local meta = minetest.env:get_meta(pos)
    if not infinite_chest.has_locked_chest_privilege(meta, player) then
        infinite_chest.log(player:get_player_name()..
                " tried to access a locked chest belonging to "..
                meta:get_string("owner").." at "..
                minetest.pos_to_string(pos))
        return 0
    end
    return stack:get_count()
end

infinite_chest.has_locked_chest_privilege = function(meta, player)
    if meta:get_string("owner") ~= "" and player:get_player_name() ~= meta:get_string("owner") then
        return false
    end
    return true
end

infinite_chest.on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
    infinite_chest.log(player:get_player_name().." moves stuff in infinite chest at "..minetest.pos_to_string(pos))
end

infinite_chest.on_metadata_inventory_put = function(pos, listname, index, stack, player)
    infinite_chest.log(player:get_player_name().." moves stuff to infinite chest at "..minetest.pos_to_string(pos))
end

infinite_chest.on_metadata_inventory_take = function(pos, listname, index, stack, player)
    infinite_chest.log(player:get_player_name().." takes stuff from infinite chest at "..minetest.pos_to_string(pos))
end