bones/bones.lua at master · Archtec-io/bones · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

local S = core.get_translator("bones")

local function remove_node(pos, meta)
	local replaced = core.deserialize(meta:get_string("replaced"))
	if replaced then
		core.set_node(pos, replaced)
	else
		core.remove_node(pos)
	end
end

core.register_node("bones:bones", {
	description = S("Bones"),
	tiles = {
		"bones_top.png^[transform2",
		"bones_bottom.png",
		"bones_side.png",
		"bones_side.png^[transform4",
		"bones_rear.png",
		"bones_front.png"
	},
	paramtype2 = "facedir",
	groups = {dig_immediate = 2},
	is_ground_content = false,
	sounds = {
		footstep = {name = "bones_footstep", gain = 1.1},
		dig = {name = "bones_dig", gain = 0.9},
		dug = {name = "bones_dug", gain = 0.8},
		place = {name = "bones_place", gain = 0.7},
	},
	can_dig = function(pos)
		local inv = core.get_meta(pos):get_inventory()
		for name in pairs(inv:get_lists()) do
			if not inv:is_empty(name) then
				return false
			end
		end
		return true
	end,
	on_punch = function(pos, node, player)
		local meta = core.get_meta(pos)
		local infotext = meta:get("infotext")
		if not infotext then
			return  -- Ignore empty (decorative) bones.
		end
		local name = player:get_player_name()
		local owner = meta:get_string("owner")
		if not bones.can_collect(name, owner, meta:get_int("time")) then
			core.chat_send_player(name, S("These bones belong to @1.", owner))
			return
		end
		local inv = meta:get_inventory()
		local items = inv:get_lists()
		if bones.pickup and player:get_player_control().sneak then
			if owner ~= "" then
				infotext = S("@1's bones", owner)
			end
			if bones.pickup_bones(pos, items, infotext, player) then
				remove_node(pos, meta)
			end
			return
		end
		if bones.collect_bones(pos, player, owner, items, meta:get("punched")) then
			remove_node(pos, meta)
		else
			meta:set_int("punched", 1)
			inv:set_lists(items)
		end
	end,
	on_timer = function(pos, elapsed)
		local meta = core.get_meta(pos)
		local t = meta:get_int("time") + elapsed
		meta:set_int("time", t)
		if t < bones.share_time then
			return true
		else
			meta:set_string("infotext", S("@1's old bones", meta:get_string("owner")))
		end
	end,
	after_place_node = bones.pickup and function(pos, player, stack)
		local items = stack:get_meta():get("items")
		if items then
			items = core.deserialize(core.decompress(core.decode_base64(items), "deflate"))
		end
		if not items or type(items) ~= "table" or not next(items) then
			return
		end
		local meta = core.get_meta(pos)
		meta:get_inventory():set_lists(items)
		meta:set_string("infotext", stack:get_description())
	end or nil,
	on_destruct = bones.waypoints and function(pos)
		local name = core.get_meta(pos):get_string("owner")
		local player = core.get_player_by_name(name)
		if player then
			bones.remove_waypoint(pos, player)
		end
	end or nil,
	on_movenode = bones.waypoints and function(from_pos, to_pos)
		local meta = core.get_meta(to_pos)
		local owner = meta:get("owner")
		if not owner then
			return  -- Ignore empty (decorative) bones.
		end
		local player = core.get_player_by_name(owner)
		if player then
			bones.remove_waypoint(from_pos, player)
			bones.add_waypoint(to_pos, player)
		end
		local from = core.pos_to_string(from_pos)
		local to = core.pos_to_string(to_pos)
		core.log("action", "Bones of "..owner.." moved from "..from.." to "..to)
	end or nil,
	on_blast = function() end,
})