2017-02-19 22:46:22 +01:00
-- Global namespace for functions
mcl_fire = { }
2019-03-08 00:00:09 +01:00
local S = minetest.get_translator ( " mcl_fire " )
2019-03-15 07:10:18 +01:00
local N = function ( s ) return s end
2017-02-19 22:46:22 +01:00
2020-08-19 19:27:59 +02:00
local spawn_smoke = function ( pos )
mcl_particles.add_node_particlespawner ( pos , {
amount = 0.1 ,
time = 0 ,
minpos = vector.add ( pos , { x = - 0.45 , y = - 0.45 , z = - 0.45 } ) ,
maxpos = vector.add ( pos , { x = 0.45 , y = 0.45 , z = 0.45 } ) ,
minvel = { x = 0 , y = 0.5 , z = 0 } ,
maxvel = { x = 0 , y = 0.6 , z = 0 } ,
minexptime = 2.0 ,
maxexptime = 2.0 ,
minsize = 3.0 ,
maxsize = 4.0 ,
texture = " mcl_particles_smoke_anim.png^[colorize:#000000:127 " ,
animation = {
type = " vertical_frames " ,
aspect_w = 8 ,
aspect_h = 8 ,
2020-08-19 20:44:12 +02:00
length = 2.1 ,
2020-08-19 19:27:59 +02:00
} ,
2020-08-19 20:39:05 +02:00
} , " high " )
2020-08-19 19:27:59 +02:00
end
2022-01-23 03:17:51 +01:00
local adjacents = {
{ x =- 1 , y = 0 , z = 0 } ,
{ x = 1 , y = 0 , z = 0 } ,
{ x = 0 , y = 1 , z = 0 } ,
{ x = 0 , y =- 1 , z = 0 } ,
{ x = 0 , y = 0 , z =- 1 } ,
{ x = 0 , y = 0 , z = 1 } ,
}
local function shuffle_adjacents ( )
for i = # adjacents , 1 , - 1 do
local r = math.random ( i )
adjacents [ i ] , adjacents [ r ] = adjacents [ r ] , adjacents [ i ]
end
end
2022-01-15 23:06:00 +01:00
local function has_flammable ( pos )
2022-01-23 03:17:51 +01:00
for k , v in pairs ( adjacents ) do
local p = vector.add ( pos , v )
local n = minetest.get_node_or_nil ( p )
2022-01-23 11:19:55 +01:00
if n and minetest.get_item_group ( n.name , " flammable " ) ~= 0 then
2022-01-23 03:17:51 +01:00
return p
end
end
2022-01-15 23:06:00 +01:00
end
2017-02-19 22:46:22 +01:00
--
-- Items
--
-- Flame nodes
2019-03-15 04:25:54 +01:00
-- Fire settings
-- When enabled, fire destroys other blocks.
2019-04-09 15:25:27 +02:00
local fire_enabled = minetest.settings : get_bool ( " enable_fire " , true )
2019-03-15 04:25:54 +01:00
-- Enable sound
2019-04-09 15:25:27 +02:00
local flame_sound = minetest.settings : get_bool ( " flame_sound " , true )
2019-03-15 04:25:54 +01:00
-- Help texts
2019-04-09 15:25:27 +02:00
local fire_help , eternal_fire_help
2019-03-15 04:25:54 +01:00
if fire_enabled then
fire_help = S ( " Fire is a damaging and destructive but short-lived kind of block. It will destroy and spread towards near flammable blocks, but fire will disappear when there is nothing to burn left. It will be extinguished by nearby water and rain. Fire can be destroyed safely by punching it, but it is hurtful if you stand directly in it. If a fire is started above netherrack or a magma block, it will immediately turn into an eternal fire. " )
else
2019-03-15 04:36:17 +01:00
fire_help = S ( " Fire is a damaging but non-destructive short-lived kind of block. It will disappear when there is no flammable block around. Fire does not destroy blocks, at least not in this world. It will be extinguished by nearby water and rain. Fire can be destroyed safely by punching it, but it is hurtful if you stand directly in it. If a fire is started above netherrack or a magma block, it will immediately turn into an eternal fire. " )
2019-03-15 04:25:54 +01:00
end
2019-04-09 15:25:27 +02:00
if fire_enabled then
eternal_fire_help = S ( " Eternal fire is a damaging block that might create more fire. It will create fire around it when flammable blocks are nearby. Eternal fire can be extinguished by punches and nearby water blocks. Other than (normal) fire, eternal fire does not get extinguished on its own and also continues to burn under rain. Punching eternal fire is safe, but it hurts if you stand inside. " )
else
eternal_fire_help = S ( " Eternal fire is a damaging block. Eternal fire can be extinguished by punches and nearby water blocks. Other than (normal) fire, eternal fire does not get extinguished on its own and also continues to burn under rain. Punching eternal fire is safe, but it hurts if you stand inside. " )
end
2019-03-15 04:25:54 +01:00
2019-03-08 21:59:16 +01:00
local fire_death_messages = {
2019-03-15 07:10:18 +01:00
N ( " @1 has been cooked crisp. " ) ,
N ( " @1 felt the burn. " ) ,
N ( " @1 died in the flames. " ) ,
N ( " @1 died in a fire. " ) ,
2019-03-08 21:59:16 +01:00
}
2017-03-11 20:54:27 +01:00
2020-05-09 17:53:32 +02:00
local spawn_fire = function ( pos , age )
minetest.set_node ( pos , { name = " mcl_fire:fire " , param2 = age } )
minetest.check_single_for_falling ( { x = pos.x , y = pos.y + 1 , z = pos.z } )
end
2022-01-14 23:50:36 +01:00
local function fire_timer ( pos )
return minetest.get_node_timer ( pos ) : start ( math.random ( 30 , 60 ) )
end
2017-02-19 22:46:22 +01:00
minetest.register_node ( " mcl_fire:fire " , {
2019-03-08 00:00:09 +01:00
description = S ( " Fire " ) ,
2017-03-11 20:54:27 +01:00
_doc_items_longdesc = fire_help ,
2017-01-05 04:50:26 +01:00
drawtype = " firelike " ,
2017-02-19 22:46:22 +01:00
tiles = {
{
name = " fire_basic_flame_animated.png " ,
animation = {
type = " vertical_frames " ,
aspect_w = 16 ,
aspect_h = 16 ,
length = 1
} ,
} ,
} ,
2015-06-29 19:55:56 +02:00
inventory_image = " fire_basic_flame.png " ,
2017-02-19 22:46:22 +01:00
paramtype = " light " ,
2019-12-14 18:57:17 +01:00
light_source = minetest.LIGHT_MAX ,
2015-06-29 19:55:56 +02:00
walkable = false ,
buildable_to = true ,
2017-02-19 22:46:22 +01:00
sunlight_propagates = true ,
damage_per_second = 1 ,
2019-03-08 21:59:16 +01:00
_mcl_node_death_message = fire_death_messages ,
2021-01-01 19:25:47 +01:00
groups = { fire = 1 , dig_immediate = 3 , not_in_creative_inventory = 1 , dig_by_piston = 1 , destroys_items = 1 , set_on_fire = 8 } ,
2017-08-21 16:37:21 +02:00
floodable = true ,
on_flood = function ( pos , oldnode , newnode )
if minetest.get_item_group ( newnode.name , " water " ) ~= 0 then
2020-04-07 00:55:45 +02:00
minetest.sound_play ( " fire_extinguish_flame " , { pos = pos , gain = 0.25 , max_hear_distance = 16 } , true )
2017-08-21 16:37:21 +02:00
end
end ,
2017-02-19 22:46:22 +01:00
drop = " " ,
2017-02-19 22:54:06 +01:00
sounds = { } ,
2022-01-14 23:01:12 +01:00
on_timer = function ( pos )
2022-01-15 23:06:00 +01:00
local p = has_flammable ( pos )
if not p or minetest.get_item_group ( minetest.get_node ( p ) . name , " flammable " ) == - 1 then
2022-01-14 23:01:12 +01:00
minetest.remove_node ( pos )
return
end
-- Restart timer
return true
end ,
2017-09-19 15:45:23 +02:00
-- Turn into eternal fire on special blocks, light Nether portal (if possible), start burning timer
2017-02-19 22:46:22 +01:00
on_construct = function ( pos )
2017-11-11 19:52:11 +01:00
local bpos = { x = pos.x , y = pos.y - 1 , z = pos.z }
local under = minetest.get_node ( bpos ) . name
2017-09-19 15:45:23 +02:00
2017-11-24 03:10:02 +01:00
local dim = mcl_worlds.pos_to_dimension ( bpos )
2017-11-11 19:52:11 +01:00
if under == " mcl_nether:magma " or under == " mcl_nether:netherrack " or ( under == " mcl_core:bedrock " and dim == " end " ) then
2022-01-16 12:26:50 +01:00
spawn_fire ( pos )
2017-07-26 22:00:19 +02:00
end
2017-09-19 15:45:23 +02:00
if minetest.get_modpath ( " mcl_portals " ) then
mcl_portals.light_nether_portal ( pos )
end
2020-08-19 19:27:59 +02:00
spawn_smoke ( pos )
2022-01-14 23:50:36 +01:00
fire_timer ( pos )
2020-08-19 19:27:59 +02:00
end ,
on_destruct = function ( pos )
mcl_particles.delete_node_particlespawners ( pos )
2015-06-29 19:55:56 +02:00
end ,
2017-02-22 16:03:59 +01:00
_mcl_blast_resistance = 0 ,
2015-06-29 19:55:56 +02:00
} )
2017-02-19 22:46:22 +01:00
minetest.register_node ( " mcl_fire:eternal_fire " , {
2019-03-08 00:00:09 +01:00
description = S ( " Eternal Fire " ) ,
2017-03-11 20:54:27 +01:00
_doc_items_longdesc = eternal_fire_help ,
2017-02-19 22:46:22 +01:00
drawtype = " firelike " ,
tiles = {
{
name = " fire_basic_flame_animated.png " ,
animation = {
type = " vertical_frames " ,
aspect_w = 16 ,
aspect_h = 16 ,
length = 1
} ,
} ,
} ,
inventory_image = " fire_basic_flame.png " ,
paramtype = " light " ,
2019-12-14 18:57:17 +01:00
light_source = minetest.LIGHT_MAX ,
2017-02-19 22:46:22 +01:00
walkable = false ,
buildable_to = true ,
sunlight_propagates = true ,
damage_per_second = 1 ,
2019-03-08 21:59:16 +01:00
_mcl_node_death_message = fire_death_messages ,
2021-01-01 19:25:47 +01:00
groups = { fire = 1 , dig_immediate = 3 , not_in_creative_inventory = 1 , dig_by_piston = 1 , destroys_items = 1 , set_on_fire = 8 } ,
2017-08-21 16:37:21 +02:00
floodable = true ,
on_flood = function ( pos , oldnode , newnode )
if minetest.get_item_group ( newnode.name , " water " ) ~= 0 then
2020-04-07 00:55:45 +02:00
minetest.sound_play ( " fire_extinguish_flame " , { pos = pos , gain = 0.25 , max_hear_distance = 16 } , true )
2017-08-21 16:37:21 +02:00
end
end ,
2017-05-20 02:45:37 +02:00
on_construct = function ( pos )
2017-09-19 15:45:23 +02:00
if minetest.get_modpath ( " mcl_portals " ) then
mcl_portals.light_nether_portal ( pos )
end
2020-08-19 19:27:59 +02:00
spawn_smoke ( pos )
end ,
on_destruct = function ( pos )
mcl_particles.delete_node_particlespawners ( pos )
2017-05-20 02:45:37 +02:00
end ,
2017-02-19 22:54:06 +01:00
sounds = { } ,
2017-02-19 22:46:22 +01:00
drop = " " ,
2017-02-22 16:03:59 +01:00
_mcl_blast_resistance = 0 ,
2017-02-19 22:46:22 +01:00
} )
--
-- Sound
--
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
2019-02-01 06:33:07 +01:00
local ppos = player : get_pos ( )
2017-02-19 22:46:22 +01:00
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
2019-09-05 00:07:32 +02:00
minetest.sound_fade ( handles [ player_name ] , - 0.4 , 0.0 )
2017-02-19 22:46:22 +01:00
handles [ player_name ] = nil
2015-06-29 19:55:56 +02:00
end
2017-02-19 22:46:22 +01:00
-- 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
2015-06-29 19:55:56 +02:00
end
end
2017-02-19 22:46:22 +01:00
-- Cycle for updating players sounds
2015-06-29 19:55:56 +02:00
2017-02-19 22:46:22 +01:00
minetest.register_globalstep ( function ( dtime )
timer = timer + dtime
if timer < cycle then
return
end
2015-06-29 19:55:56 +02:00
2017-02-19 22:46:22 +01:00
timer = 0
local players = minetest.get_connected_players ( )
for n = 1 , # players do
mcl_fire.update_player_sound ( players [ n ] )
end
end )
-- Stop sound and clear handle on player leave
2015-06-29 19:55:56 +02:00
2017-02-19 22:46:22 +01:00
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 )
2015-06-29 19:55:56 +02:00
end
2017-02-19 22:46:22 +01:00
2022-01-14 22:15:44 +01:00
-- Set pointed_thing on (normal) fire.
-- * pointed_thing: Pointed thing to ignite
-- * player: Player who sets fire or nil if nobody
-- * allow_on_fire: If false, can't ignite fire on fire (default: true)
mcl_fire.set_fire = function ( pointed_thing , player , allow_on_fire )
local pname
if player == nil then
pname = " "
else
pname = player : get_player_name ( )
end
local n = minetest.get_node ( pointed_thing.above )
local nu = minetest.get_node ( pointed_thing.under )
if allow_on_fire == false and minetest.get_item_group ( nu.name , " fire " ) ~= 0 then
return
end
if minetest.is_protected ( pointed_thing.above , pname ) then
minetest.record_protection_violation ( pointed_thing.above , pname )
return
end
if n.name == " air " then
minetest.add_node ( pointed_thing.above , { name = " mcl_fire:fire " } )
end
end
2017-02-19 22:46:22 +01:00
--
-- ABMs
--
2017-05-20 02:45:37 +02:00
-- Extinguish all flames quickly with water and such
2017-02-19 22:46:22 +01:00
2015-06-29 19:55:56 +02:00
minetest.register_abm ( {
2020-04-22 01:31:30 +02:00
label = " Extinguish fire " ,
2017-02-19 22:46:22 +01:00
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 " ,
2020-04-07 00:55:45 +02:00
{ pos = pos , max_hear_distance = 16 , gain = 0.15 } , true )
2015-06-29 19:55:56 +02:00
end ,
} )
2017-02-19 22:46:22 +01:00
-- Enable the following ABMs according to 'enable fire' setting
2022-01-15 03:31:15 +01:00
-- [...]a fire that is not adjacent to any flammable block does not spread, even to another flammable block within the normal range.
-- https://minecraft.fandom.com/wiki/Fire#Spread
local function check_aircube ( p1 , p2 )
local nds = minetest.find_nodes_in_area ( p1 , p2 , { " air " } )
for k , v in pairs ( nds ) do
if has_flammable ( v ) then return v end
2020-12-14 21:27:20 +01:00
end
2022-01-15 03:31:15 +01:00
end
-- [...] a fire block can turn any air block that is adjacent to a flammable block into a fire block. This can happen at a distance of up to one block downward, one block sideways (including diagonals), and four blocks upward of the original fire block (not the block the fire is on/next to).
local function get_ignitable ( pos )
return check_aircube ( vector.add ( pos , vector.new ( - 1 , - 1 , - 1 ) ) , vector.add ( pos , vector.new ( 1 , 4 , 1 ) ) )
end
-- Fire spreads from a still lava block similarly: any air block one above and up to one block sideways (including diagonals) or two above and two blocks sideways (including diagonals) that is adjacent to a flammable block may be turned into a fire block.
local function get_ignitable_by_lava ( pos )
return check_aircube ( vector.add ( pos , vector.new ( - 1 , 1 , - 1 ) ) , vector.add ( pos , vector.new ( 1 , 1 , 1 ) ) ) or check_aircube ( vector.add ( pos , vector.new ( - 2 , 2 , - 2 ) ) , vector.add ( pos , vector.new ( 2 , 2 , 2 ) ) ) or nil
2020-12-14 21:27:20 +01:00
end
2017-02-19 22:46:22 +01:00
if not fire_enabled then
2019-04-09 15:25:27 +02:00
-- Occasionally remove fire if fire disabled
-- NOTE: Fire is normally extinguished in timer function
2017-02-19 22:46:22 +01:00
minetest.register_abm ( {
label = " Remove disabled fire " ,
2017-05-20 03:24:36 +02:00
nodenames = { " mcl_fire:fire " } ,
2019-04-09 15:25:27 +02:00
interval = 10 ,
chance = 10 ,
2017-02-19 22:46:22 +01:00
catch_up = false ,
action = minetest.remove_node ,
} )
2019-04-09 15:25:27 +02:00
else -- Fire enabled
2022-01-15 03:31:15 +01:00
-- Fire Spread
2017-05-20 03:24:36 +02:00
minetest.register_abm ( {
2022-01-15 03:31:15 +01:00
label = " Ignite flame " ,
nodenames = { " mcl_fire:fire " , " mcl_fire:eternal_fire " } ,
2017-05-20 03:24:36 +02:00
interval = 7 ,
2022-01-15 03:31:15 +01:00
chance = 12 ,
2017-05-20 03:24:36 +02:00
catch_up = false ,
action = function ( pos )
2022-01-15 03:31:15 +01:00
local p = get_ignitable ( pos )
if p then
2022-01-16 12:26:50 +01:00
spawn_fire ( p )
2022-01-23 03:17:51 +01:00
shuffle_adjacents ( )
2017-05-20 03:24:36 +02:00
end
2022-01-15 03:31:15 +01:00
end
2017-05-20 03:24:36 +02:00
} )
2022-01-15 03:31:15 +01:00
--lava fire spread
2022-01-14 22:15:44 +01:00
minetest.register_abm ( {
2022-01-15 03:31:15 +01:00
label = " Ignite fire by lava " ,
nodenames = { " mcl_core:lava_source " , " mcl_nether:nether_lava_source " } ,
neighbors = { " air " , " group:flammable " } ,
2022-01-14 22:15:44 +01:00
interval = 7 ,
2022-01-15 03:31:15 +01:00
chance = 3 ,
2022-01-14 22:15:44 +01:00
catch_up = false ,
action = function ( pos )
2022-01-15 03:31:15 +01:00
local p = get_ignitable_by_lava ( pos )
2022-01-14 22:15:44 +01:00
if p then
2022-01-16 12:26:50 +01:00
spawn_fire ( p )
2022-01-14 22:15:44 +01:00
end
2022-01-15 03:31:15 +01:00
end ,
2022-01-14 22:15:44 +01:00
} )
2017-02-01 16:43:05 +01:00
2022-01-14 22:15:44 +01:00
-- Remove flammable nodes around basic flame
minetest.register_abm ( {
label = " Remove flammable nodes " ,
2022-01-14 23:50:36 +01:00
nodenames = { " mcl_fire:fire " , " mcl_fire:eternal_fire " } ,
neighbors = { " group:flammable " } ,
2022-01-14 22:15:44 +01:00
interval = 5 ,
chance = 18 ,
catch_up = false ,
action = function ( pos )
2022-01-15 23:06:00 +01:00
local p = has_flammable ( pos )
2022-01-14 22:15:44 +01:00
if not p then
return
end
2022-01-15 23:06:00 +01:00
local nn = minetest.get_node ( p ) . name
local def = minetest.registered_nodes [ nn ]
local fgroup = minetest.get_item_group ( nn , " flammable " )
if def and def._on_burn then
def._on_burn ( p )
elseif fgroup ~= - 1 then
2022-01-16 12:26:50 +01:00
spawn_fire ( p )
2022-01-14 23:50:36 +01:00
fire_timer ( p )
2022-01-14 22:15:44 +01:00
minetest.check_for_falling ( p )
end
end
} )
2017-02-01 16:43:05 +01:00
end
2020-08-19 19:27:59 +02:00
minetest.register_lbm ( {
label = " Smoke particles from fire " ,
name = " mcl_fire:smoke " ,
nodenames = { " group:fire " } ,
run_at_every_load = true ,
action = function ( pos , node )
spawn_smoke ( pos )
end ,
} )
2017-02-19 22:46:22 +01:00
minetest.register_alias ( " mcl_fire:basic_flame " , " mcl_fire:fire " )
minetest.register_alias ( " fire:basic_flame " , " mcl_fire:fire " )
2020-09-20 01:38:31 +02:00
minetest.register_alias ( " fire:permanent_flame " , " mcl_fire:eternal_fire " )
2017-02-01 16:43:05 +01:00
2017-02-01 16:31:27 +01:00
dofile ( minetest.get_modpath ( minetest.get_current_modname ( ) ) .. " /flint_and_steel.lua " )
2017-02-01 16:39:51 +01:00
dofile ( minetest.get_modpath ( minetest.get_current_modname ( ) ) .. " /fire_charge.lua " )