ForAbby/Twig Remote

local function init()
    rednet.open("back")
end

local function finish()
    rednet.close("back")
    write("Goodbye!")
    sleep(5)
    os.shutdown()
end

local function get_id()
    local ID
    local sender, message, protocol

    write("What is the turtle's ID\n")
    ID = tonumber(read())
    rednet.send(ID, "connect")
    sender, message, protocol = rednet.receive(5)
    if message == "OK" then
        write("Connected...\n")
        return ID
    else
        return -1
    end
end

local function get_key()
    local event, param

    while true do
        event, param = os.pullEvent("key")
        if event=="key" then
            return param
        end
    end
end

local function write_turtle_info(message, ID)
    write("Penny")
    shell.run("clear")
    write("Connected with "..ID.."\n\n")
    write("Fuel: "..message[1].."/"..message[2].."\n")
    write("Current slot: "..message[3].."\n")
    if message[4] then
      write("Slot content: "..message[4].name.."\n")
    else
      write("Slot content: Empty")
    end
    write("Slot stack size: "..message[5].."/"..message[5]+message[6].."\n")
    write("Front: ")
    if message[7][1] then
        write(message[7][2].name.."\n")
    else
        write("air\n")
    end
    write("Top: ")
    if message[8][1] then
        write(message[8][2].name.."\n")
    else
        write("air\n")
    end
    write("Bottom: ")
    if message[9][1] then
        write(message[9][2].name.."\n")
    else
        write("air\n")
    end
    if not message[10][1] then
        message[10][1], message[10][2], message[10][3] = "? ", "? ", "?"
    end
    write("X: "..message[10][1].."Y: "..message[10][2].."Z: "..message[10][3].."\n")
    write("\nMessage:\n"..message[11].."\n")
end

local function send_event(ID, event)
    local message

    rednet.send(ID, event)
    if event ~= 28 then
        ID, message = rednet.receive()
        write_turtle_info(message, ID)
    end
end

local function loop(ID)
    local event = 0

    while event~=28 do
        event = get_key()
        write("Calculating...\n")
        send_event(ID, event)

    end
end

local function main()
    local ID = -1

    init()
    while ID==-1 do
        ID = get_id()
    end
    loop(ID)
    finish()
end

main()