dragonfire-client-waspsaliva/clientmods/scaffold/init.lua

-- CC0/Unlicense Emilia & cora 2020

local category = "Scaffold"

scaffold = {}
scaffold.registered_scaffolds = {}
scaffold.lockdir = false
scaffold.locky = false
local storage=minetest.get_mod_storage()

scaffold.wason = {}




local function get_locks()
    local ly=storage:get_string('lockdir')
    local ld= storage:get_string('locky')
    if ld then scaffold.lockdir = tonumber(ld) end
    if ly then scaffold.locky = tonumber(ly) end
    if scaffold.lockdir or scaffold.locky then return true end
    return false
end
local function set_locks()
    storage:set_string('lockdir', scaffold.lockdir)
    storage:set_string('locky', scaffold.locky)
end
local function del_locks()
    storage:set_string('lockdir','')
    storage:set_string('locky','')
end

if get_locks() then
    if scaffold.lockdir then scaffold.wason.scaffold_lockyaw = true end
    if scaffold.locky then scaffold.wason.scaffold_locky = true end
end

function scaffold.register_scaffold(func)
    table.insert(scaffold.registered_scaffolds, func)
end

function scaffold.step_scaffolds()
    for i, v in ipairs(scaffold.registered_scaffolds) do
        v()
    end
end

function scaffold.template(setting, func, offset, funcstop )
    offset = offset or {x = 0, y = -1, z = 0}
    funcstop = funcstop or function() end

    return function()
        if minetest.settings:get_bool(setting) then
            local lp = minetest.localplayer:get_pos()
            local tgt = vector.round(vector.add(lp, offset))
            func(tgt)
            if not scaffold.wason[setting] then scaffold.wason[setting] = true end
        elseif scaffold.wason[setting] then
            scaffold.wason[setting] = false
            funcstop()
        end
    end
end

function scaffold.register_template_scaffold(name, setting, func, offset, funcstop)
    scaffold.register_scaffold(scaffold.template(setting, func, offset, funcstop))
    if minetest.register_cheat then
        minetest.register_cheat(name, category, setting)
    end
end

minetest.register_globalstep(scaffold.step_scaffolds)

function scaffold.can_place_at(pos)
    local node = minetest.get_node_or_nil(pos)
    return (node and (node.name == "air" or minetest.get_node_def(node.name).buildable_to))
end

-- should check if wield is placeable
-- minetest.get_node(wielded:get_name()) ~= nil should probably work
-- otherwise it equips armor and eats food
function scaffold.can_place_wielded_at(pos)
    local wield_empty = minetest.localplayer:get_wielded_item():is_empty()
    return not wield_empty and scaffold.can_place_at(pos)
end

function scaffold.find_any_swap(items)
    for i, v in ipairs(items) do
        local n = minetest.find_item(v)
        if n then
            minetest.localplayer:set_wield_index(n)
            return true
        end
    end
    return false
end

function scaffold.in_list(val, list)
    if type(list) ~= "table" then return false end
    for i, v in ipairs(list) do
        if v == val then
            return true
        end
    end
    return false
end

-- swaps to any of the items and places if need be
-- returns true if placed and in inventory or already there, false otherwise
function scaffold.place_if_needed(items, pos, place)
    if minetest.settings:get_bool('scaffold.locky') and math.round(pos.y) ~= math.round(scaffold.locky) then return end
    place = place or minetest.place_node

    local node = minetest.get_node_or_nil(pos)

    -- already there
    if node and scaffold.in_list(node.name, items) then
        return true
    else
        local swapped = scaffold.find_any_swap(items)

        -- need to place
        if swapped and scaffold.can_place_at(pos) then
            place(pos)
            return true
        -- can't place
        else
            return false
        end
    end
end

function scaffold.place_if_able(pos)
    if minetest.settings:get_bool('scaffold.locky') and math.round(pos.y) ~= math.round(scaffold.locky) then return end
    if scaffold.can_place_wielded_at(pos) then
        minetest.place_node(pos)
    end
end

function scaffold.dig(pos)
    local nd=minetest.get_node_or_nil(pos)
    if not nd then return false end
    local n = minetest.get_node_def(nd.name)
    if n and n.diggable then
        minetest.select_best_tool(nd.name)
        return minetest.dig_node(pos)
    end
    return false
end


local mpath = minetest.get_modpath(minetest.get_current_modname())
dofile(mpath .. "/sapscaffold.lua")
dofile(mpath .. "/slowscaffold.lua")
dofile(mpath .. "/autofarm.lua")
dofile(mpath .. "/railscaffold.lua")


scaffold.register_template_scaffold("LockYaw", "scaffold_lockyaw", function(pos)
    if not scaffold.wason.scaffold_lockyaw then
        scaffold.lockdir=turtle.getdir()
        set_locks()
    end
    if scaffold.lockdir  then turtle.setdir(scaffold.lockdir) end
end, false, function() storage:set_string('lockdir','') end)


scaffold.register_template_scaffold("LockY", "scaffold_locky", function(pos)
    local lp=minetest.localplayer:get_pos()
    if not scaffold.wason.scaffold_locky then
        scaffold.locky = lp.y
        set_locks()
    end
    if scaffold.locky and lp.y ~= scaffold.locky  then
        --minetest.localplayer:set_pos({x=lp.x,y=scaffold.locky,z=lp.z})
    end
    end,false, function() storage:set_string('locky','') end)

scaffold.register_template_scaffold("CheckScaffold", "scaffold_check", function(pos)
    scaffold.place_if_able(pos)
end)

scaffold.register_template_scaffold("HereScaffold", "scaffold_here", function(pos)
    scaffold.place_if_able(pos)
end, {x = 0, y = 0, z = 0})

scaffold.register_template_scaffold("WaterScaffold", "scaffold_water", function(pos)
    if (pos.x % 2 + pos.z % 2) == 0 then
        scaffold.place_if_needed({
            "mcl_buckets:bucket_water",
            "mcl_core:water_source"
        }, pos)
    end
end)
scaffold.register_template_scaffold("WaterSpam", "scaffold_spamwater", function(pos)
    --if (pos.x % 2 + pos.z % 2) == 0 then
        scaffold.place_if_needed({
            "mcl_buckets:bucket_water",
            "mcl_core:water_source"
        }, pos)
    --end
end)
local function checknode(pos)
    local node = minetest.get_node_or_nil(pos)
    if node then return true end
    return false
end

if turtle then
    scaffold.register_template_scaffold("TBM", "scaffold_tbm", function(pos)
       scaffold.dig(turtle.dircoord(1,1,0))
       scaffold.dig(turtle.dircoord(1,0,0))
    end)

    scaffold.register_template_scaffold("LanternTBM", "scaffold_ltbm", function(pos)
       --scaffold.dig(turtle.dircoord(1,1,0)) -- let lTBM just be additionally place lanterns mode - useful for rail too.
       --scaffold.dig(turtle.dircoord(1,0,0))
       local dir=turtle.getdir()
       local pl=false
       if dir == "north" or dir == "south" then
            if pos.z % 8 == 0 then
                pl=true
            end
       else
            if pos.x % 8 == 0 then
                pl=true
            end
       end
       if pl then
            local lpos=turtle.dircoord(0,3,0)
            local nd=minetest.get_node_or_nil(lpos)
            if nd and nd.name ~= 'mcl_ocean:sea_lantern' then
                scaffold.dig(lpos)
                minetest.after("0.1",function() scaffold.place_if_needed({'mcl_ocean:sea_lantern'},lpos) end)
            end
       end
    end)
    scaffold.register_template_scaffold("TriScaffold", "scaffold_three_wide", function(pos)
        scaffold.place_if_able(pos)
        scaffold.place_if_able(turtle.dircoord(0, -1, 1))
        scaffold.place_if_able(turtle.dircoord(0, -1, -1))
    end)

    scaffold.register_template_scaffold("headTriScaff", "scaffold_three_wide_head", function(pos)
        scaffold.place_if_able(turtle.dircoord(0, 3, 0))
        scaffold.place_if_able(turtle.dircoord(0, 3, 1))
        scaffold.place_if_able(turtle.dircoord(0, 3, -1))
    end)

    scaffold.register_template_scaffold("QuintScaffold", "scaffold_five_wide", function(pos)
        scaffold.place_if_able(pos)
        scaffold.place_if_able(turtle.dircoord(0, -1, 1))
        scaffold.place_if_able(turtle.dircoord(0, -1, -1))
        scaffold.place_if_able(turtle.dircoord(0, -1, 2))
        scaffold.place_if_able(turtle.dircoord(0, -1, -2))
    end)
end

if nlist then
    scaffold.register_template_scaffold("RandomScaff", "scaffold_rnd", function(below)
        if true then return false end
        local n = minetest.get_node_or_nil(below)
        -- n == nil is ignore
        if n and not scaffold.in_list(n.name, nlist.get('randomscaffold')) then
            scaffold.dig(below)
            scaffold.place_if_needed(table.shuffle(nlist.get('randomscaffold')), below)
        end
    end)
end