write something there

mods/everness/sneak_pickup.lua

@@ -0,0 +1,163 @@
+--[[
+    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)