owl_tech/api/miners.lua

-- prepear for vertical steam miner
function owl_tech.prepear_for_verticak_steam_miner(pos)
    local  meta = minetest.get_meta(pos)
    owl_tech.add_new_pull(meta,16000,1,0) --steam  eat 25 steam in 1 tick
	owl_tech.set_pull_fluid_whitlist(meta,1,"owl_tech_steam")--whitlist for make and output ONLY Steam
    meta:set_int("curent-y",1) -- use pos - curent-y for get diginbg pos
    meta:set_int("get_bedrock",0)
end
------------------------------------
--Get node drop
function owl_tech.get_node_drop(node_name)
    local drop=  minetest.get_node_drops(node_name, "toolname")
    return drop[1]
end
----------------------------------
-- can steam miner mine this node 
function owl_tech.can_vertical_steam_miner_mine_this(pos,meta)
    local node_mine = minetest.get_node_or_nil({x=pos.x,y=(pos.y-meta:get_int("curent-y")),z=pos.z})
    local can_do = true
    if node_mine~=nil then
        if node_mine.name =='mcl_core:bedrock'  then --bedrock mcl_core:bedrock
            can_do =false
            meta:set_int("get_bedrock",1)
            return can_do
        end
        for i, value in ipairs(GLOBAL_FLUID_LIST) do
            if node_mine.name ==GLOBAL_FLUID_LIST[i]  and not can_do then --finde fluid 
                can_do =false
                return can_do
            end
        end
        return can_do
    end
end
-----------------------------------
--mine verical steam
function owl_tech.vertical_steam_mine(pos,meta,can_mine)
    if can_mine then
        local inv = meta:get_inventory()
        local dst_its = inv:get_stack('dst', 1)
        local node_mine = minetest.get_node_or_nil({x=pos.x,y=(pos.y-meta:get_int("curent-y")),z=pos.z})
        if dst_its:is_empty() or (
            dst_its:get_stack_max()-dst_its:get_count()>0 and 
            node_mine.name == dst_its:get_name()
        ) then
            if dst_its:is_empty() and node_mine.name~='air'  then
                local new_stack = {name=owl_tech.get_node_drop(node_mine.name), count=1, wear=0, metadata=""}
                inv:set_stack('dst', 1,new_stack)
                minetest.set_node({x=pos.x,y=(pos.y-meta:get_int("curent-y")),z=pos.z}, {name="owl_tech:decor_bronze_pipe"})
                meta:set_int("curent-y",meta:get_int("curent-y")+1)
            elseif node_mine.name~='air' then
                dst_its:set_count(dst_its:get_count()+1)
                inv:set_stack('dst', 1,dst_its)
                minetest.set_node({x=pos.x,y=(pos.y-meta:get_int("curent-y")),z=pos.z}, {name="owl_tech:decor_bronze_pipe"})
                meta:set_int("curent-y",meta:get_int("curent-y")+1)
            elseif node_mine.name=='air' then
                minetest.set_node({x=pos.x,y=(pos.y-meta:get_int("curent-y")),z=pos.z}, {name="owl_tech:decor_bronze_pipe"})
                meta:set_int("curent-y",meta:get_int("curent-y")+1)
            end
        end
    end    
end
--------------------------------
--remove all vertical pipe
function owl_tech.remove_all_pipe_vertical(pos)
    pos.y=pos.y-1
    while minetest.get_node_or_nil(pos).name =="owl_tech:decor_bronze_pipe" do
        minetest.set_node(pos, {name="air"})
        pos.y=pos.y-1
    end
    do return end
end
-----------------------------------
-- Prerpear for quarry
function owl_tech.prepera_quarry(pos,max_distance)
    local  meta = minetest.get_meta(pos)
    owl_tech.add_new_pull(meta,32000,1,0) --steam 
	owl_tech.set_pull_fluid_whitlist(meta,1,"owl_tech_steam")--whitlist for make and output ONLY Steam
    meta:set_int('horiz_max_distance',max_distance)
    meta:set_int("curent-y",1) -- use pos - curent-y for get diginbg pos
    meta:set_int("curent-x",0)
    meta:set_int("max_x",0)
    meta:set_int('min_x',0)
    meta:set_int("curent-z",0)
    meta:set_int("max_z",0)
    meta:set_int('min_z',0)
    meta:set_int("get_bedrock",0)
end
------------------------------------
--scan for point
function owl_tech.scan_for_point(pos,meta,scan_disctance)
    local x_pos = 0
    for i = (-1*scan_disctance), scan_disctance, 1 do
        local node = minetest.get_node_or_nil({x=pos.x+i,y=pos.y,z=pos.z})
        if node~=nil and node.name =="owl_tech:quary_point" then
            x_pos=i
        end
    end
    local z_pos = 0
    for i = (-1*scan_disctance), scan_disctance, 1 do
        local node = minetest.get_node_or_nil({x=pos.x,y=pos.y,z=pos.z+i})
        if node~=nil and node.name =="owl_tech:quary_point" then
            z_pos=i
        end
    end
    if x_pos~=0 and z_pos~=0 then
        if pos.x+x_pos>pos.x and pos.z+z_pos>pos.z  then -- ++
            meta:set_int("max_x",pos.x+x_pos)
            meta:set_int("min_x",pos.x )
            meta:set_int("max_z",pos.z+z_pos)
            meta:set_int("min_z",pos.z )
        elseif pos.x+x_pos>pos.x and pos.z+z_pos<pos.z  then -- +-
            meta:set_int("max_x",pos.x+x_pos)
            meta:set_int("min_x",pos.x )
            meta:set_int("max_z",pos.z)
            meta:set_int("min_z",pos.z+z_pos)
        elseif pos.x+x_pos<pos.x and pos.z+z_pos>pos.z  then -- -+
            meta:set_int("max_x",pos.x)
            meta:set_int("min_x",pos.x+x_pos)
            meta:set_int("max_z",pos.z+z_pos)
            meta:set_int("min_z",pos.z )
        elseif pos.x+x_pos<pos.x and pos.z+z_pos<pos.z  then -- --
            meta:set_int("max_x",pos.x)
            meta:set_int("min_x",pos.x+x_pos)
            meta:set_int("max_z",pos.z)
            meta:set_int("min_z",pos.z+z_pos)
        end
    else
        return
    end
    meta:set_int("curent-x",meta:get_int('min_x'))
    meta:set_int("curent-z",meta:get_int('min_z'))
end
-------------------------------------
--diging the quary
function owl_tech.diging_quary(pos,meta,can_mine)
    if can_mine then
        local inv = meta:get_inventory()
        local dst_its = inv:get_stack('dst', 1)
        local pos_dig={
            x=meta:get_int("curent-x"),
            y=pos.y-meta:get_int("curent-y"),
            z=meta:get_int("curent-z")
        }
        local node_mine = minetest.get_node_or_nil(pos_dig)
        if dst_its:is_empty() or (
            dst_its:get_stack_max()-dst_its:get_count()>0 and 
            node_mine.name == dst_its:get_name()
        ) then
            if dst_its:is_empty() and node_mine.name~='air'  then
                local new_stack = {name=owl_tech.get_node_drop(node_mine.name), count=1, wear=0, metadata=""}
                inv:set_stack('dst', 1,new_stack)
                minetest.remove_node(pos_dig)
                owl_tech.calculate_new_pos_for_quarry(meta)
            elseif node_mine.name~='air' then
                dst_its:set_count(dst_its:get_count()+1)
                inv:set_stack('dst', 1,dst_its)
                minetest.remove_node(pos_dig)
                owl_tech.calculate_new_pos_for_quarry(meta)
            elseif node_mine.name=='air' then
                minetest.remove_node(pos_dig)
                owl_tech.calculate_new_pos_for_quarry(meta)
            end
        end
    end  
end
------------------------------------
--calculate new pos for qurey
function owl_tech.calculate_new_pos_for_quarry(meta)
    if  meta:get_int("curent-x")< meta:get_int("max_x") then --x
        meta:set_int("curent-x",meta:get_int("curent-x")+1)
        do return end
    end
    if meta:get_int("curent-x")==meta:get_int("max_x")  then
        if meta:get_int("curent-z")==meta:get_int("max_z") then
            meta:set_int("curent-x",meta:get_int("min_x")) 
            meta:set_int("curent-z",meta:get_int("min_z")) 
            meta:set_int("curent-y",meta:get_int("curent-y")+1)
            do return end
        end
        meta:set_int("curent-x",meta:get_int("min_x")) 
        meta:set_int("curent-z",meta:get_int("curent-z")+1) 
    end
end
----------------------------------
-- can quary mine this node 
function owl_tech.can_quary_mine_this(pos,meta)
    local pos_dig={
        x=meta:get_int("curent-x"),
        y=pos.y-meta:get_int("curent-y"),
        z=meta:get_int("curent-z")
    }
    local node_mine = minetest.get_node_or_nil(pos_dig)
    local can_do = true
    if node_mine~=nil then
        if node_mine.name =='mcl_core:bedrock'  then --bedrock mcl_core:bedrock
            can_do =false
            meta:set_int("get_bedrock",1)
            return can_do
        end
        for i, value in ipairs(GLOBAL_FLUID_LIST) do
            if node_mine.name ==GLOBAL_FLUID_LIST[i]  and not can_do then --finde fluid 
                minetest.remove_node(pos_dig)
                return can_do
            end
        end
        return can_do
    end
end