mod technic
view | history | commit | commitdiff
dokutan
2020-05-10 31a052d7e6ac3036003a3e0db5fe981964a831f5
commit | author | age
8e03d7 1 -- Configuration
R 2
9019eb 3 local chainsaw_max_charge      = 30000 -- Maximum charge of the saw
S 4 -- Gives 2500 nodes on a single charge (about 50 complete normal trees)
5 local chainsaw_charge_per_node = 12
6 -- Cut down tree leaves.  Leaf decay may cause slowness on large trees
7 -- if this is disabled.
8 local chainsaw_leaves = true
9
e66bb2 10 -- First value is node name; second is whether the node is considered even if chainsaw_leaves is false.
C 11 local nodes = {
12     -- The default trees
13     {"default:acacia_tree", true},
14     {"default:aspen_tree", true},
15     {"default:jungletree", true},
16     {"default:papyrus", true},
17     {"default:cactus", true},
18     {"default:tree", true},
19     {"default:apple", true},
20     {"default:pine_tree", true},
21     {"default:acacia_leaves", false},
22     {"default:aspen_leaves", false},
23     {"default:leaves", false},
24     {"default:jungleleaves", false},
25     {"default:pine_needles", false},
26
31a052 27     -- The default bushes
D 28     {"default:acacia_bush_stem", true},
29     {"default:bush_stem", true},
30     {"default:pine_bush_stem", true},
31     {"default:acacia_bush_leaves", false},
32     {"default:blueberry_bush_leaves", false},
33     {"default:blueberry_bush_leaves_with_berries", false},
34     {"default:bush_leaves", false},
35     {"default:pine_bush_needles", false},
36
e66bb2 37     -- Rubber trees from moretrees or technic_worldgen if moretrees isn't installed
C 38     {"moretrees:rubber_tree_trunk_empty", true},
39     {"moretrees:rubber_tree_trunk", true},
40     {"moretrees:rubber_tree_leaves", false},
41
31a052 42     -- Support moretrees (trunk)
e66bb2 43     {"moretrees:acacia_trunk", true},
C 44     {"moretrees:apple_tree_trunk", true},
45     {"moretrees:beech_trunk", true},
46     {"moretrees:birch_trunk", true},
31a052 47     {"moretrees:cedar_trunk", true},
D 48     {"moretrees:date_palm_ffruit_trunk", true},
49     {"moretrees:date_palm_fruit_trunk", true},
50     {"moretrees:date_palm_mfruit_trunk", true},
51     {"moretrees:date_palm_trunk", true},
e66bb2 52     {"moretrees:fir_trunk", true},
31a052 53     {"moretrees:jungletree_trunk", true},
e66bb2 54     {"moretrees:oak_trunk", true},
C 55     {"moretrees:palm_trunk", true},
31a052 56     {"moretrees:palm_fruit_trunk", true},
D 57     {"moretrees:palm_fruit_trunk_gen", true},
e66bb2 58     {"moretrees:pine_trunk", true},
31a052 59     {"moretrees:poplar_trunk", true},
e66bb2 60     {"moretrees:sequoia_trunk", true},
C 61     {"moretrees:spruce_trunk", true},
62     {"moretrees:willow_trunk", true},
31a052 63     -- Support moretrees (leaves)
e66bb2 64     {"moretrees:acacia_leaves", false},
C 65     {"moretrees:apple_tree_leaves", false},
31a052 66     {"moretrees:beech_leaves", false},
D 67     {"moretrees:birch_leaves", false},
68     {"moretrees:cedar_leaves", false},
69     {"moretrees:date_palm_leaves", false},
e66bb2 70     {"moretrees:fir_leaves", false},
C 71     {"moretrees:fir_leaves_bright", false},
72     {"moretrees:jungletree_leaves_green", false},
73     {"moretrees:jungletree_leaves_yellow", false},
74     {"moretrees:jungletree_leaves_red", false},
31a052 75     {"moretrees:oak_leaves", false},
D 76     {"moretrees:palm_leaves", false},
e66bb2 77     {"moretrees:poplar_leaves", false},
31a052 78     {"moretrees:pine_leaves", false},
D 79     {"moretrees:sequoia_leaves", false},
80     {"moretrees:spruce_leaves", false},
81     {"moretrees:willow_leaves", false},
82     -- Support moretrees (fruit)
83     {"moretrees:acorn", false},
84     {"moretrees:apple_blossoms", false},
85     {"moretrees:cedar_cone", false},
86     {"moretrees:coconut", false},
87     {"moretrees:coconut_0", false},
88     {"moretrees:coconut_1", false},
89     {"moretrees:coconut_2", false},
90     {"moretrees:coconut_3", false},
91     {"moretrees:dates_f0", false},
92     {"moretrees:dates_f1", false},
93     {"moretrees:dates_f2", false},
94     {"moretrees:dates_f3", false},
95     {"moretrees:dates_f4", false},
96     {"moretrees:dates_fn", false},
97     {"moretrees:dates_m0", false},
98     {"moretrees:dates_n", false},
99     {"moretrees:fir_cone", false},
100     {"moretrees:pine_cone", false},
101     {"moretrees:spruce_cone", false},
e66bb2 102
C 103     -- Support growing_trees
104     {"growing_trees:trunk", true},
105     {"growing_trees:medium_trunk", true},
106     {"growing_trees:big_trunk", true},
107     {"growing_trees:trunk_top", true},
108     {"growing_trees:trunk_sprout", true},
109     {"growing_trees:branch_sprout", true},
110     {"growing_trees:branch", true},
111     {"growing_trees:branch_xmzm", true},
112     {"growing_trees:branch_xpzm", true},
113     {"growing_trees:branch_xmzp", true},
114     {"growing_trees:branch_xpzp", true},
115     {"growing_trees:branch_zz", true},
116     {"growing_trees:branch_xx", true},
117     {"growing_trees:leaves", false},
118
119     -- Support cool_trees
120     {"bamboo:trunk", true},
121     {"bamboo:leaves", false},
122     {"birch:trunk", true},
123     {"birch:leaves", false},
124     {"cherrytree:trunk", true},
125     {"cherrytree:blossom_leaves", false},
126     {"cherrytree:leaves", false},
127     {"chestnuttree:trunk", true},
128     {"chestnuttree:leaves", false},
129     {"clementinetree:trunk", true},
130     {"clementinetree:leaves", false},
131     {"ebony:trunk", true},
132     {"ebony:creeper", false},
133     {"ebony:creeper_leaves", false},
134     {"ebony:leaves", false},
135     {"jacaranda:trunk", true},
136     {"jacaranda:blossom_leaves", false},
137     {"larch:trunk", true},
138     {"larch:leaves", false},
139     {"lemontree:trunk", true},
140     {"lemontree:leaves", false},
141     {"mahogany:trunk", true},
142     {"mahogany:leaves", false},
143     {"palm:trunk", true},
144     {"palm:leaves", false},
145
146     -- Support growing_cactus
147     {"growing_cactus:sprout", true},
148     {"growing_cactus:branch_sprout_vertical", true},
149     {"growing_cactus:branch_sprout_vertical_fixed", true},
150     {"growing_cactus:branch_sprout_xp", true},
151     {"growing_cactus:branch_sprout_xm", true},
152     {"growing_cactus:branch_sprout_zp", true},
153     {"growing_cactus:branch_sprout_zm", true},
154     {"growing_cactus:trunk", true},
155     {"growing_cactus:branch_trunk", true},
156     {"growing_cactus:branch", true},
157     {"growing_cactus:branch_xp", true},
158     {"growing_cactus:branch_xm", true},
159     {"growing_cactus:branch_zp", true},
160     {"growing_cactus:branch_zm", true},
161     {"growing_cactus:branch_zz", true},
162     {"growing_cactus:branch_xx", true},
163
164     -- Support farming_plus
165     {"farming_plus:banana_leaves", false},
166     {"farming_plus:banana", false},
167     {"farming_plus:cocoa_leaves", false},
168     {"farming_plus:cocoa", false},
169
170     -- Support nature
171     {"nature:blossom", false},
172
173     -- Support snow
174     {"snow:needles", false},
175     {"snow:needles_decorated", false},
176     {"snow:star", false},
177
178     -- Support vines (also generated by moretrees if available)
179     {"vines:vines", false},
180
181     {"trunks:moss", false},
182     {"trunks:moss_fungus", false},
183     {"trunks:treeroot", false},
8e03d7 184 }
82cba9 185
e66bb2 186 local timber_nodenames = {}
C 187 for _, node in pairs(nodes) do
188     if chainsaw_leaves or node[2] then
189         timber_nodenames[node[1]] = true
72d541 190     end
T 191 end
192
5cf765 193 local S = technic.getter
S 194
195 technic.register_power_tool("technic:chainsaw", chainsaw_max_charge)
196
31a052 197 -- This function checks if the specified node should be sawed
D 198 local function check_if_node_sawed(pos)
199     local node_name = minetest.get_node(pos).name
200     if timber_nodenames[node_name]
201             or (chainsaw_leaves and minetest.get_item_group(node_name, "leaves") ~= 0)
202             or minetest.get_item_group(node_name, "tree") ~= 0 then
203         return true
204     end
205
206     return false
207 end
208
8e03d7 209 -- Table for saving what was sawed down
9019eb 210 local produced = {}
8e03d7 211
9019eb 212 -- Save the items sawed down so that we can drop them in a nice single stack
S 213 local function handle_drops(drops)
214     for _, item in ipairs(drops) do
215         local stack = ItemStack(item)
216         local name = stack:get_name()
217         local p = produced[name]
218         if not p then
219             produced[name] = stack
c63658 220         else
9019eb 221             p:set_count(p:get_count() + stack:get_count())
c63658 222         end
9019eb 223     end
S 224 end
225
226 --- Iterator over positions to try to saw around a sawed node.
ec069a 227 -- This returns positions in a 3x1x3 area around the position, plus the
S 228 -- position above it.  This does not return the bottom position to prevent
229 -- the chainsaw from cutting down nodes below the cutting position.
16302c 230 -- @param pos Sawing position.
9019eb 231 local function iterSawTries(pos)
16302c 232     -- Copy position to prevent mangling it
S 233     local pos = vector.new(pos)
ec069a 234     local i = 0
9019eb 235
S 236     return function()
ec069a 237         i = i + 1
S 238         -- Given a (top view) area like so (where 5 is the starting position):
239         -- X -->
240         -- Z 123
241         -- | 456
242         -- V 789
243         -- This will return positions 1, 4, 7, 2, 8 (skip 5), 3, 6, 9,
244         -- and the position above 5.
245         if i == 1 then
246             -- Move to starting position
247             pos.x = pos.x - 1
248             pos.z = pos.z - 1
249         elseif i == 4 or i == 7 then
250             -- Move to next X and back to start of Z when we reach
251             -- the end of a Z line.
9019eb 252             pos.x = pos.x + 1
ec069a 253             pos.z = pos.z - 2
S 254         elseif i == 5 then
255             -- Skip the middle position (we've already run on it)
256             -- and double-increment the counter.
257             pos.z = pos.z + 2
258             i = i + 1
259         elseif i <= 9 then
260             -- Go to next Z.
261             pos.z = pos.z + 1
262         elseif i == 10 then
263             -- Move back to center and up.
264             -- The Y+ position must be last so that we don't dig
265             -- straight upward and not come down (since the Y-
266             -- position isn't checked).
267             pos.x = pos.x - 1
268             pos.z = pos.z - 1
269             pos.y = pos.y + 1
9019eb 270         else
ec069a 271             return nil
9019eb 272         end
S 273         return pos
c63658 274     end
8e03d7 275 end
R 276
277 -- This function does all the hard work. Recursively we dig the node at hand
278 -- if it is in the table and then search the surroundings for more stuff to dig.
9019eb 279 local function recursive_dig(pos, remaining_charge)
S 280     if remaining_charge < chainsaw_charge_per_node then
c63658 281         return remaining_charge
P 282     end
9019eb 283     local node = minetest.get_node(pos)
S 284
31a052 285     if not check_if_node_sawed(pos) then
9019eb 286         return remaining_charge
S 287     end
288
ec069a 289     -- Wood found - cut it
9019eb 290     handle_drops(minetest.get_node_drops(node.name, ""))
S 291     minetest.remove_node(pos)
292     remaining_charge = remaining_charge - chainsaw_charge_per_node
293
294     -- Check surroundings and run recursively if any charge left
16302c 295     for npos in iterSawTries(pos) do
9019eb 296         if remaining_charge < chainsaw_charge_per_node then
S 297             break
298         end
31a052 299         if check_if_node_sawed(npos) then
16302c 300             remaining_charge = recursive_dig(npos, remaining_charge)
31a052 301         else
D 302             minetest.check_for_falling(npos)
9019eb 303         end
S 304     end
c63658 305     return remaining_charge
P 306 end
307
308 -- Function to randomize positions for new node drops
309 local function get_drop_pos(pos)
310     local drop_pos = {}
311
312     for i = 0, 8 do
313         -- Randomize position for a new drop
314         drop_pos.x = pos.x + math.random(-3, 3)
315         drop_pos.y = pos.y - 1
316         drop_pos.z = pos.z + math.random(-3, 3)
317
318         -- Move the randomized position upwards until
319         -- the node is air or unloaded.
320         for y = drop_pos.y, drop_pos.y + 5 do
321             drop_pos.y = y
322             local node = minetest.get_node_or_nil(drop_pos)
323
324             if not node then
325                 -- If the node is not loaded yet simply drop
326                 -- the item at the original digging position.
327                 return pos
328             elseif node.name == "air" then
9019eb 329                 -- Add variation to the entity drop position,
S 330                 -- but don't let drops get too close to the edge
331                 drop_pos.x = drop_pos.x + (math.random() * 0.8) - 0.5
332                 drop_pos.z = drop_pos.z + (math.random() * 0.8) - 0.5
c63658 333                 return drop_pos
P 334             end
335         end
336     end
337
338     -- Return the original position if this takes too long
339     return pos
e23f87 340 end
19c9a0 341
9019eb 342 -- Chainsaw entry point
S 343 local function chainsaw_dig(pos, current_charge)
344     -- Start sawing things down
345     local remaining_charge = recursive_dig(pos, current_charge)
346     minetest.sound_play("chainsaw", {pos = pos, gain = 1.0,
347             max_hear_distance = 10})
5cf765 348
9019eb 349     -- Now drop items for the player
S 350     for name, stack in pairs(produced) do
351         -- Drop stacks of stack max or less
352         local count, max = stack:get_count(), stack:get_stack_max()
353         stack:set_count(max)
354         while count > max do
355             minetest.add_item(get_drop_pos(pos), stack)
356             count = count - max
c63658 357         end
9019eb 358         stack:set_count(count)
S 359         minetest.add_item(get_drop_pos(pos), stack)
360     end
361
362     -- Clean up
363     produced = {}
364
365     return remaining_charge
5cf765 366 end
S 367
368
369 minetest.register_tool("technic:chainsaw", {
370     description = S("Chainsaw"),
371     inventory_image = "technic_chainsaw.png",
372     stack_max = 1,
99fd5d 373     wear_represents = "technic_RE_charge",
00d7c9 374     on_refill = technic.refill_RE_charge,
5cf765 375     on_use = function(itemstack, user, pointed_thing)
S 376         if pointed_thing.type ~= "node" then
377             return itemstack
378         end
9019eb 379
5cf765 380         local meta = minetest.deserialize(itemstack:get_metadata())
9019eb 381         if not meta or not meta.charge or
S 382                 meta.charge < chainsaw_charge_per_node then
5cf765 383             return
S 384         end
385
9019eb 386         local name = user:get_player_name()
51c02e 387         if minetest.is_protected(pointed_thing.under, name) then
S 388             minetest.record_protection_violation(pointed_thing.under, name)
389             return
9019eb 390         end
S 391
392         -- Send current charge to digging function so that the
393         -- chainsaw will stop after digging a number of nodes
394         meta.charge = chainsaw_dig(pointed_thing.under, meta.charge)
b8c902 395         if not technic.creative_mode then
M 396             technic.set_RE_wear(itemstack, meta.charge, chainsaw_max_charge)
397             itemstack:set_metadata(minetest.serialize(meta))
398         end
5cf765 399         return itemstack
S 400     end,
401 })
402
e4c34c 403 local mesecons_button = minetest.get_modpath("mesecons_button")
T 404 local trigger = mesecons_button and "mesecons_button:button_off" or "default:mese_crystal_fragment"
405
5cf765 406 minetest.register_craft({
9019eb 407     output = "technic:chainsaw",
c63658 408     recipe = {
e4c34c 409         {"technic:stainless_steel_ingot", trigger,                      "technic:battery"},
44cb8d 410         {"basic_materials:copper_wire",      "basic_materials:motor",              "technic:battery"},
5e4a87 411         {"",                              "",                           "technic:stainless_steel_ingot"},
44cb8d 412     },
VD 413     replacements = { {"basic_materials:copper_wire", "basic_materials:empty_spool"}, },
414
5cf765 415 })
9019eb 416