From a8daa417c485ee20716ec050d4c676b5c91af773 Mon Sep 17 00:00:00 2001
From: David Leal <halfpacho@gmail.com>
Date: Fri, 12 Jun 2020 20:39:00 +0200
Subject: [PATCH] Add GitHub workflow and luacheck (#545)

---
 technic/tools/mining_drill.lua |  189 +++++++++++++++++++++++++---------------------
 1 files changed, 103 insertions(+), 86 deletions(-)

diff --git a/technic/tools/mining_drill.lua b/technic/tools/mining_drill.lua
index d7eb49c..e54e73d 100644
--- a/technic/tools/mining_drill.lua
+++ b/technic/tools/mining_drill.lua
@@ -1,18 +1,14 @@
-local mining_drill_max_charge      = 60000
-local mining_drill_mk2_max_charge  = 240000
-local mining_drill_mk3_max_charge  = 960000
-local mining_drill_power_usage     = 200
-local mining_drill_mk2_power_usage = 600
-local mining_drill_mk3_power_usage = 1800
+local max_charge = {50000, 200000, 650000}
+local power_usage_per_node = {200, 500, 800}
 
 local S = technic.getter
 
 minetest.register_craft({
 	output = 'technic:mining_drill',
 	recipe = {
-		{'technic:stainless_steel_ingot', 'technic:diamond_drill_head', 'technic:stainless_steel_ingot'},
-		{'technic:stainless_steel_ingot', 'technic:motor',              'technic:stainless_steel_ingot'},
-		{'',                              'technic:red_energy_crystal', 'moreores:copper_ingot'},
+		{'default:tin_ingot',             'technic:diamond_drill_head', 'default:tin_ingot'},
+		{'technic:stainless_steel_ingot', 'basic_materials:motor',              'technic:stainless_steel_ingot'},
+		{'',                              'technic:red_energy_crystal', 'default:copper_ingot'},
 	}
 })
 minetest.register_craft({
@@ -55,18 +51,18 @@
 		minetest.record_protection_violation(pos, player:get_player_name())
 		return
 	end
-	local node=minetest.env:get_node(pos)
+	local node=minetest.get_node(pos)
 	if node.name == "air" or node.name == "ignore" then return end
 	if node.name == "default:lava_source" then return end
 	if node.name == "default:lava_flowing" then return end
-	if node.name == "default:water_source" then minetest.env:remove_node(pos) return end
-	if node.name == "default:water_flowing" then minetest.env:remove_node(pos) return end
+	if node.name == "default:water_source" then minetest.remove_node(pos) return end
+	if node.name == "default:water_flowing" then minetest.remove_node(pos) return end
 	minetest.node_dig(pos,node,player)
 end
 
 local function drill_dig_it1 (player)
 	local dir=player:get_look_dir()
-	if math.abs(dir.x)>math.abs(dir.z) then 
+	if math.abs(dir.x)>math.abs(dir.z) then
 		if dir.x>0 then return 0 end
 		return 1
 	end
@@ -75,12 +71,6 @@
 end
 
 local function drill_dig_it2 (pos,player)
-	drill_dig_it0 (pos,player)
-	pos.z=pos.z+1
-	drill_dig_it0 (pos,player)
-	pos.z=pos.z-2
-	drill_dig_it0 (pos,player)
-	pos.z=pos.z+1
 	pos.y=pos.y+1
 	drill_dig_it0 (pos,player)
 	pos.z=pos.z+1
@@ -88,7 +78,14 @@
 	pos.z=pos.z-2
 	drill_dig_it0 (pos,player)
 	pos.z=pos.z+1
-	pos.y=pos.y-2
+	pos.y=pos.y-1
+	drill_dig_it0 (pos,player)
+	pos.z=pos.z+1
+	drill_dig_it0 (pos,player)
+	pos.z=pos.z-2
+	drill_dig_it0 (pos,player)
+	pos.z=pos.z+1
+	pos.y=pos.y-1
 	drill_dig_it0 (pos,player)
 	pos.z=pos.z+1
 	drill_dig_it0 (pos,player)
@@ -97,12 +94,6 @@
 end
 
 local function drill_dig_it3 (pos,player)
-	drill_dig_it0 (pos,player)
-	pos.x=pos.x+1
-	drill_dig_it0 (pos,player)
-	pos.x=pos.x-2
-	drill_dig_it0 (pos,player)
-	pos.x=pos.x+1
 	pos.y=pos.y+1
 	drill_dig_it0 (pos,player)
 	pos.x=pos.x+1
@@ -110,7 +101,14 @@
 	pos.x=pos.x-2
 	drill_dig_it0 (pos,player)
 	pos.x=pos.x+1
-	pos.y=pos.y-2
+	pos.y=pos.y-1
+	drill_dig_it0 (pos,player)
+	pos.x=pos.x+1
+	drill_dig_it0 (pos,player)
+	pos.x=pos.x-2
+	drill_dig_it0 (pos,player)
+	pos.x=pos.x+1
+	pos.y=pos.y-1
 	drill_dig_it0 (pos,player)
 	pos.x=pos.x+1
 	drill_dig_it0 (pos,player)
@@ -140,15 +138,25 @@
 	drill_dig_it0 (pos,player)
 end
 
+local function cost_to_use(drill_type, mode)
+	local mult
+	if mode == 1 then
+		mult = 1
+	elseif mode <= 4 then
+		mult = 3
+	else
+		mult = 9
+	end
+	return power_usage_per_node[drill_type] * mult
+end
 
-local function drill_dig_it(pos, player, drill_type, mode)
-	local charge
+local function drill_dig_it(pos, player, mode)
 	if mode == 1 then
 		drill_dig_it0(pos, player)
 	end
-	
+
 	if mode == 2 then -- 3 deep
-		dir = drill_dig_it1(player)
+		local dir = drill_dig_it1(player)
 		if dir == 0 then -- x+
 			drill_dig_it0(pos, player)
 			pos.x = pos.x + 1
@@ -172,15 +180,15 @@
 		end
 		if dir==3 then  -- z-
 			drill_dig_it0 (pos,player)
-			pos.z=pos.z+1
+			pos.z=pos.z-1
 			drill_dig_it0 (pos,player)
-			pos.z=pos.z+1
+			pos.z=pos.z-1
 			drill_dig_it0 (pos,player)
 		end
 	end
-	
+
 	if mode==3 then -- 3 wide
-		dir=drill_dig_it1(player)
+		local dir = drill_dig_it1(player)
 		if dir==0 or dir==1 then -- x
 			drill_dig_it0 (pos,player)
 			pos.z=pos.z+1
@@ -196,7 +204,7 @@
 			drill_dig_it0 (pos,player)
 		end
 	end
-	
+
 	if mode==4 then -- 3 tall, selected in the middle
 		drill_dig_it0 (pos,player)
 		pos.y=pos.y-1
@@ -219,31 +227,27 @@
 		drill_dig_it4(pos,player)
 		end
 	end
-	
-	if drill_type==1 then charge=mining_drill_power_usage end
-	if drill_type==2 then 
-		if  mode==1 then charge=mining_drill_mk2_power_usage end
-		if (mode==2 or mode==3 or mode==4) then charge=mining_drill_mk2_power_usage*3 end
-	end
-	if drill_type==3 then 
-		if  mode==1 then charge=mining_drill_power_usage end
-		if (mode==2 or mode==3 or mode==4) then charge=mining_drill_mk2_power_usage*6 end
-		if mode==5 then charge=mining_drill_mk2_power_usage*9 end
-	end
+
 	minetest.sound_play("mining_drill", {pos = pos, gain = 1.0, max_hear_distance = 10,})
-	return charge
+end
+
+local function pos_is_pointable(pos)
+	local node = minetest.get_node(pos)
+	local nodedef = minetest.registered_nodes[node.name]
+	return nodedef and nodedef.pointable
 end
 
 local function mining_drill_mk2_setmode(user,itemstack)
 	local player_name=user:get_player_name()
 	local item=itemstack:to_table()
+	local mode = nil
 	local meta=minetest.deserialize(item["metadata"])
 	if meta==nil then
 		meta={}
 		mode=0
 	end
 	if meta["mode"]==nil then
-		minetest.chat_send_player(player_name, S("Hold shift and use to change Mining Drill Mk%d modes."):format(2))
+		minetest.chat_send_player(player_name, S("Use while sneaking to change Mining Drill Mk%d modes."):format(2))
 		meta["mode"]=0
 		mode=0
 	end
@@ -251,10 +255,9 @@
 	mode=mode+1
 	if mode>=5 then mode=1 end
 	minetest.chat_send_player(player_name, S("Mining Drill Mk%d Mode %d"):format(2, mode)..": "..mining_drill_mode_text[mode][1])
-	item["name"]="technic:mining_drill_mk2_"..mode
+    itemstack:set_name("technic:mining_drill_mk2_"..mode);
 	meta["mode"]=mode
-	item["metadata"]=minetest.serialize(meta)
-	itemstack:replace(item)
+    itemstack:set_metadata(minetest.serialize(meta))
 	return itemstack
 end
 
@@ -267,7 +270,7 @@
 		mode=0
 	end
 	if meta["mode"]==nil then
-		minetest.chat_send_player(player_name, S("Hold shift and use to change Mining Drill Mk%d modes."):format(3))
+		minetest.chat_send_player(player_name, S("Use while sneaking to change Mining Drill Mk%d modes."):format(3))
 		meta["mode"]=0
 		mode=0
 	end
@@ -275,76 +278,82 @@
 	mode=mode+1
 	if mode>=6 then mode=1 end
 	minetest.chat_send_player(player_name, S("Mining Drill Mk%d Mode %d"):format(3, mode)..": "..mining_drill_mode_text[mode][1])
-	item["name"]="technic:mining_drill_mk3_"..mode
+    itemstack:set_name("technic:mining_drill_mk3_"..mode);
 	meta["mode"]=mode
-	item["metadata"]=minetest.serialize(meta)
-	itemstack:replace(item)
+    itemstack:set_metadata(minetest.serialize(meta))
 	return itemstack
 end
 
 
 local function mining_drill_mk2_handler(itemstack, user, pointed_thing)
 	local keys = user:get_player_control()
-	local player_name = user:get_player_name()
 	local meta = minetest.deserialize(itemstack:get_metadata())
 	if not meta or not meta.mode or keys.sneak then
 		return mining_drill_mk2_setmode(user, itemstack)
 	end
-	if pointed_thing.type ~= "node" or not meta.charge then
+	if pointed_thing.type ~= "node" or not pos_is_pointable(pointed_thing.under) or not meta.charge then
 		return
 	end
-	if meta.charge - mining_drill_power_usage > 0 then
-		local pos = minetest.get_pointed_thing_position(pointed_thing, above)
-		local charge_to_take = drill_dig_it(pos, user, 2, meta.mode)
-		meta.charge = meta.charge - charge_to_take
-		meta.charge = math.max(meta.charge, 0)
-		itemstack:set_metadata(minetest.serialize(meta))
-		technic.set_RE_wear(itemstack, meta.charge, mining_drill_mk2_max_charge)
+	local charge_to_take = cost_to_use(2, meta.mode)
+	if meta.charge >= charge_to_take then
+		local pos = minetest.get_pointed_thing_position(pointed_thing, false)
+		drill_dig_it(pos, user, meta.mode)
+		if not technic.creative_mode then
+			meta.charge = meta.charge - charge_to_take
+			itemstack:set_metadata(minetest.serialize(meta))
+			technic.set_RE_wear(itemstack, meta.charge, max_charge[2])
+		end
 	end
 	return itemstack
 end
 
 local function mining_drill_mk3_handler(itemstack, user, pointed_thing)
 	local keys = user:get_player_control()
-	local player_name = user:get_player_name()
 	local meta = minetest.deserialize(itemstack:get_metadata())
 	if not meta or not meta.mode or keys.sneak then
 		return mining_drill_mk3_setmode(user, itemstack)
 	end
-	if pointed_thing.type ~= "node" or not meta.charge then
+	if pointed_thing.type ~= "node" or not pos_is_pointable(pointed_thing.under) or not meta.charge then
 		return
 	end
-	if meta.charge - mining_drill_power_usage > 0 then
-		local pos = minetest.get_pointed_thing_position(pointed_thing, above)
-		local charge_to_take = drill_dig_it(pos, user, 3, meta.mode)
-		meta.charge = meta.charge - charge_to_take
-		meta.charge = math.max(meta.charge, 0)
-		itemstack:set_metadata(minetest.serialize(meta))
-		technic.set_RE_wear(itemstack, meta.charge, mining_drill_mk3_max_charge)
+	local charge_to_take = cost_to_use(3, meta.mode)
+	if meta.charge >= charge_to_take then
+		local pos = minetest.get_pointed_thing_position(pointed_thing, false)
+		drill_dig_it(pos, user, meta.mode)
+		if not technic.creative_mode then
+			meta.charge = meta.charge - charge_to_take
+			itemstack:set_metadata(minetest.serialize(meta))
+			technic.set_RE_wear(itemstack, meta.charge, max_charge[3])
+		end
 	end
 	return itemstack
 end
 
-technic.register_power_tool("technic:mining_drill", mining_drill_max_charge)
+technic.register_power_tool("technic:mining_drill", max_charge[1])
 
 minetest.register_tool("technic:mining_drill", {
 	description = S("Mining Drill Mk%d"):format(1),
 	inventory_image = "technic_mining_drill.png",
 	stack_max = 1,
+	wear_represents = "technic_RE_charge",
+	on_refill = technic.refill_RE_charge,
 	on_use = function(itemstack, user, pointed_thing)
-		if pointed_thing.type ~= "node" then
+		if pointed_thing.type ~= "node" or not pos_is_pointable(pointed_thing.under) then
 			return itemstack
 		end
 		local meta = minetest.deserialize(itemstack:get_metadata())
 		if not meta or not meta.charge then
 			return
 		end
-		if meta.charge - mining_drill_power_usage > 0 then
-			local pos = minetest.get_pointed_thing_position(pointed_thing, above)
-			charge_to_take = drill_dig_it(pos, user, 1, 1)
-			meta.charge = meta.charge - mining_drill_power_usage
-			itemstack:set_metadata(minetest.serialize(meta))
-			technic.set_RE_wear(itemstack, meta.charge, mining_drill_max_charge)
+		local charge_to_take = cost_to_use(1, 1)
+		if meta.charge >= charge_to_take then
+			local pos = minetest.get_pointed_thing_position(pointed_thing, false)
+			drill_dig_it(pos, user, 1)
+			if not technic.creative_mode then
+				meta.charge = meta.charge - charge_to_take
+				itemstack:set_metadata(minetest.serialize(meta))
+				technic.set_RE_wear(itemstack, meta.charge, max_charge[1])
+			end
 		end
 		return itemstack
 	end,
@@ -353,20 +362,24 @@
 minetest.register_tool("technic:mining_drill_mk2", {
 	description = S("Mining Drill Mk%d"):format(2),
 	inventory_image = "technic_mining_drill_mk2.png",
+	wear_represents = "technic_RE_charge",
+	on_refill = technic.refill_RE_charge,
 	on_use = function(itemstack, user, pointed_thing)
 		mining_drill_mk2_handler(itemstack, user, pointed_thing)
 		return itemstack
 	end,
 })
 
-technic.register_power_tool("technic:mining_drill_mk2", mining_drill_mk2_max_charge)
+technic.register_power_tool("technic:mining_drill_mk2", max_charge[2])
 
 for i = 1, 4 do
-	technic.register_power_tool("technic:mining_drill_mk2_"..i, mining_drill_mk2_max_charge)
+	technic.register_power_tool("technic:mining_drill_mk2_"..i, max_charge[2])
 	minetest.register_tool("technic:mining_drill_mk2_"..i, {
 		description = S("Mining Drill Mk%d Mode %d"):format(2, i),
 		inventory_image = "technic_mining_drill_mk2.png^technic_tool_mode"..i..".png",
 		wield_image = "technic_mining_drill_mk2.png",
+		wear_represents = "technic_RE_charge",
+		on_refill = technic.refill_RE_charge,
 		groups = {not_in_creative_inventory=1},
 		on_use = function(itemstack, user, pointed_thing)
 			mining_drill_mk2_handler(itemstack, user, pointed_thing)
@@ -378,20 +391,24 @@
 minetest.register_tool("technic:mining_drill_mk3", {
 	description = S("Mining Drill Mk%d"):format(3),
 	inventory_image = "technic_mining_drill_mk3.png",
+	wear_represents = "technic_RE_charge",
+	on_refill = technic.refill_RE_charge,
 	on_use = function(itemstack, user, pointed_thing)
 	mining_drill_mk3_handler(itemstack,user,pointed_thing)
 	return itemstack
 	end,
 })
 
-technic.register_power_tool("technic:mining_drill_mk3", mining_drill_mk3_max_charge)
+technic.register_power_tool("technic:mining_drill_mk3", max_charge[3])
 
 for i=1,5,1 do
-	technic.register_power_tool("technic:mining_drill_mk3_"..i, mining_drill_mk3_max_charge)
+	technic.register_power_tool("technic:mining_drill_mk3_"..i, max_charge[3])
 	minetest.register_tool("technic:mining_drill_mk3_"..i, {
 		description = S("Mining Drill Mk%d Mode %d"):format(3, i),
 		inventory_image = "technic_mining_drill_mk3.png^technic_tool_mode"..i..".png",
 		wield_image = "technic_mining_drill_mk3.png",
+		wear_represents = "technic_RE_charge",
+		on_refill = technic.refill_RE_charge,
 		groups = {not_in_creative_inventory=1},
 		on_use = function(itemstack, user, pointed_thing)
 		mining_drill_mk3_handler(itemstack,user,pointed_thing)

--
Gitblit v1.8.0