Storage server

sId = 923
rednet.open("bottom")
busy = false

function saldo(id, content, block)
   rednet.send(id, content)
   ids, msg = rednet.receive(10)
   if ids == id then
    term.setCursorPos(1,1)
    term.clear()
    local amount = tonumber(msg) / 64
    if amount < 10 then
    amount = amount * 64
     print("There is ".. amount.. " units of ".. block)
     string = "There is ".. amount.. " units of ".. block
    else
     print("There is ".. amount.. " stacks of ".. block)
     string = "There is ".. amount.. " stacks of ".. block
    end
    sleep(2)
   return(tostring(string))
   else
   end
end

function saveBlock(block, x, y, z, id, idAmount)
 if fs.exists(block) then
  term.setCursorPos(1,1)
  term.clear()
  print("Block already exists")
  sleep(2)
  return
 end
 local blockCord = {x, y, z, id, idAmount}
 local file = fs.open(block, "w")
 file.write(textutils.serialize(blockCord))
 file.close()
 term.setCursorPos(1,1)
 term.clear()
 print("Saved ".. block.. "At ".. x.. " "..y.. " "..z.." with ID ".. id..":"..idAmount)
end

function loadBlock(block)
 local file = fs.open(block, "r")
 content = file.readAll()
 file.close()
 return(content)


end
tQueue = {}
function commandQueue(block,units)
  table.insert(tQueue, {
    ["block"] = block,
    ["units"] = units
  })
end
function send() -- Sends to storage drone
 if #tQueue <= 0 then --checks queue
    return -- if noting in queue, cancels
  end
  local block = tQueue[1]["block"]
  local units = tQueue[1]["units"]
  local content = loadBlock(block)
  blockId = textutils.unserialize(content)
  blockId[6] = units
  blockId = textutils.serialize(blockId)
  rednet.send(sId, blockId)
  table.remove(tQueue,1) --removes queued order from table
end

function ui()
 while true do
 term.setCursorPos(1,1)
 term.clear()
 print("1. Add block\n2. Remove block\n3. Request block\n4. Block info\n5. In stock")
 local event, key = os.pullEvent("char")

 if key == "1" then
  term.setCursorPos(1,1)
  term.clear()
  print("1. Add block in row\n2. Add spec block")
  local event, key = os.pullEvent("char")

  if key == "1" then
   term.setCursorPos(1,1)
   term.clear()
   print("Row nr?")
   rowNr = read()
   print("Block nr=")
   blockNr = read()
   print("Block Name?")
   local block = read()
    z = 232 - rowNr
    x = 2459 - blockNr
    y = 88
   print("Block Id?")
   local blockId = read()
   print("Id-amount")
   local idAmount = read()
   saveBlock(block, x, y, z, blockId, idAmount)

   elseif key == "2" then
    term.setCursorPos(1,1)
    term.clear()
    print("Block name\n")
    local block = read()
    print("X-cord\n")
    local x = read()
    print("Y-cord\n")
    local y = read()
    print("Z-cord\n")
    local z = read()
    saveBlock(block, x, y, z)
  end

  elseif key ==  "2" then
  term.setCursorPos(1,1)
  term.clear()
  print("Block name?\n")
  local block = read()
  if fs.exists(block) then
   fs.delete(block)
   term.setCursorPos(1,1)
   term.clear()
   print("DELETED "..block)
   sleep(2)
  else
   term.setCursorPos(1,1)
   term.clear()
   print("Block does not exist")
   sleep(2)
  end

 elseif key ==  "3" then
  term.setCursorPos(1,1)
  term.clear()
  print("Block name?\n")
  local block = read()
  if fs.exists(block) then
   print("How many stacks?")
   local units = read()
   if tonumber(units) >= 15 then
    print("15 is max! automatically 15 stacks")
    sleep(2)
    units = 15
   end
   commandQueue(block,units)
  else
   term.setCursorPos(1,1)
   term.clear()
   print("Block does not exist.")
   sleep(2)
  end

 elseif key == "4" then
  term.setCursorPos(1,1)
  term.clear()
  print("Block name")
  block = read()
  if fs.exists(block) then
   local content = loadBlock(block)
   local content = textutils.unserialize(content)
   print("X = ".. content[1].. "\nY = ".. content[2].. "\nZ = ".. content[3])
   local row =  232 - content[3]
   local blockNr = 2459 - content[1]
   print("\nRow = ".. row.. "\nBlock number = ".. blockNr)
   print("\nBlock ID = " ..content[4].. ":".. content[5])
   sleep(5)
  else
   print("That block does not exist")
   sleep(2)
  end
 elseif key == "5" then
  term.setCursorPos(1,1)
  term.clear()
  print("Block name?")
  local block = read()
  if fs.exists(block) then
   local content = loadBlock(block)
   saldo(925, content, block)
    term.setCursorPos(1,1)
    term.clear()
   end
  else
   print("Block does not exist")
   sleep(2)
  end
  end
 end



function listen()
 while true do
  id, msg = rednet.receive()
  if id == sId and msg == "working" then
   busy = true
  elseif id == sId and msg == "done" then
   send()
  elseif id == 936 then
  msg = textutils.unserialize(msg)
    if fs.exists(msg[2]) then
     if msg[1] == "request" then
      rednet.send(id, "Order inc")
      commandQueue(msg[2],msg[3])
     else
      local content = loadBlock(msg[2])
      local amount = saldo(925, content, msg[2])
      rednet.send(id, amount)
      print(amount)
     end
   else
    rednet.send(id, "Block does not exist.")
   end
   end
  end
 end



parallel.waitForAll(listen, ui)