BatteryUser

--name BatteryUser
--version 1.0a
local version = "1.0a"

local side = {}
	side.batbox = 0
	side.chest = 4
local batteryId = {}
	batteryId.full = 38041
	batteryId.empty = 5272

local inventory = {}
	inventory.batbox = "Empty"
	inventory.chest = false
	inventory.chestFull = 0
	inventory.chestEmpty = 0

local function output(str)
	term.clear()
	term.setCursorPos(1,1)
	print(string.format("BattUsr (v%s)",version))
	print("By BigTwisty")
	print(str)
end

local sorter = peripheral.wrap("back")

--local monitor = peripheral.wrap("top")
--term.redirect(monitor)
--monitor.setTextScale(0.5)

while true do
	inventory.batbox = "Not Found..."
	x = sorter.list(side.batbox)
	if x ~= nil then
		inventory.batbox = "Empty"
		for id,qty in pairs(x) do
			if id == batteryId.full then
				inventory.batbox = "Full"
			else
				inventory.batbox = "Discharging"
			end
		end
	end

	inventory.chestFull = 0
	inventory.chestEmpty = 0

	x = sorter.list(side.chest)
	if x == nil then
		inventory.chest = false
	else
		inventory.chest = true
		for id,qty in pairs(x) do
			if id == batteryId.full then
				inventory.chestFull = inventory.chestFull + qty
			elseif id == batteryId.empty then
				inventory.chestEmpty = inventory.chestEmpty + qty
			end
		end
	end


	output(string.format("\n-- Status:\nBatbox: %s",
		inventory.batbox))
	write(string.format("-- Inventory:\nCharged: %d\nEmpty: %d\n",
		inventory.chestFull,
		inventory.chestEmpty))

	if inventory.batbox == "Discharging" then
		sorter.extract(side.batbox, batteryId.empty, side.chest, 1)
	elseif inventory.batbox == "Empty" then
		sorter.extract(side.chest, batteryId.full, side.batbox, 1)
	end

	os.sleep(0.3)

end