drops/init.lua

210 lines
7.1 KiB
Lua

--GUI for collected items
item_collect_gui = {}
--Add GUI table on join player
minetest.register_on_joinplayer(function(player)
item_collect_gui[player:get_player_name()] = {}
item_collect_gui[player:get_player_name()]["counter"] = 1 --starts at one so positioning works correctly
item_collect_gui[player:get_player_name()]["items"] = {}
end)
local gui_collection = function(player,item)
--local variables
local name = player:get_player_name()
local count = ItemStack(item):get_count()
local itemname = ItemStack(item):get_name()
local description = minetest.registered_items[itemname].description
--check to see if there was already a hud with a count
local oldcount = 0
if item_collect_gui[name]["items"][itemname] ~= nil then
oldcount = item_collect_gui[name]["items"][itemname]["count"]
end
--update or add the hud
local id = {}
if item_collect_gui[name]["items"][itemname] ~= nil then
player:hud_change(item_collect_gui[name]["items"][itemname]["id"], "text", description.." "..(count + oldcount))
item_collect_gui[name]["items"][itemname]["age"] = 0
else
id = player:hud_add({
hud_elem_type = "text",
position = {x = 0.5, y =(item_collect_gui[player:get_player_name()]["counter"]*2)/100},
scale = {
x = -100,
y = -100
},
text = description.." "..(count + oldcount),
})
--add elements to hud table
if item_collect_gui[name]["items"][itemname] == nil then
item_collect_gui[name]["items"][itemname] = {}
item_collect_gui[player:get_player_name()]["counter"] = item_collect_gui[player:get_player_name()]["counter"] + 1
end
item_collect_gui[name]["items"][itemname]["id"] = id
item_collect_gui[name]["items"][itemname]["age"] = 0
item_collect_gui[name]["items"][itemname]["name"] = itemname
end
item_collect_gui[name]["items"][itemname]["count"] = count + oldcount
end
--Updating the age of each hud element along with deleting old huds and shifting up text on deletion
local update_collection_gui = function(player,dtime)
local name = player:get_player_name()
local max_age = 3
local update = false
--add gui time + remove expired gui
if item_collect_gui[name] ~= nil then
for index,value in pairs(item_collect_gui[name]["items"]) do
value["age"] = value["age"] + dtime
if value["age"] > max_age then
player:hud_remove(item_collect_gui[name]["items"][value["name"]]["id"])
item_collect_gui[name]["items"][value["name"]] = nil
update = true
end
end
end
--shift all table items up
--change background size
local count = 1
if update == true then
if item_collect_gui[name] ~= nil then
for index,value in pairs(item_collect_gui[name]["items"]) do
player:hud_change(item_collect_gui[name]["items"][value["name"]]["id"],"position",{x = 0.5, y =(count*2)/100})
count = count + 1
end
end
item_collect_gui[player:get_player_name()]["counter"] = count
end
end
--Item collection
minetest.register_globalstep(function(dtime)
--basic settings
local age = 1 --how old an item has to be before collecting
local radius_magnet = 2.5 --radius of item magnet
local radius_collect = 0.2 --radius of collection
local player_collect_height = 1.6 --added to their pos y value
local gui = true --Show what items are collected
for _,player in ipairs(minetest.get_connected_players()) do
if player:get_hp() > 0 then
local pos = player:getpos()
local inv = player:get_inventory()
if gui == true then
update_collection_gui(player,dtime)
end
--collection
for _,object in ipairs(minetest.env:get_objects_inside_radius({x=pos.x,y=pos.y + player_collect_height,z=pos.z}, radius_collect)) do
if not object:is_player() and object:get_luaentity() and object:get_luaentity().name == "__builtin:item" then
if object:get_luaentity().age > age then
if inv and inv:room_for_item("main", ItemStack(object:get_luaentity().itemstring)) then
if object:get_luaentity().itemstring ~= "" then
inv:add_item("main", ItemStack(object:get_luaentity().itemstring))
minetest.sound_play("item_drop_pickup", {
pos = pos,
max_hear_distance = 100,
gain = 10.0,
})
if gui == true then
gui_collection(player,object:get_luaentity().itemstring)
end
object:get_luaentity().itemstring = ""
object:remove()
end
end
end
end
end
--magnet
for _,object in ipairs(minetest.env:get_objects_inside_radius({x=pos.x,y=pos.y + player_collect_height,z=pos.z}, radius_magnet)) do
if not object:is_player() and object:get_luaentity() and object:get_luaentity().name == "__builtin:item" then
if object:get_luaentity().age > age then
if inv and inv:room_for_item("main", ItemStack(object:get_luaentity().itemstring)) then
local pos1 = pos
local pos2 = object:getpos()
local vec = {x=pos1.x-pos2.x, y=(pos1.y+player_collect_height)-pos2.y, z=pos1.z-pos2.z}
vec.x = pos2.x + (vec.x/2)
vec.y = pos2.y + (vec.y/2)
vec.z = pos2.z + (vec.z/2)
object:moveto(vec)
object:get_luaentity().physical_state = false
object:get_luaentity().object:set_properties({
physical = false
})
end
end
end
end
end
end
end)
--Drop items on dig
--This only works in survival
if minetest.setting_getbool("creative_mode") == false then
function minetest.handle_node_drops(pos, drops, digger)
local inv
if minetest.setting_getbool("creative_mode") and digger and digger:is_player() then
inv = digger:get_inventory()
end
for _,item in ipairs(drops) do
local count, name
if type(item) == "string" then
count = 1
name = item
else
count = item:get_count()
name = item:get_name()
end
if not inv or not inv:contains_item("main", ItemStack(name)) then
for i=1,count do
local obj = minetest.env:add_item(pos, name)
if obj ~= nil then
--obj:get_luaentity().timer =
obj:get_luaentity().collect = true
local x = math.random(1, 5)
if math.random(1,2) == 1 then
x = -x
end
local z = math.random(1, 5)
if math.random(1,2) == 1 then
z = -z
end
obj:setvelocity({x=1/x, y=obj:getvelocity().y, z=1/z})
obj:get_luaentity().age = 0.6
-- FIXME this doesnt work for deactiveted objects
if minetest.setting_get("remove_items") and tonumber(minetest.setting_get("remove_items")) then
minetest.after(tonumber(minetest.setting_get("remove_items")), function(obj)
obj:remove()
end, obj)
end
end
end
end
end
end
end
--throw items using player's velocity
function minetest.item_drop(itemstack, dropper, pos)
if dropper and dropper:is_player() then
local v = dropper:get_look_dir()
local vel = dropper:get_player_velocity()
local p = {x=pos.x, y=pos.y+1.3, z=pos.z}
local item = itemstack:to_string()
local obj = core.add_item(p, item)
if obj then
v.x = (v.x*5)+vel.x
v.y = ((v.y*5)+2)+vel.y
v.z = (v.z*5)+vel.z
obj:setvelocity(v)
--obj:get_luaentity().collect = true
itemstack:clear()
return itemstack
end
end
end
if minetest.setting_get("log_mods") then
minetest.log("action", "Item Drop loaded")
end