Biomine 1.0

mine    = { -200, 200, 25, 0}
drop     = {  -220,  180, 67 , 2}
minesize = 5

os.loadAPI("aware/aware")

function pausedropoff()
  pause = aware.getposition()
  gomine()
  dropoff()
  gomine()
  aware.goto(pause)
end

function dropoff()
  if (drop ~= null) then
    godrop()
  else
    aware.gohome()
  end
  aware.dump()
end

function godrop()
  aware.goto(drop)
  aware.pushpos((os.getComputerID()+1500),"D",drop)
end

function plunge()
  plungestart = aware.getposition()
  while(aware.digmovedown() == true or (aware.getposition(3) > 7)) do end
  aware.goto(plungestart)
  if aware.isfull() then pausedropoff() end
end

function digmove(times)
  for i=1, times do
    while (aware.digmoveforward() == false) do end
  end
end

function plungemove(times)
  for i=1, times do
    plunge()
    while (aware.digmoveforward() == false) do end
  end
end

function pmine(maxdistance)
  for distance=0, maxdistance do
    if (distance == 0) then
      plunge()
    else
      aware.digmoveforward()
      aware.turnright()
      plungemove(distance)
      aware.turnright()
      for i=1, 3 do
        plungemove(distance*2)
        aware.turnright()
      end
      plungemove(distance)
      aware.turnleft()
    end
  end
  gomine()
end

function smine(maxdistance, depth)
    for rdepth=1, depth do
      aware.digmovedown()
      spiralcenter = aware.getposition()

      for distance=1, maxdistance do
        digmove(1)
        aware.turnright()
        digmove(distance)
        aware.turnright()
        for i=1, 3 do
          digmove(distance*2)
          aware.turnright()
          if aware.isfull() then pausedropoff() end
        end
        digmove(distance)
        aware.turnleft()
      end
      aware.goto(spiralcenter)
      if aware.isfull() then pausedropoff() end
    end
end

function spmine(radius)
  smine(radius, aware.getposition(3) - 6)
  pmine(radius)
end

function gomine()
  aware.goto(mine)
  aware.pushpos((os.getComputerID()+1000),"M",mine)
end


function setmine(coords)
  mine=coords
end


aware.setshaftmode(true)
gomine()
aware.setshaftmode(false)
pausedropoff()
spmine(minesize,minesize)
dropoff()
aware.gohome()