Replace weather types with stackable effects

This commit is contained in:
Till Affeldt
2020-04-09 18:31:52 +02:00
parent f16171cfd7
commit 3581ad71cb
20 changed files with 409 additions and 271 deletions

87
lib/commands.lua Normal file
View File

@ -0,0 +1,87 @@
minetest.register_privilege("weather", {
description = "Change the weather",
give_to_singleplayer = false
})
-- Force a weather effect to override environment
minetest.register_chatcommand("set_weather", {
params = "<weather>",
description = "Set weather to a registered type of effect\
show all types when no parameters are given", -- full description
privs = {weather = true},
func = function(name, param)
if param == nil or param == "" or param == "?" then
local types="auto"
for i,_ in pairs(weather_mod.weathers) do
types=types..", "..i
end
minetest.chat_send_player(name, "avalible weather types: "..types)
else
if type(weather_mod.weathers[param]) == "nil" and param ~= "auto" then
minetest.chat_send_player(name, "This type of weather is not registered.\n"..
"To list all types of weather run the command without parameters.")
else
weather_mod.state.current_weather = param
end
end
end
})
-- Set wind speed and direction
minetest.register_chatcommand("set_wind", {
params = "<weather>",
description = "Set wind to the given x,z direction", -- full description
privs = {weather = true},
func = function(name, param)
if param==nil or param=="" then
minetest.chat_send_player(name, "please provide two comma seperated numbers")
return
end
local x,z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)$")
x=tonumber(x)
z=tonumber(z)
if x and z then
weather_mod.state.wind = vector.new(x,0,z)
else
minetest.chat_send_player(name, param.." are not two comma seperated numbers")
end
end
})
-- Set base value of global heat level
minetest.register_chatcommand("set_heat", {
params = "<weather>",
description = "Set base value of global heat level", -- full description
privs = {weather = true},
func = function(name, param)
if param==nil or param=="" then
minetest.chat_send_player(name, "please provide a heat value")
return
end
v = tonumber(param)
if v then
weather_mod.state.heat = v
else
minetest.chat_send_player(name, param.." is not a valid heat level")
end
end
})
-- Set base value of global humidity level
minetest.register_chatcommand("set_humidity", {
params = "<weather>",
description = "Set base value of global humidity level", -- full description
privs = {weather = true},
func = function(name, param)
if param==nil or param=="" then
minetest.chat_send_player(name, "please provide a humidity value")
return
end
v = tonumber(param)
if v then
weather_mod.state.humidity = v
else
minetest.chat_send_player(name, param.." is not a valid humidity level")
end
end
})

View File

@ -13,50 +13,47 @@ function weather_mod.get_humidity(pos)
return (base + biome) * random
end
function weather_mod.get_climate(pos)
local climate = {pos = pos}
climate.heat = weather_mod.get_heat(pos)
climate.humidity = weather_mod.get_humidity(pos)
climate.windspeed = vector.length(weather_mod.state.wind)
return climate
end
local function is_acceptable_weather_param(value, attr, config)
local min = config.conditions["min_" .. attr] or -10000
local min = config.conditions["min_" .. attr] or -math.huge
local max = config.conditions["max_" .. attr] or math.huge
minetest.log(attr .. ": " .. value .. " <=> " .. min .. "," .. max)
return value > min and value <= max
end
function weather_mod.get_weather(pos, wind)
function weather_mod.get_effects(climate)
local forced_weather = weather_mod.state.current_weather
if type(forced_weather) ~= nil and forced_weather ~= "auto" then
return { forced_weather }
end
local params = {}
params.heat = weather_mod.get_heat(pos)
params.humidity = weather_mod.get_humidity(pos)
params.windspeed = vector.length(wind)
minetest.log(params.heat .. ", " .. params.humidity .. ", " .. params.windspeed)
params.heat = climate.heat
params.humidity = climate.humidity
params.windspeed = vector.length(weather_mod.state.wind)
params.height = climate.pos.y
local weather
local priority = -1
local attributes = { "heat", "humidity", "windspeed" }
for name, config in pairs(weather_mod.weathers) do
minetest.log(dump2(priority, "p"))
if type(priority) ~= "nil" and config.priority < priority then
minetest.log("skipped " .. name)
local effects = {}
local attributes = { "heat", "humidity", "windspeed", "height" }
for name, effect in pairs(weather_mod.weathers) do
if type(effect.config.conditions) == "nil" then
table.insert(effects, name)
goto continue
end
elseif type(config.conditions) == "nil" then
weather = name
priority = config.priority
minetest.log("selected (nil) " .. name)
else
local check = true
for _, attr in ipairs(attributes) do
if not is_acceptable_weather_param(params[attr], attr, config) then
check = false
end
end
if check then
weather = name
priority = config.priority
minetest.log("selected " .. name)
for _, attr in ipairs(attributes) do
if not is_acceptable_weather_param(params[attr], attr, effect.config) then
goto continue
end
end
table.insert(effects, name)
::continue::
end
if type(weather) == "nil" then
minetest.log("error", "[Believable Weather] No default weather registered")
end
minetest.log(weather)
return weather
minetest.log(dump2(effects, "effects"))
return effects
end

View File

@ -1,28 +1,33 @@
local GSCYCLE = 0
local temperature = 10
local humidity = 100
local wind = vector.new(10, 0, -0.25)
local GSCYCLE = 0.05
local RECALCCYCLE = 1
weather_mod.weathers = {}
function weather_mod.register_weather(name, weather)
function weather_mod.register_effect(name, config, override)
-- TODO: check and sanitize
weather_mod.weathers[name] = weather
weather_mod.weathers[name] = {
config = config,
override = override,
sound_handles = {},
sound_volumes = {}
}
end
function weather_mod.set_weather(name)
if type(weather_mod.weathers[name]) == nil then
minetest.log("warning", "[Believable Weather] Weather does not exist")
return
-- from https://stackoverflow.com/a/29133654
local function merge(a, b)
if type(a) == 'table' and type(b) == 'table' then
for k,v in pairs(b) do if type(v)=='table' and type(a[k] or false)=='table' then merge(a[k],v) else a[k]=v end end
end
weather_mod.state.current_weather = name
return a
end
local function is_outside(player, wind)
local ppos = player:getpos()
local wind_pos = vector.multiply(wind,-1)
local skylight_pos = vector.add(ppos, vector.new(0, 40, 0))
local downfall_origin = vector.add(skylight_pos,wind_pos)
return weather_mod.is_outdoors(player, downfall_origin)
local function build_effect_config(weather, climate)
local config = weather.config
local override = weather.override
if type(override) == "nil" then
return config
end
local dynamic_config = override(climate)
return merge(config, dynamic_config)
end
local function get_texture(particles)
@ -34,19 +39,23 @@ end
local function spawn_particles(player, particles, wind)
local ppos = player:getpos()
local wind_pos = vector.multiply(wind,-1)
local wind_speed = vector.length(wind)
local wind_pos = vector.multiply(weather_mod.state.wind,-1)
local wind_speed = vector.length(weather_mod.state.wind)
local texture = get_texture(particles)
local minp = vector.add(vector.add(ppos, particles.min_pos),wind_pos)
local maxp = vector.add(vector.add(ppos, particles.max_pos),wind_pos)
local vel = {x=wind.x,y=-particles.falling_speed,z=wind.z}
local acc = {x=0, y=0, z=0}
local vel = vector.new({
x=weather_mod.state.wind.x,
y=-particles.falling_speed,
z=weather_mod.state.wind.z
})
local acc = vector.new({x=0, y=0, z=0})
local exp = particles.exptime
local vertical = wind_speed < 3
local vertical = math.abs(vector.normalize(vel).y) >= 0.6
minetest.add_particlespawner({
amount=particles.amount,
@ -69,62 +78,36 @@ local function spawn_particles(player, particles, wind)
})
end
local sound_handles = {}
local function play_sound(player, sound)
local playername = player:get_player_name()
if not sound_handles[playername] then
local handle = minetest.sound_play(sound, {
to_player = playername,
loop = true
})
if handle then
sound_handles[playername] = handle
end
end
end
local function stop_sound(player)
local playername = player:get_player_name()
if sound_handles[playername] then
minetest.sound_stop(sound_handles[playername])
sound_handles[playername] = nil
end
end
local function handle_weather()
for _, player in ipairs(minetest.get_connected_players()) do
local ppos = player:getpos()
weather_mod.set_weather(weather_mod.get_weather(ppos, wind))
if ppos.y < weather_mod.settings.min_height or ppos.y > weather_mod.settings.max_height then
return
end
local weather = weather_mod.weathers[weather_mod.state.current_weather]
local clouds = weather.clouds
clouds.speed = vector.multiply(wind, 2)
player:set_clouds(clouds)
weather_mod.set_headwind(player, wind)
--player:set_clouds({ density = 0.6, color = "#a4a0b6e5", speed = wind })
local outdoors = is_outside(player, wind)
if type(weather.particles) ~= "nil" and outdoors then
spawn_particles(player, weather.particles, wind)
end
if type(weather.sound) ~= "nil" and outdoors then
play_sound(player, weather.sound)
else
stop_sound(player)
local function handle_weather_effects(player)
local ppos = player:getpos()
local climate = weather_mod.get_climate(ppos)
local active_effects = weather_mod.get_effects(climate)
local sounds = {}
for _, effect in ipairs(active_effects) do
local weather = weather_mod.weathers[effect]
local config = build_effect_config(weather, climate)
local outdoors = weather_mod.is_outdoors(player)
if type(config.particles) ~= "nil" and outdoors then
spawn_particles(player, config.particles, wind)
end
if type(config.sound) ~= nil and outdoors then
sounds[effect] = config.sound
end
end
weather_mod.handle_sounds(player, sounds)
end
local timer = 0
minetest.register_globalstep(function(dtime)
timer = timer + dtime
if timer < GSCYCLE then return end
for _, player in ipairs(minetest.get_connected_players()) do
handle_weather_effects(player)
if timer >= RECALCCYCLE then
weather_mod.set_clouds(player)
end
end
timer = 0
handle_weather()
end)

View File

@ -27,46 +27,58 @@ function weather_mod.remove_physics(player, effect)
end
end
-- function taken from weather mod
-- see https://github.com/theFox6/minetest_mod_weather/blob/master/weather/api.lua#L110
local function raycast(player, origin)
local hitpos = vector.add(player:get_pos(),vector.new(0,1,0))
local ray = minetest.raycast(origin,hitpos)
local o = ray:next()
if not o then return false end
if o.type~="object" then return false end -- hit node or something
if not o.ref:is_player() then return false end -- hit different object
if o.ref:get_player_name() ~= player:get_player_name() then
return false --hit other player
end
o = ray:next()
if o then
minetest.log("warning","[Believable Weather] raycast hit more after hitting the player\n"..
dump2(o,"o"))
end
return true
end
local function check_light(player)
function weather_mod.is_outdoors(player)
return minetest.get_node_light(player:getpos(), 0.5) == 15
end
function weather_mod.is_outdoors(player, origin)
if weather_mod.settings.raycasting then
return raycast(player, origin)
else
return check_light(player)
function weather_mod.set_clouds(player)
if not weather_mod.settings.skybox then
return
end
local ppos = player:get_pos()
local humidity = weather_mod.get_humidity(ppos) / 200
local clouds = {}
clouds.speed = vector.multiply(weather_mod.state.wind, 2)
clouds.color = "#fff0f0c5"
clouds.density = math.max(math.min(humidity, 0.1), 0.9)
player:set_clouds(clouds)
end
function weather_mod.play_sound(player, effect)
local playername = player:get_player_name()
if not effect.sound_handles[playername] then
local handle = minetest.sound_play(effect.config.sound, {
to_player = playername,
loop = true
})
if handle then
effect.sound_handles[playername] = handle
effect.sound_volumes[playername] = effect.config.sound.gain or 1
end
end
end
function weather_mod.set_headwind(player, wind)
local movement = vector.normalize(player:get_player_velocity())
local product = vector.dot(movement, wind)
-- logistic function, scales between 0 and 2
-- see https://en.wikipedia.org/wiki/Logistic_function
local L = 2 -- maximum value
local k = 0.1 -- growth rate
local z = 1 -- midpoint
local factor = L / (1 + math.exp(-k * (product - z)))
weather_mod.add_physics(player, "speed", factor)
function weather_mod.stop_sound(player, effect)
local playername = player:get_player_name()
if effect.sound_handles[playername] then
minetest.sound_stop(effect.sound_handles[playername])
effect.sound_handles[playername] = nil
effect.sound_volumes[playername] = nil
end
end
function weather_mod.handle_sounds(player, sounds)
local playername = player:get_player_name()
for name, effect in pairs(weather_mod.weathers) do
if type(effect.sound_handles[playername]) == "nil" and type(sounds[name]) ~= "nil" then
weather_mod.play_sound(player, effect)
elseif type(effect.sound_handles[playername]) ~= "nil" and type(sounds[name]) == "nil" then
weather_mod.stop_sound(player, effect)
elseif type(effect.sound_handles[playername]) ~= "nil" and type(sounds[name]) ~= "nil" then
local volume = sounds[name].gain or 1
if effect.sound_volumes[playername] ~= volume then
minetest.sound_fade(effect.sound_handles[playername], 1, volume)
end
end
end
end

8
lib/wind.lua Normal file
View File

@ -0,0 +1,8 @@
function weather_mod.set_headwind(player, wind)
local movement = vector.normalize(player:get_player_velocity())
local product = vector.dot(movement, wind)
-- logistic function, scales between 0.5 and 1.5
-- see https://en.wikipedia.org/wiki/Logistic_function
local factor = 1 / (1 + math.exp(-0.1 * (product - 0.5))) + 0.5
weather_mod.add_physics(player, "speed", factor)
end