Remote Miner Turtle

rednet.open("right")
chardir = 1
foundserv = false
function clearscreen()
 term.clear()
 term.setCursorPos(1,1)
end
findserv = function()
while not foundserv do
rednet.broadcast("isturtle")
sleep(0.5)
end
end
getresponse = function()
while true do
senderID, message, distance = rednet.receive()
if message == "foundyou" then
 foundserv = true
 print("BLAAAAAARG!")
end
end
end
prntprogress = function()
while true do
 clearscreen()
 io.write("Searching for Servers.")
 sleep(0.5)
 io.write(".")
 sleep(0.5)
 io.write(".")
 sleep(0.5)
end
end
function check()
 data = 1 --nothing
 if turtle.detect() then
  data = 2 --unknown block
 end
 turtle.select(13)
 if turtle.compare() then
  data = 3 --coal
 end
 turtle.select(14)
 if turtle.compare() then
  data = 4 --iron
 end
 turtle.select(15)
 if turtle.compare() then
  data = 5 --gold
 end
 turtle.select(16)
 if turtle.compare() then
  data = 6 --diamond
 end
 return(data)
end
parallel.waitForAny (findserv, prntprogress, getresponse)
print("Server found.")
while true do
event, senderID, message = os.pullEvent()
if event == "rednet_message" then
 retval = 2
 oreval = 0
 if message == "1" then
  turtle.turnRight()
  retval = 1
  oreval = check()
 end
 if message == "2" then
  turtle.turnLeft()
  retval = 1
  oreval = check()
 end
 if message == "3" then
  turtle.turnRight()
  turtle.turnRight()
  retval = 1
  oreval = check()
 end
 if message == "4" then
  if turtle.forward() then
   retval = 1
   oreval = check()
  end
 end
 if message == "5" then
  turtle.dig()
  retval = 1
  oreval = check()
 end
 rednet.send(senderID, tostring(retval)..tostring(oreval))
end
end