CC-CactusFarmBuilder

skypop

Jul 16th, 2019

953

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Lua 6.63 KB | None | 0 0

raw download clone embed print report

-- Builing cactus farm
-- by absolument
--
-- Vertical passive cactus farm 3x3
-- Turtle gradually builds the farm stage by stage,
-- as and when it is provided with the necessary resources.
--
-- When sky limit is reached, program files is renamed
-- as TooHig_filename.lua
-- to prevent unnecessary maneuvers.
--
--Blocks chart
local id = {}
id.cover = "minecraft:glass"
id.platform = "minecraft:cobblestone"
id.farmland = "minecraft:sand"
id.crop = "minecraft:cactus"
id.harvester= "minecraft:fence"
id.light = "minecraft:torch"
--Display
local w,h = term.getSize()
local _log = window.create(term.current(),1, 1, w, h-4)
local function clear()
_log.setCursorPos(1,1)
_log.clear()
_log.redraw()
end
local function output(...)
local x,y = term.getCursorPos()
local old = term.redirect(_log)
print(...)
term.redirect(old)
_log.redraw()
term.setCursorPos(x,y)
end
--Safe ascent
local tooHigh = false
function tryUp()
local r = {turtle.up()}
tooHigh = not r[1] and r[2] == "Too high to move"
return r
end
--Check inventory
local function newInv(...)
local arg = {...}
return {
-- [id.cover] = arg[1] or 0, --80 Cover / stage
[id.platform] = arg[2] or 0, --4 Platform / stage
[id.farmland] = arg[3] or 0, --4 Farmland / stage
[id.crop] = arg[4] or 0, --4 Crop / stage
[id.harvester]= arg[5] or 0, --2 Harvester / stage
[id.light] = arg[6] or 0, --1 Light level / stage
}
end
function checkInventory()
local count = newInv()
output("Check inventory")
for slot = 1, 16 do
local data = turtle.getItemDetail(slot)
if data and data.name and count[data.name] then
count[data.name] = count[data.name] + data.count
output("slot",slot..":",data.count,data.name)
elseif data and data.count > 0 then
output("slot",slot..": useless", data.name,"-> drop()")
turtle.select(slot)
turtle.drop()
else
output("slot",slot..": empty")
end
end
return count
end
function requiredItems(count)
local itemPerStage = newInv(80,4,4,4,2,1) --items per stage
local stages = math.huge
for name, qty in pairs(count) do
stages = math.min(stages, math.floor(qty / itemPerStage[name]))
end
output("Materials:",stages,"stages")
return stages
end
function selectItem(name)
output("Select item", name)
for slot=1,16 do
local data = turtle.getItemDetail(slot)
if data and data.name == name then
output("Found in slot:", slot)
turtle.select(slot)
return true
end
end
return false
end
--Ascent
-- 4 step up without fence
function ascent()
output("Ascent phase")
--take place in the center
output("Align to center")
for i=1,3 do
turtle.forward()
end
--step on first stage top layer
output("VAlign top layer")
repeat
tryUp()
if tooHigh then
return false
end
local b, data = turtle.inspect()
until b and data.name == id.harvester
--reach last stage to build top layer
output("Reach first stage to build")
repeat
for i=1,4 do
tryUp()
if tooHigh then
return false
end
end
until not turtle.detect()
return true
end
--Build
function build(stagesToBuild)
output("Starting build")
--repositionning
output("Repositionning - platform stage")
for i=1,3 do
turtle.down()
end
for i=1,stagesToBuild do
--place platform
output("Building platform")
selectItem(id.platform)
turtle.forward()
turtle.turnLeft()
turtle.place()
turtle.turnLeft()
turtle.turnLeft()
turtle.place()
turtle.turnRight()
turtle.forward()
turtle.forward()
turtle.turnLeft()
turtle.place()
turtle.turnLeft()
turtle.turnLeft()
turtle.place()
--place farmland
output("Placing farmland")
selectItem(id.farmland)
tryUp()
if tooHigh then
return false
end
turtle.place()
turtle.turnLeft()
turtle.turnLeft()
turtle.place()
turtle.turnLeft()
turtle.forward()
turtle.forward()
turtle.turnLeft()
turtle.place()
turtle.turnLeft()
turtle.turnLeft()
turtle.place()
--place light
output("Placing light source")
selectItem(id.light)
turtle.turnLeft()
turtle.back()
turtle.place()
--place crop + harvester
output("Plant crops and placing harvester")
for i=1,2 do
tryUp()
if tooHigh then
return false
end
end
turtle.forward()
turtle.turnLeft()
turtle.forward()
selectItem(id.crop)
turtle.placeDown()
turtle.back()
turtle.back()
turtle.placeDown()
selectItem(id.harvester)
turtle.place()
turtle.turnLeft()
turtle.forward()
turtle.forward()
selectItem(id.crop)
turtle.placeDown()
turtle.turnLeft()
turtle.back()
turtle.back()
turtle.placeDown()
selectItem(id.harvester)
turtle.place()
--reposition
output("Reposition to center")
turtle.turnLeft()
turtle.forward()
turtle.turnRight()
turtle.forward()
turtle.turnLeft()
if stagesToBuild > i then
output("Repositionning - platform stage")
tryUp()
if tooHigh then
return false
end
end
end
return true
end
function descent()
output("Descent")
repeat
local move = turtle.down()
until not move
output("Repositionning")
for i=1,3 do
turtle.back()
end
end
--Main
repeat
--Fuel level indicator
local fuelPerCent = 100/turtle.getFuelLimit()
local fuelIndicator = string.format(
"Fuel: %s (%s%s)",
turtle.getFuelLevel(),
math.floor(turtle.getFuelLevel()*fuelPerCent),
"%"
)
--Wait materials
local stages
local goForIt = false
local itemPerStage = newInv(80,4,4,4,2,1) --items per stage
repeat
local inv = checkInventory()
stages = requiredItems(inv)
clear()
output(fuelIndicator)
for name, qty in pairs(inv) do
output(qty, "/", itemPerStage[name], name)
end
output("Stages:", stages, (stages > 0) and "\nPress [Enter] to start" or "")
repeat
local e = {os.pullEvent()}
if stages > 0 and e[1] == "key" then
goForIt = (e[2] == keys.enter)
end
until e[1] == "turtle_inventory" or goForIt
until stages > 0 and goForIt
clear()
output("start")
sleep(2)
if ascent() then
build(stages)
end
descent()
if tooHigh then
output("Building reach highest altitude")
local path = shell.getRunningProgram()
shell.run("mv", path, fs.getDir(path).."/".."TooHigh_"..fs.getName(path))
return
end
output("stop")
sleep(2)
until false
-- Farm design
-- Chart :
-- c = cactus
-- F = fence
-- S = sand
-- C = cobblestone
--
-- Top view
-- __
-- cFc
--
-- cFc __
--
-- Side view
-- __
-- F
-- c c
-- StS
-- C C __
-- F
-- c c
-- StS
-- C C __
--

Add Comment

Please, Sign In to add comment