VoxeLibre/mods/ITEMS/mcl_beacons/init.lua

local S = minetest.get_translator(minetest.get_current_modname())
--[[
there are strings in meta, which are being used to see which effect will be given to the player(s)
Valid strings:
    swiftness
    leaping
    strenght
    regeneration
]]--


local color_list = {"cdf4e9","f9fcfb","7c5e3d","1826c9","16f4f4","f483fc","9712bc","ea1212","adadad","535454","19e52a","549159","ef8813","ebf704","000000","e502d6","e8e3e3"}

local function get_beacon_beam(glass_nodename)
    if string.match(glass_nodename, "cyan") then
        return "mcl_beacons:beacon_beam_cdf4e9"
    elseif string.match(glass_nodename,"white") then
        return "mcl_beacons:beacon_beam_f9fcfb"
    elseif string.match(glass_nodename,"brown") then
        return "mcl_beacons:beacon_beam_7c5e3d"
    elseif string.match(glass_nodename,"blue") and not string.match(glass_nodename, "light") then
        return "mcl_beacons:beacon_beam_1826c9"
    elseif string.match(glass_nodename,"light_blue") then
        return "mcl_beacons:beacon_beam_16f4f4"
    elseif string.match(glass_nodename,"pink") then
        return "mcl_beacons:beacon_beam_f483fc"
    elseif string.match(glass_nodename, "purple") then
        return "mcl_beacons:beacon_beam_9712bc"
    elseif string.match(glass_nodename, "red") then
        return "mcl_beacons:beacon_beam_ea1212"
    elseif string.match(glass_nodename, "silver") then
        return "mcl_beacons:beacon_beam_adadad"
    elseif string.match(glass_nodename, "gray") then
        return "mcl_beacons:beacon_beam_535454"
    elseif string.match(glass_nodename, "lime") then
        return "mcl_beacons:beacon_beam_19e52a"
    elseif string.match(glass_nodename, "green") then
        return "mcl_beacons:beacon_beam_549159"
    elseif string.match(glass_nodename, "orange") then
        return "mcl_beacons:beacon_beam_ef8813"
    elseif string.match(glass_nodename, "yellow") then
        return "mcl_beacons:beacon_beam_ebf704"
    elseif string.match(glass_nodename, "black") then
        return "mcl_beacons:beacon_beam_000000"
    elseif string.match(glass_nodename, "magenta") then
        return "mcl_beacons:beacon_beam_e502d6"
    else
        return "mcl_beacons:beacon_beam_e8e3e3"
    end
end



for _, color in ipairs(color_list) do
    minetest.register_node("mcl_beacons:beacon_beam_"..color, {
        tiles = {"^[colorize:#"..color},
        drawtype = "nodebox",
        node_box = {
            type = "fixed",
            fixed = {
                {-0.1250, -0.5000, -0.1250, 0.1250, 0.5000, 0.1250}
            }
        },
        light_source = 15,
        walkable = false,
        groups = {not_in_creative_inventory=1},
        _mcl_blast_resistance = 1200,
    })
end


local formspec_string=
    "size[11,14]"..

    "label[4.5,0.5;"..minetest.formspec_escape(S("Beacon:")).."]"..
    "label[0.5,1;"..minetest.formspec_escape(S("Primary Power:")).."]"..
    "label[0.5,8.25;"..minetest.formspec_escape( S("Inventory:")).."]"..

    "image[1,1.5;1,1;custom_beacom_symbol_4.png]"..
    "image[1,3;1,1;custom_beacom_symbol_3.png]"..
    "image[1,4.5;1,1;custom_beacom_symbol_2.png]"..
    "image[1,6;1,1;custom_beacom_symbol_1.png]"..

    "image_button[5.2,1.5;1,1;mcl_potions_effect_swift.png;swiftness;]"..
    "image_button[5.2,3;1,1;mcl_potions_effect_leaping.png;leaping;]"..
    "image_button[5.2,4.5;1,1;mcl_potions_effect_strong.png;strenght;]"..
    "image_button[5.2,6;1,1;mcl_potions_effect_regenerating.png;regeneration;]"..

    "item_image[1,7;1,1;mcl_core:diamond]"..
    "item_image[2.2,7;1,1;mcl_core:emerald]"..
    "item_image[3.4,7;1,1;mcl_core:iron_ingot]"..
    "item_image[4.6,7;1,1;mcl_core:gold_ingot]"..
    "item_image[5.8,7;1,1;mcl_nether:netherite_ingot]"..

    mcl_formspec.get_itemslot_bg(7.2,7,1,1)..
	"list[context;input;7.2,7;1,1;]"..
	mcl_formspec.get_itemslot_bg(1,9,9,3)..
    "list[current_player;main;1,9;9,3;9]"..
	mcl_formspec.get_itemslot_bg(1,12.5,9,1)..
    "list[current_player;main;1,12.5;9,1;]"

local function remove_beacon_beam(pos)
    for y=pos.y+1, pos.y+501 do
        local node = minetest.get_node({x=pos.x,y=y,z=pos.z})
        if node.name ~= "air" and node.name ~= "mcl_core:bedrock" then
            if node.name == "ignore" then
                minetest.get_voxel_manip():read_from_map({x=pos.x,y=y,z=pos.z}, {x=pos.x,y=y,z=pos.z})
                node = minetest.get_node({x=pos.x,y=y,z=pos.z})
            end
            
            if string.match(node.name,"mcl_beacons:beacon_beam_") then
                minetest.remove_node({x=pos.x,y=y,z=pos.z})
            end
        end
    end
end

local function beacon_blockcheck(pos)
    for y_offset = 1,4 do
        local block_y = pos.y - y_offset
        for block_x = (pos.x-y_offset),(pos.x+y_offset) do
            for block_z = (pos.z-y_offset),(pos.z+y_offset) do
                local valid_block = false --boolean which stores if block is valid or not
                for _, beacon_block in pairs(beacon_blocklist) do
                    if beacon_block == minetest.get_node({x=block_x,y=block_y,z=block_z}).name and not valid_block then --is the block in the pyramid a valid beacon block
                        valid_block =true
                    end
                end
                if not valid_block then
                    return y_offset -1 --the last layer is complete, this one is missing or incomplete
                end
            end
        end
        if y_offset == 4 then --all checks are done, beacon is maxed
            return y_offset
        end
    end
end

local function effect_player(effect,pos,power_level, effect_level,player)
    local distance =  vector.distance(player:get_pos(), pos)
    if distance > (power_level+1)*10 then return end
    if effect == "swiftness" then
        mcl_potions.swiftness_func(player,effect_level,16)
    elseif effect == "leaping" then
        mcl_potions.leaping_func(player, effect_level, 16)
    elseif effect == "strenght" then
        mcl_potions.strength_func(player, effect_level, 16)
    elseif effect == "regeneration" then
        mcl_potions.regeneration_func(player, effect_level, 16)
    end
end

local function globalstep_function(pos,player)
    local meta = minetest.get_meta(pos) 
    local power_level = beacon_blockcheck(pos)
    local effect_string =  meta:get_string("effect") 
    if meta:get_int("effect_level") == 2 and power_level < 4 then
        return
    else
        local obstructed = false
        for y=pos.y+1, pos.y+501 do
            if y >= 31000 then return end
            local nodename = minetest.get_node({x=pos.x,y=y, z = pos.z}).name
            if nodename ~= "mcl_core:bedrock" and nodename ~= "air" and nodename ~= "ignore" then --ignore means not loaded, let's just assume that's air
                if not string.match(nodename,"mcl_beacons:beacon_beam_") then
                    if minetest.get_item_group(nodename,"glass") == 0 then
                        obstructed = true
                        remove_beacon_beam(pos)
                        return
                    end
                end
            end
        end
        if obstructed then
            return
        end
        effect_player(effect_string,pos,power_level,meta:get_int("effect_level"),player)
    end
end

minetest.register_node("mcl_beacons:beacon", {
    description = S"Beacon",
    drawtype = "glasslike",
    tiles = {
		"default_glass.png^beacon_overlay.png"
	},
    on_construct = function(pos)
        local meta = minetest.get_meta(pos)
        local inv = meta:get_inventory()
        inv:set_size("input", 1)
        local form = formspec_string
		meta:set_string("formspec", form)
    end,
    on_destruct = function(pos)
        local meta = minetest.get_meta(pos)
        local input = meta:get_inventory():get_stack("input",1)
        if not input:is_empty() then
            local p = {x=pos.x+math.random(0, 10)/10-0.5, y=pos.y, z=pos.z+math.random(0, 10)/10-0.5} --from mcl_anvils
            minetest.add_item(p, input)
        end
        remove_beacon_beam(pos)
    end,
    on_receive_fields = function(pos, formname, fields, sender)
        if fields.swiftness or fields.regeneration or fields.leaping or fields.strenght then
            local sender_name = sender:get_player_name()
            local power_level = beacon_blockcheck(pos)
            if minetest.is_protected(pos, sender_name) then
			    minetest.record_protection_violation(pos, sender_name)
			    return
		    elseif power_level == 0 then
                return
            end

            local meta = minetest.get_meta(pos)
            local inv = meta:get_inventory()
            local input = inv:get_stack("input",1)
        
            if input:is_empty() then
                return
            end

            local valid_item = false

            for _, item in ipairs(beacon_fuellist) do
                if input:get_name() == item then
                    valid_item = true
                end
            end

            if not valid_item then
                return
            end

            local successful = false
            if fields.swiftness then
                if power_level == 4 then
                    minetest.get_meta(pos):set_int("effect_level",2)
                else
                    minetest.get_meta(pos):set_int("effect_level",1)
                end
                minetest.get_meta(pos):set_string("effect","swiftness")
                successful = true
            elseif fields.leaping and power_level >= 2 then
                if power_level == 4 then
                    minetest.get_meta(pos):set_int("effect_level",2)
                else
                    minetest.get_meta(pos):set_int("effect_level",1)
                end
                minetest.get_meta(pos):set_string("effect","leaping")
                successful = true
            elseif fields.strenght and power_level >= 3 then
                if power_level == 4 then
                    minetest.get_meta(pos):set_int("effect_level",2)
                else
                    minetest.get_meta(pos):set_int("effect_level",1)
                end
                minetest.get_meta(pos):set_string("effect","strenght")
                successful = true
            elseif fields.regeneration and power_level == 4 then
                minetest.get_meta(pos):set_int("effect_level",2)
                minetest.get_meta(pos):set_string("effect","regeneration")
                successful = true
            end
            if successful then
                if power_level == 4 then
                    awards.unlock(sender:get_player_name(),"mcl:maxed_beacon")
                end
                awards.unlock(sender:get_player_name(),"mcl:beacon")
                input:take_item()
                inv:set_stack("input",1,input)
                
                local beam_itemstring = "mcl_beacons:beacon_beam_e8e3e3"

                for y = pos.y +1, pos.y + 501 do
                    local node = minetest.get_node({x=pos.x,y=y,z=pos.z})
                    if node.name == ignore then
                        minetest.get_voxel_manip():read_from_map({x=pos.x,y=y,z=pos.z}, {x=pos.x,y=y,z=pos.z})
                        node = minetest.get_node({x=pos.x,y=y,z=pos.z})
                    end
                    

                    if y == pos.y+1 then
                        if  minetest.get_item_group(node.name, "glass") ~= 0 then
                            beam_itemstring = get_beacon_beam(node.name)
                        elseif node.name == air then
                            minetest.set_node({x=pos.x,y=y,z=pos.z},{name=beam_itemstring})
                        end
                    end

                    --if minetest.get_node_group(nodename, "glass") ~= 0 then
                    if node.name == "air" then
                        minetest.set_node({x=pos.x,y=y,z=pos.z},{name=beam_itemstring})
                    end
                end
                globalstep_function(pos,sender)--call it once outside the globalstep so the player gets the effect right after selecting it
            end
        end
    end,
    light_source = 15,
    groups = {handy=1},
    drop = "mcl_beacons:beacon",
    sounds = mcl_sounds.node_sound_glass_defaults(),
    _mcl_hardness = 3,
})

mesecon.register_mvps_stopper("mcl_beacons:beacon")
mcl_wip.register_wip_item("mcl_beacons:beacon")

beacon_blocklist = {"mcl_core:diamondblock","mcl_core:ironblock","mcl_core:goldblock","mcl_core:emeraldblock","mcl_nether:netheriteblock"}--this is supposed to be a global, don't change that!
beacon_fuellist ={"mcl_core:diamond","mcl_core:emerald","mcl_core:iron_ingot","mcl_core:gold_ingot","mcl_nether:netherite_ingot"}

function register_beaconblock (itemstring)--API function for other mods
    table.insert(beacon_blocklist, itemstring)
end

function register_beaconfuel(itemstring)
    table.insert(beacon_fuellist, itemstring)
end

local timer = 0

minetest.register_globalstep(function(dtime)
    timer = timer + dtime
    if timer >= 3  then
        for _, player in ipairs(minetest.get_connected_players()) do
            local player_pos = player:get_pos()
            local pos_list = minetest.find_nodes_in_area({x=player_pos.x-50, y=player_pos.y-50, z=player_pos.z-50}, {x=player_pos.x+50, y=player_pos.y+50, z=player_pos.z+50},"mcl_beacons:beacon")
            for _, pos in ipairs(pos_list) do
                globalstep_function(pos,player)
            end
        end
        timer = 0
    end
end)

minetest.register_craft({
    output = "mcl_beacons:beacon",
    recipe = { 
        {"mcl_core:glass", "mcl_core:glass", "mcl_core:glass"},
        {"mcl_core:glass", "mcl_mobitems:nether_star", "mcl_core:glass"},
        {"mcl_core:obsidian", "mcl_core:obsidian", "mcl_core:obsidian"}
    }
})