everness/sneak_pickup.lua

--[[
    Everness. Never ending discovery in Everness mapgen.
    Copyright (C) 2024 SaKeL

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

--]]

local DELAY = 0
local TIMER = 0

local function pick_dropped_items(player)
    local pos = player:get_pos()
    local inv = player:get_inventory()

    if not inv then
        return
    end

    local objects = minetest.get_objects_inside_radius(pos, 3)
    local objects_to_collect = {}

    -- filter - leave only builtin items
    for _, object in ipairs(objects) do
        local luaentity = object:get_luaentity()

        if not object:is_player()
            and luaentity
            and luaentity.name == '__builtin:item'
            and luaentity.itemstring ~= ''
        then
            table.insert(objects_to_collect, object)
        end
    end

    -- sort with the oldest objects first
    table.sort(objects_to_collect, function(a, b)
        return b:get_luaentity().age < a:get_luaentity().age
    end)

    for _, object in ipairs(objects_to_collect) do
        local luaentity = object:get_luaentity()
        local itemstack = ItemStack(luaentity.itemstring)

        if not luaentity._being_collected then
            -- Invoke global on_item_pickup callbacks.
            -- for _, callback in ipairs(minetest.registered_on_item_pickups) do
            --     local result = callback(itemstack, player, { type = 'object', ref = object })

            --     if result then
            --         itemstack = ItemStack(result)
            --     end
            -- end

            local leftover_stack = inv:add_item('main', itemstack)
            local stack_count_prev = itemstack:get_count()
            local stack_count_leftover = leftover_stack:get_count()

            if leftover_stack and stack_count_prev ~= stack_count_leftover then
                -- Collect item / Item fits in the inventory
                local pos_obj = object:get_pos()

                if leftover_stack ~= 0 then
                    minetest.spawn_item(pos_obj, leftover_stack:to_string())
                end

                luaentity._being_collected = true
                object:set_acceleration({ x = 0, y = 0, z = 0 })
                object:set_velocity({ x = 0, y = 0, z = 0 })
                luaentity.physical_state = false
                luaentity.object:set_properties({
                    physical = false,
                    -- prevent picking up items while they are moving to the player
                    -- since the items are in the players inventory already this would
                    -- duplicate the itemstack
                    selectionbox = { 0, 0, 0, 0, 0, 0 },
                    collisionbox = { 0, 0, 0, 0, 0, 0 }
                })

                object:move_to(vector.new(
                    (pos.x - pos_obj.x) + pos_obj.x,
                    (pos.y - pos_obj.y) + pos_obj.y + 1.25,
                    (pos.z - pos_obj.z) + pos_obj.z
                ))

                minetest.sound_play('everness_item_drop_pickup', {
                    pos = pos,
                    max_hear_distance = 16,
                    gain = 0.4,
                })

                minetest.after(0.25, function(v_object)
                    if v_object and v_object:get_luaentity() then
                        v_object:remove()
                    end
                end, object)
            end
        end
    end
end

minetest.register_on_joinplayer(function(player)
    local player_meta = player:get_meta()
    player_meta:set_int('everness_is_sneaking', 0)
end)

minetest.register_globalstep(function(dtime)
    TIMER = TIMER + dtime

    if DELAY > 0 then
        DELAY = DELAY - dtime
    elseif DELAY < 0 then
        DELAY = 0
    end

    if TIMER > 0.5 then
        for _, player in ipairs(minetest.get_connected_players()) do
            local player_meta = player:get_meta()
            local control = player:get_player_control()
            local player_hp = player:get_hp()
            local is_sneaking = player_meta:get_int('everness_is_sneaking') > 0

            if control.sneak and (player_hp > 0 or not minetest.settings:get_bool('enable_damage')) then
                -- [Shift + E + Q] single drop item
                -- Autopickup after DELAY
                if control.aux1 then
                    DELAY = 1.5
                end

                if DELAY == 0 then
                    pick_dropped_items(player)
                end
            end

            -- Hide nametag when sneaking
            if control.sneak ~= is_sneaking then
                if control.sneak and player_hp > 0 then
                    local nametag_tbl = player:get_nametag_attributes()
                    nametag_tbl.color.a = 0
                    player:set_nametag_attributes(nametag_tbl)
                    player:set_properties{makes_footstep_sound = false}
                else
                    local nametag_tbl = player:get_nametag_attributes()
                    nametag_tbl.color.a = 255
                    player:set_nametag_attributes(nametag_tbl)
                    player:set_properties{makes_footstep_sound = true}
                end

                player_meta:set_int('everness_is_sneaking', control.sneak and 1 or 0)
            end
        end

        TIMER = 0
    end
end)