xingluo/computer-craft-AEspatial
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

初始

Browse Source
This commit is contained in:
nnwang
2025-12-05 16:13:12 +08:00
parent 5035e12f23
commit 688e739b09
8 changed files with 948 additions and 777 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@@ -0,0 +1 @@
.history

222
panel.lua
View File

@@ -1,222 +0,0 @@
-- ME空间原件控制器测试客户端
-- 在另一台计算机上运行，用于测试和控制海龟
printUtf8 = load(http.get("https://git.liulikeji.cn/xingluo/ComputerCraft-Utf8/raw/branch/main/utf8ptrint.lua").readAll())()
basalt = require("basalt")
-- 配置文件常量
local CLIENT_CONFIG_FILE = "disk_client_cfg"
-- 默认端口配置
local DEFAULT_PORTS = {
control = 101, -- 控制信道（发送切换命令）
response = 102, -- 响应接收信道
status = 100 -- 状态接收信道（原INVENTORY_CHANNEL）
}
-- 读取客户端配置文件
local function readClientConfig()
if not fs.exists(CLIENT_CONFIG_FILE) then
-- 创建默认配置文件
local defaultConfig = {
rednet_ports = DEFAULT_PORTS
}
local file = fs.open(CLIENT_CONFIG_FILE, "w")
file.write(textutils.serialize(defaultConfig))
file.close()
print("已创建客户端默认配置文件: " .. CLIENT_CONFIG_FILE)
return defaultConfig
end
local file = fs.open(CLIENT_CONFIG_FILE, "r")
local content = file.readAll()
file.close()
local config = textutils.unserialize(content) or {rednet_ports = DEFAULT_PORTS}
-- 确保端口配置完整
if not config.rednet_ports then
config.rednet_ports = DEFAULT_PORTS
else
-- 设置默认值
config.rednet_ports.control = config.rednet_ports.control or DEFAULT_PORTS.control
config.rednet_ports.response = config.rednet_ports.response or DEFAULT_PORTS.response
config.rednet_ports.status = config.rednet_ports.status or DEFAULT_PORTS.status
end
return config
end
-- 读取配置
local config = readClientConfig()
-- 初始化红网
local function initRednet()
local sides = {"left", "right", "front", "back", "top", "bottom"}
local modem = nil
for _, side in ipairs(sides) do
if peripheral.getType(side) == "modem" then
modem = peripheral.wrap(side)
-- 打开所有需要的端口
modem.open(config.rednet_ports.control)
modem.open(config.rednet_ports.response)
modem.open(config.rednet_ports.status)
print("找到网卡在: " .. side)
print("端口配置:")
print(" 控制端口: " .. config.rednet_ports.control)
print(" 响应端口: " .. config.rednet_ports.response)
print(" 状态端口: " .. config.rednet_ports.status)
break
end
end
if not modem then
error("未找到可用的网卡!")
end
return modem
end
local modem = initRednet()
-- 发送切换命令
local function sendSwitchCommand(diskName)
local message = {
type = "switch_disk",
disk_name = diskName
}
modem.transmit(config.rednet_ports.control, config.rednet_ports.control, message)
print("已发送切换命令: " .. diskName)
end
disks = {}
local mainf = basalt.createFrame()
local main = {
panel = mainf:addFrame():setPosition(1, 1):setSize("parent.w", "parent.h"):setBackground(colors.white),
}
UI = {}
-- 生成界面
function addFrameS(disks)
SY = {}
local SYI = 1
local h = 2
for name,slot in pairs(disks) do
UI[name] = {}
UI[name]["Back"] = main["panel"]:addFrame():setPosition(1, h):setSize("parent.w", 3):setBackground(colors.gray)
UI[name]["XZ"] = UI[name]["Back"]:addPane():setPosition(1, 1):setSize(1, 3):setBackground(false, "\149", colors.gray)
UI[name]["Name"] = UI[name]["Back"]:addProgram():setPosition(2, 1):setSize(35, 4):execute(function()
term.setBackgroundColor(colors.gray)
term.clear()
printUtf8(name, colors.white, colors.gray)
end):injectEvent("char", false, "w"):disable()
SY[SYI] = name
SYI = SYI + 1
h = h+4
end
end
-- 辅助函数：比较两个表是否相等
local function areTablesEqual(t1, t2)
if t1 == t2 then return true end
if type(t1) ~= "table" or type(t2) ~= "table" then return false end
for k, v in pairs(t1) do
if t2[k] ~= v then
return false
end
end
for k, v in pairs(t2) do
if t1[k] == nil then
return false
end
end
return true
end
-- 处理红网消息
local function handleRednetMessage(message)
if message.type == "status_update" then
-- 只有当两个表数值不一样时才执行
if not areTablesEqual(message.disks, disks) then
disks = message.disks
addFrameS(disks)
end
for name,slot in pairs(disks) do
if name == message.current_disk then
UI[name]["Back"]:setBackground(colors.red)
else
UI[name]["Back"]:setBackground(colors.gray)
end
end
end
end
DSY = 1
on = false
-- 主循环 - 消息监听
local function main1()
while true do
-- 检查红网消息
local event, side, channel, replyChannel, message, distance = os.pullEvent("modem_message")
-- 检查是否是状态端口或响应端口的消息
if (channel == config.rednet_ports.status or channel == config.rednet_ports.response) and type(message) == "table" then
handleRednetMessage(message)
if not on then
if SY and SY[DSY] then
UI[SY[DSY]]["XZ"]:setBackground(false, "\149", colors.lime)
end
end
end
end
end
local function main2()
while true do
local event, key, is_held = os.pullEvent("key")
if keys.getName(key) == "down" then
if SY and DSY ~= #SY then
DSY = DSY + 1
end
for k,v in pairs(SY or {}) do
if k == DSY then
UI[v]["XZ"]:setBackground(false, "\149", colors.lime)
else
UI[v]["XZ"]:setBackground(false, "\149", colors.gray)
end
end
sleep(0.5)
elseif keys.getName(key) == "up" then
if DSY > 1 then
DSY = DSY -1
end
for k,v in pairs(SY or {}) do
if k == DSY then
UI[v]["XZ"]:setBackground(false, "\149", colors.lime)
else
UI[v]["XZ"]:setBackground(false, "\149", colors.gray)
end
end
sleep(0.5)
elseif keys.getName(key) == "enter" then
if SY and SY[DSY] then
sendSwitchCommand(SY[DSY])
end
end
end
end
parallel.waitForAny(main1, main2, basalt.autoUpdate)

7
panel/config.cfg Normal file
View File

@@ -0,0 +1,7 @@
{
rednet_ports = {
status = 100,
response = 102,
control = 101,
},
}

366
panel/startup.lua Normal file
View File

@@ -0,0 +1,366 @@
-- ME空间原件控制器测试客户端
-- 在另一台计算机上运行，用于测试和控制海龟
printUtf8 = load(http.get("https://git.liulikeji.cn/xingluo/ComputerCraft-Utf8/raw/branch/main/utf8ptrint.lua").readAll())()
--检测basalt
if not fs.exists("basalt.lua") then shell.run("wget https://git.liulikeji.cn/GitHub/Basalt/releases/download/v1.6.6/basalt.lua basalt.lua") end
basalt = require("basalt")
-- 配置文件常量
local CLIENT_CONFIG_FILE = "config.cfg"
-- 默认端口配置
local DEFAULT_PORTS = {
control = 101, -- 控制信道（发送切换命令）
response = 102, -- 响应接收信道
status = 100 -- 状态接收信道（原INVENTORY_CHANNEL）
}
-- 读取客户端配置文件
local function readClientConfig()
if not fs.exists(CLIENT_CONFIG_FILE) then
-- 创建默认配置文件
local defaultConfig = {
rednet_ports = DEFAULT_PORTS
}
local file = fs.open(CLIENT_CONFIG_FILE, "w")
file.write(textutils.serialize(defaultConfig))
file.close()
print("已创建客户端默认配置文件: " .. CLIENT_CONFIG_FILE)
return defaultConfig
end
local file = fs.open(CLIENT_CONFIG_FILE, "r")
local content = file.readAll()
file.close()
local config = textutils.unserialize(content) or {rednet_ports = DEFAULT_PORTS}
-- 确保端口配置完整
if not config.rednet_ports then
config.rednet_ports = DEFAULT_PORTS
else
-- 设置默认值
config.rednet_ports.control = config.rednet_ports.control or DEFAULT_PORTS.control
config.rednet_ports.response = config.rednet_ports.response or DEFAULT_PORTS.response
config.rednet_ports.status = config.rednet_ports.status or DEFAULT_PORTS.status
end
return config
end
-- 读取配置
local config = readClientConfig()
-- 初始化红网
local function initRednet()
local sides = {"left", "right", "front", "back", "top", "bottom"}
local modem = nil
for _, side in ipairs(sides) do
if peripheral.getType(side) == "modem" then
modem = peripheral.wrap(side)
-- 打开所有需要的端口
modem.open(config.rednet_ports.control)
modem.open(config.rednet_ports.response)
modem.open(config.rednet_ports.status)
print("找到网卡在: " .. side)
print("端口配置:")
print(" 控制端口: " .. config.rednet_ports.control)
print(" 响应端口: " .. config.rednet_ports.response)
print(" 状态端口: " .. config.rednet_ports.status)
break
end
end
if not modem then
error("未找到可用的网卡!")
end
return modem
end
local modem = initRednet()
-- 发送切换命令
local function sendSwitchCommand(diskName)
local message = {
type = "switch_disk",
disk_name = diskName
}
modem.transmit(config.rednet_ports.control, config.rednet_ports.control, message)
print("已发送切换命令: " .. diskName)
end
disks = {}
local mainf = basalt.createFrame()
local main = {
panel = mainf:addFrame():setPosition(1, 1):setSize("parent.w", "parent.h"):setBackground(colors.white),
}
-- 分页相关变量
MAX_DISPLAY = 5 -- 每页最大显示数量
currentPage = 1 -- 当前页码
totalPages = 1 -- 总页数
pageDisks = {} -- 当前页显示的磁盘
UI = {}
-- 更新分页信息
local function updatePagination()
-- 获取排序后的磁盘名称
local sortedNames = {}
for name, _ in pairs(disks) do
table.insert(sortedNames, name)
end
table.sort(sortedNames)
-- 计算总页数
totalPages = math.ceil(#sortedNames / MAX_DISPLAY)
if totalPages == 0 then totalPages = 1 end
-- 确保当前页在有效范围内
if currentPage > totalPages then
currentPage = totalPages
elseif currentPage < 1 then
currentPage = 1
end
-- 获取当前页的磁盘
pageDisks = {}
local startIndex = (currentPage - 1) * MAX_DISPLAY + 1
local endIndex = math.min(startIndex + MAX_DISPLAY - 1, #sortedNames)
for i = startIndex, endIndex do
pageDisks[i - startIndex + 1] = sortedNames[i]
end
end
-- 显示/隐藏磁盘项
local function updateDiskVisibility()
for name, uiElements in pairs(UI) do
-- 隐藏所有磁盘项
uiElements.Back:hide()
end
-- 显示当前页的磁盘项
for i, diskName in ipairs(pageDisks) do
if UI[diskName] then
local yPos = 2 + (i - 1) * 4
UI[diskName].Back:setPosition(1, yPos):show()
end
end
end
-- 生成界面
function addFrameS(disks)
-- 清除旧的UI
for name, uiElements in pairs(UI) do
if uiElements and uiElements.Back then
uiElements.Back:remove()
end
end
UI = {}
-- 更新分页信息
updatePagination()
local h = 1
for i, name in ipairs(pageDisks) do
UI[name] = {}
UI[name]["Back"] = main["panel"]:addFrame():setPosition(1, h):setSize("parent.w", 3):setBackground(colors.gray):onClick(function()
-- 找到被点击的磁盘在当前页的索引
local clickedIndex = nil
for i, diskName in ipairs(pageDisks) do
if diskName == name then
clickedIndex = i
break
end
end
if clickedIndex then
-- 更新选择索引
DSY = clickedIndex
-- 更新选择指示器
for i, diskName in ipairs(pageDisks) do
if i == DSY then
UI[diskName]["XZ"]:setBackground(false, "\149", colors.lime)
else
UI[diskName]["XZ"]:setBackground(false, "\149", colors.gray)
end
end
-- 发送切换命令
sendSwitchCommand(name)
end
end)
UI[name]["XZ"] = UI[name]["Back"]:addPane():setPosition(1, 1):setSize(1, 3):setBackground(false, "\149", colors.gray)
UI[name]["Name"] = UI[name]["Back"]:addProgram():setPosition(2, 1):setSize(35, 4):execute(function()
term.setBackgroundColor(colors.gray)
term.clear()
printUtf8(name, colors.white, colors.gray)
end):injectEvent("char", false, "w"):disable()
h = h + 4
end
local ym = currentPage.."/".. totalPages.." >"
-- 添加页码显示
if not UI.pageText then
main["panel"]:addLabel():setPosition(1,"parent.h"):setSize(1, 1):setText("<")
UI.pageText = main["panel"]:addLabel():setPosition("parent.w - ".. #ym -1, "parent.h"):setSize("parent.w", 1):setText(ym)
else
UI.pageText:setText(ym):setPosition("parent.w - ".. #ym -1, "parent.h")
end
end
-- 辅助函数：比较两个表是否相等
local function areTablesEqual(t1, t2)
if t1 == t2 then return true end
if type(t1) ~= "table" or type(t2) ~= "table" then return false end
for k, v in pairs(t1) do
if t2[k] ~= v then
return false
end
end
for k, v in pairs(t2) do
if t1[k] == nil then
return false
end
end
return true
end
-- 处理红网消息
local function handleRednetMessage(message)
if message.type == "status_update" then
-- 只有当两个表数值不一样时才执行
if not areTablesEqual(message.disks, disks) then
disks = message.disks
addFrameS(disks)
end
-- 修复这里的问题：添加安全检查
for name, slot in pairs(disks) do
if UI[name] and UI[name].Back then -- 添加安全检查
if name == message.current_disk then
UI[name]["Back"]:setBackground(colors.red)
else
UI[name]["Back"]:setBackground(colors.gray)
end
end
end
end
end
DSY = 1
on = false
-- 切换页面
local function switchPage(direction)
if direction == "next" and currentPage < totalPages then
currentPage = currentPage + 1
elseif direction == "prev" and currentPage > 1 then
currentPage = currentPage - 1
else
return
end
-- 更新分页信息
updatePagination()
-- 重新生成界面
addFrameS(disks)
-- 重置选择索引
DSY = 1
-- 更新选择指示器
for i, diskName in ipairs(pageDisks) do
if i == DSY then
UI[diskName]["XZ"]:setBackground(false, "\149", colors.lime)
else
UI[diskName]["XZ"]:setBackground(false, "\149", colors.gray)
end
end
end
-- 主循环 - 消息监听
local function main1()
while true do
-- 检查红网消息
local event, side, channel, replyChannel, message, distance = os.pullEvent("modem_message")
-- 检查是否是状态端口或响应端口的消息
if (channel == config.rednet_ports.status or channel == config.rednet_ports.response) and type(message) == "table" then
handleRednetMessage(message)
if not on then
if pageDisks and pageDisks[DSY] then
UI[pageDisks[DSY]]["XZ"]:setBackground(false, "\149", colors.lime)
end
end
end
end
end
local function main2()
while true do
local event, key, is_held = os.pullEvent("key")
local keyName = keys.getName(key)
if keyName == "down" or keyName == "s" then
if pageDisks and DSY < #pageDisks then
DSY = DSY + 1
end
for i, diskName in ipairs(pageDisks) do
if i == DSY then
UI[diskName]["XZ"]:setBackground(false, "\149", colors.lime)
else
UI[diskName]["XZ"]:setBackground(false, "\149", colors.gray)
end
end
sleep(0.1)
elseif keyName == "up" or keyName == "w" then
if DSY > 1 then
DSY = DSY - 1
end
for i, diskName in ipairs(pageDisks) do
if i == DSY then
UI[diskName]["XZ"]:setBackground(false, "\149", colors.lime)
else
UI[diskName]["XZ"]:setBackground(false, "\149", colors.gray)
end
end
sleep(0.1)
elseif keyName == "enter" or keyName == "space" then
if pageDisks and pageDisks[DSY] then
sendSwitchCommand(pageDisks[DSY])
end
-- 翻页控制
elseif keyName == "right" or keyName == "d" then
switchPage("next")
sleep(0.1)
elseif keyName == "left" or keyName == "a" then
switchPage("prev")
sleep(0.1)
end
end
end
parallel.waitForAny(main1, main2, basalt.autoUpdate)

12
server/config.cfg Normal file
View File

@@ -0,0 +1,12 @@
{
disks = {
[ "区域1" ] = 1,
[ "区域2" ] = 2,
[ "区域3" ] = 3,
},
rednet_ports = {
status = 100,
response = 302,
listen = 101,
},
}

2
main.lua → server/startup.lua
View File

@@ -7,7 +7,7 @@
--end --end
-- 全局变量 -- 全局变量
CONFIG_FILE = "disk_cfg" CONFIG_FILE = "config.cfg"
CHECK_INTERVAL = 2 -- 检测间隔(秒) CHECK_INTERVAL = 2 -- 检测间隔(秒)
REDSTONE_PULSE_INTERVAL = 0.1 -- 红石脉冲间隔(秒) REDSTONE_PULSE_INTERVAL = 0.1 -- 红石脉冲间隔(秒)
MAX_WAIT_CYCLES = 30 -- 最大等待循环次数 MAX_WAIT_CYCLES = 30 -- 最大等待循环次数

7
sospanel/config.cfg Normal file
View File

@@ -0,0 +1,7 @@
{
rednet_ports = {
response = 102,
control = 101,
},
name = "区域1",
}

2
panel1.lua → sospanel/startup.lua
View File

@@ -12,7 +12,7 @@ f = fs.open("config","rb")
-- 功能: 通过配置文件读取参数，检测按键并发送切换命令 -- 功能: 通过配置文件读取参数，检测按键并发送切换命令
-- 配置文件名称 -- 配置文件名称
local CONFIG_FILE = "config" local CONFIG_FILE = "config.cfg"
-- 读取配置文件 -- 读取配置文件
local function readConfig() local function readConfig()