order

local registrations = {}
local tesseracts = {}
local maxTesseracts=3
local cTesseracts=0
local chat = peripheral.wrap("right")

function strsplit(self,sep)
        local sep, fields = sep or ":", {}
        local pattern = string.format("([^%s]+)", sep)
        self:gsub(pattern, function(c) fields[#fields+1] = c end)
        return fields
end


function strjoin(list,delimiter)
  local len = #list
  if len == 0 then
    return ""
  end
  local string = list[1]
  for i = 2, len do
    string = string .. delimiter .. list[i]
  end
  return string
end

function tryRegister(name,channel)
    if channel == nil or channel == 0 then
      chat.tell(name, "Can't register this channel")
      return
    end
    if registrations[name] ~= nil then
        chat.tell(name,"You already registered a tesseract channel.")
    else
        if cTesseracts >= maxTesseracts then
            chat.tell(name,"Sorry, all tesseracts are in use.")
            return
        end

        local regT = 0
        for i=1,maxTesseracts,1 do
            if tesseracts[i] == nil then
                tesseracts[i] = name
                local tesseract = peripheral.wrap("item_tesseract_"..(i-1))
                tesseract.setFrequency(channel)
                cTesseracts = cTesseracts + 1
                regT = i
            end
        end

        if regT ~= 0 then
            registrations[name] = {channel,regT}
            chat.tell(name,"Sucesfully registered channel "..channel)
        else
            chat.tell(name,"Unknown error")
        end
    end
end

function getIID(rqpipe,item)
    local items = rqpipe.getAvailableItems()

    for i,v in pairs(items) do
        local uName = rqpipe.getUnlocalizedName(v[1])
        if uName == item then
          return v[1],v[2]
        end
    end
    return nil
end

function tryUnregister(name)
  if registrations[name] == nil then
    chat.tell(name,"You aren't registered.")
    return
  end

  cTesseracts = cTesseracts-1
  tesseracts[registrations[name][2]] = nil
  registrations[name] = nil

  chat.tell(name,"Sucessfully unregistered.")
end

function tryOrder(name,amount,item)
    if registrations[name] == nil then
        chat.tell(name,"Please register before ordering.")
        return
    end

    local tesseractNumber = registrations[name][2]

    local rqpipe = peripheral.wrap("LogisticsPipes:Request_"..(tesseractNumber-1))

    local iid,avAmount = getIID(rqpipe,item)

    if iid == nil then
      chat.tell(name,"Item not found.")
      return
    end

    if avAmount < amount then
      chat.tell("You tried to order "..amount.." "..item.. ", but only "..avAmount.. " are available.")
      return
    end

    rqpipe.makeRequest(iid,amount,false)
    chat.tell(name,"Order sucessful")

end

while true do
  local evData = { os.pullEvent("chat") }
  local name = evData[2]
  local msg = evData[3]
  msgSplit = strsplit(msg," ")

  local cmd = table.remove(msgSplit,1)
  if cmd == "register" and #msgSplit == 1 then
    tryRegister(name,tonumber(msgSplit[1]))
  elseif cmd=="order" and #msgSplit >= 2 then
    tryOrder(name,tonumber(table.remove(msgSplit,1)),strjoin(msgSplit," "))
  elseif cmd=="unregister" and #msgSplit == 0 then
    tryUnregister(name)
  end
end