init start
    local SLIME_FUNGS_IDS = {--[[ PUT IDS HERE ]]--}

    table.newsort(SLIME_FUNGS_IDS)
init end

auto(100)
for X = -7, 7 do
    for Y = -7, 7 do
        local POSX, POSY, POSZ = $posx + X, $posy + Y, $posz

        if (tilereachable(POSX, POSY, POSZ) and table.binaryfind(SLIME_FUNGS_IDS, topitem(POSX, POSY, POSZ).id)) then
            if (ground($posx, $posy, $posz) == ground(POSX, POSY, POSZ)) then
                return
            end

            local TOP_ID = topitem(POSX, POSY, POSZ).id

            setcavebot('off')
            pausewalking(10000)

            while (tilereachable(POSX, POSY, POSZ) and $posz == POSZ and (math.abs($posx - POSX) > 1 or math.abs($posy - POSY) > 1)) do
                if (ground($posx, $posy, $posz) == ground(POSX, POSY, POSZ)) then
                    pausewalking(0)
                    setcavebot('on')
                    return
                end

                reachlocation(POSX, POSY, POSZ)
            end

            while (topitem(POSX, POSY, POSZ).id == TOP_ID and (math.abs($posx - POSX) <= 1 and math.abs($posy - POSY) <= 1) and $posz == POSZ) do
                if (ground($posx, $posy, $posz) == ground(POSX, POSY, POSZ)) then
                    pausewalking(0)
                    setcavebot('on')
                    return
                end

                useitemon(12077, topitem(POSX, POSY, POSZ).id, ground(POSX, POSY, POSZ))
                pausewalking(5000)
                wait(15500, 16200)
            end

            pausewalking(0)
            setcavebot('on')
        end
    end
end