soukoban

dofile("turtleMoveApi")
function test()
  s1()
  k2()
  local matchedSlots = { }
  for i = 2, 16 do
    if true == turtle.compareTo(i) then
      table.insert(matchedSlots, i)
    end
  end
  t2()
  for i = 1, 4 do
    for _, slot in ipairs(matchedSlots) do
      if 0 < turtle.getItemCount(slot) then
        turtle.select(slot)
        t1()
      end
    end
    if i < 4 then
      u()
    end
  end
end
function sleepWhenNoItems()
  cnt = 0
  for i = 2, 16 do
    cnt = cnt + turtle.getItemCount(i)
  end
  if 0 == cnt then
    print("no items. sleep(600)")
    os.sleep(600)
  end
end
function loadItems()
  s2()
  for i = 2, 16 do

  end
end
registFunction("test", test)
registFunction("sleepWhenNoItems", sleepWhenNoItems)
registScript(
  rep(256,
    displayFuelLevel,
    s2,rep(15,k1),
    sleepWhenNoItems,
    --loadItems,
    l,f,r,rep(7,f),
    l,rep(5,f),
    rep(4,d),
    rep(5,
      test,anotherLast({l,rep(3,f),r},{l,f}),rep(3,d)
    ),
    rep(5,
      test,breakLast,l,rep(3,f),r,rep(3,d)
    ),
    r,rep(6,f),r,rep(6,f),
    u,u,s1,
    swOddEven(
      { makeAndRegistFunc("suckUp2", turtle.suckUp, {2}) },
      { makeAndRegistFunc("suckUp1", turtle.suckUp, {1}) }),
    makeAndRegistFunc("refuel", turtle.refuel),
    d,
    displayFuelLevel
  )
)
loadData()
executeScript()