1
0
Fork 0
MineClone2/mods/ENTITIES/mcl_burning/api.lua

170 lines
5.1 KiB
Lua
Raw Normal View History

2021-01-01 19:25:47 +01:00
local S = minetest.get_translator("mcl_burning")
2021-04-25 13:09:20 +02:00
function mcl_burning.get_storage(obj)
return obj:is_player() and mcl_burning.storage[obj] or obj:get_luaentity()
2021-01-01 19:25:47 +01:00
end
function mcl_burning.is_burning(obj)
2021-04-25 13:09:20 +02:00
return mcl_burning.get_storage(obj).burn_time
2021-01-01 19:25:47 +01:00
end
function mcl_burning.is_affected_by_rain(obj)
2021-04-25 13:09:20 +02:00
return mcl_weather.get_weather() == "rain" and mcl_weather.is_outdoor(obj:get_pos())
2021-01-01 19:25:47 +01:00
end
2021-04-25 13:09:20 +02:00
function mcl_burning.get_collisionbox(obj, smaller, storage)
local cache = storage.collisionbox_cache
if cache then
local box = cache[smaller and 2 or 1]
return box[1], box[2]
else
local box = obj:get_properties().collisionbox
local minp, maxp = vector.new(box[1], box[2], box[3]), vector.new(box[4], box[5], box[6])
2021-01-27 20:11:02 +01:00
local s_vec = vector.new(0.1, 0.1, 0.1)
2021-04-25 13:09:20 +02:00
local s_minp = vector.add(minp, s_vec)
local s_maxp = vector.subtract(maxp, s_vec)
storage.collisionbox_cache = {{minp, maxp}, {s_minp, s_maxp}}
return minp, maxp
2021-01-27 20:11:02 +01:00
end
2021-01-01 19:25:47 +01:00
end
2021-04-25 13:09:20 +02:00
function mcl_burning.get_touching_nodes(obj, nodenames, storage)
2021-01-01 19:25:47 +01:00
local pos = obj:get_pos()
2021-04-25 13:09:20 +02:00
local minp, maxp = mcl_burning.get_collisionbox(obj, true, storage)
2021-01-01 19:25:47 +01:00
local nodes = minetest.find_nodes_in_area(vector.add(pos, minp), vector.add(pos, maxp), nodenames)
return nodes
end
2021-02-22 10:55:14 +01:00
function mcl_burning.set_on_fire(obj, burn_time, reason)
2021-03-19 11:40:46 +01:00
if obj:get_hp() < 0 then
return
end
2021-04-25 13:09:20 +02:00
local storage = mcl_burning.get_storage(obj)
2021-01-01 19:25:47 +01:00
local luaentity = obj:get_luaentity()
if luaentity and luaentity.fire_resistant then
return
end
2021-04-25 13:29:07 +02:00
if obj:is_player() and minetest.is_creative_enabled(obj:get_player_name()) then
burn_time = 0
else
local max_fire_prot_lvl = 0
local inv = mcl_util.get_inventory(obj)
local armor_list = inv and inv:get_list("armor")
if armor_list then
for _, stack in pairs(armor_list) do
local fire_prot_lvl = mcl_enchanting.get_enchantment(stack, "fire_protection")
if fire_prot_lvl > max_fire_prot_lvl then
max_fire_prot_lvl = fire_prot_lvl
end
end
end
2021-04-25 13:29:07 +02:00
if max_fire_prot_lvl > 0 then
burn_time = burn_time - math.floor(burn_time * max_fire_prot_lvl * 0.15)
2021-01-01 19:25:47 +01:00
end
end
2021-04-25 13:09:20 +02:00
if not storage.burn_time or burn_time >= storage.burn_time then
if obj:is_player() and not storage.fire_hud_id then
storage.fire_hud_id = obj:hud_add({
hud_elem_type = "image",
position = {x = 0.5, y = 0.5},
scale = {x = -100, y = -100},
text = "mcl_burning_entity_flame_animated.png^[opacity:180^[verticalframe:" .. mcl_burning.animation_frames .. ":" .. 1,
z_index = 1000,
})
2021-01-01 19:25:47 +01:00
end
2021-04-25 13:09:20 +02:00
storage.burn_time = burn_time
storage.burn_reason = reason
storage.fire_damage_timer = 0
2021-01-01 19:25:47 +01:00
local fire_entity = minetest.add_entity(obj:get_pos(), "mcl_burning:fire")
2021-04-25 13:09:20 +02:00
local minp, maxp = mcl_burning.get_collisionbox(obj, false, storage)
2021-01-01 19:25:47 +01:00
local obj_size = obj:get_properties().visual_size
local vertical_grow_factor = 1.2
local horizontal_grow_factor = 1.1
local grow_vector = vector.new(horizontal_grow_factor, vertical_grow_factor, horizontal_grow_factor)
2021-01-01 19:25:47 +01:00
local size = vector.subtract(maxp, minp)
size = vector.multiply(size, grow_vector)
size = vector.divide(size, obj_size)
local offset = vector.new(0, size.y * 10 / 2, 0)
fire_entity:set_properties({visual_size = size})
fire_entity:set_attach(obj, "", offset, {x = 0, y = 0, z = 0})
2021-04-25 13:09:20 +02:00
local fire_luaentity = fire_entity:get_luaentity()
fire_luaentity:update_frame(obj, storage)
for _, other in pairs(minetest.get_objects_inside_radius(fire_entity:get_pos(), 0)) do
local other_luaentity = other:get_luaentity()
if other_luaentity and other_luaentity.name == "mcl_burning:fire" and other_luaentity ~= fire_luaentity then
other:remove()
break
end
end
2021-01-01 19:25:47 +01:00
end
end
function mcl_burning.extinguish(obj)
if mcl_burning.is_burning(obj) then
2021-04-25 13:09:20 +02:00
local storage = mcl_burning.get_storage(obj)
2021-01-01 19:25:47 +01:00
if obj:is_player() then
2021-04-25 13:09:20 +02:00
if storage.fire_hud_id then
obj:hud_remove(storage.fire_hud_id)
end
mcl_burning.storage[obj] = {}
else
storage.burn_time = nil
storage.burn_reason = nil
storage.fire_damage_timer = nil
2021-01-01 19:25:47 +01:00
end
end
end
2021-04-25 13:09:20 +02:00
function mcl_burning.tick(obj, dtime, storage)
if storage.burn_time then
storage.burn_time = storage.burn_time - dtime
2021-04-25 13:09:20 +02:00
if storage.burn_time <= 0 or mcl_burning.is_affected_by_rain(obj) or #mcl_burning.get_touching_nodes(obj, "group:puts_out_fire", storage) > 0 then
mcl_burning.extinguish(obj)
return true
else
storage.fire_damage_timer = storage.fire_damage_timer + dtime
if storage.fire_damage_timer >= 1 then
storage.fire_damage_timer = 0
2021-04-25 13:29:07 +02:00
local hp = mcl_util.get_hp(obj)
2021-04-25 13:09:20 +02:00
if hp > 0 then
local do_damage = true
if obj:is_player() then
if mcl_potions.player_has_effect(obj, "fire_proof") then
do_damage = false
else
local name = obj:get_player_name()
local deathmsg = S("@1 burned to death.", name)
if storage.reason then
deathmsg = S("@1 was burned by @2.", name, storage.reason)
end
mcl_death_messages.player_damage(obj, deathmsg)
end
2021-04-25 13:29:07 +02:00
elseif obj:get_luaentity().fire_damage_resistant then
2021-04-25 13:09:20 +02:00
do_damage = false
end
if do_damage then
2021-04-25 13:29:07 +02:00
mcl_util.deal_damage(obj, 1, {reason = "on_fire"})
2021-04-25 13:09:20 +02:00
end
end
2021-01-01 19:25:47 +01:00
end
end
end
end