Aaron Suen 07850123d7 Standardize high-resolution gametime.
Use high-res version in a few places we were using integer-res
timer before.  This should e.g. smooth time variation of wind
strength for ambient sounds.
2019-11-10 08:10:34 -05:00

82 lines
2.5 KiB
Lua

-- LUALOCALS < ---------------------------------------------------------
local ItemStack, minetest, nodecore, pairs, setmetatable, vector
= ItemStack, minetest, nodecore, pairs, setmetatable, vector
-- LUALOCALS > ---------------------------------------------------------
local modname = minetest.get_current_modname()
local function islit(stack)
return stack and stack:get_name() == modname .. ":torch_lit"
end
local function snuffinv(player, inv, i)
minetest.sound_play("nc_fire_snuff", {object = player, gain = 0.5})
inv:set_stack("main", i, "nc_fire:lump_ash")
end
local function wieldlight(pos)
local cur = minetest.get_node(pos).name
if cur ~= "air" and cur ~= modname .. ":wield_light" then return end
minetest.set_node(pos, {name = modname .. ":wield_light"})
return minetest.get_node_timer(pos):start(0.3)
end
local wltimers = {}
local ambtimers = {}
minetest.register_globalstep(function()
local now = nodecore.gametime
for _, player in pairs(minetest.get_connected_players()) do
local inv = player:get_inventory()
local ppos = player:get_pos()
-- Snuff all torches if doused in water.
local hpos = vector.add(ppos, {x = 0, y = 1, z = 0})
local head = minetest.get_node(hpos).name
if minetest.get_item_group(head, "water") > 0 then
for i = 1, inv:get_size("main") do
local stack = inv:get_stack("main", i)
if islit(stack) then snuffinv(player, inv, i) end
end
elseif islit(player:get_wielded_item()) then
-- Wield light
local name = player:get_player_name()
local t = wltimers[name] or 0
if t <= now then
wltimers[name] = now + 0.2
wieldlight(hpos)
end
-- Wield ambiance
t = ambtimers[name] or 0
if t <= now then
ambtimers[name] = now + 1
minetest.sound_play("nc_fire_flamy",
{object = player, gain = 0.1})
end
end
end
end)
-- Apply wield light to entities as well.
local function entlight(self, dtime, ...)
local stack = ItemStack(self.node and self.node.name or self.itemstring or "")
if not islit(stack) then return ... end
local wltime = (self.wltime or 0) - dtime
if wltime <= 0 then
wltime = 0.2
wieldlight(self.object:get_pos())
end
self.wltime = wltime
return ...
end
for _, name in pairs({"item", "falling_node"}) do
local def = minetest.registered_entities["__builtin:" .. name]
local ndef = {
on_step = function(self, dtime, ...)
return entlight(self, dtime, def.on_step(self, dtime, ...))
end
}
setmetatable(ndef, def)
minetest.register_entity(":__builtin:" .. name, ndef)
end