anttest [OC][debug card]

--[[
local function mv(s)
  tMv[d..s]()
end

local function p(a)
  deb.runCommand('setblock '.. x ..' 1 '.. z ..' '..a)
end

while 1 do
  if deb.runCommand('testforblock '.. x ..' 1 '.. z ..' wool 0') == 1 then
    p('wool 1')
    mv('R')
    mv('F')
  elseif deb.runCommand('testforblock '.. x ..' 1 '.. z ..' wool 1') == 1 then
    p('wool 2')
    mv('L')
    mv('F')
  elseif deb.runCommand('testforblock '.. x ..' 1 '.. z ..' wool 2') == 1 then
    p('wool 3')
    mv('B')
    mv('R')
  elseif deb.runCommand('testforblock '.. x ..' 1 '.. z ..' wool 3') == 1 then
    p('wool 0')
    mv('B')
    mv('L')
  end
  os.sleep(1)
end
]]
--[[
local function dr(length, depth, sign)
  if not sign then
    sign = 'R'
  end
  if depth == 1 then
    for i = 1, length do
      mv('F')
      p('wool 15')
    end
  else
    dr(length/2^0.28, depth - 1, 'R')
    mv(sign)
    dr(length/2^0.28, depth - 1, 'L')
  end
end

dr(100, 20)
]]
local component = require("component")
local deb = component.debug
local d, x, z = 'N', deb.getX(), deb.getZ()
local tMv = {
  ['NF'] = function() z = z - 1 end,
  ['WF'] = function() x = x - 1 end,
  ['SF'] = function() z = z + 1 end,
  ['EF'] = function() x = x + 1 end,
  ['NB'] = function() z = z + 1 end,
  ['WB'] = function() x = x + 1 end,
  ['SB'] = function() z = z - 1 end,
  ['EB'] = function() x = x - 1 end,
  ['NL'] = function() d = 'W' end,
  ['WL'] = function() d = 'S' end,
  ['SL'] = function() d = 'E' end,
  ['EL'] = function() d = 'N' end,
  ['NR'] = function() d = 'E' end,
  ['WR'] = function() d = 'N' end,
  ['SR'] = function() d = 'W' end,
  ['ER'] = function() d = 'S' end
}

local function mv(s)
  tMv[d..s]()
end

local function p(a)
  deb.runCommand('setblock '.. x ..' 1 '.. z ..' '..a)
end

while 1 do
  if deb.runCommand('testforblock '.. x ..' 1 '.. z ..' wool 15') == 1 then
    p(155)
    mv('L')
  else
    p('wool 15')
    mv('R')
  end
  mv('F')
  os.sleep(1)
end