minetest_moon_phase/init.lua

local mod_skylayer = minetest.get_modpath("skylayer") ~= nil

local modpath = minetest.get_modpath("moon_phases");

local GSCYCLE = 0.5								-- global step cycle
local DEFAULT_LENGTH = 4					-- default cycle length
local DEFAULT_STYLE = "realistic"	-- default texture style

moon_phases = {}
local state = minetest.get_mod_storage()
if not state:contains("day") then
	state:from_table({fields = {
		day = 1,
		phase = 1,
		change_time = 1
	}})
end

-- retrieve mod configuration
local PHASE_LENGTH = minetest.settings:get("moon_phases_cycle") or DEFAULT_LENGTH
local TEXTURE_STYLE = minetest.settings:get("moon_phases_style") or DEFAULT_STYLE

-- set the moon texture of a player to the given phase
local function set_texture(player, phase)
	local sl = {}
	local meta_data = player:get_meta()
	local style = meta_data:get_string("moon_phases:texture_style")
	if style ~= "classic" and style ~= "realistic" then
		style = TEXTURE_STYLE
	end
	local texture = "moon_" .. phase .. "_" .. style .. ".png"
	sl.name = "moon_phases:custom"
	sl.moon_data = {
		visible = true,
		texture = texture,
		scale = 0.8
	}
	if mod_skylayer then
		skylayer.add_layer(player:get_player_name(), sl)
	else
		player:set_moon(sl.moon_data)
	end
end

-- update moon textures of all online players
local function update_textures()
	local phase = state:get_int("phase")
	for _, player in ipairs(minetest.get_connected_players()) do
		set_texture(player, phase)
	end
end

-- check for day changes
local function handle_time_progression()
	local time = minetest.get_timeofday()
	local day = state:get_int("day")
	local phase = state:get_int("phase")
	local change_time = state:get_int("change_time") == 1
	if time >= 0.5 and change_time then
		day = day + 1
		state:set_int("day", day)
		if day % PHASE_LENGTH == 0 then
			state:set_int("phase", (phase % 8) + 1)
			state:set_int("change_time", 0)
			update_textures()
		end
	elseif time < 0.5 and not change_time then
		state:set_int("change_time", 1)
	end
end

-- return the current moon phase
function moon_phases.get_phase()
	return state:get_int("phase")
end

-- set the current moon phase
-- @param phase int Phase between 1 and 8
function moon_phases.set_phase(phase)
	phase = math.floor(tonumber(phase))
	if (not phase) or phase < 1 or phase > 8 then
		return false
	end
	state:set_int("phase", phase)
	update_textures()
	return true
end

-- set the moon's texture style for the given player
function moon_phases.set_style(player, style)
	if style ~= "classic" and style ~= "realistic" then
		return false
	end
	local meta_data = player:get_meta()
	meta_data:set_string("moon_phases:texture_style", style)
	set_texture(player, state:get_int("phase"))
	return true
end

-- set the moon texture of newly joined player
minetest.register_on_joinplayer(function(player)
	local phase = state:get_int("phase")
	set_texture(player, phase)
end)

-- check for day changes and call handlers
local timer = 0
minetest.register_globalstep(function(dtime)
	timer = timer + dtime
	if timer < GSCYCLE then return end
	handle_time_progression()
	timer = 0
end)

-- include API for chat commands
dofile(modpath .. "/commands.lua")