st

local component = require("component")
local r = require("robot")
local ic = component.inventory_controller
local c = component.crafting
local pc = require("computer")

::st::

function tinpt()
r.select(4)
c.craft(2)
r.transferTo(1)
c.craft(10)
r.transferTo(1)
c.craft(20)
r.transferTo(1)
end

function patsotinsto()
c.craft(50)
r.select(8)
c.craft(50)
end

function stoinpes()
r.select(4)
r.transferTo(1)
r.select(13)
c.craft(50)
r.select(14)
c.craft(50)
r.select(8)
r.transferTo(1)
r.select(15)
c.craft(50)
r.select(16)
c.craft(50)
end

function pesindp()
local sel1 = 13
local sel2 = 17
for i=1, 4 do
r.select(sel1)
sel1 = sel1+1
r.transferTo(1)
r.select(sel2)
c.craft(50)
sel2 = sel2+1
r.select(sel2)
c.craft(50)
end
end

--function sbros()
--sss = 20
--for i=1, 44 do r.select(sss); r.drop(); sss = sss+1 end
--while not r.turnRight()

function dpinpt()
local sel = 17
local sel1 = 25
for i=1, 7 do
r.select(sel)
sel = sel+1
r.transferTo(1)
for i=1, 5 do
r.select(sel1)
sel1 = sel1+1
c.craft(64)
end
end
r.select(2)
r.transferTo(13)
r.select(14)
c.craft(64)
r.select(15)
c.craft(64)
r.select(16)
c.craft(64)
r.select(17)
c.craft(64)
r.select(23)
r.transferTo(1)
c.craft(64)
end

function inod()
local sel = 24
for i=1, 34 do
r.select(sel)
sel = sel+1
r.drop()
end
end

function ptindestis()
for i=1, 13 do
r.select(1)
test = r.suck(4)
if test == false then while not r.turnLeft() do end; goto check end
ssel = 13
ssel1 = 21
ssel2 = 20
r.select(4)
c.craft(20)
r.transferTo(1)
c.craft(40)
r.transferTo(1, 20)
r.select(8)
c.craft(40)
r.select(4)
r.transferTo(1, 20)
r.select(12)
c.craft(40)
r.select(8)
r.transferTo(1)
r.select(13)
c.craft(50)
r.select(14)
c.craft(50)
r.select(15)
c.craft(50)
r.select(16)
c.craft(50)
r.select(12)
r.transferTo(1)
r.select(17)
c.craft(50)
r.select(18)
c.craft(50)
r.select(19)
c.craft(50)
r.select(20)
c.craft(50)
for i=1, 8 do
r.select(ssel)
ssel = ssel + 1
r.transferTo(1)
for i=1, 4 do
r.select(ssel1)
ssel1 = ssel1 + 1
c.craft(64)
end
end
while not r.turnLeft() do end
for i=1, 34 do r.select(ssel2); ssel2 = ssel2 + 1; r.drop() end
while not r.turnRight() do end
end
r.turnLeft()
::check::
suc = r.suck()
if suc == true then r.drop(); os.sleep(60); goto check end
end



while not r.turnRight() do end
r.select(1)
r.suck(1)
while not r.turnLeft() do end
tinpt()

patsotinsto()

stoinpes()

pesindp()

dpinpt()

inod()

ptindestis()
goto st