Harvest (for OpenComputers bios)

--Harvest_v1.02 Автор Taoshi. pastebin for dl duXuFb9n

r=component.proxy(component.list('robot')())

fw=function()--forward
  while r.move(3)~=true do
  r.inventorySize()
  end
end

drop=function()
  local inv=r.inventorySize()
  for f=1, inv do r.select(f) r.drop(3) end
end

function doit(s)
  s=s-1
  local z,x=s-1,s-1
  local t,t2=true,false
  fw() fw() r.use(0)

  for f=1,x do
    for g=1,z do
      fw() r.use(0)
    end
    r.turn(t) fw() r.turn(t) r.use(0)
    t,t2=t2,t
  end

  r.turn(t)
  t,t2=true,false

  for f=1,s do
    fw() r.use(0) r.turn(t)
    fw() r.use(0) r.turn(t)
    t,t2=t2,t
  end

  fw() r.use(0) r.turn(t) r.turn(t)

  for f=1,s do
    forward() r.use(0)
  end

  r.turn(false) fw() drop()
  r.turn(true) r.turn(true)
end

while true do
  doit(9)
  for f=1,200 do r.inventorySize() end
end