Turtle

--Made by Esbenmine
os.pullEvent = os.pullEventRaw
Menu = true
TurtleX = 25
TurtleY = 9
TurtleY2 = 0
TurtleID = 5
TSkin = "&"
Side = "3"
Side2 = "3"
Start = true
SideUD = "0"
Record = false
Record2 = false
repeat
  term.clear()
  term.setCursorPos(1,1)
  if Menu then
    print("Turtle  :  Recording ",Record, "  Y: ", TurtleY2)
  else
  end
  term.setCursorPos(TurtleX, TurtleY)
  if Side == "1" then
    print("^")
  elseif Side == "2" then
    print(">")
  elseif Side == "3" then
    print("V")
  elseif Side == "4" then
    print("<")
  end
  local Event, key = os.pullEvent("key")
  if key == keys.w then
    if Side == "3" then
      TurtleY = TurtleY+1
      Side = "3"
    elseif Side == "2" then
      TurtleX = TurtleX+1
      Side = "2"
    elseif Side == "4" then
      TurtleX = TurtleX-1
      Side = "4"
    elseif Side == "1" then
      TurtleY = TurtleY-1
      Side = "1"
    end
    Side2 = "1"
  elseif key == keys.s then
    if Side == "2" then
      TurtleX = TurtleX-1
      Side = "2"
    elseif Side == "1" then
      TurtleY = TurtleY+1
      Side = "1"
    elseif Side == "4" then
      TurtleX = TurtleX+1
      Side = "4"
    elseif Side == "3" then
      TurtleY = TurtleY-1
      Side = "3"
    end
    Side2 = "3"
  elseif key == keys.d then
    if Side == "1" then
      Side = "2"
    elseif Side == "2" then
      Side = "3"
    elseif Side == "3" then
      Side = "4"
    elseif Side == "4" then
      Side = "1"
    end
    Side2 = "2"
  elseif key == keys.a then
    if Side == "4" then
      Side = "3"
    elseif Side == "3" then
      Side = "2"
    elseif Side == "2" then
      Side = "1"
    elseif Side == "1" then
      Side = "4"
    end
    Side2 = "4"
  elseif key == keys.r then
    if Record == true then
      Record = false
      TurtleW:close()
    else
      term.clear()
      term.setCursorPos(12,1)
      write("File name: ")
      Fil = read()
      Record = true
      TurtleW = io.open(Fil, "w")
    end
  elseif key == keys.c then
    if Record == true then
      term.clear()
      term.setCursorPos(12,1)
      print("Make sure it is correct")
      term.setCursorPos(12,2)
      CustomC = read()
      TurtleW:write("\n")
      TurtleW:write(CustomC)
    else
    end
  elseif key == keys.z then
    term.clear()
    term.setCursorPos(12,1)
    print("Are you sure you want to exit?")
    term.setCursorPos(12,2)
    print("y/n")
    local Event, key = os.pullEvent("key")
    if key == keys.y then
      if Record == true then
        TurtleW:close()
      else
      end
      term.clear()
      term.setCursorPos(1,1)
      Start = false
    else
    end
  elseif key == keys.h then
    term.clear()
    term.setCursorPos(12,1)
    print("HELP")
    term.setCursorPos(12,2)
    print("R = Start Recording. Z = Exit")
    term.setCursorPos(12,3)
    print("A,W,S,D = Move turtle. H = Help")
    term.setCursorPos(12,4)
    print("E,Q = Up and Down. F = Dig Forward")
    term.setCursorPos(12,5)
    print("G,V = Dig up and down.")
    local Event, key = os.pullEvent("key")
  elseif key == keys.e then
    SideUD = "1"
    TurtleY2 = TurtleY2+1
  elseif key == keys.q then
    SideUD = "2"
    TurtleY2 = TurtleY2-1
  elseif key == keys.f then
    if Record == true then
      TurtleW:write('\nturtle.dig()')
      TurtleW:write('\nsleep(0.5)')
    else
    end
  elseif key == keys.g then
    if Record == true then
      TurtleW:write('\nturtle.digUp()')
    else
    end
  elseif key == keys.v then
    if Record == true then
      TurtleW:write('\nturtle.digDown()')
    else
    end
  elseif key == keys.m then
    if Menu then
      Menu = false
    else
      Menu = true
    end
  end

  if Record == true then
    if SideUD == "1" then
      TurtleW:write('\nturtle.up()')
    elseif SideUD == "2" then
      TurtleW:write('\nturtle.down()')
    elseif Side2 == "1" then
      TurtleW:write('\nturtle.forward()')
    elseif Side2 == "2" then
      TurtleW:write('\nturtle.turnRight()')
    elseif Side2 == "3" then
      TurtleW:write('\nturtle.back()')
    elseif Side2 == "4" then
      TurtleW:write('\nturtle.turnLeft()')
    end
    TurtleUD = "0"
    TurtleW:write('\nsleep(0.5)')
  else
  end
  sleep(0.1)
until Start == false