recovery_coffre-cd2025/init.lua

local S = minetest.get_translator("chest_recovery") -- Récupérer le traducteur pour ce mod
local setting_give_recovery_compass = minetest.settings:get_bool("chest_recovery_give_recovery_compass", true) 

chest_positions = {}



--fonction pour drop et supprimer un coffre de récupération
local function drop_and_remove_chest(pos)
    -- Récupérer les objets du coffre
    local inv = minetest.get_meta(pos):get_inventory()
    for i = 1, inv:get_size("main") do
        local stack = inv:get_stack("main", i)
        minetest.add_item(pos, stack)
    end
    for i = 1, inv:get_size("armor") do
        local stack = inv:get_stack("armor", i)
        minetest.add_item(pos, stack)
    end
    for i = 1, inv:get_size("offhand") do
        local stack = inv:get_stack("offhand", i)
        minetest.add_item(pos, stack)
    end
    -- Supprimer le coffre
    minetest.remove_node(pos)
end





local function get_inventory_formspec(pos, player_name, owner)
    chest_positions[player_name] = minetest.pos_to_string(pos)
    return "size[9,12]"..



    -- Ligne 1
        mcl_formspec.get_itemslot_bg_v4(0, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(1, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(2, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(3, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(4, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(5, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(6, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(7, 1, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(8, 1, 1, 1) ..

    -- Ligne 2
        mcl_formspec.get_itemslot_bg_v4(0, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(1, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(2, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(3, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(4, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(5, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(6, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(7, 2, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(8, 2, 1, 1) ..

    -- Ligne 3
        mcl_formspec.get_itemslot_bg_v4(0, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(1, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(2, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(3, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(4, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(5, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(6, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(7, 3, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(8, 3, 1, 1) ..

        -- Ligne 3
        mcl_formspec.get_itemslot_bg_v4(0, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(1, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(2, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(3, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(4, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(5, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(6, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(7, 4, 1, 1) ..
        mcl_formspec.get_itemslot_bg_v4(8, 4, 1, 1) ..

    -- Ligne 4
    mcl_formspec.get_itemslot_bg_v4(1, 5, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(2, 5, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(3, 5, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(4, 5, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(6, 5, 1, 1) ..

    -- Ligne 6

    -- Ligne 7
    mcl_formspec.get_itemslot_bg_v4(1, 7, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(2, 7, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(3, 7, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(4, 7, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(6, 7, 1, 1) ..

    -- Ligne 8



    -- Ligne 9
    mcl_formspec.get_itemslot_bg_v4(0, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(1, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(2, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(3, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(4, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(5, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(6, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(7, 8, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(8, 8, 1, 1) ..

    -- Ligne 10
    mcl_formspec.get_itemslot_bg_v4(0, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(1, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(2, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(3, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(4, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(5, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(6, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(7, 9, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(8, 9, 1, 1) ..

    -- Ligne 11
    mcl_formspec.get_itemslot_bg_v4(0, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(1, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(2, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(3, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(4, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(5, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(6, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(7, 10, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(8, 10, 1, 1) ..
    

    mcl_formspec.get_itemslot_bg_v4(0, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(1, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(2, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(3, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(4, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(5, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(6, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(7, 11, 1, 1) ..
    mcl_formspec.get_itemslot_bg_v4(8, 11, 1, 1) ..


    --"field[100,0;1,1;chest_pos;;" .. minetest.pos_to_string(pos) .. "]"..



    "label[0,0;" .. S("Recovery Chest of ") .. owner .. "]"..

        "list[nodemeta:" .. pos.x .. "," .. pos.y .. "," .. pos.z .. ";main;0,1;9,4;]"..
        "list[nodemeta:" .. pos.x .. "," .. pos.y .. "," .. pos.z .. ";armor;0,5;5,1;]"..
        "list[nodemeta:" .. pos.x .. "," .. pos.y .. "," .. pos.z .. ";offhand;6,5;1,1;]" ..
        
        "list[current_player;armor;0,7;9,1;]"..
        "list[current_player;main;0,8;9,4;]"..
        "listring[]"..
        "button[5,6;3,1;transfer;" .. S("Transfer All") .. "]"
end

local function show_error_formspec(player_name, message)
    local formspec = "size[8,3]"..
                    "label[1,1.25;"..minetest.formspec_escape(message).."]"..
                    "button_exit[3,2;2,1;close;"..S("OK").."]"
    minetest.show_formspec(player_name, "chest_recovery:error", formspec)
end

minetest.register_node("chest_recovery:chest", {
    drop = "",
    description = S("Recovery Chest") .. "\n" .. S("32 slots"),
    tiles = {"chest_chest.png^[sheet:2x2:0,0", "chest_chest.png^[sheet:2x2:0,0",
    "chest_chest.png^[sheet:2x2:1,0", "chest_chest.png^[sheet:2x2:1,0",
    "chest_chest.png^[sheet:2x2:1,0", "chest_chest.png^[sheet:2x2:0,1"},
    paramtype2 = "facedir",
    groups = {creative_breakable=1, building_block=1, material_stone=1},
        _mcl_blast_resistance = 3600000,
        _mcl_hardness = -1,
        is_ground_content = false,
    legacy_facedir_simple = true,
    -- sounds = default.node_sound_wood_defaults(), -- Cette ligne est commentée
    on_construct = function(pos)
        local meta = minetest.get_meta(pos)
        meta:set_string("owner", "")
        meta:set_string("infotext", S("Recovery Chest"))
        local inv = meta:get_inventory()
        inv:set_size("main", 9*4)
        inv:set_size("armor", 5)
        inv:set_size("offhand", 1)
    end,
    can_dig = function(pos, player)
        local meta = minetest.get_meta(pos)
        local inv = meta:get_inventory()
        return inv:is_empty("main") and inv:is_empty("armor") and inv:is_empty("offhand")
    end,
    on_rightclick = function(pos, node, player, itemstack, pointed_thing)
        local meta = minetest.get_meta(pos)
        local owner = meta:get_string("owner")
        local player_name = player:get_player_name()

        if owner == "" then
            meta:set_string("owner", player_name) -- si le coffre n'a pas de propriétaire, le joueur qui l'ouvre devient le propriétaire
            owner = player_name
        end


        --variable pour verifier si on ouvre le coffre
        local open = false --false = on ouvre pas le coffre



        --verifie si le propriétaire du coffre est le joueur
        if player_name == owner then
            open = true
        else
            local meta = minetest.get_meta(pos)
            --verifie si le coffre a une date dans les metadonnées pour verifier si celle-ci date de 3 jours
            if meta:get_string("date") ~= "" then -- Si la date est définie
                --verifie si le coffre date de plus de 3 jours
                --recupere la date dans les metadonnées du coffre
                local date = meta:get_string("date")
                --recupere la date actuelle
                local current_date = os.date("%Y-%m-%d %H:%M:%S")

                -- Définition des dates
                local date1_str = date
                local date2_str = current_date

                -- Convertir les dates en timestamps (secondes depuis l'époque Unix)
                local date1 = os.time(os.date("*t", os.time({year=tonumber(date1_str:sub(1,4)), month=tonumber(date1_str:sub(6,7)), day=tonumber(date1_str:sub(9,10)), hour=tonumber(date1_str:sub(12,13)), min=tonumber(date1_str:sub(15,16)), sec=tonumber(date1_str:sub(18,19))})))
                local date2 = os.time(os.date("*t", os.time({year=tonumber(date2_str:sub(1,4)), month=tonumber(date2_str:sub(6,7)), day=tonumber(date2_str:sub(9,10)), hour=tonumber(date2_str:sub(12,13)), min=tonumber(date2_str:sub(15,16)), sec=tonumber(date2_str:sub(18,19))})))

                -- Calculer la différence en secondes entre les deux dates
                local difference_seconds = os.difftime(date2, date1)

                -- Convertir la différence en jours
                local difference_days = difference_seconds / (60 * 60 * 24)


                --si le coffre date de plus de 6 jours alors on le supprime 
                if difference_days > 6 then
                    -- Supprimer le coffre
                    drop_and_remove_chest(pos)
                    --envoie un message au joueur pour lui dire que le coffre a été supprimé car il était trop vieux
                    minetest.chat_send_player(player_name, S("The recovery chest has been removed because it was too old."))
                    return
                elseif difference_days > 3 then
                    owner = owner .. " (old)"
                    open = true
                end

            else
                --si le coffre n'a pas de date alors on met la date actuelle
                meta:set_string("date", os.date("%Y-%m-%d %H:%M:%S"))
            end
        end


        if open == false then
            --verifie si le joueur a la permission de bypasser la protection du coffre
            if minetest.check_player_privs(player_name, {chest_recovery_bypass=true}) then
                --envoie les informations du coffre au joueur
                local date = meta:get_string("date")
                minetest.chat_send_player(player_name, S("You are bypassing the recovery chest protection. The chest was created on ") .. date)
                owner = owner .. " (bypass)"
                local formspec = get_inventory_formspec(pos, player_name, owner) -- Obtenir le formulaire de l'inventaire
                minetest.show_formspec(player_name, "chest_recovery:chest", formspec) -- Afficher le formulaire
            else
                --recupere la date dans les metadonnées du coffre
                local date = meta:get_string("date")
                show_error_formspec(player_name, S("You are not the owner of this chest."))
                minetest.chat_send_player(player_name, S("This chest belongs to ") .. owner .. S(" and was created on ") .. date)
                return
            end
        else
            local formspec = get_inventory_formspec(pos, player_name, owner) -- Obtenir le formulaire de l'inventaire
            minetest.show_formspec(player_name, "chest_recovery:chest", formspec) -- Afficher le formulaire
        end
    end
})








minetest.register_on_player_receive_fields(function(player, formname, fields)
    -- Debug: envoyer dans le chat tous les champs reçus
    --minetest.chat_send_all(player:get_player_name() .. " " .. formname .. " " .. dump(fields))

    if formname == "chest_recovery:chest" then
        -- Récupérer la position du coffre à partir du champ caché
        --local pos_str = fields.chest_pos
        --recupere la position du joueur
        local pos_str = chest_positions[player:get_player_name()]
        if pos_str then
            local pos = minetest.string_to_pos(pos_str)
            if pos then
                local meta = minetest.get_meta(pos)
                local inv = meta:get_inventory()
                local player_inv = player:get_inventory()

                -- Traitement du bouton de transfert
                if fields.transfer then
                    -- Supprimer les éléments de récupération du joueur
                    for i = 1, player_inv:get_size("main") do
                        local stack = player_inv:get_stack("main", i)
                        if stack:get_name():find("mcl_compass:.*_recovery") then
                            player_inv:remove_item("main", stack)
                        end
                    end

                    -- Transférer les éléments d'armure du coffre au joueur
                    for i = 1, inv:get_size("armor") do
                        local stack = inv:get_stack("armor", i)
                        if i > 1 or not stack:is_empty() then
                            local player_armor_stack = player_inv:get_stack("armor", i)
                            if player_armor_stack:is_empty() then
                                player_inv:set_stack("armor", i, stack)
                                inv:set_stack("armor", i, ItemStack(nil))
                            end
                        end
                    end

                    -- Mettre à jour les informations du joueur avec le mod mcl_armor
                    if minetest.get_modpath("mcl_armor") then
                        local player_name = player:get_player_name()
                        local player = minetest.get_player_by_name(player_name)
                        mcl_armor.update(player)
                    end

                    -- Transférer l'élément de l'offhand
                    local offhand_stack = inv:get_stack("offhand", 1)
                    local leftover_offhand = player_inv:add_item("offhand", offhand_stack)
                    inv:set_stack("offhand", 1, leftover_offhand)

                    -- Transférer les éléments principaux du coffre
                    for i = 1, inv:get_size("main") do
                        local stack = inv:get_stack("main", i)
                        local leftover = player_inv:add_item("main", stack)
                        inv:set_stack("main", i, leftover)
                    end

                    -- Supprimer le coffre si tous les éléments sont transférés
                    if inv:is_empty("main") and inv:is_empty("armor") and inv:is_empty("offhand") then -- Si l'inventaire du coffre est vide
                        --ferme le formulaire du joueur
                        minetest.close_formspec(player:get_player_name(), "chest_recovery:chest")
                        minetest.remove_node(pos)
                    end
                end
            else
                --minetest.chat_send_player(player:get_player_name(), "Invalid chest position.")
            end
        else
            --minetest.chat_send_player(player:get_player_name(), "No chest position provided.")
        end
    end
end)
















--cree une permission pour bypasser la protection du coffre
minetest.register_privilege("chest_recovery_bypass", {
    description = S("Allow to bypass the recovery chest protection"),
    give_to_singleplayer = false,
    on_grant = function(name)
        minetest.chat_send_all(name .. S(" has been granted the chest_recovery_bypass privilege."))
    end,
    on_revoke = function(name)
        minetest.chat_send_all(name .. S(" has had the chest_recovery_bypass privilege revoked."))
    end
})














-- Fonction appelée lorsqu'un joueur meurt
minetest.register_on_dieplayer(function(player)
    -- Récupérer l'inventaire du joueur et la position
    local player_inv = player:get_inventory()
    local pos = player:get_pos()
    
    -- Réglage des coordonnées en entiers
    pos.x = math.floor(pos.x)
    pos.y = math.floor(pos.y)
    pos.z = math.floor(pos.z)

    -- Afficher les coordonnées du joueur après la mort
    minetest.chat_send_player(player:get_player_name(), S("You are dead, at the coordinates: ") .. minetest.pos_to_string(pos))

    -- Déclare les variables pour les positions des mondes
    local worldoverworld = 0
    local worldend = -27003
    local worldnether = -29038
    local worldoverworldhaut = 20000
    local worldendhaut = -2130
    local worldnetherhaut = -27140
    local worldoverworldbas = -193
    local worldendbas = -28745
    local worldnetherbas = -29135

    -- Calcul des positions intermédiaires
    local worldnetherendmiddle = (worldnetherhaut + worldendbas) / 2
    local worldendoverworldmiddle = (worldendhaut + worldoverworldbas) / 2

    -- Logique pour définir la position en fonction de pos.y
    if pos.y < worldnetherbas then
        pos.y = worldnether
    elseif pos.y > worldnetherhaut and pos.y < worldendbas then
        if pos.y < worldnetherendmiddle then
            pos.y = worldnether
        else
            pos.y = worldend
        end
    elseif pos.y > worldendhaut and pos.y < worldoverworldbas then
        if pos.y < worldendoverworldmiddle then
            pos.y = worldend
        else
            pos.y = worldoverworld
        end
    elseif pos.y > worldoverworldhaut then
        pos.y = worldoverworld
    end

    --verifie si le pos est entre worldendbas et worldend alors on le met a worldend
    if pos.y > worldendbas and pos.y < worldend then
        pos.y = worldend
    end

    -- Récupérer le nœud à la position du joueur décédé
    local node = minetest.get_node(pos)

    -- Vérifier si le nœud n'est pas de l'air
    if node.name ~= "air" then
        -- Vérifie si la position est dans le Nether
        if pos.y >= worldnetherbas and pos.y <= worldnetherhaut then
            local testnether = 0
            while node.name ~= "air" do
                pos.y = pos.y + 1
                node = minetest.get_node(pos)
                if node.name == "mcl_core:bedrock" then
                    pos.y = worldnether
                    if testnether == 1 then
                        -- Réinitialiser la position à (0, 0, 0) si déjà modifié
                        pos.x = 0
                        pos.y = 0
                        pos.z = 0
                    end
                    testnether = 1
                end
            end
        else
            -- Si la position n'est pas dans le Nether, chercher l'air
            while node.name ~= "air" do
                pos.y = pos.y + 1
                node = minetest.get_node(pos)
            end
        end
    end

    -- Placer un coffre de récupération à la position du joueur décédé
    minetest.set_node(pos, {name = "chest_recovery:chest"})
    minetest.chat_send_player(player:get_player_name(), S("Your recovery chest is in position: ") .. minetest.pos_to_string(pos))

    -- Obtenir les métadonnées et l'inventaire du coffre de récupération
    local chest_meta = minetest.get_meta(pos)
    local chest_inv = chest_meta:get_inventory()

    local is_empty = true

    -- Mettre en métadonnée le nom du joueur et la date de la mort
    chest_meta:set_string("owner", player:get_player_name())
    chest_meta:set_string("date", os.date("%Y-%m-%d %H:%M:%S"))

    -- Transférer les objets de l'inventaire du joueur au coffre de récupération
    for _, listname in ipairs({"main", "armor", "offhand", "craft"}) do
        for i = 1, player_inv:get_size(listname) do
            local stack = player_inv:get_stack(listname, i)
            chest_inv:set_stack(listname, i, stack)
            player_inv:set_stack(listname, i, ItemStack(nil))
            if not stack:is_empty() then
                is_empty = false
            end
        end
    end

    -- Si l'inventaire du joueur était vide, supprimer le coffre
    if is_empty then
        minetest.remove_node(pos)
    end
end)




    if setting_give_recovery_compass == true then
        -- Define compass_frames as a global variable
        compass_frames = 32

        minetest.register_on_respawnplayer(function(player)
            -- Generate a new random frame for the recovery compass
            local random_frame = math.random(0, compass_frames - 1)

            -- Create the recovery compass item
            local recovery_compass = ItemStack("mcl_compass:" .. random_frame .. "_recovery")
            local player_inv_2 = player:get_inventory()

            if player_inv_2 then
                player_inv_2:add_item("main", recovery_compass)
            end

        end)
    end


-- Commande pour ouvrir un coffre à distance
minetest.register_chatcommand("open_chest", {
    description = "Ouvre un coffre à distance",
    params = "<pos>",
    privs = {chest_recovery_bypass=true},
    func = function(player_name, param)
        local pos = minetest.string_to_pos(param)
        if not pos then
            return false, "Position invalide. Utilisez le format (x,y,z)."
        end

        local player = minetest.get_player_by_name(player_name)
        if not player then
            return false, "Joueur introuvable."
        end

        local node = minetest.get_node(pos)
        if node.name ~= "chest_recovery:chest" then
            return false, "Aucun coffre trouvé à cette position."
        end

        local meta = minetest.get_meta(pos)
        local owner = meta:get_string("owner")

        -- Afficher le formspec du coffre
        local formspec = get_inventory_formspec(pos, player_name, owner)
        minetest.show_formspec(player_name, "chest_recovery:chest", formspec)

        return true, "Coffre ouvert à distance."
    end,
})