ShadowNinja
2013-12-21 c5a2f0facca6d079238c735cfb7fc9f1f4654e37
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
--[[
Wrench mod
 
Adds a wrench that allows the player to pickup nodes that contain an inventory
with items or metadata that needs perserving.
The wrench has the same tool capability as the normal hand.
To pickup a node simply right click on it. If the node contains a formspec,
you will need to shift+right click instead.
--]]
 
local LATEST_SERIALIZATION_VERSION = 1
 
wrench = {}
 
local modpath = minetest.get_modpath(minetest.get_current_modname())
dofile(modpath.."/support.lua")
dofile(modpath.."/technic.lua")
 
local function get_meta_type(name, metaname)
    local def = wrench.registered_nodes[name]
    if not def or not def.metas or not def.metas[metaname] then
        return nil
    end
    return def.metas[metaname]
end
 
local function get_pickup_name(name)
    return "wrench:picked_up_"..(name:gsub(":", "_"))
end
 
local function restore(pos, placer, itemstack)
    local name = itemstack:get_name()
    local meta = minetest.get_meta(pos)
    local inv = meta:get_inventory()
    local data = minetest.deserialize(itemstack:get_metadata())
    minetest.set_node(pos, {name = data.name})
    local lists = data.lists
    for listname, list in pairs(lists) do
        inv:set_list(listname, list)
    end
    for name, value in pairs(data.metas) do
        local meta_type = get_meta_type(data.name, name)
        if meta_type == wrench.META_TYPE_INT then
            meta:set_int(name, value)
        elseif meta_type == wrench.META_TYPE_FLOAT then
            meta:set_float(name, value)
        elseif meta_type == wrench.META_TYPE_STRING then
            meta:set_string(name, value)
        end
    end
    itemstack:take_item()
    return itemstack
end
 
for name, info in pairs(wrench.registered_nodes) do
    local olddef = minetest.registered_nodes[name]
    if olddef then
        local newdef = {}
        for key, value in pairs(olddef) do
            newdef[key] = value
        end
        newdef.stack_max = 1
        newdef.description = newdef.description.." with items"
        newdef.groups = {}
        newdef.groups.not_in_creative_inventory = 1
        newdef.on_construct = nil
        newdef.on_destruct = nil
        newdef.after_place_node = restore
        minetest.register_node(":"..get_pickup_name(name), newdef)
    end
end
 
minetest.register_tool("wrench:wrench", {
    description = "Wrench",
    inventory_image = "technic_wrench.png",
    tool_capabilities = {
        full_punch_interval = 0.9,
        max_drop_level = 0,
        groupcaps = {
            crumbly = {times={[2]=3.00, [3]=0.70}, uses=0, maxlevel=1},
            snappy = {times={[3]=0.40}, uses=0, maxlevel=1},
            oddly_breakable_by_hand = {times={[1]=7.00,[2]=4.00,[3]=1.40},
                        uses=0, maxlevel=3}
        },
        damage_groups = {fleshy=1},
    },
    on_place = function(itemstack, placer, pointed_thing)
        local pos = pointed_thing.under
        if not placer or not pos then
            return
        end
        if minetest.is_protected(pos, placer:get_player_name()) then
            minetest.record_protection_violation(pos, placer:get_player_name())
            return
        end
        local name = minetest.get_node(pos).name
        local def = wrench.registered_nodes[name]
        if not def then
            return
        end
 
        local stack = ItemStack(get_pickup_name(name))
        local player_inv = placer:get_inventory()
        if not player_inv:room_for_item("main", stack) then
            return
        end
        local meta = minetest.get_meta(pos)
        if def.owned then
            local owner = meta:get_string("owner")
            if owner and owner ~= placer:get_player_name() then
                minetest.log("action", placer:get_player_name()..
                    " tried to pick up a owned node belonging to "..
                    owner.." at "..
                    minetest.pos_to_string(pos))
                return
            end
        end
 
        local metadata = {}
        metadata.name = name
        metadata.version = LATEST_SERIALIZATION_VERSION
 
        local inv = meta:get_inventory()
        local lists = {}
        for _, listname in pairs(def.lists or {}) do
            if not inv:is_empty(listname) then
                empty = false
            end
            local list = inv:get_list(listname)
            for i, stack in pairs(list) do
                list[i] = stack:to_string()
            end
            lists[listname] = list
        end
        metadata.lists = lists
        
        local metas = {}
        for name, meta_type in pairs(def.metas or {}) do
            if meta_type == wrench.META_TYPE_INT then
                metas[name] = meta:get_int(name)
            elseif meta_type == wrench.META_TYPE_FLOAT then
                metas[name] = meta:get_float(name)
            elseif meta_type == wrench.META_TYPE_STRING then
                metas[name] = meta:get_string(name)
            end
        end
        metadata.metas = metas
        
        stack:set_metadata(minetest.serialize(metadata))
        minetest.remove_node(pos)
        itemstack:add_wear(65535 / 20)
        player_inv:add_item("main", stack)
        return itemstack
    end,
})
 
minetest.register_craft({
    output = "wrench:wrench",
    recipe = {
        {"default:steel_ingot", "",                    "default:steel_ingot"},
        {"",                    "default:steel_ingot", ""},
        {"",                    "default:steel_ingot", ""},
    },
})