SpiteDEDialer.lib.lua

-- Dialer, by SpitefulJames
-- Using original code by Roy Curtis and KJ4IPS @
-- files.haun.guru/ComputerCraft/

function debug(...)
    if not debugging then return end
    print('[Debug] ', unpack(arg) )
  end

  function debugTable(tbl)
    if not debugging then return end
    for key, value in pairs(tbl) do
      print(key, ': ', value)
    end
  end

  function discoverPeripherals()
    pMonitor = waitForPeripheral('monitor')
    pChest   = waitForPeripheral('chest')
    pMusic   = waitForPeripheral('note_block')
    debug('Discovered perhiperals')
  end

  function waitForPeripheral(type)
    unit = nil
    repeat
      unit = peripheral.find(type)

      if (unit == nil) then
        if (pMusic ~= nil) then
          pMusic.playSound('mob.bat.hurt', 1, 1)
        end
        print('Waiting for peripheral: ', type)
        sleep(2.5)
      end
    until unit ~= nil
    return unit
  end

  function prepareUI()
    pMonitor.setTextScale(state.scale)

    state.width,
    state.height = pMonitor.getSize()
    debug('UI prepared')
  end

  function clearUI()
    pMonitor.setBackgroundColor(colors.black)
    pMonitor.clear()
    debug('UI cleared')
  end

  function adjustScale(delta)
    state.scale = state.scale + delta
    if     state.scale > 5.0 then state.scale = 5
    elseif state.scale < 0.5 then state.scale = 0.5
    end
    prepareUI()
    print('Adjusted scale to ', state.scale)
  end

  function adjustColWidth(delta)
    state.entryW = state.entryW + delta
    if     state.entryW > 50 then state.entryW = 50
    elseif state.entryW < 1  then state.entryW = 1
    end
    print('Adjusted col. width to ', state.entryW)
  end

  function setPortal(book, slot)
    -- Structure of a link book:
    -- book.display_name
    -- book.myst_book.destination
    rs.setOutput('top',true)
    sleep(2)
    rs.setOutput('top',false)
    state.selected = nil

    if (book == nil and slot == nil) then
      debug('Portal reset')
    else
      pMusic.playSound('portal.travel', 1, 1)
      pChest.pushItem('UP', slot)
      state.selected = book
      debug('Portal set to: ', book.display_name)
    end
  end

  function updateButtons()
    state.entryX,
    state.entryY  = 2, 5
    state.buttons = {}

    -- Have to sort book items using indicies than
    -- by table keys
    stacks = pChest.getAllStacks()
    books  = {}
    for slot, stack in pairs(stacks) do
      -- OpenPeripheralCore 1.0 returns a "query"
      -- object rather than the itemstack itself.
      -- .all() from that object fetches all the
      -- properties as before.
      if (stack.all ~= nil) then
        stack = stack.all()
      end

      if (stack.name == "teleporterMKI") then
        stack.name = getBookName(stack)
        stack.slot = slot
        table.insert(books, stack)
      end
    end

    table.sort(books, sortBook)
    for _, book in ipairs(books) do
      addButton(book)
    end
    debug('Updated buttons')
  end

  function getBookName(book)
    if (book.display_name == "Charm of Dislocation") then
        return book.display_name
    end
  end

  function sortBook(a, b)
    return a.name:lower()
         < b.name:lower()
  end

  function addButton(book)
    button   = {}

    button.x    = state.entryX
    button.y    = state.entryY
    button.name = book.name
    button.lbl  = ' '..book.name:sub(0, 20)..' '
    button.xEnd = state.entryX + state.entryW
    button.book = book
    button.slot = book.slot

    table.insert(state.buttons, button)
    nextEntryPos()
  end

  function blinkButton(button)
    for i = 0,3 do
      pMonitor.setCursorPos(button.x, button.y)

      if (i % 2 == 0) then
        pMonitor.setBackgroundColor(colors.gray)
      else
        pMonitor.setBackgroundColor(colors.blue)
      end

      pMonitor.write(button.lbl)
      sleep(0.1)
    end
  end

  function nextEntryPos()
    state.entryY = state.entryY + 2

    if (state.entryY >= state.height) then
      state.entryX = state.entryX + state.entryW
      state.entryY = 5
    end
  end

  function drawBanner(text)
    pMonitor.setCursorPos(1, 1)
    pMonitor.setBackgroundColor(colors.blue)
    pMonitor.setTextColor(colors.white)

    drawFilledBox(pMonitor, 1, 1, state.width, 3)
    pMonitor.setCursorPos(2, 2)

    if (text ~= nil) then
      pMonitor.write(text)
    elseif (state.selected ~= nil) then
      pMonitor.write('Destination: '
        .. state.selected.name)
    else
      pMonitor.write('Please select a destination')
    end
  end

  function drawButtons()
    for _, button in ipairs(state.buttons) do
      pMonitor.setBackgroundColor(colors.gray)

      -- Special cases
      if     (button.name == 'The End') then
        pMonitor.setTextColor(colors.lightBlue)
      elseif (button.name == 'The Nether') then
        pMonitor.setTextColor(colors.red)
      elseif (button.name == 'The Deep Dark') then
        pMonitor.setTextColor(colors.black)
      elseif (button.name == 'The Last Millenium') then
        pMonitor.setTextColor(colors.lightGray)
      else
        pMonitor.setTextColor(colors.white)
      end

      pMonitor.setCursorPos(button.x, button.y)
      pMonitor.write(button.lbl)
    end
  end