| | |
| | | |
| | | 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}, |
| | | -- {<num>, <range of the laser shots>, <max_charge>, <charge_per_shot>}, |
| | | {"1", 7, 50000, 1000}, |
| | | {"2", 14, 200000, 2000}, |
| | | {"3", 21, 650000, 3000}, |
| | | } |
| | | |
| | | local f_1 = 0.5 - r_corr |
| | | local f_2 = 0.5 + r_corr |
| | | local allow_entire_discharging = true |
| | | |
| | | local S = technic.getter |
| | | |
| | | minetest.register_craft({ |
| | | output = 'technic:laser_mk1', |
| | | output = "technic:laser_mk1", |
| | | recipe = { |
| | | {'default:diamond', 'default:steel_ingot', 'technic:battery'}, |
| | | {'', 'default:steel_ingot', 'technic:battery'}, |
| | | {'', '', 'default:copper_ingot'}, |
| | | {"default:diamond", "basic_materials:brass_ingot", "default:obsidian_glass"}, |
| | | {"", "basic_materials:brass_ingot", "technic:red_energy_crystal"}, |
| | | {"", "", "default:copper_ingot"}, |
| | | } |
| | | }) |
| | | minetest.register_craft({ |
| | | output = "technic:laser_mk2", |
| | | recipe = { |
| | | {"default:diamond", "technic:carbon_steel_ingot", "technic:laser_mk1"}, |
| | | {"", "technic:carbon_steel_ingot", "technic:green_energy_crystal"}, |
| | | {"", "", "default:copper_ingot"}, |
| | | } |
| | | }) |
| | | minetest.register_craft({ |
| | | output = "technic:laser_mk3", |
| | | recipe = { |
| | | {"default:diamond", "technic:carbon_steel_ingot", "technic:laser_mk2"}, |
| | | {"", "technic:carbon_steel_ingot", "technic:blue_energy_crystal"}, |
| | | {"", "", "default:copper_ingot"}, |
| | | } |
| | | }) |
| | | |
| | | |
| | | 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 |
| | | local function laser_node(pos, node, player) |
| | | local def = minetest.registered_nodes[node.name] |
| | | if def.liquidtype ~= "none" and def.buildable_to 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") |
| | | minetest.add_particle({ |
| | | pos = pos, |
| | | velocity = {x = 0, y = 1.5 + math.random(), z = 0}, |
| | | acceleration = {x = 0, y = -1, z = 0}, |
| | | size = 6 + math.random() * 2, |
| | | texture = "smoke_puff.png^[transform" .. math.random(0, 7), |
| | | }) |
| | | return |
| | | end |
| | | if player then |
| | | minetest.node_dig(pos, node, player) |
| | | end |
| | | def.on_dig(pos, node, player) |
| | | 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} |
| | | local keep_node = {air = true} |
| | | local function can_keep_node(name) |
| | | if keep_node[name] ~= nil then |
| | | return keep_node[name] |
| | | 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 |
| | | keep_node[name] = minetest.get_item_group(name, "hot") ~= 0 |
| | | return keep_node[name] |
| | | end |
| | | |
| | | local function laser_shoot(player, range, particle_texture, sound) |
| | | local playerpos = player:getpos() |
| | | local player_pos = player:get_pos() |
| | | local player_name = player:get_player_name() |
| | | 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}) |
| | | local start_pos = vector.new(player_pos) |
| | | -- Adjust to head height |
| | | start_pos.y = start_pos.y + (player:get_properties().eye_height or 1.625) |
| | | minetest.add_particle({ |
| | | pos = start_pos, |
| | | velocity = dir, |
| | | acceleration = vector.multiply(dir, 50), |
| | | expirationtime = (math.sqrt(1 + 100 * (range + 0.4)) - 1) / 50, |
| | | size = 1, |
| | | texture = particle_texture .. "^[transform" .. math.random(0, 7), |
| | | }) |
| | | minetest.sound_play(sound, {pos = player_pos, max_hear_distance = range}) |
| | | for pos in technic.trace_node_ray_fat(start_pos, dir, range) do |
| | | if minetest.is_protected(pos, player_name) then |
| | | minetest.record_protection_violation(pos, player_name) |
| | | break |
| | | end |
| | | local node = minetest.get_node(pos) |
| | | if node.name == "ignore" |
| | | or not minetest.registered_nodes[node.name] then |
| | | break |
| | | end |
| | | if not can_keep_node(node.name) then |
| | | laser_node(pos, node, player) |
| | | end |
| | | end |
| | | 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", |
| | | range = 0, |
| | | stack_max = 1, |
| | | wear_represents = "technic_RE_charge", |
| | | on_refill = technic.refill_RE_charge, |
| | | on_use = function(itemstack, user) |
| | | local meta = minetest.deserialize(itemstack:get_metadata()) |
| | | if not meta or not meta.charge then |
| | | local meta = technic.get_stack_meta(itemstack) |
| | | local charge = meta:get_int("technic:charge") |
| | | if charge == 0 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(minetest.serialize(meta)) |
| | | |
| | | local range = m[2] |
| | | if charge < m[4] then |
| | | if not allow_entire_discharging then |
| | | return |
| | | end |
| | | -- If charge is too low, give the laser a shorter range |
| | | range = range * charge / m[4] |
| | | end |
| | | laser_shoot(user, range, "technic_laser_beam_mk" .. m[1] .. ".png", |
| | | "technic_laser_mk" .. m[1]) |
| | | if not technic.creative_mode then |
| | | charge = math.max(charge - m[4], 0) |
| | | meta:set_int("technic:charge", charge) |
| | | technic.set_RE_wear(itemstack, charge, m[3]) |
| | | end |
| | | return itemstack |
| | | end, |
| | | }) |
| | | end |
| | | |