nalc_game/mods/bones/init.lua

171 lines
4.4 KiB
Lua
Raw Normal View History

2013-05-18 16:06:57 +02:00
-- Minetest 0.4 mod: bones
-- See README.txt for licensing and other information.
local function is_owner(pos, name)
2013-05-25 00:40:03 +02:00
local owner = minetest.get_meta(pos):get_string("owner")
2013-05-18 16:06:57 +02:00
if owner == "" or owner == name then
return true
end
return false
end
minetest.register_node("bones:bones", {
description = "Bones",
tiles = {
"bones_top.png",
"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_dirt_defaults({
2013-06-11 23:23:10 +02:00
footstep = {name="default_gravel_footstep", gain=0.5},
2013-06-13 16:30:33 +02:00
dug = {name="default_gravel_footstep", gain=1.0},
2013-05-18 16:06:57 +02:00
}),
can_dig = function(pos, player)
2013-05-25 00:40:03 +02:00
local inv = minetest.get_meta(pos):get_inventory()
2013-05-18 16:06:57 +02:00
return is_owner(pos, player:get_player_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)
2013-05-25 00:40:03 +02:00
local meta = minetest.get_meta(pos)
if meta:get_inventory():is_empty("main") then
minetest.remove_node(pos)
2013-05-18 16:06:57 +02:00
end
end,
on_punch = function(pos, node, player)
if(not is_owner(pos, player:get_player_name())) 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
minetest.remove_node(pos)
end
end,
2013-05-18 16:06:57 +02:00
on_timer = function(pos, elapsed)
2013-05-25 00:40:03 +02:00
local meta = minetest.get_meta(pos)
2013-05-18 16:06:57 +02:00
local time = meta:get_int("time")+elapsed
local publish = 1200
if tonumber(minetest.setting_get("share_bones_time")) then
publish = tonumber(minetest.setting_get("share_bones_time"))
end
if publish == 0 then
return
end
if time >= publish then
meta:set_string("infotext", meta:get_string("owner").."'s old bones")
meta:set_string("owner", "")
else
return true
end
end,
})
minetest.register_on_dieplayer(function(player)
if minetest.setting_getbool("creative_mode") then
return
end
local player_inv = player:get_inventory()
if player_inv:is_empty("main") and
player_inv:is_empty("craft") then
return
end
2013-05-18 16:06:57 +02:00
local pos = player:getpos()
pos.x = math.floor(pos.x+0.5)
pos.y = math.floor(pos.y+0.5)
pos.z = math.floor(pos.z+0.5)
local param2 = minetest.dir_to_facedir(player:get_look_dir())
local player_name = player:get_player_name()
local player_inv = player:get_inventory()
2013-05-25 00:40:03 +02:00
local nn = minetest.get_node(pos).name
2013-05-18 16:06:57 +02:00
if minetest.registered_nodes[nn].can_dig and
not minetest.registered_nodes[nn].can_dig(pos, player) then
-- drop items instead of delete
2013-05-18 16:06:57 +02:00
for i=1,player_inv:get_size("main") do
minetest.add_item(pos, player_inv:get_stack("main", i))
2013-05-18 16:06:57 +02:00
end
for i=1,player_inv:get_size("craft") do
minetest.add_item(pos, player_inv:get_stack("craft", i))
2013-05-18 16:06:57 +02:00
end
-- empty lists main and craft
player_inv:set_list("main", {})
player_inv:set_list("craft", {})
2013-05-18 16:06:57 +02:00
return
end
2013-05-25 00:40:03 +02:00
minetest.dig_node(pos)
minetest.add_node(pos, {name="bones:bones", param2=param2})
2013-05-18 16:06:57 +02:00
2013-05-25 00:40:03 +02:00
local meta = minetest.get_meta(pos)
2013-05-18 16:06:57 +02:00
local inv = meta:get_inventory()
inv:set_size("main", 8*4)
inv:set_list("main", player_inv:get_list("main"))
for i=1,player_inv:get_size("craft") do
local stack = player_inv:get_stack("craft", i)
if inv:room_for_item("main", stack) then
inv:add_item("main", stack)
else
--drop if no space left
minetest.add_item(pos, stack)
end
2013-05-18 16:06:57 +02:00
end
player_inv:set_list("main", {})
player_inv:set_list("craft", {})
2013-05-18 16:06:57 +02:00
meta:set_string("formspec", "size[8,9;]"..
"list[current_name;main;0,0;8,4;]"..
"list[current_player;main;0,5;8,4;]")
meta:set_string("infotext", player_name.."'s fresh bones")
meta:set_string("owner", player_name)
2013-05-18 16:06:57 +02:00
meta:set_int("time", 0)
2013-05-25 00:40:03 +02:00
local timer = minetest.get_node_timer(pos)
2013-05-18 16:06:57 +02:00
timer:start(10)
end)