123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295 |
- -- bones/init.lua
- -- Minetest 0.4 mod: bones
- -- See README.txt for licensing and other information.
- -- Load support for MT game translation.
- local S = minetest.get_translator("bones")
- bones = {}
- local function is_owner(pos, name)
- local owner = minetest.get_meta(pos):get_string("owner")
- if owner == "" or owner == name or minetest.check_player_privs(name, "protection_bypass") then
- return true
- end
- return false
- end
- local bones_formspec =
- "size[8,9]" ..
- "list[current_name;main;0,0.3;8,4;]" ..
- "list[current_player;main;0,4.85;8,1;]" ..
- "list[current_player;main;0,6.08;8,3;8]" ..
- "listring[current_name;main]" ..
- "listring[current_player;main]" ..
- default.get_hotbar_bg(0,4.85)
- local share_bones_time = tonumber(minetest.settings:get("share_bones_time")) or 1200
- local share_bones_time_early = tonumber(minetest.settings:get("share_bones_time_early")) or share_bones_time / 4
- local bones_def = {
- description = S("Bones"),
- tiles = {
- "bones_top.png^[transform2",
- "bones_bottom.png",
- "bones_side.png",
- "bones_side.png",
- "bones_rear.png",
- "bones_front.png"
- },
- paramtype2 = "facedir",
- groups = {dig_immediate = 2},
- sounds = default.node_sound_gravel_defaults(),
- can_dig = function(pos, player)
- local inv = minetest.get_meta(pos):get_inventory()
- local name = ""
- if player then
- name = player:get_player_name()
- end
- return is_owner(pos, name) and inv:is_empty("main")
- end,
- allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
- if is_owner(pos, player:get_player_name()) then
- return count
- end
- return 0
- end,
- allow_metadata_inventory_put = function(pos, listname, index, stack, player)
- return 0
- end,
- allow_metadata_inventory_take = function(pos, listname, index, stack, player)
- if is_owner(pos, player:get_player_name()) then
- return stack:get_count()
- end
- return 0
- end,
- on_metadata_inventory_take = function(pos, listname, index, stack, player)
- local meta = minetest.get_meta(pos)
- if meta:get_inventory():is_empty("main") then
- local inv = player:get_inventory()
- if inv:room_for_item("main", {name = "bones:bones"}) then
- inv:add_item("main", {name = "bones:bones"})
- else
- minetest.add_item(pos, "bones:bones")
- end
- minetest.remove_node(pos)
- end
- end,
- on_punch = function(pos, node, player)
- if not is_owner(pos, player:get_player_name()) then
- return
- end
- if minetest.get_meta(pos):get_string("infotext") == "" then
- return
- end
- local inv = minetest.get_meta(pos):get_inventory()
- local player_inv = player:get_inventory()
- local has_space = true
- for i = 1, inv:get_size("main") do
- local stk = inv:get_stack("main", i)
- if player_inv:room_for_item("main", stk) then
- inv:set_stack("main", i, nil)
- player_inv:add_item("main", stk)
- else
- has_space = false
- break
- end
- end
- -- remove bones if player emptied them
- if has_space then
- if player_inv:room_for_item("main", {name = "bones:bones"}) then
- player_inv:add_item("main", {name = "bones:bones"})
- else
- minetest.add_item(pos,"bones:bones")
- end
- minetest.remove_node(pos)
- end
- end,
- on_timer = function(pos, elapsed)
- local meta = minetest.get_meta(pos)
- local time = meta:get_int("time") + elapsed
- if time >= share_bones_time then
- meta:set_string("infotext", S("@1's old bones", meta:get_string("owner")))
- meta:set_string("owner", "")
- else
- meta:set_int("time", time)
- return true
- end
- end,
- on_blast = function(pos)
- end,
- }
- default.set_inventory_action_loggers(bones_def, "bones")
- minetest.register_node("bones:bones", bones_def)
- local function may_replace(pos, player)
- local node_name = minetest.get_node(pos).name
- local node_definition = minetest.registered_nodes[node_name]
- -- if the node is unknown, we return false
- if not node_definition then
- return false
- end
- -- allow replacing air
- if node_name == "air" then
- return true
- end
- -- don't replace nodes inside protections
- if minetest.is_protected(pos, player:get_player_name()) then
- return false
- end
- -- allow replacing liquids
- if node_definition.liquidtype ~= "none" then
- return true
- end
- -- don't replace filled chests and other nodes that don't allow it
- local can_dig_func = node_definition.can_dig
- if can_dig_func and not can_dig_func(pos, player) then
- return false
- end
- -- default to each nodes buildable_to; if a placed block would replace it, why shouldn't bones?
- -- flowers being squished by bones are more realistical than a squished stone, too
- return node_definition.buildable_to
- end
- local drop = function(pos, itemstack)
- local obj = minetest.add_item(pos, itemstack:take_item(itemstack:get_count()))
- if obj then
- obj:set_velocity({
- x = math.random(-10, 10) / 9,
- y = 5,
- z = math.random(-10, 10) / 9,
- })
- end
- end
- local player_inventory_lists = { "main", "craft" }
- bones.player_inventory_lists = player_inventory_lists
- local function is_all_empty(player_inv)
- for _, list_name in ipairs(player_inventory_lists) do
- if not player_inv:is_empty(list_name) then
- return false
- end
- end
- return true
- end
- minetest.register_on_dieplayer(function(player)
- local bones_mode = minetest.settings:get("bones_mode") or "bones"
- if bones_mode ~= "bones" and bones_mode ~= "drop" and bones_mode ~= "keep" then
- bones_mode = "bones"
- end
- local bones_position_message = minetest.settings:get_bool("bones_position_message") == true
- local player_name = player:get_player_name()
- local pos = vector.round(player:get_pos())
- local pos_string = minetest.pos_to_string(pos)
- -- return if keep inventory set or in creative mode
- if bones_mode == "keep" or minetest.is_creative_enabled(player_name) then
- minetest.log("action", player_name .. " dies at " .. pos_string ..
- ". No bones placed")
- if bones_position_message then
- minetest.chat_send_player(player_name, S("@1 died at @2.", player_name, pos_string))
- end
- return
- end
- local player_inv = player:get_inventory()
- if is_all_empty(player_inv) then
- minetest.log("action", player_name .. " dies at " .. pos_string ..
- ". No bones placed")
- if bones_position_message then
- minetest.chat_send_player(player_name, S("@1 died at @2.", player_name, pos_string))
- end
- return
- end
- -- check if it's possible to place bones, if not find space near player
- if bones_mode == "bones" and not may_replace(pos, player) then
- local air = minetest.find_node_near(pos, 1, {"air"})
- if air then
- pos = air
- else
- bones_mode = "drop"
- end
- end
- if bones_mode == "drop" then
- for _, list_name in ipairs(player_inventory_lists) do
- for i = 1, player_inv:get_size(list_name) do
- drop(pos, player_inv:get_stack(list_name, i))
- end
- player_inv:set_list(list_name, {})
- end
- drop(pos, ItemStack("bones:bones"))
- minetest.log("action", player_name .. " dies at " .. pos_string ..
- ". Inventory dropped")
- if bones_position_message then
- minetest.chat_send_player(player_name, S("@1 died at @2, and dropped their inventory.", player_name, pos_string))
- end
- return
- end
- local param2 = minetest.dir_to_facedir(player:get_look_dir())
- minetest.set_node(pos, {name = "bones:bones", param2 = param2})
- minetest.log("action", player_name .. " dies at " .. pos_string ..
- ". Bones placed")
- if bones_position_message then
- minetest.chat_send_player(player_name, S("@1 died at @2, and bones were placed.", player_name, pos_string))
- end
- local meta = minetest.get_meta(pos)
- local inv = meta:get_inventory()
- inv:set_size("main", 8 * 4)
- for _, list_name in ipairs(player_inventory_lists) do
- for i = 1, player_inv:get_size(list_name) do
- local stack = player_inv:get_stack(list_name, i)
- if inv:room_for_item("main", stack) then
- inv:add_item("main", stack)
- else -- no space left
- drop(pos, stack)
- end
- end
- player_inv:set_list(list_name, {})
- end
- meta:set_string("formspec", bones_formspec)
- meta:set_string("owner", player_name)
- if share_bones_time ~= 0 then
- meta:set_string("infotext", S("@1's fresh bones", player_name))
- if share_bones_time_early == 0 or not minetest.is_protected(pos, player_name) then
- meta:set_int("time", 0)
- else
- meta:set_int("time", (share_bones_time - share_bones_time_early))
- end
- minetest.get_node_timer(pos):start(10)
- else
- meta:set_string("infotext", S("@1's bones", player_name))
- end
- end)
|