Move damage effect to API, add advanced damage checks, add dewpoint influence

ca_effects/damage.lua

@@ -0,0 +1,84 @@
+--[[
+# Player Damage Effect
+Use this effect to damage a player during dangerous weather events.
+Expects a table as the parameter containing the following values:
+- value <int> [1]: The amount of damage to be applied per successful roll.
+- chance <int> [1]: Defines a 1/x roll per cycle for the player to get damaged. Higher values result in less frequent damage.
+- check <table> [nil]: Use an additional outdoors check before applying damage. Consists of the following values:
+	- type <"light"|"raycast"> ["light"] (Whether the light level should be used a raycast should be performed)
+	- height <number> [0] (Height offset of weather origin from the player. Only used for raycasts)
+	- velocity <number> [1] (Velocity of damaging particles. Only used for raycasts)
+	- use_wind <bool> [true] (Whether the wind should be factored in. Only used for raycasts)
+]]
+
+if not minetest.is_yes(minetest.settings:get_bool("enable_damage"))
+or not climate_mod.settings.damage then return end
+
+local EFFECT_NAME = "climate_api:damage"
+
+local rng = PcgRandom(7819792)
+
+local function check_hit(player, ray)
+	local ppos = vector.add(player:get_pos(), {x=0, y=1, z=0})
+	if ray.type ~= nil and ray.type ~= "light" and ray.type ~= "raycast" then
+		minetest.log("warning", "[Climate API] Invalid damage check configuration")
+		return false
+	end
+
+	-- use light level if specified or in performance mode
+	if ray.type == nil
+	or ray.type == "light"
+	or not climate_mod.settings.raycast then
+		return minetest.get_node_light(ppos, 0.5) == 15
+	end
+
+	-- use raycating to factor in wind speed
+	local origin = vector.add(ppos, {x = 0, y = ray.height or 0, z = 0 })
+	if ray.use_wind ~= false then
+		local wind = climate_api.environment.get_wind()
+		local velocity = ray.velocity or 1
+		local windpos = vector.multiply(
+			vector.normalize(vector.add({ x = 0, y = -velocity, z = 0 }, wind)),
+			-vector.length(wind)
+		)
+		origin = vector.add(origin, windpos)
+	end
+	local ray = minetest.raycast(origin, ppos)
+	local obj = ray:next()
+	-- found nothing
+	if obj == nil then return false end
+	-- found node
+	if obj.type ~= "object" then return false end
+	-- found different entity
+	if not obj.ref:is_player() then return false end
+	 -- found another player
+	if obj.ref:get_player_name() ~= player:get_player_name() then return false end
+	return true
+end
+
+local function calc_damage(player, dmg)
+	if dmg.value == nil then dmg.value = 1 end
+	if dmg.chance == nil then dmg.chance = 1 end
+	-- check if damage should be applied
+	if rng:next(1, dmg.chance) ~= 1 then return 0 end
+	if dmg.check ~= nil then
+		-- check for obstacles in the way
+		if not check_hit(player, dmg.check) then return 0 end
+	end
+	return dmg.value
+end
+
+local function handle_effect(player_data)
+	for playername, data in pairs(player_data) do
+		local player = minetest.get_player_by_name(playername)
+		local hp = player:get_hp()
+		for weather, dmg in pairs(data) do
+			hp = hp - calc_damage(player, dmg)
+		end
+		-- deal damage to player
+		player:set_hp(hp, "weather damage")
+	end
+end
+
+climate_api.register_effect(EFFECT_NAME, handle_effect, "tick")
+climate_api.set_effect_cycle(EFFECT_NAME, climate_api.MEDIUM_CYCLE)