init.lua

hook={
	tmp_throw={},
	tmp_throw_timer=0,
	tmp_time= tonumber(minetest.settings:get("item_entity_ttl")),
	pvp = minetest.settings:get_bool("enable_pvp") == true,
}

dofile(minetest.get_modpath("hook") .. "/project.lua")
dofile(minetest.get_modpath("hook") .. "/pchest.lua")

if hook.tmp_time=="" or hook.tmp_time==nil then
	hook.tmp_time=890
else
	hook.tmp_time=hook.tmp_time-10
end

hook.punch=function(ob1,ob2,hp)
	ob2:punch(ob1,1,{full_punch_interval=1,damage_groups={fleshy=hp}})
end

hook.slingshot_def=function(pos,n)
	local nn=minetest.get_node(pos).name
	return (minetest.registered_nodes[nn] and minetest.registered_nodes[nn][n])
end

hook.slingshot_onuse=function(itemstack, user)
	local veloc=15
	local pos = user:get_pos()
	local upos={x=pos.x,y=pos.y+2,z=pos.z}
	local dir = user:get_look_dir()
	local item=itemstack:to_table()
	local mode=minetest.deserialize(item["metadata"])
	if mode==nil then mode=1 else mode=mode.mode end

	local item=user:get_inventory():get_stack("main", user:get_wield_index()+mode):get_name()
	if item=="" then return itemstack end
	local e=minetest.add_item({x=pos.x,y=pos.y+2,z=pos.z},item)
	e:set_velocity({x=dir.x*veloc, y=dir.y*veloc, z=dir.z*veloc})
	e:set_acceleration({x=dir.x*-3, y=-5, z=dir.z*-3})
	e:get_luaentity().age=hook.tmp_time
	table.insert(hook.tmp_throw,{ob=e,timer=2,user=user:get_player_name()})
	if item=="hook:slingshot" then
		itemstack:set_wear(9999999)
	end
	user:get_inventory():remove_item("main", item)
	minetest.sound_play("hook_throw", {pos=pos, gain = 1.0, max_hear_distance = 5})
	return itemstack
end

minetest.register_tool("hook:slingshot", {
	description = "Slingshot",
	range = 4,
	inventory_image = "hook_slingshot.png",
	on_use=function(itemstack, user, pointed_thing)
		local ref = pointed_thing.ref
		if ref and not (ref:get_luaentity() and ref:get_luaentity().name == "__builtin:item") then
			hook.punch(user,ref,4)
			return itemstack
		end
		hook.slingshot_onuse(itemstack, user)
		return itemstack
	end,
	on_place=function(itemstack, user, pointed_thing)
		local item=itemstack:to_table()
		local meta=minetest.deserialize(item["metadata"])
		local mode=0
		if meta==nil then meta={} mode=1 end
		if meta.mode==nil then meta.mode=1 end
		mode=(meta.mode)
		if mode==1 then
			mode=-1
			minetest.chat_send_player(user:get_player_name(), "Use stack to left")
		else
			mode=1
			minetest.chat_send_player(user:get_player_name(), "Use stack to right ")
		end
		meta.mode=mode
		item.metadata=minetest.serialize(meta)
		item.meta=minetest.serialize(meta)
		itemstack:replace(item)
		return itemstack
	end
})

minetest.register_globalstep(function(dtime) 
	hook.tmp_throw_timer=hook.tmp_throw_timer+dtime
	if hook.tmp_throw_timer<0.1 then return end
	hook.tmp_throw_timer=0
	for i, t in pairs(hook.tmp_throw) do
		t.timer=t.timer-0.25
		if t.timer<=0 or t.ob==nil or t.ob:get_pos()==nil then table.remove(hook.tmp_throw,i) return end
		for ii, ob in pairs(minetest.get_objects_inside_radius(t.ob:get_pos(), 1.5)) do
			if (not ob:get_luaentity()) or (ob:get_luaentity() and (ob:get_luaentity().name~="__builtin:item")) then
				if (not ob:is_player()) or (ob:is_player() and ob:get_player_name(ob)~=t.user and hook.pvp) then
					ob:set_hp(ob:get_hp()-5)
					hook.punch(ob,ob,4)
					t.ob:set_velocity({x=0, y=0, z=0})
					if ob:get_hp()<=0 and ob:is_player()==false then ob:remove() end
					t.ob:set_acceleration({x=0, y=-10,z=0})
					t.ob:set_velocity({x=0, y=-10, z=0})
					table.remove(hook.tmp_throw,i)
					break
				end
			end
		end
	end
end)

hook.is_hook=function(pos,name)
	if not (name and minetest.is_protected(pos,name)) then
		local def = minetest.registered_nodes[minetest.get_node(pos).name]
		if def and def.name == "hook:hooking" or (def.buildable_to and not (def.liquidtype == "source" and def.paramtype2 == "none")) then
			if not (def.name == "hook:hooking" and minetest.get_meta(pos):get_int("a") ~= 0) then
				return true
			end
		end
	end
	return false
end

minetest.register_tool("hook:hook", {
	description = "Hook with rope (hit a corner to climb)",
	inventory_image = "hook_hook.png",
	on_use = function(itemstack, user, pointed_thing)
		if pointed_thing.type~="node" then return itemstack end
		local d=minetest.dir_to_facedir(user:get_look_dir())
		local pos=pointed_thing.above
		local pos2=pointed_thing.under
		local name=user:get_player_name()

		if hook.slingshot_def(pos2,"walkable") and
		hook.slingshot_def({x=pos.x,y=pos.y-1,z=pos.z},"walkable")==false
		and (hook.slingshot_def({x=pos2.x,y=pos2.y+1,z=pos2.z},"walkable")==false or minetest.get_node({x=pos2.x,y=pos2.y+1,z=pos2.z}).name=="default:snow") and
		hook.is_hook(pos,name) and
		hook.slingshot_def({x=pos.x,y=pos.y+1,z=pos.z},"walkable")==false then
			if d==3 then d=1
			elseif d==1 then d=3
			elseif d==2 then d=0
			elseif d==0 then d=2
			end
			if hook.is_hook({x=pos.x,y=pos.y+1,z=pos.z},name) then
				minetest.set_node({x=pos.x,y=pos.y+1,z=pos.z},{name = "hook:hooking",param2=d})
				minetest.get_node_timer({x=pos.x,y=pos.y+1,z=pos.z}):start(3)
			else
				return itemstack
			end
			for i=0,-4, -1 do
				if hook.is_hook({x=pos.x,y=pos.y+i,z=pos.z},name) then
					minetest.set_node({x=pos.x,y=pos.y+i,z=pos.z}, {name = "hook:rope",param2=d})
				else
					return itemstack
				end
			end
		end
		return itemstack
	end
})

minetest.register_tool("hook:hook_upgrade", {
	description = "Hook with rope (double)",
	range = 6,
	inventory_image = "hook_hookup.png",
	on_use = function(itemstack, user, pointed_thing)
		if pointed_thing.type~="node" then return itemstack end
		local d=minetest.dir_to_facedir(user:get_look_dir())
		local pos=pointed_thing.above
		local pos2=pointed_thing.under
		local name=user:get_player_name()
		if hook.slingshot_def(pos2,"walkable") and
		hook.slingshot_def({x=pos.x,y=pos.y-1,z=pos.z},"walkable")==false and
		(hook.slingshot_def({x=pos2.x,y=pos2.y+1,z=pos2.z},"walkable")==false or minetest.get_node({x=pos2.x,y=pos2.y+1,z=pos2.z}).name=="default:snow") and
		hook.is_hook(pos,name) and
		hook.slingshot_def({x=pos.x,y=pos.y+1,z=pos.z},"walkable")==false then
			if d==3 then d=1
			elseif d==1 then d=3
			elseif d==2 then d=0
			elseif d==0 then d=2
			end
			if hook.is_hook({x=pos.x,y=pos.y+1,z=pos.z},name) then
				minetest.set_node({x=pos.x,y=pos.y+1,z=pos.z},{name = "hook:hooking",param2=d})
				minetest.get_node_timer({x=pos.x,y=pos.y+1,z=pos.z}):start(3)
			else
				return itemstack
			end
			for i=0,-8, -1 do
				if hook.is_hook({x=pos.x,y=pos.y+i,z=pos.z},name) then
					minetest.set_node({x=pos.x,y=pos.y+i,z=pos.z}, {name = "hook:rope",param2=d})
				else
					return itemstack
				end
			end
		end
		return itemstack
	end
})

minetest.register_tool("hook:climb_rope", {
	description = "Climb rope",
	range = 2,
	inventory_image = "hook_rope2.png",
	on_use = function(itemstack, user, pointed_thing)
		if pointed_thing.type~="node" then
			hook.user=user
			hook.locked=false
			local pos=user:get_pos()
			local d=user:get_look_dir()
			local m=minetest.add_entity({x=pos.x,y=pos.y+1.5,z=pos.z}, "hook:power")
			m:set_velocity({x=d.x*15, y=d.y*15, z=d.z*15})
			m:set_acceleration({x=0, y=-5, z=0})
			minetest.sound_play("hook_throw", {pos=pos, gain = 1.0, max_hear_distance = 5,})
			return itemstack
		else
			local pos=pointed_thing.under
			local d=minetest.dir_to_facedir(user:get_look_dir())
			local z=0
			local x=0
			local name=user:get_player_name()
			if hook.slingshot_def(pos,"walkable") then
				if d==0 then z=1 end
				if d==2 then z=-1 end
				if d==1 then x=1 end
				if d==3 then x=-1 end
				if hook.is_hook({x=pos.x+x,y=pos.y,z=pos.z+z},name) and hook.is_hook({x=pos.x+x,y=pos.y+1,z=pos.z+z},name) then
					minetest.set_node({x=pos.x+x,y=pos.y+1,z=pos.z+z},{name = "hook:hooking",param2=d})
					minetest.get_meta({x=pos.x+x,y=pos.y+1,z=pos.z+z}):set_int("a",1)
				else
					return itemstack
				end
				itemstack:take_item()
				for i=0,20,1 do
					if hook.is_hook({x=pos.x+x,y=pos.y-i,z=pos.z+z},name) then minetest.set_node({x=pos.x+x,y=pos.y-i,z=pos.z+z},{name = "hook:rope2",param2=d}) else return itemstack end
				end
			end
			return itemstack
		end
	end
})


minetest.register_tool("hook:climb_rope_locked", {
	description = "Climb rope (Locked)",
	range = 2,
	inventory_image = "hook_rope_locked.png",
	on_use = function(itemstack, user, pointed_thing)
		if pointed_thing.type~="node" then
			hook.user=user
			hook.locked=true
			local pos=user:get_pos()
			local d=user:get_look_dir()
			local m=minetest.add_entity({x=pos.x,y=pos.y+1.5,z=pos.z}, "hook:power")
			m:set_velocity({x=d.x*15, y=d.y*15, z=d.z*15})
			m:set_acceleration({x=0, y=-5, z=0})
			minetest.sound_play("hook_throw", {pos=pos, gain = 1.0, max_hear_distance = 5,})
			return itemstack
		else
			local pos=pointed_thing.under
			local d=minetest.dir_to_facedir(user:get_look_dir())
			local z=0
			local x=0
			local name=user:get_player_name()
			if hook.slingshot_def(pos,"walkable") then
				if d==0 then z=1 end
				if d==2 then z=-1 end
				if d==1 then x=1 end
				if d==3 then x=-1 end
				if hook.is_hook({x=pos.x+x,y=pos.y,z=pos.z+z},name) and hook.is_hook({x=pos.x+x,y=pos.y+1,z=pos.z+z},name) then
					minetest.set_node({x=pos.x+x,y=pos.y+1,z=pos.z+z},{name = "hook:hooking",param2=d})
					minetest.get_meta({x=pos.x+x,y=pos.y+1,z=pos.z+z}):set_int("a",1)
				else
					return itemstack
				end
				itemstack:take_item()
				for i=0,20,1 do
					if hook.is_hook({x=pos.x+x,y=pos.y-i,z=pos.z+z},name) then
						minetest.set_node({x=pos.x+x,y=pos.y-i,z=pos.z+z},{name = "hook:rope3",param2=d})
						minetest.get_meta({x=pos.x+x,y=pos.y-i,z=pos.z+z}):set_string("owner",user:get_player_name())
					else
						return itemstack
					end
				end
			end
			return itemstack
		end
	end
})


minetest.register_node("hook:rope", {
	description = "Rope (tempoary)",
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.0625, -0.5, -0.5, 0.0625, 0.5, -0.375}
		}
	},
	tiles = {"hook_rope.png"},
	paramtype = "light",
	paramtype2 = "facedir",
	buildable_to = true,
	drop = "",
	liquid_viscosity = 1,
	liquidtype = "source",
	liquid_alternative_flowing="hook:rope",
	liquid_alternative_source="hook:rope",
	liquid_renewable = false,
	liquid_range = 0,
	sunlight_propagates = false,
	walkable = false,
	is_ground_content = false,
	groups = {not_in_creative_inventory=1,rope=1, dig_immediate = 3,},
	on_construct = function(pos)
		minetest.get_node_timer(pos):start(3)
	end,
	on_timer = function (pos, elapsed)
		for i, ob in pairs(minetest.get_objects_inside_radius(pos, 3)) do
			if ob:is_player() then return true end
		end
		minetest.set_node(pos, {name = "air"})
		return false
	end,
	sounds = {footstep = {name = "hook_rope", gain = 1}}
})

minetest.register_node("hook:rope2", {
	description = "Rope",
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.0625, -0.5, -0.5, 0.0625, 0.5, -0.375}
		}
	},
	tiles = {"hook_rope.png"},
	paramtype = "light",
	paramtype2 = "facedir",
	drop = "",
	liquid_viscosity = 1,
	liquidtype = "source",
	liquid_alternative_flowing="hook:rope2",
	liquid_alternative_source="hook:rope2",
	liquid_renewable = false,
	liquid_range = 0,
	sunlight_propagates = false,
	walkable = false,
	is_ground_content = false,
	groups = {not_in_creative_inventory=1,rope=1, dig_immediate = 3,},
	on_punch = function(pos, node, puncher, pointed_thing)
		if minetest.is_protected(pos,puncher:get_player_name()) then
			return false
		end
		puncher:get_inventory():add_item("main", ItemStack("hook:climb_rope"))
		local n2d = {["hook:rope2"]=true,["hook:hooking"]=true}
		for i=0,21 do
			local p = {x=pos.x,y=pos.y+i,z=pos.z}
			if n2d[minetest.get_node(p).name] then
				minetest.remove_node(p)
			else
				break
			end
		end
		for i=1,21 do
			local p = {x=pos.x,y=pos.y-i,z=pos.z}
			if n2d[minetest.get_node(p).name] then
				minetest.remove_node(p)
			else
				break
			end
		end
	end,
	sounds = {footstep = {name = "hook_rope", gain = 1}}
})

minetest.register_node("hook:rope3", {
	description = "Rope (locked)",
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.0625, -0.5, -0.5, 0.0625, 0.5, -0.375}
		}
	},
	tiles = {"hook_rope.png"},
	paramtype = "light",
	paramtype2 = "facedir",
	drop = "",
	liquid_viscosity = 1,
	liquidtype = "source",
	liquid_alternative_flowing="hook:rope3",
	liquid_alternative_source="hook:rope3",
	liquid_renewable = false,
	liquid_range = 0,
	sunlight_propagates = false,
	walkable = false,
	is_ground_content = false,
	can_dig = function(pos, player)
		if minetest.get_meta(pos):get_string("owner")~=player:get_player_name() then
			minetest.chat_send_player(player:get_player_name(), "This rope is owned by: ".. minetest.get_meta(pos):get_string("owner"))
			return false
		end
		return true
	end,
	groups = {not_in_creative_inventory=1,rope=1, dig_immediate = 3,},
	on_punch = function(pos, node, puncher, pointed_thing)
		if minetest.get_meta(pos):get_string("owner")~=puncher:get_player_name() then
			minetest.chat_send_player(puncher:get_player_name(), "This rope is owned by: ".. minetest.get_meta(pos):get_string("owner"))
			return false
		end
		puncher:get_inventory():add_item("main", ItemStack("hook:climb_rope_locked"))
		local n2d = {["hook:rope3"]=true,["hook:hooking"]=true}
		for i=0,21 do
			local p = {x=pos.x,y=pos.y+i,z=pos.z}
			if n2d[minetest.get_node(p).name] then
				minetest.remove_node(p)
			else
				break
			end
		end
		for i=1,21 do
			local p = {x=pos.x,y=pos.y-i,z=pos.z}
			if n2d[minetest.get_node(p).name] then
				minetest.remove_node(p)
			else
				break
			end
		end
	end,
	sounds = {footstep = {name = "hook_rope", gain = 1}}
})

minetest.register_node("hook:hooking", {
	description = "Hooking",
	drawtype = "mesh",
	mesh="hook_hook.obj",
	tiles = {"hook_iron.png"},
	paramtype = "light",
	paramtype2 = "facedir",
	walkable=false,
	drop = "",
	sunlight_propagates = false,
	groups = {not_in_creative_inventory=1,rope=1, dig_immediate=3,rope=1},
	can_dig = function(pos, player)
		return minetest.get_item_group(minetest.get_node({x=pos.x,y=pos.y-1,z=pos.z}).name,"rope") == 0
	end,
	on_timer = function (pos, elapsed)
		if minetest.get_item_group(minetest.get_node({x=pos.x,y=pos.y-1,z=pos.z}).name,"rope") == 0 then
			minetest.remove_node(pos)
		else
			return true
		end
	end,
	selection_box = {
		type = "fixed",
		fixed = {
			{-0.0625, -0.5, -0.5, 0.0625, -0.49, -0.375}
		}
	},
})


minetest.register_tool("hook:mba", {
	description = "Mouth breather assembly",
	range = 1,
	inventory_image = "hook_mba.png",
	on_use=function(itemstack, user, pointed_thing)
		local pos=user:get_pos()
		pos.y=pos.y+1.5
		if hook.slingshot_def(pos,"drowning")==0 then
			itemstack:set_wear(1)
		else
			local use=itemstack:get_wear()+(65536/10)
			if use<65536 then
				itemstack:set_wear(use)
				user:set_breath(11)
			end
		end
		return itemstack
	end
})

minetest.register_craft({
	output = "hook:mba",
	recipe = {
		{"","default:steel_ingot",""},
		{"default:steel_ingot","default:steel_ingot","default:steel_ingot"},
		{"default:steel_ingot","","default:steel_ingot"},
	}
})

minetest.register_craft({
	output = "hook:hook",
	recipe = {
		{"","default:steel_ingot",""},
		{"","default:steel_ingot","default:steel_ingot"},
		{"default:steel_ingot","",""},
	}
})
minetest.register_craft({
	output = "hook:hook_upgrade",
	recipe = {
		{"","hook:hook",""},
		{"","hook:hook",""},
		{"","default:steel_ingot",""},
	}
})

minetest.register_craft({
	output = "hook:climb_rope",
	recipe = {
		{"","default:steel_ingot",""},
		{"","default:steelblock",""},
		{"","default:steel_ingot",""},
	}
})
minetest.register_craft({
	output = "hook:climb_rope_locked",
	recipe = {
		{"hook:climb_rope","default:steel_ingot",""},
	}
})

minetest.register_craft({
	output = "hook:slingshot",
	recipe = {
		{"default:steel_ingot","","default:steel_ingot"},
		{"","default:steelblock",""},
		{"","default:steel_ingot",""},
	}
})