rc.lua

io.write("Set recording name: ")
a = read()
file = fs.open(tostring(a), "w")

function control()
    while true do
        local id, message = rednet.receive()
        if message == "rcConnect" then
            print("Now being controlled.")
        elseif message == "forward" then
            turtle.forward()
            file.writeLine("turtle.forward()")
        elseif message == "backward" then
            turtle.back()
            file.writeLine("turtle.back()")
        elseif message == "left" then
            turtle.turnLeft()
            file.writeLine("turtle.turnLeft()")
        elseif message == "right" then
            turtle.turnRight()
            file.writeLine("turtle.turnRight()")
        elseif message == "up" then
            turtle.up()
            file.writeLine("turtle.up()")
        elseif message == "down" then
            turtle.down()
            file.writeLine("turtle.down()")
        elseif message == "dig" then
            turtle.dig()
            file.writeLine("turtle.dig()")
        elseif message == "digUp" then
            turtle.digUp()
            file.writeLine("turtle.digUp()")
        elseif message == "digDown" then
            turtle.digDown()
            file.writeLine("turtle.digDown()")
        elseif message == "place" then
            turtle.place()
            file.writeLine("turtle.select("..turtle.getSelectedSlot()..")")
            file.writeLine("turtle.place()")
        elseif message == "placeUp" then
            turtle.placeUp()
            file.writeLine("turtle.select("..turtle.getSelectedSlot()..")")
            file.writeLine("turtle.placeUp()")
        elseif message == "placeDown" then
            turtle.placeDown()
            file.writeLine("turtle.select("..turtle.getSelectedSlot()..")")
            file.writeLine("turtle.placeDown()")
        elseif message == "rcDisc" then
            print("User has terminated connection")
            file.close()
        end
    end
end

function cycleSlot()
    while true do
        x = {turtle.getSelectedSlot()}
        for i, v in ipairs(x) do
            local id, message = rednet.receive()
            if message == "slotNext" then
                turtle.select(v+1)
            elseif message == "slotPrev" then
                turtle.select(v-1)
            end
        end
    end
end

while true do
    parallel.waitForAny(control,cycleSlot)
end