local stocking = {}
local stuffer = {}
stuffer.stuffers = {}

function stuffer.register_stuff(name, count)
    if count == nil then count = 1 end
    local stuff = {
        name = name,
        count = count,
        metadata = "",
    }
    table.insert(stuffer.stuffers, stuff)
end

function stuffer.select_stuffers(count)
    local p_stuffers = {}
    for i=1,#stuffer.stuffers do
        table.insert(p_stuffers, stuffer.stuffers[i])
    end
    local itemstacks = {}
    for i=1,#stuffer.stuffers do
        itemstacks[i] = stuffer.stuff_to_itemstack(stuffer.stuffers[i])
    end
    return itemstacks
end

function stuffer.stuff_to_itemstack(stuff)
    local itemstack = {}
    itemstack.name = stuff.name
    itemstack.count = stuffer.determine_count(stuff)
    itemstack.metadata = stuff.metadata

    return ItemStack(itemstack)
end

function stuffer.determine_count(stuff)
    if(type(stuff.count)=="number") then
        return stuff.count
    end
end

-- REGISTER STUFFERS BELOW HERE

-- stuffer.register_stuff("modname:nodename", amount)

local stuffer_entries = {
    { "default:gold_ingot"                  , 200 } ,
    { "xmasdecor:candycane_edible"          ,  20 } ,
    { "dessert:moono_dillybar"              ,  10 } ,
    { "dessert:cake_cheese"                 ,  10 } ,
    { "default:pick_mese"                   ,   1 } ,
    { "default:sword_mese"                  ,   1 } ,
    { "default:axe_mese"                    ,   1 } ,
    { "default:shovel_mese"                 ,   1 } ,
    { "farming:hoe_mese"                    ,   1 } ,
}

for _, b in ipairs (stuffer_entries) do
    local nodename, amt = unpack (b)

    if minetest.registered_nodes [nodename] ~= nil then
        stuffer.register_stuff (nodename, amt)
    end
end

-- REGISTER STUFFERS ABOVE HERE

function stocking.get_stocking_formspec(pos)
    local spos = pos.x .. "," .. pos.y .. "," ..pos.z
    local formspec =
        "size[9,9]"..
        "background[-0.8,-0.4;10,10;xmasdecor_stocking_bg.png]"..
        "image_button_exit[7.75,1;1,1;xmasdecor_exit_button.png;exit;]"..
        "listcolors[#D4393C;#d45658]"..
        "list[nodemeta:".. spos .. ";main;-0.2,2;8,2;]"..
        "list[current_player;main;-0.2,5;8,4;]" ..
        "listring[current_player;main]"
    return formspec
end

stocking.can_dig_function = function(pos, player)
    local meta = minetest.get_meta(pos);
    local name = player and player:get_player_name()
    local owner = meta:get_string("owner")
    local inv = meta:get_inventory()
    return name == owner and inv:is_empty("main")
end

local days_elapsed_in_year = function(year, month, day)
    local days_elapsed_in_month = { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334}
    local days_elapsed_in_leapyear_month = { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335}

    local function is_leap_year(year)
        return year % 4 == 0 and (year % 100 ~= 0 or year % 400 == 0)
    end

    if is_leap_year(year) then
        return (days_elapsed_in_leapyear_month[month] + (day - 1))
    else
        return (days_elapsed_in_month[month] + (day - 1))
    end
end

local date_in_seconds = function()
    local year = tonumber(os.date("%Y"))
    local month = tonumber(os.date("%m"))
    local day = tonumber(os.date("%d"))
    local second =  tonumber(os.date("%S"))
    local minute = tonumber(os.date("%M"))
    local hour = tonumber(os.date("%H"))
    return ((days_elapsed_in_year(year, month, day) * 86400) + (hour * 3600) + (minute * 60) + second)
end

local christmas_date = 30931200 --Christmas date in seconds

check_fillable = function(pos)
    local year = tonumber(os.date("%Y"))
    local meta = minetest.get_meta(pos)
    if year == meta:get_int("fill_year") then
        if date_in_seconds() > christmas_date then
            return true
        elseif date_in_seconds() <= christmas_date then
            return false
        end
    elseif year > meta:get_int("fill_year") then
        return true
    end
end,

xmasdecor.register_node ("xmasdecor:stocking", {
    description = "Stocking",
    drawtype = "mesh",
    mesh = "xmasdecor_stocking.obj",
    tiles = {"xmasdecor_velvet_fluff.png"},
    use_texture_alpha = true,
    inventory_image = "xmasdecor_inv_stocking.png",
    wield_image = "xmasdecor_inv_stocking.png",
    walkable = false,
    selection_box = {
        type = "fixed",
        fixed = {-0.4, -0.5, 0.5, 0.4, 0.5, 0.2},
    },
    collision_box = {
        type = "fixed",
        fixed = {-0.4, -0.5, 0.5, 0.4, 0.5, 0.2},
    },
    paramtype = "light",
    sunlight_propagates = true,
    paramtype2 = "facedir",
    groups = {snappy = 3},
    sounds = default.node_sound_leaves_defaults(),
    allow_metadata_inventory_put = function(pos, listname, index, stack, player)
        if player then
            minetest.chat_send_player(player:get_player_name(), "Wait until Christmas Eve for Santa to fill your stocking!")
            return 0
        end
    end,
    on_place = function(itemstack, placer, pointed_thing)
        if minetest.is_yes(placer:get_attribute("has_placed_stocking")) then
            minetest.chat_send_player(placer:get_player_name(), "Santa won't fill more than one stocking!")
            return itemstack
        else
            return minetest.item_place(itemstack, placer, pointed_thing)
        end
    end,
    after_place_node = function(pos, placer, itemstack, pointed_thing)
        local meta = minetest.get_meta(pos)
        local owner = placer:get_player_name()
        meta:set_string("owner", owner)
        meta:set_string("infotext", owner.."'s Stocking")
        local inv = meta:get_inventory()
        inv:set_size("main", 8*2)
        placer:set_attribute("has_placed_stocking", "true")
        local year = tonumber(os.date("%Y"))
        if date_in_seconds() >= christmas_date then
            meta:set_int("fill_year", year + 1)
        elseif date_in_seconds() < christmas_date then
            meta:set_int("fill_year", year)
        end
    end,
    on_rightclick = function(pos, node, clicker, itemstack)
        local meta = minetest.get_meta(pos)
        local inv = meta:get_inventory()
        local player = clicker:get_player_name()
        local stuffers = stuffer.select_stuffers()
        local year = tonumber(os.date("%Y"))
        local owner  = meta:get_string("owner")
        if owner == player then
            if check_fillable(pos) == true or clicker:get_attribute("needs_fill") == "true" then
                for i=1, #stuffers do
                    inv:set_stack("main", i, stuffers[i])
                end
                if date_in_seconds() >= christmas_date then
                    meta:set_int("fill_year", year + 1)
                elseif date_in_seconds() < christmas_date then
                    meta:set_int("fill_year", year)
                end
                clicker:set_attribute("needs_fill", "false")
            end
            if owner == player then
                minetest.show_formspec(
                    clicker:get_player_name(),
                    "default:chest_locked",
                    stocking.get_stocking_formspec(pos))
            else
                return itemstack
            end
            return itemstack
        end
    end,
    can_dig = stocking.can_dig_function,
    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 stocking at " .. minetest.pos_to_string(pos))
    end,
    on_metadata_inventory_put = function(pos, listname, index, stack, player)
        minetest.log("action", player:get_player_name() ..
            " moves stuff to stocking at " .. minetest.pos_to_string(pos))
    end,
    on_metadata_inventory_take = function(pos, listname, index, stack, player)
        minetest.log("action", player:get_player_name() ..
            " takes stuff from stocking at " .. minetest.pos_to_string(pos))
    end,
    on_dig = function(pos, node, digger)
        local meta = minetest.get_meta(pos)
        local inv = digger:get_inventory()
        if stocking.can_dig_function(pos, digger) then
            if minetest.is_yes(check_fillable(pos)) then
                digger:set_attribute("needs_fill", "true")
            end
            digger:set_attribute("has_placed_stocking", "false")
            minetest.remove_node(pos)
            inv:add_item("main", "xmasdecor:stocking")
        end
    end
})

-- Crafts
minetest.register_craft({
    output = "xmasdecor:stocking",
    recipe = {
        {"", "wool:white", "wool:white"},
        {"", "wool:red", "wool:red"},
        {"wool:red", "wool:red", "wool:red"},
    }
})

minetest.register_craft({
    output = "xmasdecor:stocking",
    recipe = {
        {"wool:white", "wool:white", ""},
        {"wool:red", "wool:red", ""},
        {"wool:red", "wool:red", "wool:red"},
    }
})