LUA Factory

Some time ago I wrote some skeleton code designed to make some simple widgets work properly in LUA. I then turned it into a factory control system. Since then I’ve advanced that to a control system using wireless modems and remote terminals so I can have one multi-screen factory computer control remote computers that do things like monitor reactors or control spawners etc. Here is the LUA that does this in my currently simple factory in case someone finds it useful.

Main Control Computer


-- Modem Port Numbers
local version = "0.2";
local myPort = 101; -- main factory control computer
local reactPort = 102; -- reactor main control
local spawnPort = 103; -- spawn room
local turbine0Port = 104; -- turbine 0

local running = true;
local modem = peripheral.wrap("right");
local mon = "";
local HB = 5;
local lastPowerTot = 0;

local buttons = {}
local window = {}
local dirty = false;

local ReactorCycles = 0;

function round(n,dec)
local shift = 10 ^ dec;
local ret = math.floor( n * shift ) / shift;

return ret;
end

----- Button Maintainence -----
function updateButtonCalc( button )
button["tlen"] = string.len( button["text"] )
button["height"] = button["pady"] * 2 + 1
button["width"] = button["padx"] * 2 + button["tlen"]
button["xend"] = button["origx"] + button["width"] - 1
button["yend"] = button["origy"] + button["height"] - 1
button["tX"] = button["origx"] + (math.floor( button["width"] / 2 ) - math.floor( button["tlen"] / 2 )) - 1 + button["padx"]
button["tY"] = button["origy"] + math.floor( button["height"] / 2 )
end

function addButton( name, text, func, state, origx, origy, padx, pady, fore, bact, binact )
buttons[name] = {}
buttons[name]["text"] = text
buttons[name]["state"] = state
buttons[name]["defstate"] = state
buttons[name]["func"] = func
buttons[name]["origx"] = origx
buttons[name]["origy"] = origy
buttons[name]["padx"] = padx
buttons[name]["pady"] = pady
buttons[name]["foreground"] = fore
buttons[name]["bact"] = bact
buttons[name]["binact"] = binact

updateButtonCalc(buttons[name])
end

function addSimpleButton( name, text, func, origx, origy )
addButton( name, text, func, false, origx, origy, 1, 1, colors.white, colors.cyan, colors.red )
end

function addInfoButton( name, text, origx, origy )
addButton( name, text, noop, false, origx, origy, 1, 0, colors.white, colors.black, colors.black)
end

function drawButton( bData )
local tLen = bData["tlen"]
local h = bData["height"]
local w = bData["width"]
local xend = bData["xend"]
local yend = bData["yend"]
local tY = bData["tY"]
local tX = bData["tX"]

if bData["state"] == true then
mon.setBackgroundColor( bData["bact"] )
else
mon.setBackgroundColor( bData["binact"] )
end
mon.setTextColor( bData["foreground"] )

for i = bData["origy"], yend do
mon.setCursorPos( bData["origx"], i )
if i == tY then
for j = bData["origx"], (xend - tLen + 1) do
if j == tX then
mon.write(bData["text"])
else
mon.write(" ")
end
end
else
for i = bData["origx"], xend do
mon.write(" ")
end
end
end
mon.setBackgroundColor( colors.black )
end

function drawButtons()
for name,data in pairs(buttons) do
drawButton( data )
end
end

function heading( yoff, text )
w, h = mon.getSize()
mon.setCursorPos( (w-string.len(text))/2+1, yoff )
mon.write( text )
end

function mainDrawHook()
heading(1, "Factory Control v"..version)
handleReactorAuto()
end

local drawHook = mainDrawHook;

local nextClear = 0
function drawScreen( )
if nextClear < os.clock() or dirty == true then mon.clear() nextClear = os.clock() + 10 dirty = false; end drawHook() drawButtons() end function toggleButton(name) buttons[name]["state"] = not buttons[name]["state"] end --[[ for alignment, horiz and vert can have 3 states: 0 no change 1 left/top 2 right/bottom 3 center ]]-- function alignButtonInBox( button, box, horiz, vert ) local x = box["o"]["x"] local y = box["o"]["y"] if horiz > 0 then
if horiz == 1 then
button["origx"] = x
elseif horiz == 2 then
x = (x + box["w"] - 1) - button["width"]
button["origx"] = x
elseif horiz == 3 then
x = x + (box["w"] / 2)
button["origx"] = x
end
end

if vert > 0 then
if vert == 1 then
button["origy"] = y
elseif vert == 2 then
y = (y + box["h"] - 1) - button["height"]
button["origy"] = y
elseif vert == 3 then
y = y + (box["h"] / 2)
button["origy"] = y
end
end

updateButtonCalc( button )

end

function checkButtonHit( x, y )
for name, data in pairs(buttons) do
if y >= data["origy"] and y <= data["yend"] then if x >= data["origx"] and x <= data["xend"] then data["func"](name) end end end end function shutdownButtons() for name, data in pairs(buttons) do if data["state"] ~= data["defstate"] then data["func"](name) end end end --- INIT --- function initMon(side) print("Initialize monitor.."); mon = peripheral.wrap(side) --mon.setTextScale(1) mon.setBackgroundColor(colors.black) mon.setTextColor(colors.white) window["o"] = {} window["o"]["x"] = 1 window["o"]["y"] = 1 window["w"], window["h"] = mon.getSize() print(" size="..window["w"].."x"..window["h"]); end -- open our modem function initModem() modem.open( myPort ); end function fetchValueFromRemote(remote, value) modem.transmit( remote, myPort, value); local timeout = os.startTimer(HB); local retval = "i/o err"; local waiting = 1; while waiting == 1 do local event, modemSide, senderchannel, replyPort, message, senderDistance = os.pullEvent(); if event == "modem_message" then waiting = 0; retval = message; elseif event == "timer" then waiting = 0; end end os.cancelTimer(timeout); return(retval); end function fetchValueFromReactor(value) local retval = fetchValueFromRemote( reactPort, value); return(retval); end function handleEvent() local timeout = os.startTimer(HB); local e, side, x, y = os.pullEvent(); if e == "monitor_touch" then checkButtonHit( x, y ) end os.cancelTimer(timeout) end function noop() print("noop"); end function toggleReactorAuto(name) local button = buttons[name] if button["state"] == false then button["state"] = true fetchValueFromReactor("keeppow"); else button["state"] = false fetchValueFromReactor("keeppow"); end end local nextRename = 0; function toggleCows(name) local button = buttons[name] if button["state"] == false then button["state"] = true fetchValueFromRemote(spawnPort, "tcow"); else button["state"] = false fetchValueFromRemote(spawnPort, "tcow"); end end function toggleBlazes(name) local button = buttons[name] if button["state"] == false then button["state"] = true fetchValueFromRemote(spawnPort, "tblaze"); else button["state"] = false fetchValueFromRemote(spawnPort, "tblaze"); end end function toggleGrinder(name) local button = buttons[name] if button["state"] == false then button["state"] = true fetchValueFromRemote(spawnPort, "toverride"); else button["state"] = false fetchValueFromRemote(spawnPort, "toverride"); end end function waitForRemote() mon.clear() for i=1,5 do heading(10, "Waiting for remote computers..."..tostring(5-i)); sleep(1); end end function queryRemoteButtonStates() if fetchValueFromRemote( spawnPort, "cows" ) ~= 0 then buttons["spawnCows"]["state"] = true; else buttons["spawnCows"]["state"] = false; end if fetchValueFromRemote( spawnPort, "blazes" ) ~= 0 then buttons["spawnBlazes"]["state"] = true; else buttons["spawnBlazes"]["state"] = false; end if fetchValueFromRemote( spawnPort, "override" ) ~= 0 then buttons["overrideGrind"]["state"] = true; else buttons["overrideGrind"]["state"] = false; end end function resetRemotes(name) fetchValueFromReactor("reboot"); fetchValueFromRemote(spawnPort, "reboot"); waitForRemote() queryRemoteButtonStates() end function reactorControl(name) mon.clear(); initReactButtons() drawHook = reactDrawHook; end function initMainButtons() HB = 5; buttons = {} -- add the reactor auto button and set its state addSimpleButton( "reactor", "Reactor Control", reactorControl, 1, 3 ) buttons["reactor"]["bact"] = colors.green; buttons["reactor"]["binact"] = colors.green; addSimpleButton( "spawnCows", "Spawn Cows", toggleCows, 1, 7 ); addSimpleButton( "spawnBlazes", "Spawn Blazes", toggleBlazes, 1, 11 ); addSimpleButton( "overrideGrind", "Grinder Ovrd ", toggleGrinder, 1, 15 ); -- second column -- local rbl = buttons["reactor"]["xend"] + 1; -- infoBox["o"] = {} -- infoBox["o"]["x"] = rbl; -- infoBox["o"]["y"] = 3; -- infoBox["w"] = 18; -- infoBox["h"] = 12; -- addInfoButton( "rinfo", "-Reactor Info-", rbl, 3 ) -- alignButtonInBox(buttons["rinfo"], infoBox, 3, 0 ) -- addInfoButton( "powlvl", "Power: "..fetchValueFromReactor("power"), rbl, 4 ) -- alignButtonInBox(buttons["powlvl"], infoBox, 3, 0 ) -- power button addSimpleButton( "power", "(|)", powerDown, 1, 3 ) buttons["power"]["binact"] = colors.purple alignButtonInBox( buttons["power"], window, 2, 0 ) addSimpleButton( "resetremote", "(8)", resetRemotes, 1, 7 ) buttons["resetremote"]["binact"] = colors.purple alignButtonInBox( buttons["resetremote"], window, 2, 0 ) queryRemoteButtonStates() end function backToMain() mon.clear() initMainButtons() drawHook = mainDrawHook; end ---------------- -- Reactor Control Screen ---------------- local turbineVitals = {} local reactorVitals = {} local rInfoBox = {} local trautorun = true; function drawRInfo() if nextRename < os.clock() then nextRename = os.clock() + 2; local pcolor = colors.white; if turbineVitals["power"] > 500000 then
pcolor = colors.green
elseif turbineVitals["power"] > 100000 then
pcolor = colors.yellow
else
pcolor = colors.red
end

local cX = rInfoBox["o"]["x"]
local cY = rInfoBox["o"]["y"]

-- heading --
mon.setTextColor(colors.cyan)
mon.setCursorPos(cX, cY)
mon.write("Turbine Info");

-- state
cY = cY + 1;
cX = rInfoBox["o"]["x"];
mon.setTextColor(colors.white);
mon.setCursorPos(cX, cY);
mon.write("Active: ");
if turbineVitals["active"] == true then
mon.setTextColor(colors.green);
mon.write("yes");
else
mon.setTextColor(colors.red);
mon.write("no");
end

-- coils (note - same line as state )
mon.setTextColor(colors.white);
mon.write(" Coils On: ");
if turbineVitals["coilson"] == true then
mon.setTextColor(colors.green);
mon.write("yes");
else
mon.setTextColor(colors.red);
mon.write("no");
end

-- power --
cY = cY + 1;
cX = rInfoBox["o"]["x"];
mon.setTextColor(colors.white);
mon.setCursorPos(cX, cY);
mon.write("Power Stored: ");
mon.setTextColor(pcolor);
mon.write(round(turbineVitals["power"], 2).." rf");

-- power --
cY = cY + 1;
cX = rInfoBox["o"]["x"];
mon.setTextColor(colors.white);
mon.setCursorPos(cX, cY);
mon.write("Generating: ");
mon.setTextColor(colors.pink);
mon.write(round(turbineVitals["elt"], 2).." rf/t");

-- Rotor --
cY = cY + 1;
cX = rInfoBox["o"]["x"];
mon.setTextColor(colors.white);
mon.setCursorPos(cX, cY);
mon.write("Rotor Speed: ");
local rcolor = colors.red;
if (turbineVitals["speed"] > 850 and turbineVitals["speed"] < 950) or (turbineVitals["speed"] > 1750 and turbineVitals["speed"] < 1850) then rcolor = colors.green; elseif (turbineVitals["speed"] > 750 and turbineVitals["speed"] < 1050) or (turbineVitals["speed"] > 1650 and turbineVitals["speed"] < 1950) then rcolor = colors.yellow; end mon.setTextColor(rcolor); mon.write(round(turbineVitals["speed"], 2).." rpm"); -- Reactor Info -- cY = cY + 2; cX = rInfoBox["o"]["x"]; mon.setTextColor(colors.cyan) mon.setCursorPos(cX, cY) mon.write("Reactor Info"); cY = cY + 1; cX = rInfoBox["o"]["x"]; mon.setTextColor(colors.white); mon.setCursorPos(cX, cY); mon.write("Active: "); if reactorVitals["active"] == true then mon.setTextColor(colors.green); mon.write("yes"); else mon.setTextColor(colors.red); mon.write("no"); end -- Fuel cY = cY + 1 cX = rInfoBox["o"]["x"]; mon.setTextColor(colors.white); mon.setCursorPos(cX, cY); mon.write("Fuel Eff: "); local fcolor = colors.red; if reactorVitals["fuelreact"] > 350 then
fcolor = colors.green;
elseif reactorVitals["fuelreact"] > 250 then
fcolor = colors.yellow;
elseif reactorVitals["fuelreact"] > 150 then
fcolor = colors.brown;
end
mon.setTextColor(fcolor);
mon.write(round(reactorVitals["fuelreact"], 2).."%");
mon.setTextColor(colors.white);
mon.write(" Burn: ");
mon.setTextColor(colors.yellow);
--local burn = math.floor(reactorVitals["fuellt"] * 1000) / 1000;
local burn = round(reactorVitals["fuellt"], 3);
mon.write(burn.." mb/t");

-- Rods
cY = cY + 1;
cX = rInfoBox["o"]["x"];
mon.setCursorPos(cX, cY);
mon.setTextColor(colors.white);
mon.write("Rod Depth: ");
mon.setTextColor(colors.magenta);
mon.write( reactorVitals["rodlevel"].."%");

cY = cY + 1;
cX = rInfoBox["o"]["x"];
mon.setCursorPos(cX, cY);
mon.setTextColor(colors.white);
mon.write("Runtime: ");
mon.setTextColor(colors.lightBlue);
mon.write(round(ReactorCycles/5,2).." s");
end
end

function handleReactorAuto()
local result = fetchValueFromRemote(turbine0Port, "vitals");
turbineVitals = textutils.unserialize(result);

result = fetchValueFromReactor("vitals");
reactorVitals = textutils.unserialize(result);

if trautorun == true then
if turbineVitals["power"] < 10000 then ReactorCycles = ReactorCycles + 1; print("turning on power system"); fetchValueFromReactor("activate"); fetchValueFromRemote(turbine0Port, "activate"); fetchValueFromRemote(turbine0Port, "coilon"); elseif turbineVitals["power"] > 950000 then
print("turning off power system");
fetchValueFromReactor("deactivate");
fetchValueFromRemote(turbine0Port, "deactivate");
fetchValueFromRemote(turbine0Port, "coiloff");
end
end
end

function reactDrawHook()
heading(1, "Reactor Control v"..version);

handleReactorAuto()

resetReactButtons()
drawRInfo()
end

function tCoils(name)
if turbineVitals["coilson"] == true then
buttons["toggleCoils"]["text"] = "Coils";
buttons["toggleCoils"]["state"] = false;
fetchValueFromRemote(turbine0Port, "coiloff");
else
buttons["toggleCoils"]["text"] = "Coils";
buttons["toggleCoils"]["state"] = true;
fetchValueFromRemote(turbine0Port, "coilon");
end
updateButtonCalc(buttons["toggleCoils"])
dirty = true
end

function tReact(name)
if reactorVitals["active"] == true then
buttons[name]["state"] = false;
fetchValueFromReactor("deactivate");
else
buttons[name]["state"] = true;
fetchValueFromReactor("activate");
end
updateButtonCalc(buttons[name]);
dirty = true
end

function tTurb(name)
if turbineVitals["active"] == true then
buttons[name]["state"] = false;
fetchValueFromRemote(turbine0Port, "deactivate");
else
buttons[name]["state"] = true;
fetchValueFromRemote(turbine0Port, "activate");
end
updateButtonCalc(buttons[name]);
dirty = true
end

function resetReactButtons()
if turbineVitals["coilson"] == true then
buttons["toggleCoils"]["state"] = true;
updateButtonCalc(buttons["toggleCoils"])
else
buttons["toggleCoils"]["state"] = false;
updateButtonCalc(buttons["toggleCoils"])
end

if turbineVitals["active"] == true then
buttons["tturb"]["state"] = true;
updateButtonCalc(buttons["tturb"])
else
buttons["tturb"]["state"] = false;
updateButtonCalc(buttons["tturb"])
end

if reactorVitals["active"] == true then
buttons["treact"]["state"] = true;
updateButtonCalc(buttons["treact"]);
else
buttons["treact"]["state"] = false;
updateButtonCalc(buttons["treact"]);
end

if trautorun == true then
buttons["trauto"]["state"] = true;
updateButtonCalc(buttons["trauto"]);
else
buttons["trauto"]["state"] = false;
updateButtonCalc(buttons["trauto"]);
end

dirty = true
end

function tRAuto(name)
if trautorun == false then
print("toggling autorun to true");
trautorun = true
else
truatorun = false;
print("toggling autorun to false");
end
end

function initReactButtons()
HB = 5;
buttons = {}
addSimpleButton("back", "Back", backToMain, 1, 3);
buttons["back"]["bact"] = colors.green;
buttons["back"]["binact"] = colors.green;

-- initialize the vitals for the reactor so we can use them
local result = fetchValueFromRemote(turbine0Port, "vitals")
turbineVitals = textutils.unserialize(result)
result = fetchValueFromReactor("vitals");
reactorVitals = textutils.unserialize(result);

local rbl = buttons["back"]["xend"] + 4;
rInfoBox["o"] = {}
rInfoBox["o"]["x"] = rbl;
rInfoBox["o"]["y"] = 3;
rInfoBox["w"] = 18;
rInfoBox["h"] = 12;

addSimpleButton("toggleCoils", "Coils", tCoils, rbl, 1);
alignButtonInBox(buttons["toggleCoils"], window, 0, 2);
if turbineVitals["coilson"] == true then
buttons["toggleCoils"]["text"] = "Coils";
buttons["toggleCoils"]["state"] = true;
updateButtonCalc(buttons["toggleCoils"])
end

addSimpleButton("treact", "Reactor", tReact, buttons["toggleCoils"]["origx"] + buttons["toggleCoils"]["width"] + 2,
buttons["toggleCoils"]["origy"]);

addSimpleButton("tturb", "Turbine", tTurb, buttons["treact"]["origx"] + buttons["treact"]["width"] + 2,
buttons["treact"]["origy"]);

addSimpleButton("trauto", "Auto", tRAuto, buttons["tturb"]["origx"] + buttons["tturb"]["width"] + 2,
buttons["tturb"]["origy"]);

end

----------------
-- End Reactor Control
----------------

function powerDown()
running = 0;
end

local reactorPower = 0;
local ppt = 0;
local burnRate = 0;

-------
-- Startup/Runtime
-------

initMon("top")
initModem()
waitForRemote()
mon.clear()

initMainButtons()

while running == true
do
drawScreen()
handleEvent()
end

mon.clear();

Reactor Control

local myPort = 102;
local running = true;
local modem = peripheral.wrap("left");
local reactor = peripheral.wrap("BigReactors-Reactor_0");
local HB = 5;
local doReboot = 0;

modem.open( myPort );

while running == true
do
local timeout = os.startTimer(HB);
local event, modemSide, senderchannel,
replyPort, message, senderDistance = os.pullEvent();

local result;

-- values
local energyStored = reactor.getEnergyStored()
local energyPLT = reactor.getEnergyProducedLastTick()
local vitals = {};
vitals["active"] = reactor.getActive();
vitals["nrods"] = reactor.getNumberOfControlRods();
vitals["splt"] = reactor.getHotFluidProducedLastTick();
vitals["coolantvol"] = reactor.getCoolantAmount();
vitals["steamvol"] = reactor.getHotFluidAmount();
vitals["fuelreact"] = reactor.getFuelReactivity();
vitals["fuellt"] = reactor.getFuelConsumedLastTick();
vitals["rodlevel"] = reactor.getControlRodLevel(0);

if event == "modem_message" then
if message == "power" then
print("sending: "..energyStored)
result = energyStored;
elseif message == "ppt" then
result = energyPLT;
print("energy/tick: "..energyPLT)
elseif message == "quit" then
result = 0;
running = false;
elseif message == "keeppow" then
keepPowered = not keepPowered;
result = keepPowered;
local st = "on"
if keepPowered then
st = "off"
end
print("reactor-auto: "..st)
elseif message == "qkeeppow" then
result = keepPowered;
elseif message == "vitals" then
result = textutils.serialize(vitals);
elseif message == "reboot" then
doReboot = 1;
result = 0;
elseif message == "activate" then
reactor.setActive(true);
result = 0;
elseif message == "deactivate" then
reactor.setActive(false);
result = 0;
else
result = -1;
end
modem.transmit(replyPort, myPort, result);
end

os.cancelTimer(timeout);

if doReboot == 1 then
reactor.setActive(false);
os.reboot();
end
end

Turbine Control

local myPort = 104;
local running = true;
local modem = peripheral.wrap("left");
local reactor = peripheral.wrap("BigReactors-Turbine_0");
local HB = 5;
local doReboot = 0;

modem.open( myPort );

while running == true
do
local timeout = os.startTimer(HB);
local event, modemSide, senderchannel,
replyPort, message, senderDistance = os.pullEvent();

local result;

-- values
local energyStored = reactor.getEnergyStored()
local energyPLT = reactor.getEnergyProducedLastTick()
local vitals = {}
vitals["active"] = reactor.getActive()
vitals["power"] = reactor.getEnergyStored()
vitals["speed"] = reactor.getRotorSpeed()
vitals["rate"] = reactor.getFluidFlowRate()
vitals["elt"] = reactor.getEnergyProducedLastTick()
vitals["coilson"] = reactor.getInductorEngaged()

if event == "modem_message" then
if message == "power" then
print("sending: "..energyStored)
result = energyStored;
elseif message == "ppt" then
result = energyPLT;
print("energy/tick: "..energyPLT)
elseif message == "quit" then
result = 0;
running = false;
elseif message == "keeppow" then
keepPowered = not keepPowered;
result = keepPowered;
local st = "on"
if keepPowered then
st = "off"
end
print("reactor-auto: "..st)
elseif message == "vitals" then
result = textutils.serialize(vitals);
elseif message == "reboot" then
doReboot = 1;
result = 0;
elseif message == "coilon" then
reactor.setInductorEngaged(true);
elseif message == "coiloff" then
reactor.setInductorEngaged(false);
elseif message == "activate" then
reactor.setActive(true);
elseif message == "deactivate" then
reactor.setActive(false);
else
result = -1;
end
modem.transmit(replyPort, myPort, result);
end

os.cancelTimer(timeout);

if doReboot == 1 then
reactor.setActive(false);
os.reboot();
end
end

Spawner Control

-- Ports
local myPort = 103;

local running = true;
local modem = peripheral.wrap("right");
local HB = 60;

local cowSide = "bottom";
local blazeSide = "left";
local overrideSide = "back";
local doReboot = 0;

modem.open(myPort);

while running == true
do
local timeout = os.startTimer(HB);
local e, s, sChan, rPort, msg, sDist = os.pullEvent();
local tb;
local result = 0;

if e == "modem_message" then
if msg == "tcow" then
tb = not redstone.getOutput(cowSide);
redstone.setOutput(cowSide, tb);
print("set cows: "..tostring(tb));
elseif msg == "tblaze" then
tb = not redstone.getOutput(blazeSide);
redstone.setOutput(blazeSide, tb);
print("set blazes: "..tostring(tb));
elseif msg == "toverride" then
tb = not redstone.getOutput(overrideSide);
redstone.setOutput(overrideSide, tb);
print("set toverride: "..tostring(tb));
elseif msg == "cows" then
if redstone.getOutput(cowSide) then
result = 1;
end
elseif msg == "blazes" then
if redstone.getOutput(blazeSide) then
result = 1;
end
elseif msg == "override" then
if redstone.getOutput(overrideSide) then
result = 1;
end
elseif msg == "reboot" then
doReboot = 1
end

modem.transmit(rPort, myPort, result);
end

os.cancelTimer(timeout);

if doReboot == 1 then
os.reboot();
end
end

About

Agathezol is the leader of the Lost Dorks guild, a father, programmer, and gamer.

Categories: Minecraft