minetest_mod_weather/weather/api.lua

weather_mod.registered_downfalls = {}

local function check_modname_prefix(name)
	if name:sub(1,1) == ":" then
		-- If the name starts with a colon, we can skip the modname prefix
		-- mechanism.
		return name:sub(2)
	else
		-- Enforce that the name starts with the correct mod name.
		local modname = minetest.get_current_modname()
		if modname == nil then
			modname="journal"
		end
		local expected_prefix = modname .. ":"
		if name:sub(1, #expected_prefix) ~= expected_prefix then
			error("Name " .. name .. " does not follow naming conventions: " ..
				"\"" .. expected_prefix .. "\" or \":\" prefix required")
		end

		-- Enforce that the name only contains letters, numbers and underscores.
		local subname = name:sub(#expected_prefix+1)
		if subname:find("[^%w_]") then
			error("Name " .. name .. " does not follow naming conventions: " ..
				"contains unallowed characters")
		end

		return name
	end
end


function weather_mod.register_downfall(id,def)
	local name = check_modname_prefix(id)
	if name == "none" then error("\"none\" means none, thanks") end
	if weather_mod.registered_downfalls[name]~=nil then error(name.." is already registered") end
	local ndef = table.copy(def)
	if not ndef.min_pos then --minimum starting position
		ndef.min_pos = {x=-9, y=10, z=-9}
	end
	if not ndef.maxp then --maximum starting position
		ndef.max_pos = {x= 9, y=10, z= 9}
	end
	if not ndef.falling_speed then --y falling speed
		ndef.falling_speed = 10
	end
	if not ndef.amount then --number of textures spawned
		ndef.amount = 10
	end
	if not ndef.exptime then
		ndef.exptime = ndef.max_pos.y / (math.sqr(ndef.falling_acceleration) + ndef.falling_speed)
	end
	if not ndef.texture then
		error("no texture given")
	end
	if not ndef.size then
		ndef.size = 25
	end
	weather_mod.registered_downfalls[name]=def
end

minetest.register_globalstep(function()
	if weather.type=="none" then
		for id,el in pairs(weather_mod.registered_downfalls) do
			if math.random(1, 50000) == 1 then
				weather.wind = {}
				weather.wind.x = math.random(0,10)
				weather.wind.y = 0
				weather.wind.z = math.random(0,10)
				weather.type = id
			end
		end
	else
		if math.random(1, 10000) == 1 then
			weather.type = "none"
		end
	end
	local current_downfall
	for id,el in pairs(weather_mod.registered_downfalls) do
		if weather.type == id then
			current_downfall = el
			break
		end
	end
	if current_downfall==nil then return end
	for _, player in ipairs(minetest.get_connected_players()) do
		local ppos = player:getpos()

		-- Make sure player is not in a cave/house...
		if minetest.env:get_node_light(ppos, 0.5) ~= 15 then return end

		local wind_pos = vector.multiply(weather.wind,-1)

		local minp = vector.add(vector.add(ppos, current_downfall.min_pos),wind_pos)
		local maxp = vector.add(vector.add(ppos, current_downfall.max_pos),wind_pos)

		local vel = {x=weather.wind.x,y=-current_downfall.falling_speed,z=weather.wind.z}
		local acc = {x=0, y=0, z=0}

		local exp = current_downfall.exptime

		minetest.add_particlespawner({amount=current_downfall.amount, time=0.5,
			minpos=minp, maxpos=maxp,
			minvel=vel, maxvel=vel,
			minacc=acc, maxacc=acc,
			minexptime=exp, maxexptime=exp,
			minsize=current_downfall.size, maxsize=current_downfall.size,
			collisiondetection=false, vertical=true,
			texture=current_downfall.texture, player=player:get_player_name()})
	end
end)