1
0
Fork 0

Import Minetest Game 0.4.15 code for: fire

- Fire spread is much slower now
- Higher code quality in general
This commit is contained in:
Wuzzy 2017-02-19 22:46:22 +01:00
parent aabb5a8d41
commit 13ec1ce743
10 changed files with 287 additions and 214 deletions

View File

@ -19,8 +19,13 @@ http://creativecommons.org/licenses/by-sa/3.0/
Authors of media files Authors of media files
----------------------- -----------------------
fire_small.ogg sampled from: Muadtralk (CC BY-SA 3.0)
http://www.freesound.org/people/dobroide/sounds/4211/ fire_basic_flame_animated.png
fire_large.ogg sampled from: Dynamicell (CC BY 3.0)
http://www.freesound.org/people/Dynamicell/sounds/17548/ http://www.freesound.org/people/Dynamicell/sounds/17548/
fire_fire.*.ogg
Benboncan (CC BY 3.0)
https://www.freesound.org/people/Benboncan/sounds/66457/
fire_flint_and_steel.ogg

View File

@ -1,237 +1,305 @@
local init = os.clock() -- Global namespace for functions
minetest.register_node("mcl_fire:basic_flame", {
description = "Fire",
drawtype = "firelike",
tiles = {{
name="fire_basic_flame_animated.png",
animation={type="vertical_frames", aspect_w=32, aspect_h=32, length=1},
}},
inventory_image = "fire_basic_flame.png",
-- Real light level: 15 (but Minetest caps at 14)
light_source = 14,
groups = {igniter=2,dig_immediate=3,dig_by_water=1,not_in_creative_inventory=1},
drop = '',
walkable = false,
buildable_to = true,
damage_per_second = 4,
after_place_node = function(pos, placer)
mcl_fire.on_flame_add_at(pos)
end,
after_dig_node = function(pos, oldnode, oldmetadata, digger)
mcl_fire.on_flame_remove_at(pos)
end,
})
mcl_fire = {} mcl_fire = {}
mcl_fire.D = 6
-- key: position hash of low corner of area
-- value: {handle=sound handle, name=sound name}
mcl_fire.sounds = {}
function mcl_fire.get_area_p0p1(pos)
local p0 = {
x=math.floor(pos.x/mcl_fire.D)*mcl_fire.D,
y=math.floor(pos.y/mcl_fire.D)*mcl_fire.D,
z=math.floor(pos.z/mcl_fire.D)*mcl_fire.D,
}
local p1 = {
x=p0.x+mcl_fire.D-1,
y=p0.y+mcl_fire.D-1,
z=p0.z+mcl_fire.D-1
}
return p0, p1
end
function mcl_fire.update_sounds_around(pos) --
local p0, p1 = mcl_fire.get_area_p0p1(pos) -- Items
local cp = {x=(p0.x+p1.x)/2, y=(p0.y+p1.y)/2, z=(p0.z+p1.z)/2} --
local flames_p = minetest.find_nodes_in_area(p0, p1, {"mcl_fire:basic_flame"})
--print("number of flames at "..minetest.pos_to_string(p0).."/"
-- ..minetest.pos_to_string(p1)..": "..#flames_p)
local should_have_sound = (#flames_p > 0)
local wanted_sound = nil
if #flames_p >= 9 then
wanted_sound = {name="fire_large", gain=1.5}
elseif #flames_p > 0 then
wanted_sound = {name="fire_small", gain=1.5}
end
local p0_hash = minetest.hash_node_position(p0)
local sound = mcl_fire.sounds[p0_hash]
if not sound then
if should_have_sound then
mcl_fire.sounds[p0_hash] = {
handle = minetest.sound_play(wanted_sound, {pos=cp, loop=true}),
name = wanted_sound.name,
}
end
else
if not wanted_sound then
minetest.sound_stop(sound.handle)
mcl_fire.sounds[p0_hash] = nil
elseif sound.name ~= wanted_sound.name then
minetest.sound_stop(sound.handle)
mcl_fire.sounds[p0_hash] = {
handle = minetest.sound_play(wanted_sound, {pos=cp, loop=true}),
name = wanted_sound.name,
}
end
end
end
function mcl_fire.on_flame_add_at(pos) -- Flame nodes
--print("flame added at "..minetest.pos_to_string(pos))
mcl_fire.update_sounds_around(pos)
end
function mcl_fire.on_flame_remove_at(pos) minetest.register_node("mcl_fire:fire", {
--print("flame removed at "..minetest.pos_to_string(pos)) description = "Fire",
mcl_fire.update_sounds_around(pos) drawtype = "firelike",
end tiles = {
{
function mcl_fire.find_pos_for_flame_around(pos) name = "fire_basic_flame_animated.png",
return minetest.find_node_near(pos, 1, {"air"}) animation = {
end type = "vertical_frames",
aspect_w = 16,
function mcl_fire.flame_should_extinguish(pos) aspect_h = 16,
if minetest.setting_getbool("disable_fire") then return true end length = 1
--return minetest.find_node_near(pos, 1, {"group:puts_out_fire"}) },
local p0 = {x=pos.x-2, y=pos.y, z=pos.z-2} },
local p1 = {x=pos.x+2, y=pos.y, z=pos.z+2} },
local ps = minetest.find_nodes_in_area(p0, p1, {"group:puts_out_fire"}) inventory_image = "fire_basic_flame.png",
return (#ps ~= 0) paramtype = "light",
end -- Real light level: 15 (but Minetest caps at 14)
light_source = 14,
-- Ignite neighboring nodes walkable = false,
minetest.register_abm({ buildable_to = true,
nodenames = {"group:flammable"}, sunlight_propagates = true,
neighbors = {"group:igniter"}, damage_per_second = 1,
interval = 1, groups = {igniter = 1, dig_immediate = 3, not_in_creative_inventory = 1},
chance = 2, on_timer = function(pos)
action = function(p0, node, _, _) local f = minetest.find_node_near(pos, 1, {"group:flammable"})
-- If there is water or stuff like that around flame, don't ignite if not f then
if mcl_fire.flame_should_extinguish(p0) then minetest.remove_node(pos)
return return
end end
local p = mcl_fire.find_pos_for_flame_around(p0) -- Restart timer
if p then return true
minetest.set_node(p, {name="mcl_fire:basic_flame"}) end,
mcl_fire.on_flame_add_at(p) drop = "",
end
on_construct = function(pos)
minetest.get_node_timer(pos):start(math.random(30, 60))
end,
on_blast = function() -- Unaffected by explosions
end, end,
}) })
-- Rarely ignite things from far minetest.register_node("mcl_fire:eternal_fire", {
minetest.register_abm({ description = "Eternal Fire",
nodenames = {"group:igniter"}, drawtype = "firelike",
neighbors = {"air"}, tiles = {
interval = 2, {
chance = 10, name = "fire_basic_flame_animated.png",
action = function(p0, node, _, _) animation = {
local reg = minetest.registered_nodes[node.name] type = "vertical_frames",
if not reg or not reg.groups.igniter or reg.groups.igniter < 2 then aspect_w = 16,
aspect_h = 16,
length = 1
},
},
},
inventory_image = "fire_basic_flame.png",
paramtype = "light",
-- Real light level: 15 (but Minetest caps at 14)
light_source = 14,
walkable = false,
buildable_to = true,
sunlight_propagates = true,
damage_per_second = 1,
groups = {igniter = 1, dig_immediate = 3, not_in_creative_inventory = 1},
drop = "",
on_blast = function() -- Unaffected by explosions
end,
})
--
-- Sound
--
local flame_sound = minetest.setting_getbool("flame_sound")
if flame_sound == nil then
-- Enable if no setting present
flame_sound = true
end
if flame_sound then
local handles = {}
local timer = 0
-- Parameters
local radius = 8 -- Flame node search radius around player
local cycle = 3 -- Cycle time for sound updates
-- Update sound for player
function mcl_fire.update_player_sound(player)
local player_name = player:get_player_name()
-- Search for flame nodes in radius around player
local ppos = player:getpos()
local areamin = vector.subtract(ppos, radius)
local areamax = vector.add(ppos, radius)
local fpos, num = minetest.find_nodes_in_area(
areamin,
areamax,
{"mcl_fire:fire", "mcl_fire:eternal_fire"}
)
-- Total number of flames in radius
local flames = (num["mcl_fire:fire"] or 0) +
(num["mcl_fire:eternal_fire"] or 0)
-- Stop previous sound
if handles[player_name] then
minetest.sound_stop(handles[player_name])
handles[player_name] = nil
end
-- If flames
if flames > 0 then
-- Find centre of flame positions
local fposmid = fpos[1]
-- If more than 1 flame
if #fpos > 1 then
local fposmin = areamax
local fposmax = areamin
for i = 1, #fpos do
local fposi = fpos[i]
if fposi.x > fposmax.x then
fposmax.x = fposi.x
end
if fposi.y > fposmax.y then
fposmax.y = fposi.y
end
if fposi.z > fposmax.z then
fposmax.z = fposi.z
end
if fposi.x < fposmin.x then
fposmin.x = fposi.x
end
if fposi.y < fposmin.y then
fposmin.y = fposi.y
end
if fposi.z < fposmin.z then
fposmin.z = fposi.z
end
end
fposmid = vector.divide(vector.add(fposmin, fposmax), 2)
end
-- Play sound
local handle = minetest.sound_play(
"fire_fire",
{
pos = fposmid,
to_player = player_name,
gain = math.min(0.06 * (1 + flames * 0.125), 0.18),
max_hear_distance = 32,
loop = true, -- In case of lag
}
)
-- Store sound handle for this player
if handle then
handles[player_name] = handle
end
end
end
-- Cycle for updating players sounds
minetest.register_globalstep(function(dtime)
timer = timer + dtime
if timer < cycle then
return return
end end
local d = reg.groups.igniter
local p = minetest.find_node_near(p0, d, {"group:flammable"}) timer = 0
if p then local players = minetest.get_connected_players()
-- If there is water or stuff like that around flame, don't ignite for n = 1, #players do
if mcl_fire.flame_should_extinguish(p) then mcl_fire.update_player_sound(players[n])
end
end)
-- Stop sound and clear handle on player leave
minetest.register_on_leaveplayer(function(player)
local player_name = player:get_player_name()
if handles[player_name] then
minetest.sound_stop(handles[player_name])
handles[player_name] = nil
end
end)
end
--
-- ABMs
--
-- Extinguish all flames quickly with water, snow, ice
minetest.register_abm({
label = "Extinguish flame",
nodenames = {"mcl_fire:fire", "mcl_fire:eternal_fire"},
neighbors = {"group:puts_out_fire"},
interval = 3,
chance = 1,
catch_up = false,
action = function(pos, node, active_object_count, active_object_count_wider)
minetest.remove_node(pos)
minetest.sound_play("fire_extinguish_flame",
{pos = pos, max_hear_distance = 16, gain = 0.15})
end,
})
-- Enable the following ABMs according to 'enable fire' setting
local fire_enabled = minetest.setting_getbool("enable_fire")
if fire_enabled == nil then
-- New setting not specified, check for old setting.
-- If old setting is also not specified, 'not nil' is true.
fire_enabled = not minetest.setting_getbool("disable_fire")
end
if not fire_enabled then
-- Remove basic flames only if fire disabled
minetest.register_abm({
label = "Remove disabled fire",
nodenames = {"fire:basic_flame"},
interval = 7,
chance = 1,
catch_up = false,
action = minetest.remove_node,
})
else -- Fire enabled
-- Ignite neighboring nodes, add basic flames
minetest.register_abm({
label = "Ignite flame",
nodenames = {"group:flammable"},
neighbors = {"group:igniter"},
interval = 7,
chance = 12,
catch_up = false,
action = function(pos, node, active_object_count, active_object_count_wider)
-- If there is water or stuff like that around node, don't ignite
if minetest.find_node_near(pos, 1, {"group:puts_out_fire"}) then
return return
end end
local p2 = mcl_fire.find_pos_for_flame_around(p) local p = minetest.find_node_near(pos, 1, {"air"})
if p2 then
minetest.set_node(p2, {name="mcl_fire:basic_flame"})
mcl_fire.on_flame_add_at(p2)
end
end
end,
})
-- Remove flammable nodes and flame
minetest.register_abm({
nodenames = {"mcl_fire:basic_flame"},
interval = 1,
chance = 2,
action = function(p0, node, _, _)
-- If there is water or stuff like that around flame, remove flame
if mcl_fire.flame_should_extinguish(p0) then
minetest.remove_node(p0)
mcl_fire.on_flame_remove_at(p0)
return
end
-- Make the following things rarer
if math.random(1,3) == 1 then
return
end
-- If there are no flammable nodes around flame, remove flame
if not minetest.find_node_near(p0, 1, {"group:flammable"}) then
minetest.remove_node(p0)
mcl_fire.on_flame_remove_at(p0)
return
end
if math.random(1,3) == 1 then
-- remove a flammable node around flame
local p = minetest.find_node_near(p0, 1, {"group:flammable"})
if p then if p then
-- If there is water or stuff like that around flame, don't remove minetest.set_node(p, {name = "mcl_fire:fire"})
if mcl_fire.flame_should_extinguish(p0) then
return
end
minetest.remove_node(p)
core.check_for_falling(p)
end end
else end,
-- remove flame })
minetest.remove_node(p0)
mcl_fire.on_flame_remove_at(p0)
end
end,
})
-- -- Remove flammable nodes around fire
-- Flint and Steel
--
function mcl_fire.set_fire(pointed_thing) minetest.register_abm({
label = "Remove flammable nodes",
nodenames = {"mcl_fire:fire"},
neighbors = "group:flammable",
interval = 5,
chance = 18,
catch_up = false,
action = function(pos, node, active_object_count, active_object_count_wider)
local p = minetest.find_node_near(pos, 1, {"group:flammable"})
if p then
local flammable_node = minetest.get_node(p)
local def = minetest.registered_nodes[flammable_node.name]
if def.on_burn then
def.on_burn(p)
else
minetest.remove_node(p)
minetest.check_for_falling(p)
end
end
end,
})
end
-- Set pointed_thing on fire
mcl_fire.set_fire = function(pointed_thing)
local n = minetest.get_node(pointed_thing.above) local n = minetest.get_node(pointed_thing.above)
if n.name ~= "" and n.name == "air" and not minetest.is_protected(pointed_thing.above, "fire") then if n.name ~= "" and n.name == "air" and not minetest.is_protected(pointed_thing.above, "fire") then
minetest.add_node(pointed_thing.above, {name="mcl_fire:basic_flame"}) minetest.add_node(pointed_thing.above, {name="mcl_fire:fire"})
end end
end end
-- minetest.register_alias("mcl_fire:basic_flame", "mcl_fire:fire")
-- Fire Particles minetest.register_alias("fire:basic_flame", "mcl_fire:fire")
-- minetest.register_alias("fire:permanent_flame", "mcl_fire:eternal_flame")
function mcl_fire.add_fire(pos)
local null = {x=0, y=0, z=0}
pos.y = pos.y+0.19
minetest.add_particle({
pos = pos,
velocity = null,
acceleration = null,
expirationtime = 1.1,
size = 1.5,
collisiondetection = true,
texture = "default_fire_particle"..tostring(math.random(1,2)) ..".png"
})
pos.y = pos.y +0.01
minetest.add_particle({
pos = pos,
velocity = null,
acceleration = null,
expirationtime = 0.8,
size = 1.5,
collisiondetection = true,
texture = "default_fire_particle"..tostring(math.random(1,2)) ..".png"
})
end
dofile(minetest.get_modpath(minetest.get_current_modname()).."/flint_and_steel.lua") dofile(minetest.get_modpath(minetest.get_current_modname()).."/flint_and_steel.lua")
dofile(minetest.get_modpath(minetest.get_current_modname()).."/fire_charge.lua") dofile(minetest.get_modpath(minetest.get_current_modname()).."/fire_charge.lua")
local time_to_load= os.clock() - init
print(string.format("[MOD] "..minetest.get_current_modname().." loaded in %.4f s", time_to_load))

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.