FreeBlock/mods/redstone/mesecons_noteblock/init.lua

minetest.register_node("mesecons_noteblock:noteblock", {
	description = "Note Block",
	tiles = {"mesecons_noteblock.png"},
	groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
	drawtype = "allfaces_optional",
	visual_scale = 1.3,
	paramtype="light",
	is_ground_content = false,
	after_place_node = function(pos)
		minetest.env:add_node(pos, {name="mesecons_noteblock:noteblock", param2=0})
	end,
	on_punch = function (pos, node) -- change sound when punched
		local param2 = node.param2+1
		if param2==12 then param2=0 end
		minetest.env:add_node(pos, {name = node.name, param2 = param2})
		mesecon.noteblock_play(pos, param2)
	end,
	sounds = default.node_sound_wood_defaults(),
	mesecons = {effector = { -- play sound when activated
		action_on = function (pos, node)
			mesecon.noteblock_play(pos, node.param2)
		end
	}}
})

minetest.register_craft({
	output = '"mesecons_noteblock:noteblock" 1',
	recipe = {
		{"group:wood", "group:wood", "group:wood"},
		{"default:steel_ingot", "mesecons:redstone_dust", "default:steel_ingot"},
		{"group:wood", "group:wood", "group:wood"},
	}
})

mesecon.noteblock_play = function (pos, param2)
	local soundname
	if param2==8 then
		soundname="mesecons_noteblock_a"
	elseif param2==9 then
		soundname="mesecons_noteblock_asharp"
	elseif param2==10 then
		soundname="mesecons_noteblock_b"
	elseif param2==11 then
		soundname="mesecons_noteblock_c"
	elseif param2==0 then
		soundname="mesecons_noteblock_csharp"
	elseif param2==1 then
		soundname="mesecons_noteblock_d"
	elseif param2==2 then
		soundname="mesecons_noteblock_dsharp"
	elseif param2==3 then
		soundname="mesecons_noteblock_e"
	elseif param2==4 then
		soundname="mesecons_noteblock_f"
	elseif param2==5 then
		soundname="mesecons_noteblock_fsharp"
	elseif param2==6 then
		soundname="mesecons_noteblock_g"
	elseif param2==7 then
		soundname="mesecons_noteblock_gsharp"
	end
	local block_below_name = minetest.env:get_node({x=pos.x, y=pos.y-1, z=pos.z}).name
	if block_below_name == "default:glass" then
		soundname="mesecons_noteblock_hihat"
	end
	if block_below_name == "default:stone" then
		soundname="mesecons_noteblock_kick"
	end
	if block_below_name == "default:chest" then
		soundname="mesecons_noteblock_snare"
	end
	if block_below_name == "default:tree" then
		soundname="mesecons_noteblock_crash"
	end
	if block_below_name == "default:wood" then
		soundname="mesecons_noteblock_litecrash"
	end
	minetest.sound_play(soundname,
	{pos = pos, gain = 1.0, max_hear_distance = 32,})
end