musttest_game/mods/handholds/init.lua

if not minetest.global_exists("handholds") then handholds = {} end
handholds.modpath = minetest.get_modpath("handholds")
handholds.players = handholds.players or {}

-- Localize for performance.
local math_random = math.random

-- function to safely remove climbable air
local function remove_air(pos, oldnode)
	local dir = minetest.facedir_to_dir(oldnode.param2)
	local airpos = vector.subtract(pos, dir)

	local north_node = minetest.get_node({x = airpos.x, y = airpos.y, z = airpos.z+1})
	local south_node = minetest.get_node({x = airpos.x, y = airpos.y, z = airpos.z-1})
	local east_node = minetest.get_node({x = airpos.x+1, y = airpos.y, z = airpos.z})
	local west_node = minetest.get_node({x = airpos.x-1, y = airpos.y, z = airpos.z})

	local keep_air =
		(minetest.get_item_group(north_node.name, "handholds") == 1 and
		north_node.param2 == 0) or
		(minetest.get_item_group(south_node.name, "handholds") == 1 and
		south_node.param2 == 2) or
		(minetest.get_item_group(east_node.name, "handholds") == 1 and
		east_node.param2 == 1) or
		(minetest.get_item_group(west_node.name, "handholds") == 1 and
		west_node.param2 == 3)

	if not keep_air then
		minetest.add_node(airpos, {name = "air"})
	end
end


-- remove handholds from nodes buried under falling nodes
local function remove_handholds(pos)
	local north_pos = {x = pos.x, y = pos.y, z = pos.z+1}
	local south_pos = {x = pos.x, y = pos.y, z = pos.z-1}
	local east_pos = {x = pos.x+1, y = pos.y, z = pos.z}
	local west_pos = {x = pos.x-1, y = pos.y, z = pos.z}
	local north_node = minetest.get_node(north_pos)
	local south_node = minetest.get_node(south_pos)
	local east_node = minetest.get_node(east_pos)
	local west_node = minetest.get_node(west_pos)

	local node_pos

	if minetest.get_item_group(north_node.name, "handholds") == 1 and
			north_node.param2 == 0 then
		node_pos = north_pos
	elseif minetest.get_item_group(south_node.name, "handholds") == 1 and
			south_node.param2 == 2 then
		node_pos = south_pos
	elseif minetest.get_item_group(east_node.name, "handholds") == 1 and
			east_node.param2 == 1 then
		node_pos = east_pos
	elseif minetest.get_item_group(west_node.name, "handholds") == 1 and
			west_node.param2 == 3 then
		node_pos = west_pos
	end

	if node_pos then
		--local handholds_node = string.split(minetest.get_node(node_pos).name, ":")
		local nn = minetest.get_node(node_pos).name
		local def = minetest.registered_items[nn]
		if def and def._handholds_original then
			minetest.add_node(node_pos, {name = def._handholds_original})
		end
	end
end



function handholds.on_use(itemstack, player, pointed_thing)
	local pname = player:get_player_name()

	-- Ensure pointing at a SIDE face, not top or bottom.
	if not pointed_thing or
			pointed_thing.type ~= "node" or
			pointed_thing.under.y + 1 == pointed_thing.above.y or
			pointed_thing.under.y - 1 == pointed_thing.above.y then
		return
	end

	local control = player:get_player_control()
	if control.up and control.jump then
		local last = handholds.players[pname] or {time=0}
		local timenow = os.time()

		-- Limit to 1/sec to disallow climbing shear walls by spamclicking.
		if timenow > last.time then
			local dir = player:get_look_dir()
			ambiance.sound_play("climbing_pick_strike", pointed_thing.above, 0.5, 30)
			player:add_velocity({x=dir.x, y=8.0, z=dir.z})

			handholds.players[pname] = {
				time = os.time(),
			}

			local wdef = itemstack:get_definition()
			itemstack:add_wear(10)
			if itemstack:get_count() == 0 and wdef.sound and wdef.sound.breaks then
				minetest.sound_play(wdef.sound.breaks, {pos = pointed_thing.above, gain = 0.5}, true)
			end
			return itemstack
		end
		return
	end

	-- Can't put handholds in protected surfaces.
	if minetest.is_protected(pointed_thing.under, pname) or minetest.is_protected(pointed_thing.above, pname) then
		return
	end

	local node_def =
		minetest.reg_ns_nodes[minetest.get_node(pointed_thing.above).name]
	if not node_def or not node_def.buildable_to then
		return
	end

	local node_name = minetest.get_node(pointed_thing.under).name
	local rotation = minetest.dir_to_facedir(
		vector.subtract(pointed_thing.under, pointed_thing.above))

	if node_name == "default:stone" then
		minetest.add_node(pointed_thing.under,
			{name = "handholds:stone", param2 = rotation})
	elseif node_name == "default:desert_stone" then
		minetest.add_node(pointed_thing.under,
			{name = "handholds:desert_stone", param2 = rotation})
	elseif node_name == "default:sandstone" then
		minetest.add_node(pointed_thing.under,
			{name = "handholds:sandstone", param2 = rotation})
	elseif node_name == "default:ice" then
		minetest.add_node(pointed_thing.under,
			{name = "handholds:ice", param2 = rotation})
	elseif node_name == "rackstone:rackstone" or node_name == "rackstone:mg_rackstone" then
		minetest.add_node(pointed_thing.under,
			{name = "handholds:rackstone", param2 = rotation})
	elseif node_name == "rackstone:redrack" or node_name == "rackstone:mg_redrack" then
		minetest.add_node(pointed_thing.under,
			{name = "handholds:redrack", param2 = rotation})
	else
		return
	end

	minetest.add_node(pointed_thing.above, {name = "handholds:climbable_air"})
	ambiance.sound_play("default_dig_cracky", pointed_thing.above, 0.5, 30)

	local wdef = itemstack:get_definition()
	itemstack:add_wear(256)
	if itemstack:get_count() == 0 and wdef.sound and wdef.sound.breaks then
		minetest.sound_play(wdef.sound.breaks, {pos = pointed_thing.above, gain = 0.5}, true)
	end
	return itemstack
end



-- climbable air!
minetest.register_node("handholds:climbable_air", {
	description = "Air!",
	drawtype = "airlike",
	paramtype = "light",
	sunlight_propagates = true,
	walkable = false,
	pointable = false,
	diggable = false,
	climbable = true,
	buildable_to = true,
	floodable = true,
	drop = "",
	groups = {not_in_creative_inventory = 1},
	sounds = default.node_sound_stone_defaults(),
	on_destruct = function(pos)
		remove_handholds(pos)
	end,
	on_flood = function(pos)
		remove_handholds(pos)
	end,
	-- Player should not be able to obtain node.
	on_finish_collapse = function(pos, node)
		minetest.remove_node(pos)
	end,
	on_collapse_to_entity = function(pos, node)
		-- Do nothing.
	end,
})


-- handholds nodes
minetest.register_node("handholds:stone", {
	description = "Stone Handholds",
	tiles = {
		"default_stone.png", "default_stone.png", 
		"default_stone.png", "default_stone.png", 
		"default_stone.png", "default_stone.png^handholds_holds.png"
	},
	paramtype2 = "facedir",
	on_rotate = function()
		return false
	end,
	groups = utility.dig_groups("stone", {not_in_creative_inventory = 1, handholds = 1}),
	drop = 'default:cobble',
	sounds = default.node_sound_stone_defaults(),
	after_destruct = function(pos, oldnode)
		remove_air(pos, oldnode)
	end,
	_handholds_original = "default:stone",
})

minetest.register_node("handholds:desert_stone", {
	description = "Desert Stone Handholds",
	tiles = {
		"default_desert_stone.png", "default_desert_stone.png", 
		"default_desert_stone.png", "default_desert_stone.png", 
		"default_desert_stone.png", "default_desert_stone.png^handholds_holds.png"
	},
	paramtype2 = "facedir",
	on_rotate = function()
		return false
	end,
	groups = utility.dig_groups("stone", {not_in_creative_inventory = 1, handholds = 1}),
	drop = 'default:desert_cobble2',
	sounds = default.node_sound_stone_defaults(),
	after_destruct = function(pos, oldnode)
		remove_air(pos, oldnode)
	end,
	_handholds_original = "default:desert_stone",
})

minetest.register_node("handholds:sandstone", {
	description = "Sandstone Handholds",
	tiles = {
		"default_sandstone.png", "default_sandstone.png", 
		"default_sandstone.png", "default_sandstone.png", 
		"default_sandstone.png", "default_sandstone.png^handholds_holds.png"
	},
	paramtype2 = "facedir",
	on_rotate = function()
		return false
	end,
	groups = utility.dig_groups("softstone", {not_in_creative_inventory = 1, handholds = 1}),
	drop = 'default:sandstone',
	sounds = default.node_sound_stone_defaults(),
	after_destruct = function(pos, oldnode)
		remove_air(pos, oldnode)
	end,
	_handholds_original = "default:sandstone",
})

minetest.register_node("handholds:ice", {
	description = "Ice Handholds",
	tiles = {
		"default_ice.png", "default_ice.png", 
		"default_ice.png", "default_ice.png", 
		"default_ice.png", "default_ice.png^handholds_holds.png"
	},
	paramtype2 = "facedir",
	on_rotate = function()
		return false
	end,
	groups = utility.dig_groups("ice", {
		puts_out_fire = 1, cools_lava = 1,
		not_in_creative_inventory = 1, handholds = 1
	}),
	drop = 'default:ice',
	sounds = default.node_sound_glass_defaults(),
	after_destruct = function(pos, oldnode)
		remove_air(pos, oldnode)
	end,
	_handholds_original = "default:ice",

	on_construct = function(pos)
		if rc.ice_melts_at_pos(pos) then
			minetest.get_node_timer(pos):start(math_random(ice.minmax_time()))
		end
	end,

	on_timer = function(pos, elapsed)
		if rc.ice_melts_at_pos(pos) then
			minetest.add_node(pos, {name="default:water_flowing"})
		end
	end,
})

minetest.register_node("handholds:rackstone", {
	description = "Rackstone Handholds",
	tiles = {
		"rackstone_rackstone.png", "rackstone_rackstone.png",
		"rackstone_rackstone.png", "rackstone_rackstone.png",
		"rackstone_rackstone.png", "rackstone_rackstone.png^handholds_holds_dark.png"
	},
	paramtype2 = "facedir",
	groups = utility.dig_groups("stone", {handholds=1}),
	sounds = default.node_sound_stone_defaults(),
	drop = 'rackstone:rackstone',
	on_rotate = function()
		return false
	end,
  after_destruct = function(pos, oldnode)
		remove_air(pos, oldnode)
		rackstone.destabilize_dauthsand(pos)
	end,
	_handholds_original = "rackstone:rackstone",
})

minetest.register_node("handholds:redrack", {
	description = "Netherack Handholds",
	tiles = {
		"rackstone_redrack.png", "rackstone_redrack.png",
		"rackstone_redrack.png", "rackstone_redrack.png",
		"rackstone_redrack.png", "rackstone_redrack.png^handholds_holds_very_dark.png"
	},
	paramtype2 = "facedir",
	groups = utility.dig_groups("netherack", {handholds=1}),
	sounds = rackstone.rackstone_sounds(),
	drop = 'rackstone:redrack',
	on_rotate = function()
		return false
	end,
  after_destruct = function(pos, oldnode)
		remove_air(pos, oldnode)
    rackstone.after_redrack_remove(pos, oldnode)
    rackstone.destabilize_dauthsand(pos, oldnode)
  end,
  on_construct = function(pos)
    rackstone.on_redrack_place(pos)
  end,
	_handholds_original = "rackstone:redrack",
})


-- handholds tool
minetest.register_tool("handholds:climbing_pick", {
	description = "Climbing Pick",
	inventory_image = "handholds_tool.png",
	sound = {breaks = "default_tool_breaks"},
	on_use = function(...) return handholds.on_use(...) end,
})

minetest.register_craft({
	output = "handholds:climbing_pick",
	recipe = {
		{'default:diamond', 'default:diamond', 'default:diamond'},
		{'group:stick', '', ''},
		{'group:stick', '', ''},
	},
})