Add GitHub workflow and luacheck (#545)

David Leal

2020-06-12 a8daa417c485ee20716ec050d4c676b5c91af773

 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({
@@ -51,18 +47,22 @@
}

local function drill_dig_it0 (pos,player)
   local node=minetest.env:get_node(pos)
   if minetest.is_protected(pos, player:get_player_name()) then
      minetest.record_protection_violation(pos, player:get_player_name())
      return
   end
   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
@@ -71,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
@@ -84,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)
@@ -93,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
@@ -106,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)
@@ -136,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
@@ -168,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
@@ -192,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
@@ -215,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
@@ -247,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

@@ -263,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
@@ -271,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,
@@ -349,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)
@@ -374,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)