Add moon phases

mods/ENVIRONMENT/mcl_moon/init.lua

@@ -0,0 +1,54 @@
+local MOON_PHASES = 8
+local MOON_PHASES_HALF = MOON_PHASES / 2
+local SHEET_W = 4
+local SHEET_H = 2
+
+mcl_moon = {}
+mcl_moon.MOON_PHASES = MOON_PHASES
+
+mcl_moon.get_moon_phase = function()
+	local after_midday = 0
+	local tod = minetest.get_timeofday()
+	if tod > 0.5 then
+		after_midday = 1
+	end
+	return (minetest.get_day_count() + after_midday) % MOON_PHASES
+end
+
+local get_moon_texture = function()
+	local phase = mcl_moon.get_moon_phase()
+	local x = phase % MOON_PHASES_HALF
+	local y
+	if phase >= MOON_PHASES_HALF then
+		y = 1
+	else
+		y = 0
+	end
+	return "mcl_moon_moon_phases.png^[sheet:"..SHEET_W.."x"..SHEET_H..":"..x..","..y
+end
+
+local timer = 0
+local last_reported_phase = nil
+minetest.register_globalstep(function(dtime)
+	timer = timer + dtime
+	if timer < 5 then
+		return
+	end
+	timer = 0
+	local phase = mcl_moon.get_moon_phase()
+	-- No-op when moon phase didn't change yet
+	if last_reported_phase == phase then
+		return
+	end
+	minetest.log("info", "[mcl_moon] New moon phase: "..phase)
+	last_reported_phase = phase
+	local moon_arg = {texture = get_moon_texture()}
+	local players = minetest.get_connected_players()
+	for p=1, #players do
+		players[p]:set_moon(moon_arg)
+	end
+end)
+
+minetest.register_on_joinplayer(function(player)
+	player:set_moon({texture = get_moon_texture(), scale=3.75})
+end)