add mesecons mods

mods/mesecons/mesecons_noteblock/init.lua

@@ -0,0 +1,120 @@
+local S = minetest.get_translator(minetest.get_current_modname())
+
+minetest.register_node("mesecons_noteblock:noteblock", {
+	description = S("Noteblock"),
+	tiles = {"mesecons_noteblock.png"},
+	is_ground_content = false,
+	groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2},
+	on_punch = function(pos, node, puncher) -- change sound when punched
+		if minetest.is_protected(pos, puncher and puncher:get_player_name() or "") then
+			return
+		end
+
+		node.param2 = (node.param2+1)%12
+		mesecon.noteblock_play(pos, node.param2)
+		minetest.set_node(pos, node)
+	end,
+	sounds = mesecon.node_sound.wood,
+	mesecons = {effector = { -- play sound when activated
+		action_on = function(pos, node)
+			mesecon.noteblock_play(pos, node.param2)
+		end
+	}},
+	place_param2 = 11, -- initialize at C note
+	on_blast = mesecon.on_blastnode,
+})
+
+minetest.register_craft({
+	output = "mesecons_noteblock:noteblock 1",
+	recipe = {
+		{"group:wood", "group:wood", "group:wood"},
+		{"group:mesecon_conductor_craftable", "mesecons_gamecompat:steel_ingot", "group:mesecon_conductor_craftable"},
+		{"group:wood", "group:wood", "group:wood"},
+	}
+})
+
+local soundnames = {
+	[0] = "mesecons_noteblock_csharp",
+	"mesecons_noteblock_d",
+	"mesecons_noteblock_dsharp",
+	"mesecons_noteblock_e",
+	"mesecons_noteblock_f",
+	"mesecons_noteblock_fsharp",
+	"mesecons_noteblock_g",
+	"mesecons_noteblock_gsharp",
+
+	"mesecons_noteblock_a",
+	"mesecons_noteblock_asharp",
+	"mesecons_noteblock_b",
+	"mesecons_noteblock_c" -- << noteblock is initialized here
+}
+
+local node_sounds = {}
+for alias, sound in pairs({
+	["mesecons_gamecompat:lava_source"] = mesecon.sound_name.fire,
+	["mesecons_gamecompat:chest"] = "mesecons_noteblock_snare",
+	["mesecons_gamecompat:chest_locked"] = "mesecons_noteblock_snare",
+	["mesecons_gamecompat:coalblock"] = mesecon.sound_name.explode,
+	["mesecons_gamecompat:glass"] = "mesecons_noteblock_hihat",
+	["mesecons_gamecompat:obsidian_glass"] = "mesecons_noteblock_hihat",
+}) do
+	local nodename = minetest.registered_aliases[alias]
+	if nodename then
+		node_sounds[nodename] = sound
+	end
+end
+
+local node_sounds_group = {
+	["stone"] = "mesecons_noteblock_kick",
+	["tree"] = "mesecons_noteblock_crash",
+	["wood"] = "mesecons_noteblock_litecrash",
+}
+
+local steelblock_nodename = minetest.registered_aliases["mesecons_gamecompat:steelblock"]
+mesecon.noteblock_play = function(pos, param2)
+	pos.y = pos.y-1
+	local nodeunder = minetest.get_node(pos).name
+	local soundname = node_sounds[nodeunder]
+	local use_pitch = true
+	local pitch
+	-- Special sounds
+	if not soundname then
+		for k,v in pairs(node_sounds_group) do
+			local g = minetest.get_item_group(nodeunder, k)
+			if g ~= 0 then
+				soundname = v
+				break
+			end
+		end
+	end
+	-- Piano
+	if not soundname then
+		soundname = soundnames[param2]
+		if not soundname then
+			minetest.log("error", "[mesecons_noteblock] No soundname found, test param2")
+			return
+		end
+		if nodeunder == steelblock_nodename then
+			soundname = soundname.. 2
+		end
+		use_pitch = false
+	end
+	-- Disable pitch for fire and explode because they'd sound too odd
+	if soundname == "fire_fire" or soundname == "tnt_explode" then
+		use_pitch = false
+	end
+	if use_pitch then
+		-- Calculate pitch
+		-- Adding 1 to param2 because param2=11 is *lowest* pitch sound
+		local val = (param2+1)%12
+		pitch = 2^((val-6)/12)
+	end
+	pos.y = pos.y+1
+	if soundname == "fire_fire" then
+		-- Smoothly fade out fire sound
+		local handle = minetest.sound_play(soundname, {pos = pos, loop = true})
+		minetest.after(3.0, minetest.sound_fade, handle, -1.5, 0.0)
+	else
+		minetest.sound_play(soundname, {pos = pos, pitch = pitch}, true)
+	end
+end