Remote Miner Computer

rednet.open("back")
foundturtle = false
chardir = 1
map = {}
for i=1, 350 do
 map[i] = {}
 for j=1, 350 do
  map[i][j] = 0
 end
end
turtlex = 175
turtley = 175
map[turtlex][turtley] = 1
dismap = {}
for i=-5, 5 do
 dismap[i+6] = {}
 for j=-5, 5 do
  dismap[i+6][j+6] = map[turtlex+i][turtley+j]
 end
end
function drawgui()
term.clear()
term.setCursorPos(1,1)
for j=1, 11 do
 for i=1, 11 do
  if i ~= 6 or j ~= 6 then
   if dismap[i][j] == 0 then
    io.write("?")
   end
   if dismap[i][j] == 1 then
    io.write(" ")
   end
   if dismap[i][j] == 2 then
    io.write("O")
   end
   if dismap[i][j] == 3 then
    io.write("C")
   end
   if dismap[i][j] == 4 then
    io.write("I")
   end
   if dismap[i][j] == 5 then
    io.write("G")
   end
   if dismap[i][j] == 6 then
    io.write("D")
   end
  end
  if (i == 6 and j == 6) then
   if chardir == 1 then
    io.write("^")
   end
   if chardir == 2 then
    io.write("<")
   end
   if chardir == 3 then
    io.write("V")
   end
   if chardir == 4 then
    io.write(">")
   end
  end
 end
 print()
end
end
function clearscreen()
 term.clear()
 term.setCursorPos(1,1)
end
findturt = function()
while not foundturtle do
senderID, message, distance = rednet.receive()
if message == "isturtle" then
 foundturtle = true
end
end
end
prntprogress = function()
while true do
 clearscreen()
 io.write("Searching for Turtles.")
 sleep(0.5)
 io.write(".")
 sleep(0.5)
 io.write(".")
 sleep(0.5)
end
end
parallel.waitForAny (findturt, prntprogress)
rednet.send(senderID, "foundyou")
clearscreen()
print("Turtle found.")
sleep(1)
if type("4") == string then
 print("TRUE")
end
while true do
 dismap = {}
 for i=-5, 5 do
  dismap[i+6] = {}
  for j=-5, 5 do
   dismap[i+6][j+6] = map[turtlex+i][turtley+j]
  end
 end
drawgui()
event, key = os.pullEvent()
if event == "key" then
 if key == 17 then
  if chardir == 1 then
   rednet.send(senderID, "4")
   senderID2, message = rednet.receive()
   if string.sub(message,1,1) == "1" then
    turtley = turtley - 1
   end
  end
  if chardir ~= 1 then
   if chardir == 2 then
    rednet.send(senderID, "1")
   senderID2, message = rednet.receive()
   end
   if chardir == 4 then
    rednet.send(senderID, "2")
   senderID2, message = rednet.receive()
   end
   if chardir == 3 then
    rednet.send(senderID, "3")
   senderID2, message = rednet.receive()
   end
   chardir = 1
  end
 end
 if key == 30 then
  if chardir == 2 then
   rednet.send(senderID, "4")
   senderID2, message = rednet.receive()
   if string.sub(message,1,1) == "1" then
    turtlex = turtlex - 1
   end
  end
  if chardir ~= 2 then
   if chardir == 1 then
    rednet.send(senderID, "2")
   senderID2, message = rednet.receive()
   end
   if chardir == 3 then
    rednet.send(senderID, "1")
   senderID2, message = rednet.receive()
   end
   if chardir == 4 then
    rednet.send(senderID, "3")
   senderID2, message = rednet.receive()
   end
   chardir = 2
  end
 end
 if key == 31 then
  if chardir == 3 then
   rednet.send(senderID, "4")
   senderID2, message = rednet.receive()
   if string.sub(message,1,1) == "1" then
    turtley = turtley + 1
   end
  end
  if chardir == 4 then
   rednet.send(senderID, "1")
   senderID2, message = rednet.receive()
  end
  if chardir == 2 then
   rednet.send(senderID, "2")
   senderID2, message = rednet.receive()
  end
  if chardir == 1 then
   rednet.send(senderID, "3")
   senderID2, message = rednet.receive()
  end
  chardir = 3
 end
 if key == 32 then
  if chardir == 4 then
   rednet.send(senderID, "4")
   senderID2, message = rednet.receive()
   if string.sub(message,1,1) == "1" then
    turtlex = turtlex + 1
   end
  end
  if chardir == 2 then
   rednet.send(senderID, "3")
   senderID2, message = rednet.receive()
  end
  if chardir == 1 then
   rednet.send(senderID, "1")
   senderID2, message = rednet.receive()
  end
  if chardir == 3 then
   rednet.send(senderID, "2")
   senderID2, message = rednet.receive()
  end
  chardir = 4
 end
 if key == 33 then
  rednet.send(senderID, "5")
   senderID2, message = rednet.receive()
 end
 --MARKER@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  if chardir == 4 then
   map[turtlex+1][turtley] = tonumber(string.sub(message,2,2))
  end
  if chardir == 3 then
   map[turtlex][turtley+1] = tonumber(string.sub(message,2,2))
  end
  if chardir == 2 then
   map[turtlex-1][turtley] = tonumber(string.sub(message,2,2))
  end
  if chardir == 1 then
   map[turtlex][turtley-1] = tonumber(string.sub(message,2,2))
  end
 --MARKER@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

end
drawgui()
end