main.lua

os.sleep(2)

rednet.open("left")
speaker = peripheral.wrap("bottom")
m = peripheral.wrap("right")
m.setTextScale(5)
m.setTextColor(colors.white)
m.setBackgroundColor(colors.black)
m.clear()

button = {}
currentStatus = "up"
frameController = 456
reactorComputer = 458
alarm = false
reacteur = false
reactemp = 0
reacout = 0
reacinv = {}
warnedAboutOpenReac = false
warnedAboutUnexpectedWork = false
isDrawModeMissing = true
modifyDrawModeT = 0
isModifyDrawmodeTimerDone = true
isMoving = false
currentMode = 0

local f = fs.open("nominal","r")
actualNom = textutils.unserialize(f.readAll())
f.close()

s = "Wait"
messages = {"", "", "", "", "", "", "", "", "", ""}
mx,my = m.getSize()
m.setCursorPos(math.ceil(mx/2)-math.ceil(#s/2), math.ceil(my/2))
m.write(s)
rednet.send(frameController, "up")
local w = true
while w do
	e,a,b = os.pullEvent("rednet_message")
	if a == frameController and b == "doneMoving" then w = false end
end

redstone.setOutput("back", alarm)

function logMessage(msg) 
	local t = {}
	t.level = "message"
	t.msg = msg
	table.insert(messages, t)
	print(textutils.serialize(messages))
	redraw()
end

function logWarning(msg) 
	speaker.playNote(0,18)
	local t = {}
	t.level = "warning"
	t.msg = msg
	table.insert(messages, t)
	redraw()
end

function logAlert(msg) 
	enableAlarm()
	local t = {}
	t.level = "alert"
	t.msg = msg
	table.insert(messages, t)
	redraw()
end

function clear()
	m.setTextScale(1)
	setColorScheme()
	m.clear()
	mx,my = m.getSize()
end

function disableButton(name) 
	if button[name] then button[name]["valid"] = false end
	redraw()
end
function drawButtons()
	for n,d in pairs(button) do
		if d["valid"] == true then
			if d["active"] then m.setBackgroundColor(buttonActiveB) m.setTextColor(buttonActiveT)
			else m.setBackgroundColor(buttonInactiveB) m.setTextColor(buttonInactiveT) end
			for i=d["ymin"], d["ymax"] do
				local str = ""
				for j=d["xmin"], d["xmax"] do
					str = str .. " "
				end
				m.setCursorPos(d["xmin"], i)
				m.write(str)
			end
			m.setCursorPos(math.ceil((d["xmin"]+d["xmax"])/2)-math.ceil(#n/2), math.ceil((d["ymin"]+d["ymax"])/2))
			m.write(n)
		end
	end
end

function redraw()
	clear()
	for i=1, mx do
		m.setCursorPos(i,1)
		m.write("-")
		m.setCursorPos(i,my)
		m.write("-")
	end
	for i=2, my-1 do
		m.setCursorPos(1, i)
		m.write("|")
		m.setCursorPos(mx, i)
		m.write("|")
		m.setCursorPos(math.ceil(mx/3), i)
		m.write("|")
	end
	for i=math.ceil(mx/3)+1, mx-1 do
		m.setCursorPos(i, my-7)
		m.write("-")
	end
	m.setCursorPos(math.ceil(mx/3)+2, my-6)
	m.write("Derniers messages")
	local cnt = 6
	for i=#messages, #messages-3, -1 do
		cnt = cnt - 1
		local cmsg = messages[i]
		if cmsg.level == "message" then
			setColorScheme()
		elseif cmsg.level == "warning" then
			m.setBackgroundColor(colors.orange)
			m.setTextColor(colors.black)
		elseif cmsg.level == "alert" then
			if alarm then
				m.setBackgroundColor(colors.black)
				m.setTextColor(colors.red)
			else
				m.setBackgroundColor(colors.red)
				m.setTextColor(colors.white)
			end
		end
		local oldx,oldy = m.getCursorPos()
		m.setCursorPos(math.ceil(mx/3)+1, my-cnt)
		if cmsg.msg then m.write(cmsg.msg) end
		setColorScheme()
		m.setCursorPos(oldx,oldy)
	end
	if reacteur then
		m.setTextColor(colors.green)
		m.setCursorPos(mx-2,2)
		m.write("On")
	else
		if alarm then m.setTextColor(colors.black) else m.setTextColor(colors.red) end
		m.setCursorPos(mx-3,2)
		m.write("Off")
	end
	local temp = reactemp.." degres"
	m.setCursorPos(mx-#temp,3)
	m.write(temp)	
	local out = reacout.." EU/t"
	m.setCursorPos(mx-#out,4)
	m.write(out)	
	local baseX = math.ceil(mx/3)+2
	local baseY = 2
	m.setTextColor(colors.gray)
	for i=baseX, baseX+19 do
		m.setCursorPos(i, baseY)
		m.write("-")
		m.setCursorPos(i, baseY+7)
		m.write("-")
	end
	for i=baseY+1, baseY+6 do
		m.setCursorPos(baseX, i)
		m.write("|")
		m.setCursorPos(baseX+19, i)
		m.write("|")
	end
	print(reactemp)
	local asd = ""
	local cnt = 1
	for cY = baseY+1, baseY+6 do
		for cX = baseX+1, baseX+17,2 do
			m.setCursorPos(cX, cY)
			local cE = reacinv[cnt]
			cnt = cnt+1
			if currentMode == 0 then
				if cE ~= nil then 
					if cE.Name == "item.reactorHeatSwitchDiamond" then
						m.setBackgroundColor(colors.orange)
						m.setTextColor(colors.white)
						m.write("<>")
					elseif cE.Name == "item.reactorVentDiamond" then
						m.setBackgroundColor(colors.lightBlue)
						m.setTextColor(colors.white)
						m.write("VA")
					elseif cE.Name == "item.360k_NaK_Coolantcell" then
						m.setBackgroundColor(colors.green)
						m.setTextColor(colors.white)
						m.write("Na")
					elseif cE.Name == "item.360k_Helium_Coolantcell" then
						m.setBackgroundColor(colors.yellow)
						m.setTextColor(colors.black)
						m.write("He")
					elseif cE.Name == "item.reactorCoolantSix" then
						m.setBackgroundColor(colors.blue)
						m.setTextColor(colors.white)
						m.write("Co")
					elseif cE.Name == "item.Quad_Plutoniumcell" then
						m.setBackgroundColor(colors.lime)
						m.setTextColor(colors.black)
						m.write("Pl")
					elseif cE.Name == "item.reactorUraniumSimple" then
						m.setBackgroundColor(colors.lime)
						m.setTextColor(colors.black)
						m.write("Ur")
					else
						local lolcnt = cnt-1
						if actualNom[lolcnt] ~= nil then
							local lolnom = actualNom[lolcnt]
							print(lolnom)
							print(lolcnt)
							if isDrawModeMissing then
								m.setBackgroundColor(colors.black)
								m.setTextColor(colors.white)
								m.write("??")
							else
								if lolnom == "item.reactorHeatSwitchDiamond" then
									m.setBackgroundColor(colors.orange)
									m.setTextColor(colors.white)
									m.write("<>")
								elseif lolnom == "item.reactorVentDiamond" then
									m.setBackgroundColor(colors.lightBlue)
									m.setTextColor(colors.white)
									m.write("VA")
								elseif lolnom == "item.360k_NaK_Coolantcell" then
									m.setBackgroundColor(colors.green)
									m.setTextColor(colors.white)
									m.write("Na")
								elseif lolnom == "item.360k_Helium_Coolantcell" then
									m.setBackgroundColor(colors.yellow)
									m.setTextColor(colors.black)
									m.write("He")
								elseif lolnom == "item.reactorCoolantSix" then
									m.setBackgroundColor(colors.blue)
									m.setTextColor(colors.white)
									m.write("Co")
								elseif lolnom == "item.Quad_Plutoniumcell" then
									m.setBackgroundColor(colors.lime)
									m.setTextColor(colors.black)
									m.write("Pl")
								elseif lolnom == "item.reactorUraniumSimple" then
									m.setBackgroundColor(colors.lime)
									m.setTextColor(colors.black)
									m.write("Ur")
								end
							end
						end
					end			
				end
			elseif currentMode == 1 then
				if cE ~= nil then
					if cE["nbt"] ~= nil then
						local h = cE.nbt.heat
						if h ~= nil then
							if h > reactemp+(5*reactemp) then
								m.setBackgroundColor(colors.red)
								m.setTextColor(colors.red)
							elseif h > reactemp then
								m.setBackgroundColor(colors.orange)
								m.setTextColor(colors.orange)
							elseif h < reactemp-(5*reactemp) then
								m.setBackgroundColor(colors.blue)
								m.setTextColor(colors.blue)
							elseif h <= reactemp then
								m.setBackgroundColor(colors.lightBlue)
								m.setTextColor(colors.lightBlue)
							end

							asd = asd .. h .. " "
							m.write("--")
						end
					end
				end
			elseif currentMode == 2 then
				if cE ~= nil then
					if cE.DamageValue ~= nil then
						local n = cE.Name
						local d = cE.DamageValue
						if n == "item.360k_Helium_Coolantcell" or n == "item.360k_NaK_Coolantcell" then
							if d < 80 then
								m.setBackgroundColor(colors.lightBlue)
								m.setTextColor(colors.lightBlue)
							elseif d >= 80 and d < 90 then
								m.setBackgroundColor(colors.green)
								m.setTextColor(colors.green)
							elseif d >= 90 and d < 97 then
								m.setBackgroundColor(colors.orange)
								m.setTextColor(colors.orange)
							elseif d >= 97 then
								m.setBackgroundColor(colors.red)
								m.setTextColor(colors.red)
							end
							m.write("--")
						end
					end
				end
			end
		end
	end
	print(asd)
	drawButtons()
end

function setTable(name, func, xmin, xmax, ymin, ymax)
	button[name] = {}
	button[name]["func"] = func
	button[name]["active"] = false
	button[name]["valid"] = true
	button[name]["xmin"] = xmin
	button[name]["ymin"] = ymin
	button[name]["xmax"] = xmax
	button[name]["ymax"] = ymax
	redraw()
end

function createButtons()
	setTable("Reacteur", toggleReacteur, 3, 19, 2, 6)
	setTable("Ouvrir", openPanel, 3, 19, 8, 12)
	setTable("Sauver", saveReacteur, 23, 31, 10, 10)
	setTable("Mode", modeButton, 34, 42, 10, 10)
end

function setColorScheme()
	if alarm then
		m.setBackgroundColor(colors.red)
		m.setTextColor(colors.white)
		buttonInactiveB = colors.black
		buttonActiveB = colors.orange
		buttonInactiveT = colors.white
		buttonActiveT = colors.white
	else
		m.setBackgroundColor(colors.black)
		m.setTextColor(colors.white)
		buttonInactiveB = colors.red
		buttonActiveB = colors.green
		buttonInactiveT = colors.white
		buttonActiveT = colors.white
	end
end

function enableAlarm()
	redstone.setOutput("back", true)
	alarm = true
	setTable("Reset alarme", disableAlarm, 3, 19, 14, 18)
	redraw()
end

function disableAlarm()
	disableButton("Reset alarme")
	redstone.setOutput("back", false)
	alarm = false
	redraw()
end

function saveReacteur()
	local nom = {}
	for k,v in pairs(reacinv) do
		table.insert(nom, v.Name)
	end
	local f = fs.open("nominal","w")
	f.write(textutils.serialize(nom))
	f.close()
	local f = fs.open("nominal","r")
	actualNom = textutils.unserialize(f.readAll())
	f.close()
	logMessage("Sauvegarde effectuee")
end

function toggleReacteur(button)
	if not reacteur then
		local nom = {}
		for k,v in pairs(reacinv) do
			table.insert(nom, v.Name)
		end
		local ok = true
		local invalid = {}
		local hecells = 0
		for k,v in pairs(nom) do
			if v == "item.360k_Helium_Coolantcell" then hecells = hecells+1 end
			if v ~= actualNom[k] then
				ok = false
				table.insert(invalid, k)
			end
		end
		if not ok then
			logWarning("Configuration invalide")
		end
		print(hecells)
		if hecells < 9 then
			logWarning("Helium manquant")
			return
		end
	end
	if currentStatus == "down" then 
		logWarning("Reacteur desactive: ouvert")
		return
	end
	reacteur = not reacteur
	if button then button["active"] = reacteur end
	redstone.setOutput("top", reacteur)
	if reacteur == true then logMessage("Reacteur on")
	else logMessage("Reacteur off") end
end

function openPanel()
	if isMoving then return end
	isMoving = true
	disableButton("Ouvrir")
	disableButton("Reacteur")
	if reacteur == true then 
		toggleReacteur(nil) 
		logWarning("Reacteur desactive auto.")
	end
	rednet.send(frameController, "down")
end

function closePanel()
	if isMoving then return end
	isMoving = true
	disableButton("Fermer")
	rednet.send(frameController, "up")
end

function doneMoving()
	isMoving = false
	if currentStatus == "up" then
		currentStatus = "down"
		setTable("Fermer", closePanel, 3, 19, 8, 12)
	else
		currentStatus = "up"
		setTable("Ouvrir", openPanel, 3, 19, 8, 12)
		setTable("Reacteur", toggleReacteur, 3, 19, 2, 6)
	end
end

function checkxy(x, y)
	for name, data in pairs(button) do
		if y>=data["ymin"] and  y <= data["ymax"] then
			if x>=data["xmin"] and x<= data["xmax"] and data["valid"] == true then
				data["func"](data)
				print(name)
				return
			end
		end
	end
end

function modeButton()
	currentMode = currentMode + 1
	if currentMode == 3 then currentMode = 0 end
	redraw()
end

createButtons()
while true do
	redraw()
	local e,a,b,c = os.pullEvent()
	isDrawModeMissing = not isDrawModeMissing
	if e == "monitor_touch" then checkxy(b,c) sleep(0.1)
	elseif e == "rednet_message" then
		if a == reactorComputer then
			local t = textutils.unserialize(b)
			reactemp = t.heat
			reacout = t.out
			setColorScheme()
			if t.on and not reacteur and not warnedAboutUnexpectedWork then logWarning("Fonctionnement imprevu") warnedAboutUnexpectedWork = true end
			if not t.on and warnedAboutUnexpectedWork then logWarning("Retour a la normale") warnedAboutUnexpectedWork = false end
			if t.on and warnedAboutUnexpectedWork then m.setCursorPos(mx-6,5) m.write("Erreur") end
			if t.on and currentStatus ~= "up" and not warnedAboutOpenReac then warnedAboutOpenReac = true logAlert("Reacteur ouvert") closePanel() end
			if warnedAboutOpenReac and currentStatus == "up" then logMessage("Panneau ferme") disableAlarm() warnedAboutOpenReac = false end

			if reactemp > 3000 and reacteur then
				logAlert("Reacteur en surchauffe")
				toggleReacteur(button["Reacteur"])
			end
			reacinv = t.inv
		elseif a == frameController and b == "doneMoving" then
			doneMoving()
		end
	end
end