Summit's Miner

----   Turtle Mining Miner designed by DireWolf20    ----
----      Modified by SummitSummit 1 August 2013     ----


rednet.open("right")
local func
local tArgs = {...}

function cleanup()
   for i = 1,12 do
      turtle.select(i)
      turtle.dropDown()
   end
end

function place()
   turtle.select(16)
   turtle.place()
   turtle.down()
   turtle.select(15)
   turtle.place()
   turtle.select(14)
   turtle.placeDown()
end

function remove()
   turtle.select(14)
   turtle.digDown()
   turtle.select(15)
   turtle.dig()
   turtle.up()
   turtle.select(16)
   turtle.dig()
end

function fuel()
   turtle.select(13)
   turtle.placeUp()
   turtle.select(1)
   turtle.suckUp()
   turtle.dropUp(turtle.getItemCount(1) - 4)
   turtle.refuel()
   turtle.select(13)
   turtle.digUp()
end

function fuelBoss()
  turtle.select(13)
  turtle.placeUp()
  turtle.select(1)
  turtle.suckUp()
  turtle.dropUp(turtle.getItemCount(1) - 4)
  turtle.select(13)
  turtle.digUp()
  turtle.up()
  turtle.turnRight()
  turtle.select(1)
  turtle.drop()
  turtle.turnLeft()
  turtle.down()
end

function checkFuel()
   if turtle.getFuelLevel() < 400 then
      fuel()
   end
end

function cycle()
   place()
   sleep(10)
   while turtle.getItemCount(1) > 0 do
      cleanup()
      sleep(2)
   end
   remove()
   checkFuel()
   turtle.forward()
end

function checkIn(fromID)
   rednet.send(fromID, tArgs[1])
end

function chunkLoad()
   turtle.select(16)
   turtle.digUp()
   checkFuel()
   turtle.select(16)
   turtle.forward()
   turtle.placeUp()
end

function powerOn()
	turtle.select(1)
	turtle.place()
	turtle.down()
	turtle.select(2)
	turtle.place()
	turtle.attack()
end

function powerOff()
	turtle.select(2)
	turtle.dig()
	turtle.up()
	turtle.select(1)
	turtle.dig()
	turtle.forward()
end

function minersDown()
	turtle.down()
end

function minersUp()
	turtle.up()
end

function loadersDown()
	turtle.select(16)
	turtle.digUp()
	turtle.down()
	turtle.placeUp()
end

function loadersUp()
	turtle.select(16)
	turtle.digUp()
	turtle.up()
	turtle.placeUp()
end

while true do
   local id,msg,dist = rednet.receive()
   func = loadstring(msg.."(...)")
   setfenv(func, getfenv())
   func(id)
   rednet.send(id,"Done")
end