From 18e590e4e21f0eb8ffc68c661bac2d8a01e83edf Mon Sep 17 00:00:00 2001
From: Wuzzy <almikes@aol.com>
Date: Mon, 9 Feb 2015 02:45:58 +0100
Subject: [PATCH] Add experimental mole potion

---
 init.lua              | 118 ++++++++++++++++++++++++++++++++++++++++++
 textures/pep_mole.png | Bin 0 -> 469 bytes
 2 files changed, 118 insertions(+)
 create mode 100644 textures/pep_mole.png

diff --git a/init.lua b/init.lua
index 69e3cdc..b22a6b3 100644
--- a/init.lua
+++ b/init.lua
@@ -21,6 +21,105 @@ function pep.register_potion(potiondef)
 	})
 end
 
+pep.moles = {}
+
+function pep.enable_mole_mode(playername)
+	pep.moles[playername] = true
+end
+
+function pep.disable_mole_mode(playername)
+	pep.moles[playername] = false
+end
+
+function pep.yaw_to_vector(yaw)
+	local tau = math.pi*2
+
+	yaw = yaw % tau
+	if yaw < tau/8 then
+		return { x=0, y=0, z=1}
+	elseif yaw < (3/8)*tau then
+		return { x=-1, y=0, z=0 }
+	elseif yaw < (5/8)*tau then
+		return { x=0, y=0, z=-1 }
+	elseif yaw < (7/8)*tau then
+		return { x=1, y=0, z=0 }
+	else
+		return { x=0, y=0, z=1}
+	end
+end
+
+function pep.moledig(playername)
+	local player = minetest.get_player_by_name(playername)
+
+	local yaw = player:get_look_yaw()
+	-- fix stupid oddity of Minetest, adding pi/2 to the actual player's look yaw...
+	-- TODO: Remove this code as soon as Minetest fixes this.
+	yaw = yaw - math.pi/2
+
+	local pos = vector.round(player:getpos())
+
+	local v = pep.yaw_to_vector(yaw)
+
+	local digpos1 = vector.add(pos, v)
+	local digpos2 = { x = digpos1.x, y = digpos1.y+1, z = digpos1.z }
+
+	local try_dig = function(pos)
+		local n = minetest.get_node(pos)
+		local ndef = minetest.registered_nodes[n.name]
+		if ndef.walkable and ndef.diggable then
+			if ndef.can_dig ~= nil then
+				if ndef.can_dig() then
+					return true
+				else
+					return false
+				end
+			else
+				return true
+			end
+		else
+			return false
+		end
+	end
+
+	local dig = function(pos)
+		if try_dig(pos) then
+			local n = minetest.get_node(pos)
+			local ndef = minetest.registered_nodes[n.name]
+			if ndef.sounds ~= nil then
+				minetest.sound_play(ndef.sounds.dug, { pos = pos })
+			end
+			-- TODO: Replace this code as soon Minetest removes support for this function
+			local drops = minetest.get_node_drops(n.name, "default:pick_steel")
+			minetest.dig_node(pos)
+			local inv = player:get_inventory()
+			local leftovers = {}
+			for i=1,#drops do
+				table.insert(leftovers, inv:add_item("main", drops[i]))
+			end
+			for i=1,#leftovers do
+				minetest.add_item(pos, leftovers[i])
+			end
+		end
+	end
+
+	dig(digpos1)
+	dig(digpos2)
+end
+
+pep.timer = 0
+
+minetest.register_globalstep(function(dtime)
+	pep.timer = pep.timer + dtime
+	if pep.timer > 0.5 then
+		for playername, is_mole in pairs(pep.moles) do
+			if is_mole then
+				pep.moledig(playername)
+			end
+		end
+		pep.timer = 0
+	end
+end)
+
 playereffects.register_effect_type("pepspeedplus", "High speed", "pep_speedplus.png", {"speed"},
 	function(player)
 		player:set_physics_override({speed=2})
@@ -85,6 +184,14 @@ playereffects.register_effect_type("pepbreath", "Perfect breath", "pep_breath.pn
 	end,
 	nil, nil, nil, 1
 )
+playereffects.register_effect_type("pepmole", "Mole mode", "pep_mole.png", {"autodig"},
+	function(player)
+		pep.enable_mole_mode(player:get_player_name())
+	end,
+	function(effect, player)
+		pep.disable_mole_mode(player:get_player_name())
+	end
+)
 
 pep.register_potion({
 	basename = "speedplus",
@@ -153,6 +260,12 @@ pep.register_potion({
 	effect_type = "pepjumpreset",
 	duration = 0,
 })
+pep.register_potion({
+	basename = "mole",
+	contentstring = "Mole Potion",
+	effect_type = "pepmole",
+	duration = 18,
+})
 
 --[=[ register crafts ]=]
 --[[ normal potions ]]
@@ -191,6 +304,11 @@ minetest.register_craft({
 		output = "pep:grav0",
 		recipe = { "default:mese_crystal", "vessels:glass_bottle" }
 	})
+	minetest.register_craft({
+		type = "shapeless",
+		output = "pep:mole",
+		recipe = { "default:pick_steel", "default:shovel_steel", "vessels:glass_bottle" },
+	})
 end
 if(minetest.get_modpath("flowers") ~= nil) then
 	minetest.register_craft({
diff --git a/textures/pep_mole.png b/textures/pep_mole.png
new file mode 100644
index 0000000000000000000000000000000000000000..df2b01032e2d5805dbf48f930c3f88a7bbd6571d
GIT binary patch
literal 469
zcmV;`0V@89P)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV0004;Nkl<ZILoC{
zO-lk%6g|)9jM?-JCA5f;qJ<It0$W9k=pVH1ceHNR&P3d~7!X>x6@yl7#DbI-!rQdz
z6-YWW>U=zJ3yB(2DY~l%@7{CIIrjknEH>$*QmK%pY2chgDTQ=8&3+9agdoE(U>F88
zO@r_GaJmi>iNufo$T)y<xeNfP)oQ3#s{kXEN~OPPlTy;>+p;a1)HjwvHk%C%FamP9
z9Q}H`5Q4rB<nwv@&S+|7G8qy=&^Sq>%*I}!{#Yk*ch#P89=filz&V3b1X??o-#s{+
zOD2<Sq6dXSfrt@e_I)={18_d<?Rx|CpKmMxFin#t0&H(@;pyhG{r2vn;{<5iJ~~bS
zFBrh-E8JdRbW*8Qh;ejOk>6_c7#nVm@(AqS5TNHO08+6L)nNc4^xXgpvmCCk(CQ3_
zzxZ-SpeX>1L0{a|Ut2GM@AgzUF*=K{?#+(c9`c~sY-0cTd?mWP6XSCmI^yd(;_G@O
zw!{~cM+=81r+TB_n4SaEG)V|SQcALIi(Jno%d$vHNyTFEM-Dy!w++oQ&}>to00000
LNkvXXu0mjf8wb$C

literal 0
HcmV?d00001