VoxeLibre/mods/ENVIRONMENT/weather_pack/rain.lua

rain = {
  -- max rain particles created at time
  particles_count = 35,

  -- flag to turn on/off extinguish fire for rain
  extinguish_fire = true,

  -- flag useful when mixing weathers
  raining = false,

  -- keeping last timeofday value (rounded).
  -- Defaulted to non-existing value for initial comparing.
  sky_last_update = -1,

  init_done = false,
}

rain.sound_handler = function(player)
  return minetest.sound_play("weather_rain", {
    object = player,
    max_hear_distance = 2,
    loop = true,
  })
end

-- set skybox based on time (uses skycolor api)
rain.set_sky_box = function()
  skycolor.add_layer(
    "weather-pack-rain-sky",
    {{r=0, g=0, b=0},
    {r=85, g=86, b=98},
    {r=152, g=150, b=159},
    {r=85, g=86, b=98},
    {r=0, g=0, b=0}})
  skycolor.active = true
  for _, player in pairs(minetest.get_connected_players()) do
    player:set_clouds({color="#3D3D3FE8"})
  end
end

-- creating manually parctiles instead of particles spawner because of easier to control
-- spawn position.
rain.add_rain_particles = function(player)

  rain.last_rp_count = 0
  for i=rain.particles_count, 1,-1 do
    local random_pos_x, random_pos_y, random_pos_z = weather.get_random_pos_by_player_look_dir(player)
    if minetest.get_node_light({x=random_pos_x, y=random_pos_y, z=random_pos_z}, 0.5) == 15 then
      rain.last_rp_count = rain.last_rp_count + 1
      minetest.add_particle({
        pos = {x=random_pos_x, y=random_pos_y, z=random_pos_z},
        velocity = {x=0, y=-10, z=0},
        acceleration = {x=0, y=-30, z=0},
        expirationtime = 0.2,
        size = math.random(0.5, 3),
        collisiondetection = true,
        collision_removal = true,
        vertical = true,
        texture = rain.get_texture(),
        playername = player:get_player_name()
      })
    end
  end
end

-- Simple random texture getter
rain.get_texture = function()
  local texture_name
  local random_number = math.random()
  if random_number > 0.33 then
    texture_name = "weather_pack_rain_raindrop_1.png"
  elseif random_number > 0.66 then
    texture_name = "weather_pack_rain_raindrop_2.png"
  else
    texture_name = "weather_pack_rain_raindrop_3.png"
  end
  return texture_name;
end

-- register player for rain weather.
-- basically needs for origin sky reference and rain sound controls.
rain.add_player = function(player)
  if weather.players[player:get_player_name()] == nil then
    local player_meta = {}
    player_meta.origin_sky = {player:get_sky()}
    weather.players[player:get_player_name()] = player_meta
  end
end

-- remove player from player list effected by rain.
-- be sure to remove sound before removing player otherwise soundhandler reference will be lost.
rain.remove_player = function(player)
  local player_meta = weather.players[player:get_player_name()]
  if player_meta ~= nil and player_meta.origin_sky ~= nil then
    player:set_sky(player_meta.origin_sky[1], player_meta.origin_sky[2], player_meta.origin_sky[3], true)
    player:set_clouds({color="#FFF0F0E5"})
    weather.players[player:get_player_name()] = nil
  end
end

-- adds and removes rain sound depending how much rain particles around player currently exist.
-- have few seconds delay before each check to avoid on/off sound too often
-- when player stay on 'edge' where sound should play and stop depending from random raindrop appearance.
rain.update_sound = function(player)
  local player_meta = weather.players[player:get_player_name()]
  if player_meta ~= nil then
    if player_meta.sound_updated ~= nil and player_meta.sound_updated + 5 > os.time() then
      return false
    end

    if player_meta.sound_handler ~= nil then
      if rain.last_rp_count == 0 then
        minetest.sound_stop(player_meta.sound_handler)
        player_meta.sound_handler = nil
      end
    elseif rain.last_rp_count > 0 then
      player_meta.sound_handler = rain.sound_handler(player)
    end

    player_meta.sound_updated = os.time()
  end
end

-- rain sound removed from player.
rain.remove_sound = function(player)
  local player_meta = weather.players[player:get_player_name()]
  if player_meta ~= nil and player_meta.sound_handler ~= nil then
    minetest.sound_stop(player_meta.sound_handler)
    player_meta.sound_handler = nil
  end
end

-- callback function for removing rain
rain.clear = function()
  rain.raining = false
  rain.sky_last_update = -1
  rain.init_done = false
  skycolor.remove_layer("weather-pack-rain-sky")
  for _, player in ipairs(minetest.get_connected_players()) do
    rain.remove_sound(player)
    rain.remove_player(player)
  end
end

minetest.register_globalstep(function(dtime)
  if weather.state ~= "rain" then
    return false
  end

  rain.make_weather()
end)

rain.make_weather = function()
  if rain.init_done == false then
    rain.raining = true
    rain.set_sky_box()
    rain.init_done = true
  end

  for _, player in ipairs(minetest.get_connected_players()) do
    if (weather.is_underwater(player) or not mcl_util.has_weather(player:getpos())) then
      return false
    end
    rain.add_player(player)
    rain.add_rain_particles(player)
    rain.update_sound(player)
  end
end

if weather.reg_weathers.rain == nil then
  weather.reg_weathers.rain = {
    chance = 15,
    clear = rain.clear
  }
end

if weather.allow_abm then
	-- ABM for extinguish fire
	minetest.register_abm({
		label = "Rain extinguishes fire",
		nodenames = {"mcl_fire:fire"},
		interval = 4.0,
		chance = 2,
		action = function(pos, node, active_object_count, active_object_count_wider)
			if rain.raining and rain.extinguish_fire then
			if weather.is_outdoor(pos) then
				minetest.remove_node(pos)
				minetest.sound_play("fire_extinguish_flame", {pos = pos, max_hear_distance = 16, gain = 0.15})
			end
		end
	end
	})

	-- Slowly fill up cauldrons
	minetest.register_abm({
		label = "Rain fills cauldrons with water",
		nodenames = {"mcl_cauldrons:cauldron", "mcl_cauldrons:cauldron_1", "mcl_cauldrons:cauldron_2"},
		interval = 56.0,
		chance = 1,
		action = function(pos, node, active_object_count, active_object_count_wider)
			if rain.raining and weather.is_outdoor(pos) then
				if node.name == "mcl_cauldrons:cauldron" then
					minetest.set_node(pos, {name="mcl_cauldrons:cauldron_1"})
				elseif node.name == "mcl_cauldrons:cauldron_1" then
					minetest.set_node(pos, {name="mcl_cauldrons:cauldron_2"})
				elseif node.name == "mcl_cauldrons:cauldron_2" then
					minetest.set_node(pos, {name="mcl_cauldrons:cauldron_3"})
				end
			end
		end
  	})

	-- Wetten the soil
	minetest.register_abm({
		label = "Rain hydrates farmland",
		nodenames = {"mcl_farming:soil"},
		interval = 22.0,
		chance = 3,
		action = function(pos, node, active_object_count, active_object_count_wider)
			if rain.raining and weather.is_outdoor(pos) then
				if node.name == "mcl_farming:soil" then
					minetest.set_node(pos, {name="mcl_farming:soil_wet"})
				end
			end
		end
  	})
end