Add Mk2 and Mk3 mining lasers

technic/tools/mining_lasers.lua

@@ -0,0 +1,157 @@
+
+local r_corr = 0.25 -- Remove a bit more nodes (if shooting diagonal) to let it look like a hole (sth like antialiasing)
+local mk1_charge = 40000
+
+local mining_lasers_list = {
+--	{<num>, <range of the laser shots>, <max_charge>},
+	{"1",  7, mk1_charge},
+	{"2", 11, mk1_charge * 4},
+	{"3", 30, mk1_charge * 16},
+}
+
+local f_1 = 0.5 - r_corr
+local f_2 = 0.5 + r_corr
+
+local S = technic.getter
+
+local function get_used_dir(dir)
+	local abs_dir = {x = math.abs(dir.x),
+			y = math.abs(dir.y),
+			z = math.abs(dir.z)}
+	local dir_max = math.max(abs_dir.x, abs_dir.y, abs_dir.z)
+	if dir_max == abs_dir.x then
+		local tab = {"x", {x = 1, y = dir.y / dir.x, z = dir.z / dir.x}}
+		if dir.x >= 0 then
+			tab[3] = "+"
+		end
+		return tab
+	end
+	if dir_max == abs_dir.y then
+		local tab = {"y", {x = dir.x / dir.y, y = 1, z = dir.z / dir.y}}
+		if dir.y >= 0 then
+			tab[3] = "+"
+		end
+		return tab
+	end
+	local tab = {"z", {x = dir.x / dir.z, y = dir.y / dir.z, z = 1}}
+	if dir.z >= 0 then
+		tab[3] = "+"
+	end
+	return tab
+end
+
+local function node_tab(z, d)
+	local n1 = math.floor(z * d + f_1)
+	local n2 = math.floor(z * d + f_2)
+	if n1 == n2 then
+		return {n1}
+	end
+	return {n1, n2}
+end
+
+local function laser_node(pos, player)
+	local node = minetest.get_node(pos)
+	if node.name == "air"
+	or node.name == "ignore"
+	or node.name == "default:lava_source"
+	or node.name == "default:lava_flowing" then
+		return
+	end
+	if node.name == "default:water_source"
+	or node.name == "default:water_flowing" then
+		minetest.remove_node(pos)
+		minetest.add_particle(pos,
+				{x=0, y=2, z=0},
+				{x=0, y=-1, z=0},
+				1.5,
+				8,
+				false,
+				"smoke_puff.png")
+		return
+	end
+	if player then
+		minetest.node_dig(pos, node, player)
+	end
+end
+
+local function laser_nodes(pos, dir, player, range)
+	local t_dir = get_used_dir(dir)
+	local dir_typ = t_dir[1]
+	if t_dir[3] == "+" then
+		f_tab = {0, range}
+	else
+		f_tab = {-range,0}
+	end
+	local d_ch = t_dir[2]
+	if dir_typ == "x" then
+		for d = f_tab[1],f_tab[2],1 do
+			local x = d
+			local ytab = node_tab(d_ch.y, d)
+			local ztab = node_tab(d_ch.z, d)
+			for _, y in pairs(ytab) do
+				for _, z in pairs(ztab) do
+					laser_node({x = pos.x + x, y = pos.y + y, z = pos.z + z}, player)
+				end
+			end
+		end
+		return
+	end
+	if dir_typ == "y" then
+		for d = f_tab[1], f_tab[2] do
+			local xtab = node_tab(d_ch.x, d)
+			local y = d
+			local ztab = node_tab(d_ch.z, d)
+			for _, x in pairs(xtab) do
+				for _, z in pairs(ztab) do
+					laser_node({x = pos.x + x, y = pos.y + y, z = pos.z + z}, player)
+				end
+			end
+		end
+		return
+	end
+	for d = f_tab[1], f_tab[2] do
+		local xtab = node_tab(d_ch.x, d)
+		local ytab = node_tab(d_ch.y, d)
+		local z = d
+		for _, x in pairs(xtab) do
+			for _, y in pairs(ytab) do
+				laser_node({x = pos.x + x, y = pos.y + y, z = pos.z + z}, player)
+			end
+		end
+	end
+end
+
+local function laser_shoot(player, range, particle_texture, sound)
+	local playerpos = player:getpos()
+	local dir = player:get_look_dir()
+
+	local startpos = {x = playerpos.x, y = playerpos.y + 1.6, z = playerpos.z}
+	local mult_dir = vector.multiply(dir, 50)
+	minetest.add_particle(startpos, dir, mult_dir, range / 11, 1, false, particle_texture)
+	laser_nodes(vector.round(startpos), dir, player, range)
+	minetest.sound_play(sound, {pos = playerpos, gain = 1.0, max_hear_distance = range})
+end
+
+
+for _, m in pairs(mining_lasers_list) do
+	technic.register_power_tool("technic:laser_mk"..m[1], m[3])
+	minetest.register_tool("technic:laser_mk"..m[1], {
+		description = S("Mining Laser Mk%d"):format(m[1]),
+		inventory_image = "technic_mining_laser_mk"..m[1]..".png",
+		stack_max = 1,
+		on_use = function(itemstack, user)
+			local meta = get_item_meta(itemstack:get_metadata())
+			if not meta or not meta.charge then
+				return
+			end
+			if meta.charge - 400 > 0 then
+				laser_shoot(user, m[2], "technic_laser_beam_mk"..m[1]..".png", "technic_laser_mk"..m[1])
+				meta.charge = meta.charge - 400
+				technic.set_RE_wear(itemstack, meta.charge, m[3])
+				itemstack:set_metadata(set_item_meta(meta))
+			end
+			return itemstack
+		end,
+	})
+end
+