ben/cc
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

first commit

Browse source
This commit is contained in:
Ben 2024-06-01 01:12:12 +02:00
commit 1b4f601e9f
Signed by: ben
GPG key ID: 0F54A7ED232D3319
2 changed files with 327 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
permset.lua Normal file
View file

@ -0,0 +1,44 @@
local function new(file)
local set = {}
local fh = fs.open(file, "r")
if fh == nil then
-- no such file, return empty set
return {inner=set, file=file}
end
local line = fh.readLine()
while line ~= nil do
if line then
set[line] = true
end
line = fh.readLine()
end
fh.close()
return {inner=set, file=file}
end
local function writeSet(set)
local fh = fs.open(set.file, "w")
for it, allowed in pairs(set.inner) do
if allowed then
fh.writeLine(it)
end
end
fh.flush()
fh.close()
end
local function add(set, item)
set.inner[item] = true
writeSet(set)
end
local function remove(set, item)
set.inner[item] = false
writeSet(set)
end
local function has(set, item)
return set.inner[item] == true
end
return {new=new, writeSet=writeSet, add=add, remove=remove, has=has}

283
test.lua Normal file
View file

@ -0,0 +1,283 @@
-- options --
local has_me = true
local main_system_ae_bridge_side = "right"
local main_me_inventory_side = "up"
local colony_interface_side = "left"
local monitor_side = "top"
local monitor_scale = 1.0
local step_sleep_time = 0.5
local round_sleep_time = 60.0
local current_tab = 1
-- runtime variables --
local pretty = require "cc.pretty"
local permset = require "permset"
local main_me = {}
if has_me then
main_me = peripheral.wrap(main_system_ae_bridge_side)
end
local colony = peripheral.wrap(colony_interface_side)
local requests = {}
local orders = {}
-- to match click positions back to item names
local display_list = {}
-- list of allowed item names, will be requested
local allowed_items = permset.new(".allowed_items")
-- display working state
local currently_working = true
-- current start index to view requests
local page_start_idx = 1
-- schedule immediate reload
local immediate_reload = false
function requestsDisplay()
for i, val in pairs(requests) do
local line_num = i-page_start_idx+3
if line_num > 2 and line_num < th then
term.setTextColor(colors.white)
term.setCursorPos(1,line_num)
term.write(val.req.name)
term.write(" ")
if val.answer == nil then
term.setTextColor(colors.orange)
term.write("N/A")
else
if allowed_items[val.answer.name] then
term.setTextColor(colors.green)
else
term.setTextColor(colors.yellow)
end
term.write(val.answer.name)
display_list[line_num] = val.answer.name
term.setTextColor(colors.white)
term.setCursorPos(tw-4,line_num)
term.write(" [")
if allowed_items[val.answer.name] then
term.setTextColor(colors.green)
term.write("X")
term.setTextColor(colors.white)
else
term.write(" ")
end
term.write("] ")
end
end
end
end
function ordersDisplay()
for i, val in pairs(orders) do
local line_num = (i-page_start_idx)*2+3
if line_num > 2 and line_num < th-1 then
term.setTextColor(colors.lightGray)
term.setCursorPos(1,line_num)
term.write(val.id)
term.write(" ")
if val.pos then
term.write(val.pos.x .. "," .. val.pos.y .. "," .. val.pos.z)
term.write(" ")
end
term.setCursorPos(2,line_num+1)
term.setTextColor(colors.white)
if val.type then
term.write(val.type)
term.write(" ")
end
if val.target then
term.write(val.target)
term.write(" ")
end
if val.item then
term.setCursorPos(tw-6-#val.item, line_num)
term.write(val.item)
else
term.setCursorPos(tw-6, line_num)
end
term.write(" ")
if val.claimed then
term.setTextColor(colors.yellow)
term.write("C")
term.setTextColor(colors.white)
else
term.write(" ")
end
term.write(" ")
if val.delivering then
term.setTextColor(colors.green)
term.write("D")
term.setTextColor(colors.white)
else
term.write(" ")
end
term.write(" ")
end
end
end
local tabs = {
-- to display requests and answer with an ME interface
[1]={name="requests", display_func=requestsDisplay},
-- to display colony work orders
[2]={name="orders", display_func=ordersDisplay},
}
function display()
local tw,th = term.getSize()
term.setCursorBlink(false)
term.setBackgroundColor(colors.black)
term.clear()
display_list = {}
term.setCursorPos(1,1)
term.setBackgroundColor(colors.yellow)
term.setTextColor(colors.black)
term.clearLine()
term.write(" " .. string.upper(tabs[current_tab].name) .. " ")
if currently_working == false then
term.setCursorPos(tw-8,1)
term.write(" R ")
end
term.setCursorPos(tw-5,1)
term.write(" ^ v ")
term.setBackgroundColor(colors.black)
tabs[current_tab].display_func()
if currently_working then
local cx,cy = term.getCursorPos()
term.setCursorPos(1,cy+2)
term.setCursorBlink(true)
term.setTextColor(colors.gray)
term.write("Working... ")
end
end
function page_down(th)
page_start_idx = page_start_idx+th-3
end
function page_up(th)
page_start_idx = math.max(1, page_start_idx-th+3)
end
function on_touch(touch_x, touch_y)
local tw,th = term.getSize()
if touch_y == 1 then
if touch_x < (#tabs[current_tab].name + 2) then
current_tab = current_tab + 1
if current_tab > #tabs then
current_tab = 1
end
return true
elseif currently_working == false and touch_x > tw-9 and touch_x < tw-5 then
immediate_reload = true
return true
elseif touch_x > tw-6 and touch_x < tw-2 then
page_up(th)
return true
elseif touch_x > tw-3 and touch_x <= tw then
page_down(th)
return true
end
elseif current_tab == 1 and touch_x > tw-5 and display_list[touch_y] ~= nil then
local item_name = display_list[touch_y]
if allowed_items[item_name] then
remove_allowed_item(item_name)
else
add_allowed_item(item_name)
end
return true
end
return false
end
function wait_for(time_secs)
display()
local timer_id = os.startTimer(time_secs)
while true do
local event_data = {os.pullEvent()}
if event_data[1] == "monitor_touch" or (event_data[1] == "mouse_click" and event_data[2] == 1) then
if on_touch(event_data[3], event_data[4]) then
display()
end
if immediate_reload == true then
immediate_reload = false
break
end
elseif event_data[1] == "timer" then
if event_data[2] == timer_id then
break
end
end
end
end
if peripheral.isPresent(monitor_side) then
monitor = peripheral.wrap(monitor_side)
monitor.setTextScale(monitor_scale)
term.redirect(monitor)
end
function get_requests()
requests = {}
local reqs = colony.getRequests()
local me_items = has_me
if has_me then
me_items = main_me.listItems()
end
for i, req in pairs(reqs) do
local found = false
if me_items then
local left_amount = req.count
for j, it in pairs(req.items) do
for k, have_it in pairs(me_items) do
if have_it.name == it.name then
found = true
table.insert(requests, {req=req, answer=have_it})
if left_amount > 0 and allowed_items[it.name] == true then
local export_amount = math.min(have_it.amount, left_amount)
left_amount = left_amount - export_amount
main_me.exportItem({name=it.name, count=export_amount}, main_me_inventory_side)
end
end
end
end
end
if found == false then
table.insert(requests, {req=req, answer=nil})
end
wait_for(step_sleep_time)
end
end
function get_orders()
orders = {}
local orders = colony.getWorkOrders()
if orders ~= nil then
for i, order in pairs(orders) do
local res = colony.getWorkOrderResources(order.id)
table.insert(orders, {id=order.id, type=order.workOrderType, target=order.type, pos=order.builder, item=res.item, claimed=order.isClaimed, delivering=res.delivering})
wait_for(step_sleep_time)
end
end
end
while true do
currently_working = true
get_requests()
get_orders()
currently_working = false
wait_for(round_sleep_time)
end