Mekanism OpenComputers Fusion Reactor Control Script

fusion.cfg

-- On/Off Switch Input
in_enable = {address = "", side = 0}
 
-- Charge Laser Output
out_charge = {address = "", side = 0}

-- Laser Charge Input
in_charge = {address = "", side = 0}

-- Fire Laser Output
out_laser = {address = "", side = 0}

-- Reactor Status Output
out_status = {address = "", side = 0}

-- Mekanism Fusion Reactor
mk_reactor = {address = ""}

fusion.lua

component = require("component")
inet = require("internet")
fs = require("filesystem")
term = require("term")


config_dir = "/etc/mk-fusion/"
config_file = "fusion.cfg"
in_enable = nil
out_charge = nil
in_charge = nil
out_laser = nil
out_status = nil
mk_reactor = nil
local proxied_components = {"in_enable", "out_charge", "in_charge", "out_laser", "out_status", "mk_reactor"}
config_path = config_dir .. config_file

function defined(var)
	for k, _ in pairs(_G) do
	    if k == var then
	    	return true
		end
 	end
end

function http_get(uri)
	local request = inet.request(uri)
	if not request.finishConnect() then
		return nil
	end
	local response_code, _, headers = request.response()
	response_code = math.floor(response_code)
	if headers["Content-Length"] == nil then
		return nil
	end
	local content_length = tonumber(headers["Content-Length"][1])
	body = request.read(content_length)
	return {response_code = response_code, headers = headers, body = body}
end


function loadConfig()
	-- Check if config file exists, if not, download it
	if not fs.exists(config_path) then
		if fetchDefaultConfig() then
			print("The default config file has been downloaded to: " .. config_path)
			print("Please edit it for your configuration")
		else
			print("Failed to download default config file!")
		end
		return false
	end

	-- Load config file
	config = {}
	local f, err = loadfile(config_path, "t", config)
	if not f then
		print("There was an error loading the config file.")
		print("Please check the config syntax.")
		print("\nError details:")
		print(err)
		return false
	end

	-- Load config from loaded config file
	print("Loading config file '" .. config_file .. "'")
	f()
	for k, v in pairs(config) do
		_G[k] = v
	end
	-- Proxy components
	for _, var_name in pairs(proxied_components) do
		local periph = config[var_name]
		local comp = component.proxy(periph.address)
		assert(comp, "Could not connect to " .. var_name .. " at address '" .. periph.address .. "'\n Check config file!")
		periph.component = comp
		_G[var_name] = periph
	end
	print("Configuration successfully loaded!")
end

function saveURI(uri, path)
	local request = http_get(uri)
	if request == nil or request.response_code ~= 200 then
		return false
	end
	local output_file = io.open(path, "w")
	output_file:write(request.body)
	output_file:close()
	return true
end

function fetchDefaultConfig()
	if not fs.exists(config_dir) then
		fs.makeDirectory(config_dir)
	end
	return saveURI("https://gist.githubusercontent.com/huwcbjones/5d1074fac18ca6e16dfe8c42eb6cb852/raw/fusion.cfg", config_path)
end

function setOutputState(component, state)
	if not component or not component.component then
		return
	end
	local value = 0
	if state then
		value = 16
	end
	component.component.setOutput(component.side, value)
end

function getOutputState(component)
	if not component or not component.component then
		return
	end
	local value = component.component.getOutput(component.side)
	return value > 8
end

function getInputState(component, raw_value)
	if raw_value == nil then
		raw_value = false
	end

	if not component or not component.component then
		return
	end
	local value = component.component.getInput(component.side)

	if raw_value then
		return value
	end
	return value > 0
end

function reset()
	setOutputState(out_status, false)
	setOutputState(out_charge, false)
	setOutputState(out_laser, false)
	-- setOutputState(out_elecmagnets, false)
	-- local reactorTemperature = getReactorTemperature()
	-- if reactorTemperature>= 5 then
	-- 	setStatus("Cooling " .. string.format("%.0fK", reactorTemperature))
	-- else
	-- 	setStatus("Off")
	-- end
end

function shouldPowerUp()
	return getInputState(in_enable)
end

-- function electromagnetsPowered()
-- 	local isPowered = getOutputState(out_elecmagnets, true)
-- 	local problem = nc_reactor.component.getProblem()
-- 	return problem ~= "E-magnets not Powered" and isPowered
-- end

function isReactorRunning()
	return mk_reactor.component.isIgnited()
end

-- function getReactorTemperature()
-- 	return nc_reactor.component.getTemperature()
-- end

function getReactorPower()
	return math.floor(mk_reactor.component.getProducing() / 2.5)
end

-- function isCoreHotEnough()
-- 	return getReactorTemperature() >= 8000
-- end

function setStatus(str)
	-- component.screen_controller.setText("nc_rf_out", str, 0xffffff)
end

function reactorHasFuel()
	-- local fuel_a = nc_reactor.component.getFirstFusionFuel()
	-- local fuel_b = nc_reactor.component.getSecondFusionFuel()
	-- return fuel_a ~= "Empty" and fuel_b ~= "Empty"
	return false
end

-- function powerOnElectromagnets()
-- 	setOutputState(out_elecmagnets, true)
-- 	local c = 0
-- 	while not electromagnetsPowered() do
-- 		os.sleep(1)
-- 		if not shouldPowerUp() then
-- 			return false
-- 		end
-- 		local time = string.format("% 2d", c)
-- 		term.write("\rWaiting for electromagnets to power up... " .. time)
-- 		setStatus("Powering e-magnets " .. time)
-- 		c = c + 1
-- 	end
-- 	term.clearLine()
-- 	return true
-- end

-- function preheatCore()
-- 	setOutputState(out_preheat, true)
-- 	local c = 0
-- 	while not isCoreHotEnough() do
-- 		os.sleep(1)
-- 		if not shouldPowerUp() then
-- 			return false
-- 		end
-- 		local core_heat = string.format("% 5.0fK/% 5d]", getReactorTemperature(), 8000)
-- 		term.write("\rWaiting for core to heat up... [" .. core_heat .. "]")
-- 		setStatus("Prheating " .. core_heat)
-- 		c = c + 1
-- 	end
-- 	term.clearLine()
-- 	return true
-- end

-- function powerOnReactor()
-- 	if not shouldPowerUp() then
-- 		return
-- 	end

-- 	if not reactorHasFuel() then
-- 		print("Reactor does not have any fuel!")
-- 		print("Please add fuel before continuing")
-- 		return false
-- 	end

-- 	print("Powering up reactor...")
-- 	setStatus("Powering up...")

-- 	if not electromagnetsPowered() then
-- 		print("Turning on electromagnets...")
-- 		if not powerOnElectromagnets() then
-- 			print("Aborting power up!")
-- 			return false
-- 		end
-- 	end
-- 	print("Electromagnets powered up!")

-- 	if not isCoreHotEnough() then
-- 		print("Preheating core...")
-- 		if not preheatCore() then
-- 			print("Aborting power up!")
-- 			return false
-- 		end
-- 	end
-- 	print("Core preheated!")

-- 	print("Turning on reactor...")
-- 	setOutputState(out_core, true)
-- 	setOutputState(out_preheat, false)
-- 	print("Reactor powered up!")
-- 	return isReactorRunning()
-- end

function main_loop()
	while true do
		os.sleep(0.5)
		if not shouldPowerUp() then
			reset()
		elseif not isReactorRunning() then
			if not reactorHasFuel() then
				reset()
				setStatus("NO FUEL")
			elseif not powerOnReactor() then
				reset()
				setStatus("Error powering up")
			end
			os.sleep(1)
		else
			setStatus("Power " .. string.format("%.0f/t", getReactorPower()))
			if not getOutputState(out_status) then
				setOutputState(out_status, true)
			end
		end
	end
end

loadConfig()
reset()

-- main_loop()