.

.gitignore

@@ -0,0 +1,43 @@
+# ---> Lua
+# Compiled Lua sources
+luac.out
+
+# luarocks build files
+*.src.rock
+*.zip
+*.tar.gz
+
+# Object files
+*.o
+*.os
+*.ko
+*.obj
+*.elf
+
+# Precompiled Headers
+*.gch
+*.pch
+
+# Libraries
+*.lib
+*.a
+*.la
+*.lo
+*.def
+*.exp
+
+# Shared objects (inc. Windows DLLs)
+*.dll
+*.so
+*.so.*
+*.dylib
+
+# Executables
+*.exe
+*.out
+*.app
+*.i*86
+*.x86_64
+*.hex
+
+

README.md

@@ -0,0 +1,30 @@
+### [The Complete Poems of Francis Ledwidge](https://en.wikisource.org/wiki/The_Complete_Poems_of_Francis_Ledwidge) Music Pack
+
+#### Usage: 
+
+For all players:
+
+`/mvolume` <volume>  Set your individual music volume or disable background music (/mvolume 0). Saved across server restarts. <br>
+`/music_list`: list available music <br>
+With mpd privilege: <br>
+`/music_play` <id>: play a song <br>
+`/music_stop`: stop the current song. Unless /mpd_play or /mpd_next are invoked, no more music is played <br>
+`/music_next` [time]: Play the next song after [time] seconds, immediately if omitted. <br>
+## Votes: <br>
+This mod integrates with the [vote](https://content.minetest.net/metapackages/vote/) mod by rubenwardy  <br>
+`/vote_music_next` - vote to start next song <br>
+`/vote_music_play` <id> - Vote to play certain sing <br>
+	
+	
+## License
+Credits and Ackowledgements <br>
+[balabolka](http://www.cross-plus-a.com/balabolka.htm) Provide music production software.
+	
+#### License of source code:LGPL-2.1-only
+This mod is a fork of [mpd](https://content.minetest.net/packages/orwell/mpd/)
+
+#### License of music:CC BY-SA 3.0
+I use https://en.wikisource.org/wiki/The_Complete_Poems_of_Francis_Ledwidge to generate the ogg
+	
+#### License of Text:CC BY-SA 3.0
+This work was published before January 1, 1927, and is in the public domain worldwide because the author died at least 100 years ago.[The Complete Poems of Francis Ledwidge](https://en.wikisource.org/wiki/The_Complete_Poems_of_Francis_Ledwidge)

init.lua

@@ -0,0 +1,214 @@
+
+music={}
+
+
+music.pause_between_songs=tonumber(minetest.settings:get("music_pause_between_songs")) or 4
+
+--end config
+
+music.modpath=minetest.get_modpath("music")
+if not music.modpath then
+	error("music mod folder has to be named 'music'!")
+end
+--{name, length, gain~1}
+music.songs = {}
+local sfile, sfileerr=io.open(music.modpath..DIR_DELIM.."songs.txt")
+if not sfile then error("Error opening songs.txt: "..sfileerr) end
+for linent in sfile:lines() do
+	-- trim leading and trailing spaces away
+	local line = string.match(linent, "^%s*(.-)%s*$")
+	if line~="" and string.sub(line,1,1)~="#" then
+		local name, timeMinsStr, timeSecsStr, gainStr, title = string.match(line, "^(%S+)%s+(%d+):([%d%.]+)%s+([%d%.]+)%s*(.*)$")
+		local timeMins, timeSecs, gain = tonumber(timeMinsStr), tonumber(timeSecsStr), tonumber(gainStr)
+		if title=="" then title = name end
+		if name and timeMins and timeSecs and gain then
+			music.songs[#music.songs+1]={name=name, length=timeMins*60+timeSecs, lengthhr=timeMinsStr..":"..timeSecsStr, gain=gain, title=title}
+		else
+			minetest.log("warning", "[music] Misformatted song entry in songs.txt: "..line)
+		end
+	end
+end
+sfile:close()
+
+if #music.songs==0 then
+	print("[music]no songs registered, not doing anything")
+	return
+end
+
+music.storage = minetest.get_mod_storage()
+
+music.handles={}
+
+music.playing=false
+music.id_playing=nil
+music.song_time_left=nil
+music.time_next=10 --sekunden
+music.id_last_played=nil
+
+minetest.register_globalstep(function(dtime)
+	if music.playing then
+		if music.song_time_left<=0 then
+			music.stop_song()
+			music.time_next=music.pause_between_songs
+		else
+			music.song_time_left=music.song_time_left-dtime
+		end
+	elseif music.time_next then
+		if music.time_next<=0 then
+			music.next_song()
+		else
+			music.time_next=music.time_next-dtime
+		end
+	end
+end)
+music.play_song=function(id)
+	if music.playing then
+		music.stop_song()
+	end
+	local song=music.songs[id]
+	if not song then return end
+	for _,player in ipairs(minetest.get_connected_players()) do
+		local pname=player:get_player_name()
+		local pvolume=tonumber(music.storage:get_string("vol_"..pname))
+		if not pvolume then pvolume=1 end
+		if pvolume>0 then
+			local handle = minetest.sound_play(song.name, {to_player=pname, gain=song.gain*pvolume})
+			if handle then
+				music.handles[pname]=handle
+			end
+		end
+	end
+	music.playing=id
+	--adding 2 seconds as security
+	music.song_time_left = song.length + 2
+end
+music.stop_song=function()
+	for pname, handle in pairs(music.handles) do
+		minetest.sound_stop(handle)
+	end
+	music.id_last_played=music.playing
+	music.playing=nil
+	music.handles={}
+	music.time_next=nil
+end
+
+music.next_song=function()
+	local next
+	repeat
+		next=math.random(1,#music.songs)
+	until #music.songs==1 or next~=music.id_last_played
+	music.play_song(next)
+end
+
+music.song_human_readable=function(id)
+	if not tonumber(id) then return "<error>" end
+	local song=music.songs[id]
+	if not song then return "<error>" end
+	return id..": "..song.title.." ["..song.lengthhr.."]"
+end
+
+minetest.register_privilege("music", "may control the music player daemon (music) mod")
+
+minetest.register_chatcommand("music_stop", {
+	params = "",
+	description = "Stop the song currently playing",
+	privs = {music=true},
+	func = function(name, param)
+		music.stop_song()
+	end,		
+})
+minetest.register_chatcommand("music_list", {
+	params = "",
+	description = "List all available songs and their IDs",
+	privs = {music=true},
+	func = function(name, param)
+		for k,v in ipairs(music.songs) do
+			minetest.chat_send_player(name, music.song_human_readable(k))
+		end
+	end,		
+})
+minetest.register_chatcommand("music_play", {
+	params = "<id>",
+	description = "Play the songs with the given ID (see ids with /music_list)",
+	privs = {music=true},
+	func = function(name, param)
+		if param=="" then
+			music.next_song()
+			return true,"Playing: "..music.song_human_readable(music.playing)
+		end
+		id=tonumber(param)
+		if id and id>0 and id<=#music.songs then
+			music.play_song(id)
+			return true,"Playing: "..music.song_human_readable(id)
+		end
+		return false, "Invalid song ID!"
+	end,		
+})
+minetest.register_chatcommand("music_what", {
+	params = "",
+	description = "Display the currently played song.",
+	privs = {music=true},
+	func = function(name, param)
+		if not music.playing then
+			if music.time_next and music.time_next~=0 then
+				return true,"Nothing playing, "..math.floor(music.time_next or 0).." sec. left until next song."
+			else
+				return true,"Nothing playing."
+			end
+		end
+		return true,"Playing: "..music.song_human_readable(music.playing).."\nTime Left: "..math.floor(music.song_time_left or 0).." sec."
+	end,		
+})
+minetest.register_chatcommand("music_next", {
+	params = "[seconds]",
+	description = "Start the next song, either immediately (no parameters) or after n seconds.",
+	privs = {music=true},
+	func = function(name, param)
+		music.stop_song()
+		if param and tonumber(param) then
+			music.time_next=tonumber(param)
+			return true,"Next song in "..param.." seconds!"
+		else
+			music.next_song()
+			return true,"Next song started!"
+		end
+	end,		
+})
+minetest.register_chatcommand("mvolume", {
+	params = "[volume level (0-1)]",
+	description = "Set your background music volume. Use /mvolume 0 to turn off background music for you. Without parameters, show your current setting.",
+	privs = {},
+	func = function(pname, param)
+		if not param or param=="" then
+			local pvolume=tonumber(music.storage:get_string("vol_"..pname))
+			if not pvolume then pvolume=0.5 end
+			if pvolume>0 then
+				return true, "Your music volume is set to "..pvolume.."."
+			else
+				if music.handles[pname] then
+					minetest.sound_stop(music.handles[pname])
+				end
+				return true, "Background music is disabled for you. Use '/mvolume 1' to enable it again."
+			end
+		end
+		local pvolume=tonumber(param)
+		if not pvolume then
+			return false, "Invalid usage: /mvolume [volume level (0-1)]"
+		end
+		pvolume = math.min(pvolume, 1)
+		pvolume = math.max(pvolume, 0)
+		music.storage:set_string("vol_"..pname, pvolume)
+		if pvolume>0 then
+			return true, "Music volume set to "..pvolume..". Change will take effect when the next song starts."
+		else
+			if music.handles[pname] then
+				minetest.sound_stop(music.handles[pname])
+			end
+			return true, "Disabled background music for you. Use /mvolume to enable it again."
+		end
+	end,		
+})
+
+if vote then
+	dofile(music.modpath..DIR_DELIM.."vote.lua")
+end

mod.conf

@@ -0,0 +1,4 @@
+name = music
+author = maxchen32,orwell
+depends = vote
+optional_depends = 

settingtypes.txt

@@ -0,0 +1,2 @@
+# How many seconds MUSIC waits before starting the next song
+music_pause_between_songs (Pause between songs) int 15 0 3600

songs.txt

@@ -0,0 +1,124 @@
+#File	Name	Time	Gain	Title
+SONGS-OF-THE-FIELDS	6:24	1.9	SONGS OF THE FIELDS
+TO-MY-BEST-FRIEND	0:41	1.9	TO MY BEST FRIEND
+BEHIND-THE-CLOSED-EYE	0:59	1.9	BEHIND THE CLOSED EYE
+BOUND-TO-THE-MAST	1:22	1.9	BOUND TO THE MAST
+TO-A-LINNET-IN-A-CAGE	0:38	1.9	TO A LINNET IN A CAGE
+A-TWILIGHT-IN-MIDDLE-MARCH	0:44	1.9	A TWILIGHT IN MIDDLE MARCH
+SPRING	0:43	1.9	SPRING
+DESIRE-IN-SPRING	0:32	1.9	DESIRE IN SPRING
+A-RAINY-DAY-IN-APRIL	1:25	1.9	A RAINY DAY IN APRIL
+A-SONG-OF-APRIL	0:42	1.9	A SONG OF APRIL
+THE-BROKEN-TRYST	0:36	1.9	THE BROKEN TRYST
+THOUGHTS-AT-THE-TRYSTING-STILE	1:23	1.9	THOUGHTS AT THE TRYSTING STILE
+EVENING-IN-MAY	0:43	1.9	EVENING IN MAY
+AN-ATTEMPT-AT-A-CITY-SUNSET	0:48	1.9	AN ATTEMPT AT A CITY SUNSET
+WAITING	0:28	1.9	WAITING
+THE-SINGER'S-MUSE	0:43	1.9	THE SINGER'S MUSE
+INAMORATA	0:50	1.9	INAMORATA
+THE-WIFE-OF-LLEW	0:29	1.9	THE WIFE OF LLEW
+THE-HILLS	0:54	1.9	THE HILLS
+JUNE	1:06	1.9	JUNE
+IN-MANCHESTER	0:49	1.9	IN MANCHESTER
+MUSIC-ON-WATER	1:24	1.9	MUSIC ON WATER
+TO-M-McG	0:43	1.9	TO M_McG
+IN-THE-DUSK	0:31	1.9	IN THE DUSK
+THE-DEATH-OF-AILILL	1:06	1.9	THE DEATH OF AILILL
+AUGUST	0:29	1.9	AUGUST
+THE-VISITATION-OF-PEACE	2:48	1.9	THE VISITATION OF PEACE
+BEFORE-THE-TEARS	0:43	1.9	BEFORE THE TEARS
+GODS-REMEMBRANCE	0:51	1.9	GOD'S REMEMBRANCE
+AN-OLD-PAIN	2:10	1.9	AN OLD PAIN
+THE-LOST-ONES	0:35	1.9	THE LOST ONES
+ALL-HALLOWS-EVE	1:46	1.9	ALL-HALLOWS EVE
+A-MEMORY	2:16	1.9	A MEMORY
+A-SONG	0:42	1.9	A SONG
+A-FEAR	0:22	1.9	A FEAR
+THE-COMING-POET	0:33	1.9	THE COMING POET
+THE-VISION-ON-THE-BRINK	1:00	1.9	THE VISION ON THE BRINK
+TO-LORD-DUNSANY	0:50	1.9	TO LORD DUNSANY
+ON-AN-OATEN-STRAW	0:29	1.9	ON AN OATEN STRAW
+EVENING-IN-FEBRUARY	0:25	1.9	EVENING IN FEBRUARY
+THE-SISTER	0:31	1.9	THE SISTER
+BEFORE-THE-WAR-OF-COOLEY	1:22	1.9	BEFORE THE WAR OF COOLEY
+LOW-MOON-LAND	0:33	1.9	LOW-MOON LAND
+THE-SORROW-OF-FINDEBAR	1:14	1.9	THE SORROW OF FINDEBAR
+ON-DREAM-WATER	0:25	1.9	ON DREAM WATER
+THE-DEATH-OF-SUALTEM	1:59	1.9	THE DEATH OF SUALTEM
+THE-MAID-IN-LOW-MOON-LAND	0:25	1.9	THE MAID IN LOW-MOON LAND
+THE-DEATH-OF-LEAG-CUCHULAINS-CHARIOTEER	1:29	1.9	THE DEATH OF LEAG. CUCHULAIN'S CHARIOTEER
+THE-PASSING-OF-CAOILTE	1:06	1.9	THE PASSING OF CAOILTE
+GROWING-OLD	0:46	1.9	GROWING OLD
+AFTER-MY-LAST-SONG	0:53	1.9	AFTER MY LAST SONG
+SONGS-OF-PEACE	3:26	1.9	SONGS OF PEACE
+A-DREAM-OF-ARTEMIS	9:04	1.9	A DREAM OF ARTEMIS
+A-LITTLE-BOY-IN-THE-MORNING	0:34	1.9	A LITTLE BOY IN THE MORNING
+TO-A-DISTANT-ONE	1:01	1.9	TO A DISTANT ONE
+THE-PLACE	0:41	1.9	THE PLACE	
+MAY	0:42	1.9	MAY
+TO-EILISH-OF-THE-FAIR-HAIR	0:44	1.9	TO EILISH OF THE FAIR HAIR
+CROCKNAHARNA	0:38	1.9	CROCKNAHARNA
+IN-THE-MEDITERRANEAN-GOING-TO-THE-WAR	0:18	1.9	IN THE MEDITERRANEAN—GOING TO THE WAR
+THE-GARDENER	0:43	1.9	THE GARDENER
+AUTUMN-EVENING-IN-SERBIA	0:26	1.9	AUTUMN EVENING IN SERBIA
+NOCTURNE	0:24	1.9	NOCTURNE
+SPRING-AND-AUTUMN	0:16	1.9	SPRING AND AUTUMN
+THE-DEPARTURE-OF-PROSERPINE	1:32	1.9	THE DEPARTURE OF PROSERPINE
+THE-HOMECOMING-OF-THE-SHEEP	0:43	1.9	THE HOMECOMING OF THE SHEEP
+WHEN-LOVE-AND-BEAUTY-WANDER-AWAY	0:34	1.9	WHEN LOVE AND BEAUTY WANDER AWAY
+MY-MOTHER	0:41	1.9	MY MOTHER
+SONG-Nothing-but-sweet-music-wakes	0:24	1.9	SONG-Nothing but sweet music wakes
+TO-ONE-DEAD	0:25	1.9	TO ONE DEAD
+THE-RESURRECTION	0:18	1.9	THE RESURRECTION
+THE-SHADOW-PEOPLE	0:46	1.9	THE SHADOW PEOPLE
+AN-OLD-DESIRE	0:25	1.9	AN OLD DESIRE
+THOMAS-McDONAGH	0:27	1.9	THOMAS McDONAGH
+THE-WEDDING-MORNING	0:36	1.9	THE WEDDING MORNING
+THE-BLACKBIRDS	0:44	1.9	THE BLACKBIRDS
+THE-LURE	0:38	1.9	THE LURE
+THRO-BOGAC-BAN	0:28	1.9	THRO' BOGAC BAN
+FATE	0:30	1.9	FATE
+EVENING-CLOUDS	0:45	1.9	EVENING CLOUDS
+SONG-The-winds-are-scented-with-woods-after-rain	0:21	1.9	SONG-The winds are scented with woods after rain
+THE-HERONS	0:15	1.9	THE HERONS
+IN-THE-SHADOWS	0:16	1.9	IN THE SHADOWS
+THE-SHIPS-OF-ARCADY	0:30	1.9	THE SHIPS OF ARCADY
+AFTER	0:18	1.9	AFTER
+TO-ONE-WEEPING	0:17	1.9	TO ONE WEEPING
+A-DREAM-DANCE	0:25	1.9	A DREAM DANCE
+BY-FAUGHAN	0:38	1.9	BY FAUGHAN
+IN-SEPTEMBER	0:23	1.9	IN SEPTEMBER
+LAST-SONGS	1:48	1.9	LAST SONGS
+TO-AN-OLD-QUILL-OF-LORD-DUNSANY-S	1:19	1.9	TO AN OLD QUILL OF LORD DUNSANY'S
+TO-A-SPARROW	0:43	1.9	TO A SPARROW
+OLD-CLO	0:36	1.9	OLD CLO
+YOUTH	0:25	1.9	YOUTH
+THE-LITTLE-CHILDREN	0:28	1.9	THE LITTLE CHILDREN
+AUTUMN	0:38	1.9	AUTUMN
+IRELAND	0:36	1.9	IRELAND
+LADY-FAIR	0:35	1.9	LADY FAIR
+AT-A-POETS-GRAVE	0:20	1.9	AT A POET'S GRAVE
+AFTER-COURT-MARTIAL	0:25	1.9	AFTER COURT MARTIAL
+A-MOTHERS-SONG	0:16	1.9	A MOTHER'S SONG
+AT-CURRABWEE	0:49	1.9	AT CURRABWEE
+SONG-TIME-IS-OVER	0:16	1.9	SONG-TIME IS OVER
+UNA-BAWN	0:18	1.9	UNA BAWN
+SPRING-LOVE	0:25	1.9	SPRING LOVE
+SOLILOQUY	0:56	1.9	SOLILOQUY
+DAWN	0:16	1.9	DAWN
+CEOL-SIDHE	0:35	1.9	CEOL SIDHE
+THE-RUSHES	0:33	1.9	THE RUSHES
+THE-DEAD-KINGS	1:15	1.9	THE DEAD KINGS
+IN-FRANCE	0:19	1.9	IN FRANCE
+HAD-I-A-GOLDEN-POUND	0:29	1.9	HAD I A GOLDEN POUND
+FAIRIES	0:26	1.9	FAIRIES
+IN-A-CAFÉ	0:27	1.9	IN A CAFÉ
+SPRING-France	0:46	1.9	SPRING
+PAN	0:27	1.9	PAN
+WITH-FLOWERS	0:20	1.9	WITH FLOWERS
+THE-FIND	0:23	1.9	THE FIND
+A-FAIRY-HUNT	0:37	1.9	A FAIRY HUNT
+TO-ONE-WHO-COMES-NOW-AND-THEN	1:12	1.9	TO ONE WHO COMES NOW AND THEN
+THE-SYLPH	0:15	1.9	THE SYLPH
+HOME	0:27	1.9	HOME
+THE-LANAWN-SHEE	4:07	1.9	THE LANAWN SHEE