R/setBlock.R

In kbroman/miner: Control Minecraft with RaspberryJuice API

#' Place a block
#'
#' Place a block at position (x,y,z) by type id
#'
#' @inheritParams find_item
#' @inheritParams getBlock
#'
#' @return None.
#'
#' @examples
#' \dontrun{
#' mc_connect()
#' h <- getHeight(0, 0)
#' setBlock(0, h, 0, 46)
#' }
#'
#' @export

setBlock <- function(x, y, z, id, style=0)
{
    x <- floor(as.numeric(x))
    y <- floor(as.numeric(y))
    z <- floor(as.numeric(z))
    id <- floor(as.numeric(id))
    style <- floor(as.numeric(style))

    if(is.null(style) || is.na(style)) style <- 0

    mc_send(merge_data("world.setBlock", x, y, z, id, style))

}


#' Place blocks in a cuboid
#'
#' Place blocks of a single type (specified by `id`) in the cuboid
#' with opposite corners at the positions (x0, y0, z0) and (x1, y1, z1).
#'
#' @inheritParams getBlocks
#' @inheritParams find_item
#'
#' @return None.
#'
#' @examples
#' \dontrun{
#' mc_connect()
#'
#' ice <- find_item(name = "Ice")
#'
#' h <- getHeight(0,0)
#' setBlocks(0, h, 0, 1, h + 3, 2, id = ice$id)
#' }
#'
#' @export

setBlocks <- function(x0,y0,z0, x1,y1,z1,  id)
{
    x0 <- floor(as.numeric(x0))
    y0 <- floor(as.numeric(y0))
    z0 <- floor(as.numeric(z0))
    x1 <- floor(as.numeric(x1))
    y1 <- floor(as.numeric(y1))
    z1 <- floor(as.numeric(z1))
    id <- floor(as.numeric(id))

    mc_send(merge_data("world.setBlocks", x0, y0, z0, x1, y1, z1, id))

}