Mineclonia/mods/ENVIRONMENT/mcl_weather/snow.lua

mcl_weather.snow = {}
mcl_weather.snow.particlespawners = {}

local psdef= {
	amount = 30,
	time = 0,
  minpos = vector.new(-15,5,-15),
  maxpos =vector.new(15,10,15),
  minvel = vector.new(0,-1,0),
  maxvel = vector.new(0,-4,0),
  minacc = vector.new(0,-1,0),
  maxacc = vector.new(0,-4,0),
	minexptime = 1,
	maxexptime = 1,
	minsize = 0.5,
	maxsize = 5,
	collisiondetection = true,
	collision_removal = true,
	object_collision = true,
	vertical = true,
	glow = 1
}

local function check_player(player)
  if mcl_weather.state ~= "snow" then return false end
	local name=player:get_player_name(name)
	if mcl_worlds.has_weather(player:get_pos()) and not mcl_weather.snow.particlespawners[name] then
		return true
	end
  return false
end

mcl_weather.snow.add_particlespawners = function(player)
  if not check_player(player) then
    mcl_weather.snow.delete_particlespawners(player)
    return
  end
	local name=player:get_player_name(name)
	mcl_weather.snow.particlespawners[name]={}
	psdef.playername = name
	psdef.attached = player
	for i=1,2 do
		psdef.texture="weather_pack_snow_snowflake"..i..".png"
		mcl_weather.snow.particlespawners[name][i]=minetest.add_particlespawner(psdef)
	end
end

mcl_weather.snow.delete_particlespawners = function(player)
	local name=player:get_player_name(name)
	if mcl_weather.snow.particlespawners[name] then
		for i=1,2 do
			minetest.delete_particlespawner(mcl_weather.snow.particlespawners[name][i])
		end
		mcl_weather.snow.particlespawners[name]=nil
	end
end

mcl_weather.snow.set_sky_box = function()
  mcl_weather.skycolor.add_layer(
    "weather-pack-snow-sky",
    {{r=0, g=0, b=0},
    {r=85, g=86, b=86},
    {r=135, g=135, b=135},
    {r=85, g=86, b=86},
    {r=0, g=0, b=0}})
  mcl_weather.skycolor.active = true
  for _, player in ipairs(minetest.get_connected_players()) do
    
  end
  mcl_weather.skycolor.active = true
end


mcl_weather.snow.start_player = function(player)
  if check_player(player) then
    mcl_weather.snow.add_particlespawners(player)
    player:set_clouds({color="#ADADADE8"})
  end
end

mcl_weather.snow.clear_player = function(player)
  mcl_weather.snow.delete_particlespawners(player)
end

mcl_weather.snow.start = function()
  for _, player in ipairs(minetest.get_connected_players()) do
    mcl_weather.snow.start_player(player)
  end
  mcl_weather.snow.set_sky_box()
  mcl_weather.snow.init_done = true
end

mcl_weather.snow.clear = function()
  for _, player in ipairs(minetest.get_connected_players()) do
    mcl_weather.snow.clear_player(player)
  end
  mcl_weather.skycolor.remove_layer("weather-pack-snow-sky")
  mcl_weather.snow.init_done = false
end

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

	if mcl_weather.rain.init_done == false then
		mcl_weather.snow.start()
		mcl_weather.rain.set_sky_box()
		mcl_weather.rain.set_particles_mode(mcl_weather.mode)
  elseif mcl_weather.state ~= "snow" then
    mcl_weather.snow.clear()
	end
end)

minetest.register_on_joinplayer(function(player)
  mcl_weather.snow.start_player(player)
end)
minetest.register_on_leaveplayer(function(player)
	mcl_weather.snow.clear_player(player)
end)

mcl_worlds.register_on_dimension_change(function(player, dimension)
	if dimension == "overworld" then
			mcl_weather.snow.add_particlespawners(player)
	else
		mcl_weather.snow.delete_particlespawners(player)
	end
end)



-- register snow weather
if mcl_weather.reg_weathers.snow == nil then
	mcl_weather.reg_weathers.snow = {
		clear = mcl_weather.snow.clear,
		light_factor = 0.6,
		-- 10min - 20min
		min_duration = 600,
		max_duration = 1200,
		transitions = {
			[65] = "none",
			[80] = "rain",
			[100] = "thunder",
		}
	}
end