quarryctl

rednet.open("left")

local redS = "top"
local togS = "right"


while true do
  local id,msg = rednet.receive()
  term.clear()
  term.setCursorPos(1,1)
  print(msg)
  if msg == "startmine" then
    if rs.getInput(redS) == true then
      rs.setOutput(togS, true)
      sleep(0.5)
      rs.setOutput(togS, false)
      rednet.send(id, "nowmine")
      print("nowmine")
    elseif rs.getInput(redS) == false then
      rednet.send(id, "premine")
      print("premine")
    end
  elseif msg == "stopmine" then
    if rs.getInput(redS) == false then
      rs.setOutput(togS, true)
      sleep(0.5)
      rs.setOutput(togS, false)
      rednet.send(id, "nowminestop")
      print("nowminestop")
    elseif rs.getInput(redS) == true then
      rednet.send(id, "preminestop")
      print("preminestop")
    end
  elseif msg == "statmine" then
    if rs.getInput(redS) == true then
      rednet.send(id, "statmineoff")
      print("statmineoff")
    elseif rs.getInput(redS) == false then
      rednet.send(id, "statmineon")
      print("statmineon")
    end
  end
end