-- mCtrl - Manual Turtle Control
--
-- Instructions:
--  * Install MagicTurtle API (must be named 'mt')
--  * Set up Position and Facing
--  * Run mCtrl
--  * Use controls below to explore
--
-- Keys:
-- W,A,S,D = Movement (North, West, South, East)
-- R,F   = Up, Down (Vertically)
-- E	   = Break front block
-- X	   = Maps blocks around Turtle
-- C	   = Refuel (if fuel is needed)
-- 1,2,3,4 = Place block from that slot number
-- Q	   = Quit
os.loadAPI("mt")
local run = true
function update()
   local x,y,z = mt.getPos()
   local d = mt.getFacing()
 
   -- Draws the map first
   graph(x,y,z)
 
   -- Draws Coord at the top
   term.setCursorPos(1,1)
   term.write("("..x..","..y..","..z..")")
 
   -- Draws Turtle at the center (with direction)
   term.setCursorPos(20,6)
   if(d == 0) then
		  term.write("v")
   elseif(d == 1) then
		  term.write("<")
   elseif(d == 2) then
		  term.write("^")
   elseif(d == 3) then
		  term.write(">")
   end
 
   -- Draws Fuel (if fuel is needed)
   if(turtle.getFuelLevel() ~= "unlimited") then
		  term.setCursorPos(1,13)
		  term.write("Fuel: "..turtle.getFuelLevel())
   end
 
end
-- Copied and modified from MagicTurtle's code
-- Redone to remove term.clear(), makes the program look smoother. :-)
function graph(xs,ys,zs)
		 local curX,curZ = 1,1
		 local width,height = term.getSize()
		 width = width + 1
		 local xw,zw = math.floor(width/2),math.floor(height/2)
		 local fullRow = 0
		 local fullRowY = 0
		 local tmp = {}
		 local temp = {}
		 local tempp = 0
		 term.setCursorPos(1,1)
		 for i=1,height-1,1 do
		  fullRow = mt.getFullRow(xs-xw+curX,ys,zs-zw+curZ,xs+xw,ys,zs+zw)
		  for i=1,width-1,1 do
		   tmp = mt.getSeperated(fullRow)
		   tempp = mt.blockToText(tmp[i])
		   if mode then temp = mt.getSeperated(fullRowY)
		   if tempp == " " and mt.blockToText(temp[i]) ~= " " and mt.blockToText(temp[i]) ~= "~" then tempp = "=" end end
		   term.write(tempp)
		  end
		  if curZ <= height then
		   curZ = curZ + 1
		   term.setCursorPos(1,curZ)
		  else break end
		 end
    end
update() -- Draw inital map
while run do
   local event, p1, p2, p3, p4, p5 = os.pullEvent()-- Listen for key events
   if(event == "char") then
		  if(p1 == "q") then -- Quits out of the program and cleans the screen
				 run = false
				 term.clear()
				 term.setCursorPos(1,1)
		  elseif(p1 == "w") then -- Move North
				 mt.faceNorth()
				 mt.forward()
				 update()
		  elseif(p1 == "a") then -- Move West
				 mt.faceWest()
				 mt.forward()
				 update()
		  elseif(p1 == "s") then -- Move South
				 mt.faceSouth()
				 mt.forward()
				 update()
		  elseif(p1 == "d") then -- Move East
				 mt.faceEast()
				 mt.forward()
				 update()
		  elseif(p1 == "r") then -- Move Up
				 mt.up()
				 update()
		  elseif(p1 == "f") then -- Move Down
				 mt.down()
				 update()
		  elseif(p1 == "e") then -- Break block
				 mt.dig()
				 update()
		  elseif(p1 == "x") then -- Map all sides (Does not compare types)
				 mt.mapSides()
				 update()
		  elseif(p1 == "c" and turtle.getFuelLevel() ~= "unlimited") then -- Refuel (if needed)
				 for slot = 1, 16 do
				    local cnt = turtle.getItemCount(slot)
				    if(cnt > 0) then
						   turtle.select(slot)
						   if turtle.refuel(1) then
								  update()
								  break
						   end
				    end
				 end
		  elseif(p1 == "1" or p1 == "2" or p1 == "3" or p1 == "4") then -- Place block
				 mt.place(tonumber(p1))
				 update()
		  end
   end
end