MC

w,h = term.getSize()
--39x13
--[[
Q DOWN          (DN)
W FORWARD       (FD)
E UP            (UP)
A TURN LEFT     (LT)
S BACKWARD      (BK)
D TURN RIGHT    (RT)

R DIG UP        (DU)
F DIG           (DG)
C DIG DOWN      (DD)

T PLACE UP      (PU)
G PLACE         (PL)
V PLACE DOWN    (PD)

X SELECT SLOT

Z CLEAR COMMANDS
--]]

--term.setCursorPos(1,1)
--term.write("123456789012345678901234567890123456789")
function printGui()
term.clear()
info = os.getComputerLabel()..":"..turtle.getFuelLevel()
  term.setCursorPos(1,1)
  term.write("Manual Control           | "..info)
  term.setCursorPos(1,2)
  term.write("---------------------------------------")
  term.setCursorPos(1,3)
  term.write("                                       ")
  term.setCursorPos(1,4)
  term.write("                                       ")
  term.setCursorPos(1,5)
  term.write("                                       ")
  term.setCursorPos(1,6)
  term.write("                                       ")
  term.setCursorPos(1,7)
  term.write("                                       ")
  term.setCursorPos(1,8)
  term.write("                                       ")
  term.setCursorPos(1,9)
  term.write("                                       ")
  term.setCursorPos(1,10)
  term.write("                                       ")
  term.setCursorPos(1,11)
  term.write("                                       ")
  term.setCursorPos(1,12)
  term.write("---------------------------------------")
  term.setCursorPos(1,13)
  term.write("#:")
end

 function keying(msg)
  term.setCursorPos(1,13)
  term.clearLine()
  term.write("#:"..msg)
 end

  actions = {}

 function printList()
  term.setCursorPos(27,13)
  term.write("Commands:"..#actions)

    for i = 3,11 do
     term.setCursorPos(1,i)
     term.clearLine()
    end

    px = 1
    py = 3

   for key, value in pairs(actions) do
    term.setCursorPos(px,py)
    term.write(value)
    px = px + 3
    if px > 39 then
     px = 1
     py = py+1
    end
   end
--  term.setCursorPos(35,13)
--  term.write("x:"..px)
end

function selectNumber()
 number = 0
 str = ""

 while true do
 local evt, arg = os.pullEvent("key")
   if arg == 0 then
    break
   end

   if arg == 2 then
    str="1"
    keying(str)
    while true do
     local evt2, arg2 = os.pullEvent("key")
     if arg2 == 0 then
      break
     end
     if arg2 > 1 and arg2 < 11 then
      str = str .. tostring(arg2-1)
      keying(str)
      break
     end
    end
    if str ~= nil then
     number = tonumber(str)
     break
    end
   end

  if arg > 2 and arg < 11 then
   number = arg-1
   break
  end

 end
 keying("")
 return number
end

function turtleAction(val)
 if val == "FD" then
  turtle.forward()
 end
 if val == "LT" then
  turtle.turnLeft()
 end
 if val == "RT" then
  turtle.turnRight()
 end
 if val == "BK" then
  turtle.back()
 end

 if val == "UP" then
  turtle.up()
 end
 if val == "DN" then
  turtle.down()
 end

 if val == "DU" then
  turtle.digUp()
 end
 if val == "DI" then
  turtle.dig()
 end
 if val == "DD" then
  turtle.digDown()
 end

 if val == "PU" then
  turtle.placeUp()
 end
 if val == "PL" then
  turtle.place()
 end
 if val == "PD" then
  turtle.placeDown()
 end

 if tonumber(val) ~= nil then
  turtle.select(tonumber(val))
 end
end




 printGui()

  while true do
   local event, param1 = os.pullEvent()
   keying("         "..event..":"..param1)

   if event == "key" then
    if param1 == 0 then -- "~"
     break
    end

    if param1 == 14 then -- "~"
     table.remove(actions,#actions)
     printList()
    end


    if param1 == 28 then -- "Enter"
        if #actions > 0 then
            for key, value in pairs(actions) do
             turtleAction(value)
               printGui()
            end
               printList()

        end
    end
   end

   if event == "char" then
    if param1 == "w" then
     table.insert(actions,"FD")
     printList()
    end
    if param1 == "a" then
     table.insert(actions,"LT")
     printList()
    end
    if param1 == "d" then
     table.insert(actions,"RT")
     printList()
    end
    if param1 == "s" then
     table.insert(actions,"BK")
     printList()
    end

    if param1 == "q" then
     table.insert(actions,"UP")
     printList()
    end
    if param1 == "e" then
     table.insert(actions,"DN")
     printList()
    end


    if param1 == "r" then
     table.insert(actions,"DU")
     printList()
    end
    if param1 == "f" then
     table.insert(actions,"DI")
     printList()
    end
    if param1 == "c" then
     table.insert(actions,"DD")
     printList()
    end

    if param1 == "t" then
     table.insert(actions,"PU")
     printList()
    end
    if param1 == "g" then
     table.insert(actions,"PL")
     printList()
    end
    if param1 == "v" then
     table.insert(actions,"PD")
     printList()
    end

    if param1 == "x" then
     number = 0
     number = selectNumber()
     if number > 0 and number < 10 then
      table.insert(actions,"0"..tostring(number))
      printList()
     end
     if number > 9 and number < 17 then
      table.insert(actions,tostring(number))
      printList()
     end
    end

    if param1 == "z" then
     for k in ipairs(actions) do actions[k] = nil end
     printList()
    end

    if param1 == " " then
     keying("")
     ans = read()
     if ans ~= nil then
      res = shell.run(ans)
      printGui()
      printList()
     end
    end
   end
  end