rednet.open("top")

local m = peripheral.wrap("right")
m.setTextScale(0.5)
m.clear()

local w, h = m.getSize()
local isActive = false
local euStored = 0
local euCapacity = 0
local heat = 0
local heatMax = 0
local euOutput = 0
local autoShutoff = 0
local lastAutoShutoff = 0
local autoShutoffBar = "[                                 ]"
local autoShutoffBarLength = 33
local autoShutoffBarPercentPerChar = autoShutoffBarLength / 100.0
local relayID = 18
local sentOffSignal = false

function DrawInfoBox()
	term.redirect(m)
	paintutils.drawLine(3,3, 4, 3, colors.white)
	paintutils.drawLine(11,3, ((w/5)*3) - 2, 3, colors.white)
	paintutils.drawLine(3,3, 3, h - 2, colors.white)
	paintutils.drawLine(3,h - 2, ((w/5)*3) - 2, h - 2, colors.white)
	paintutils.drawLine(((w/5)*3) - 2,3, ((w/5)*3) - 2, h - 2, colors.white)
	m.setBackgroundColor(colors.black)
	m.setCursorPos(6,3)
	m.write("INFO")
end

function DrawControlsBox()
	term.redirect(m)
	paintutils.drawLine(((w/5)*3), 3, ((w/5)*3)+1, 3, colors.white)
	paintutils.drawLine(((w/5)*3), 3, ((w/5)*3), ((h/5)*3) - 2, colors.white)
	paintutils.drawLine(((w/5)*3), ((h/5)*3) - 2, w - 2, ((h/5)*3) - 2, colors.white)
	paintutils.drawLine(((w/5)*3) + 12, 3, w - 2, 3, colors.white)
	paintutils.drawLine(w - 2, 3, w - 2, ((h/5)*3) - 2, colors.white)
	m.setBackgroundColor(colors.black)
	m.setCursorPos(((w/5)*3)+3, 3)
	m.write("CONTROLS")
end

function DrawStatsBox()
	term.redirect(m)
	paintutils.drawLine(((w/5)*3), ((h/5)*3), ((w/5)*3)+1, ((h/5)*3), colors.white)
	paintutils.drawLine(((w/5)*3) + 9, ((h/5)*3), w - 2, ((h/5)*3), colors.white)
	paintutils.drawLine(((w/5)*3), ((h/5)*3), (w/5)*3, 35, colors.white)
	paintutils.drawLine(((w/5)*3), h - 2, w - 2, h - 2, colors.white)
	paintutils.drawLine(w - 2, ((h/5)*3), w - 2, h - 2, colors.white)
	m.setBackgroundColor(colors.black)
	m.setCursorPos(((w/5)*3) + 3, ((h/5)*3))
	m.write("STATS")
	m.setCursorPos(4, 4)
end

local onButtonX = ((w/5)*3) + 2
local onButtonY = 5
local onButtonXX = w - (((w-2) - ((w/5)*3))/2) - 3
local onButtonYY = 7

function DrawOnButton()
	term.redirect(m)
	local x = ((w/5)*3) + 2
	local y = 5
	local xx = w - (((w-2) - ((w/5)*3))/2) - 3
	local yy = 7
	local color = 0
	if isActive then 
		color = colors.green 
	else
		color = colors.red
	end
	paintutils.drawFilledBox(onButtonX, onButtonY, onButtonXX, onButtonYY, color)
	m.setTextColor(colors.white)
	m.setCursorPos(onButtonX + 8, onButtonY + 1)
	m.write("ON")
	m.setBackgroundColor(colors.black)
end

local offButtonX = ((w/5)*3) + (((w-2) - ((w/5)*3))/2) + 1
local offButtonY = 5
local offButtonXX = w - 4
local offButtonYY = 7

function DrawOffButton()
	term.redirect(m)
	color = 0
	if isActive then 
		color = colors.red 
	else
		color = colors.green
	end
	paintutils.drawFilledBox(offButtonX, offButtonY, offButtonXX, offButtonYY, color)
	m.setTextColor(colors.white)
	m.setCursorPos(offButtonX + 7, offButtonY + 1)
	m.write("OFF")
	m.setBackgroundColor(colors.black)
end

function DrawStats()
	term.redirect(m)
	local x = ((w/5)*3) + 2
	local y = ((h/5)*3) + 2
	m.setCursorPos(x, y)
	m.write("ENERGY OUTPUT:      " .. euOutput)
	m.setCursorPos(x + 31, y)
	m.write("EU/t")
	m.setCursorPos(x, y+3)  
	m.write("ENERGY STORED: " .. euStored .. "/" .. euCapacity .. "")
	m.setCursorPos(x+33, y+3)  
	m.write("EU")
	m.setCursorPos(x, y+6)
	m.write("HEAT         :      " .. heat)
	m.setCursorPos(x+33, y+6)
	m.write("hU")
	m.setCursorPos(x, y+9)
	m.write("MAX HEAT     :      " .. heatMax)
	m.setCursorPos(x+33, y+9)
	m.write("hU")
end

function DrawHeatBar()
	term.redirect(m)
	local x = 5
	local y = 6
	local xx = ((w/5)*3) - 4
	local yy = 12
	local barLength = 51.0;
	m.setCursorPos(x, y-1)
	m.setBackgroundColor(colors.black)
	m.write("HEAT / MAX")
	
	paintutils.drawFilledBox(x, y, xx, yy, colors.lightGray)
	
	if heat > 0 and heatMax > 0 then
		pixelsPerHeatUnit = barLength / heatMax;
		progressX = math.ceil(pixelsPerHeatUnit * heat)
		paintutils.drawFilledBox(x, y, x+progressX, yy, colors.green)
	end
	
	m.setBackgroundColor(colors.black)
end

function DrawEUOutputBar()
	term.redirect(m)
	local x = 5
	local y = 16
	local xx = ((w/5)*3) - 4
	local yy = 22
	local barLength = 51.0
	pixelsPerEU = barLength / 2048.0
	m.setCursorPos(x, y-1)
	
	m.setBackgroundColor(colors.black)
	m.write("EU OUTPUT / TICK")
	
	paintutils.drawFilledBox(x, y, xx, yy, colors.lightGray)
	if euOutput > 0 then
		progressX = math.ceil(euOutput * pixelsPerEU)
		paintutils.drawFilledBox(x, y, x+progressX, yy, colors.green)
	end
	
	m.setBackgroundColor(colors.black)
end

function DrawEUProgressBar()
	term.redirect(m)
	local x = 5
	local y = 27
	local xx = ((w/5)*3) - 4
	local yy = 33
	local barLength = 51.0
	m.setCursorPos(x, y-1)
	
	m.setBackgroundColor(colors.black)
	m.write("EU STORED / CAPACITY")
	
	paintutils.drawFilledBox(x, y, xx, yy, colors.lightGray)
	if euStored > 0 and euCapacity > 0 then
		pixelsPerEU = barLength / euCapacity
		progressX = math.ceil(euStored * pixelsPerEU)
		paintutils.drawFilledBox(x, y, x+progressX, yy, colors.green)
	end
	m.setBackgroundColor(colors.black)
end

local shutoffButtonY, shutoffButtonYY = 0,0
local minusTenX, minusTenXX = 0,0
local minusFiveX, minusFiveXX = 0,0
local plusFiveX, plusFiveXX = 0,0
local plusTenX, plusTenXX = 0,0

function DrawAutoShutoff()
	local x = ((w/5)*3) + (((w-2) - ((w/5)*3))/4) + 4
	local y = 11
	local xx = w - (((w-2) - ((w/5)*3))/2) - 13
	local yy = 13
	
	m.setCursorPos(x, y-2)
	m.setBackgroundColor(colors.black)
	m.write("AUTO-SHUTOFF")
	x = ((w/5)*3) + 3
		
	shutoffButtonY = y
	shutoffButtonYY = yy
	minusTenX = x
	minusTenXX = xx
	minusFiveX = xx + 4
	minusFiveXX = xx + (xx - x) + 4
	plusFiveX = xx + (xx - x) + 8
	plusFiveXX = xx + ((xx - x)*3) + 3
	plusTenX = xx + ((xx - x)*3) + 7
	plusTenXX = xx + ((xx - x)*5) + 2
	
	paintutils.drawFilledBox(minusTenX, shutoffButtonY, minusTenXX, shutoffButtonYY, colors.purple)
	m.setCursorPos(minusTenX + 1, shutoffButtonY + 1)
	m.write("-10%")
	
	paintutils.drawFilledBox(minusFiveX, shutoffButtonY, minusFiveXX, shutoffButtonYY, colors.purple)
	m.setCursorPos(minusFiveX + 1, shutoffButtonY + 1)
	m.write("-5%")
	
	paintutils.drawFilledBox(plusFiveX, shutoffButtonY, plusFiveXX, shutoffButtonYY, colors.purple)
	m.setCursorPos(plusFiveX + 1, shutoffButtonY + 1)
	m.write("+5%")
	
	paintutils.drawFilledBox(plusTenX, shutoffButtonY, plusTenXX, shutoffButtonYY, colors.purple)
	m.setCursorPos(plusTenX + 1, shutoffButtonY + 1)
	m.write("+10%")
	
	m.setBackgroundColor(colors.black)
	m.setCursorPos(minusFiveXX + 1, shutoffButtonYY + 3)
	m.write(autoShutoff .. " %")
	
	HandleAutoShutoffProgressBar()
	m.setCursorPos(x - 1, shutoffButtonYY + 4)
	m.write(autoShutoffBar)
end

function HandleAutoShutoffProgressBar()
	if lastAutoShutoff ~= autoShutoff then
		local progress = math.ceil(autoShutoffBarPercentPerChar * autoShutoff) + 1
		local newBar = ""
		local toConcat
		
		
		for i = 1, autoShutoffBarLength + 2 do
			if i == 1 then
				toConcat = '['
			elseif i <= progress then
				toConcat = '-'
			elseif i == autoShutoffBarLength + 2 then
				toConcat = ']'
			else
				toConcat = ' '
			end
			
			newBar = (newBar .. toConcat)
		end
		
		autoShutoffBar = newBar
	end
end

function HandleTouch()
	while true do
		local _, _, x, y = os.pullEvent("monitor_touch")
		m.setCursorPos(4,4)
		if x >= onButtonX and x <= onButtonXX and y >= onButtonY and y <= onButtonYY then 
			rednet.send(relayID, "<on>")
		elseif x >= offButtonX and x <= offButtonXX and y >= offButtonY and y <= offButtonYY then
			rednet.send(relayID, "<off>")
		elseif x >= minusTenX and x <= minusTenXX and y >= shutoffButtonY and y <= shutoffButtonYY then
			if autoShutoff - 10 < 0 then autoShutoff = 0
			else autoShutoff = autoShutoff - 10 end
		elseif x >= minusFiveX and x <= minusFiveXX and y >= shutoffButtonY and y <= shutoffButtonYY then
			if autoShutoff - 5 < 0 then autoShutoff = 0
			else autoShutoff = autoShutoff - 5 end
		elseif x >= plusFiveX and x <= plusFiveXX and y >= shutoffButtonY and y <= shutoffButtonYY then
			if autoShutoff + 5 > 100 then autoShutoff = 100
			else autoShutoff = autoShutoff + 5 end
		elseif x >= plusTenX and x <= plusTenXX and y >= shutoffButtonY and y <= shutoffButtonYY then
			if autoShutoff + 10 > 100 then autoShutoff = 100
			else autoShutoff = autoShutoff + 10 end
		end
	end
end

function AutoShutoff()
	if not isActive then sentOffSignal = false end
	if heat >= ((autoShutoff * 0.01) * heatMax) and isActive and not sentOffSignal then
		rednet.send(relayID, "<off>")
		sentOffSignal = true
	end
end

function HandleReceivedData()
	local sender, message = rednet.receive();
	m.clear()
	
	if string.find(message, "<active>") then
		if string.find(message, "false") then
			isActive = false
		else
			isActive = true
		end
	elseif string.find(message, "<eustored>") then
		euStored = tonumber(tostring(string.gsub(message, "<eustored>", "")))	
	elseif string.find(message, "<eucapacity>") then
		euCapacity = tonumber(tostring(string.gsub(message, "<eucapacity>", "")))
	elseif string.find(message, "<euoutput>") then
		euOutput = tonumber(tostring(string.gsub(message, "<euoutput>", "")))
	elseif string.find(message, "<heat>") then
		heat = tonumber(tostring(string.gsub(message, "<heat>", "")))
	elseif string.find(message, "<heatmax>") then
		heatMax = tonumber(tostring(string.gsub(message, "<heatmax>", "")))
	end
end

function MainLoop()
	while true do
		parallel.waitForAny(HandleReceivedData, HandleTouch)
		Draw()
		AutoShutoff()
		lastAutoShutoff = autoShutoff
	end
end

function Draw()
	DrawInfoBox()
	DrawHeatBar()
	DrawEUOutputBar()
	DrawEUProgressBar()
	DrawControlsBox()
	DrawOnButton()
	DrawOffButton()
	DrawAutoShutoff()
	DrawStatsBox()
	DrawStats()
end

Draw()
MainLoop()