smelt

-- Place a simple computer between the drains
-- Soon i will edit this for multiple drains (ofcourse with config on top)
-- Program made by Quessith

os.loadAPI("ocs/apis/sensor")
local sense = peripheral.wrap("top")
local modem = peripheral.wrap("bottom")
local block = 1296
local ingot = 144
local totalingot = 0
local totalblock = 0

rednet.open("bottom")

function blockdrain(blocks, name)
term.clear()
term.setCursorPos(1,1)
for i = 1, blocks do
print("Making "..name.." block " ..i.. " of " ..blocks)
rs.setOutput("right", true)
sleep(0.5)
rs.setOutput("right", false)
sleep(16)
end
print(" ")
print("Done making the "..name.." blocks!")
sleep(3)
term.clear()
end

function ingotdrain(ingots, name)
term.clear()
term.setCursorPos(1,1)
for i = 1, ingots do
print("Making "..name.." ingot " ..i.. " of " ..ingots)
redstone.setOutput("left", true)
sleep(0.5)
redstone.setOutput("left", false)
sleep(6)
end
print(" ")
print("Done making the "..name.." ingots!")
sleep(3)
term.clear()
end

while true do
  term.setCursorPos(1,1)
  term.clear()
  print("Waiting for a message...")
  local senderId, message, protocol = rednet.receive()

  if message == "drain" then
    rednet.send(14,"starting") --send message to put pocket in pause
    term.clear()
    term.setCursorPos(1,1)
    print("Starting to drain!")

    local details = sense.getTargetDetails("1,-1,-2")

    for a,v in ipairs(details.Tanks) do
      if v.Name then
      local st = string.find(v.Name,".molten")
      local name = string.sub(v.Name,1,st-1)

      totalblocks = math.floor(v.Amount / block)
      totalingots = math.floor((v.Amount % block) / ingot)
      term.clear()
      term.setCursorPos(1,1)
      print("Total Blocks of "..name.." going to be made: " ..totalblocks)
      print(" ")
      print("Total Ingots of "..name.." going to be made: " ..totalingots)
      print("Starting in 5 seconds...")
      sleep(5)
        if totalblocks >= 1 then
          blockdrain(totalblocks,name)
        end
      sleep(2)
        if totalingots >= 1 then
          ingotdrain(totalingots, name)
        end
      end
    end
    rednet.send(14,"done") -- unpause the pocket computer
  end

  if message == "amounts" then
    term.clear()
    term.setCursorPos(1,1)
    print("Sending information to requester!")
    sleep(2)
    local details = sense.getTargetDetails("1,-1,-2")
    local messages = { }
    for a,v in ipairs(details.Tanks) do
      if v.Name then
        local st = string.find(v.Name, ".molten")
        local name = string.sub(v.Name,1,st-1)
        local blocks = math.floor(v.Amount/block)
        local ingots = math.floor((v.Amount % block) / ingot)
        local sending = "Material: "..name.."\nTotal Blocks: "..blocks.."\nTotal Ingots: "..ingots.."\n---------------","amounts"
        table.insert(messages, sending)
        sleep(2)
      end
    end
    msg = textutils.serialize(messages)
    --print(msg)debugging
    rednet.send(14,msg)
    sleep(2)
  end
  senderId, message, protocol = nil
  sleep(2)
end