Aaron Suen 464a0e1d89 Finite fire rework.
- There are now 6 degrees of embers.  Better fuel sources will
  make better embers.
- Embers differ only in lifespan; each class lasts twice as long
  as the previous.  Top-grade fuels may last 15 minutes or
  longer.
- Embers decay stochastically.
- Embers decay 16x as fast when smothered, but still go through
  the same lifecycle.

Also:
- Plain ash now reposes.

There are no infinite fuel sources, nor are any specifically
planned at this time.
2019-01-17 00:01:00 -05:00

136 lines
4.4 KiB
Lua

-- LUALOCALS < ---------------------------------------------------------
local ItemStack, minetest, nodecore, setmetatable, type, vector
= ItemStack, minetest, nodecore, setmetatable, type, vector
-- LUALOCALS > ---------------------------------------------------------
local modname = minetest.get_current_modname()
local stackbox = nodecore.fixedbox(-0.4, -0.5, -0.4, 0.4, 0.3, 0.4)
local function invdef(pos)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local stack = inv:get_stack("solo", 1)
if not stack or stack:is_empty()
or stack:get_count() ~= 1 then return end
return minetest.registered_items[stack:get_name()]
end
minetest.register_node(modname .. ":stack", {
drawtype = "nodebox",
node_box = nodecore.fixedbox(
{-0.5, -0.5, -0.5, 0.5, -7/16, 0.5}
),
use_texture_alpha = true,
tiles = {
"nc_items_shadow.png",
"nc_items_blank.png",
},
walkable = true,
selection_box = stackbox,
collision_box = stackbox,
drop = {},
groups = {
flammable = 1,
crumbly = 3,
falling_repose = 1,
visinv = 1
},
paramtype = "light",
sunlight_propagates = true,
repose_drop = function(posfrom, posto, node)
local meta = minetest.get_meta(posfrom)
local inv = meta:get_inventory()
local stack = inv:get_stack("solo", 1)
if stack and not stack:is_empty() then
minetest.item_drop(stack, nil, posto)
end
return minetest.remove_node(posfrom)
end,
can_pummel = function(pos, ...)
local def = invdef(pos)
return def and def.can_pummel and def.can_pummel(pos, ...)
end,
on_pummel = function(pos, ...)
local def = invdef(pos)
return def and def.on_pummel and def.on_pummel(pos, ...)
end
})
function nodecore.place_stack(pos, stack, placer, pointed_thing)
stack = ItemStack(stack)
local name = stack:get_name()
if stack:get_count() == 1 and stack:get_definition().type == "node" then
minetest.set_node(pos, {name = name})
else
minetest.set_node(pos, {name = modname .. ":stack"})
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
inv:set_stack("solo", 1, stack)
end
if placer and pointed_thing then
nodecore.craft_check(pos, {name = stack:get_name()}, placer, pointed_thing)
end
minetest.check_for_falling(pos)
end
local bii = minetest.registered_entities["__builtin:item"]
local item = {
on_step = function(self, dtime)
bii.on_step(self, dtime)
if self.physical_state then return end
local pos = vector.round(self.object:getpos())
pos = nodecore.buildable_to(pos)
or nodecore.buildable_to({x = pos.x + 1, y = pos.y, z = pos.z})
or nodecore.buildable_to({x = pos.x - 1, y = pos.y, z = pos.z})
or nodecore.buildable_to({x = pos.x, y = pos.y, z = pos.z + 1})
or nodecore.buildable_to({x = pos.x, y = pos.y, z = pos.z - 1})
if not pos then return end
nodecore.place_stack(pos, self.itemstring)
self.itemstring = ""
self.object:remove()
end,
on_punch = function() end
}
setmetatable(item, bii)
minetest.register_entity(":__builtin:item", item)
local bifn = minetest.registered_entities["__builtin:falling_node"]
local falling = {
set_node = function(self, node, meta, ...)
if node and node.name == modname .. ":stack"
and meta and meta.inventory and meta.inventory.solo then
local stack = ItemStack(meta.inventory.solo[1] or "")
if not stack:is_empty() then
minetest.item_drop(stack, nil, self.object:getpos())
return self.object:remove()
end
end
return bifn.set_node(self, node, meta, ...)
end
}
setmetatable(falling, bifn)
minetest.register_entity(":__builtin:falling_node", falling)
function minetest.item_place(itemstack, placer, pointed_thing, param2)
if pointed_thing.type == "node" and placer and
not placer:get_player_control().sneak then
local n = minetest.get_node(pointed_thing.under)
local nn = n.name
if minetest.registered_nodes[nn] and minetest.registered_nodes[nn].on_rightclick then
return minetest.registered_nodes[nn].on_rightclick(pointed_thing.under, n,
placer, itemstack, pointed_thing) or itemstack, false
end
end
if itemstack:get_definition().type == "node" then
return minetest.item_place_node(itemstack, placer, pointed_thing, param2)
end
if not itemstack:is_empty() then
local above = minetest.get_pointed_thing_position(pointed_thing, true)
if above and nodecore.buildable_to(above) then
nodecore.place_stack(above, itemstack:take_item(), placer, pointed_thing)
end
end
return itemstack
end