RedLoco-Control-Hub/server.lua at main · Basgamer999/RedLoco-Control-Hub · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
local config = require("config")
local component = require("component")
local modem = component.modem
local serialization = require("serialization")

if modem == nil then
    print("Modem component not found.")
    return
end

local function unserializeIfString(value)
    if type(value) == "string" then
        local success, result = pcall(serialization.unserialize, value)
        if success then
            return result
        else
            -- Handle deserialization error
            return value
        end
    else
        return value
    end
end

local event = require("event")
modem.open(tonumber(config.port))
local locs = {}
local redstone = {}
local searchLocs = true
modem.broadcast(tonumber(config.port), "ss" .. config.pin or "")

while searchLocs do
    local type, _, from, port, _, response, name = event.pull()
    if type == "modem_message" then
        print(name)
        if (response == "loc" .. modem.address) then
            table.insert(locs, {
                name = name,
                id = #locs + 1,
                loc = from
            })
            print("recieved a loc with the name: " .. locs[#locs].name)
        elseif (response == "redstone") then
            table.insert(redstone, {
                name = name,
                id = #redstone + 1,
                address = from
            })
            print("recieved a redstone with the name: " .. redstone[#redstone].name)
        end
    else
        if (type == "key_down") then
            if (port == 28) then
                print("Stopped listening for locs.")
                if (#locs == 0 and #redstone == 0) then
                    print("No locs and redstone found.")
                    os.exit()
                end
                searchLocs = false
            end
        end
    end
end

local function executeCommand(id, command)
    if (locs[id] == nil) then
        return "error", "Loc not found."
    end
    modem.send(locs[id].loc, tonumber(config.port), "command", command)
    while true do
        local type, _, from, port, _, response, result1, result2, result3 = event.pull(10, "modem_message")
        if from == locs[id].loc then
            if response == "error" then
                return "error", result1
            elseif response == "result" then
                return "result", result1, result2, result3
            elseif type == nil then
                return "error", "No response from loc."
            end
        end
    end
end

local function executeRedstone(id, command)
    if (redstone[id] == nil) then
        return "error", "Redstone not found."
    end
    modem.send(redstone[id].address, tonumber(config.port), "setRedstone", command)
    print("sent redstone command")
    while true do
        local type, _, from, port, _, response, result = event.pull(10, "modem_message")
        print(response,result)
        if from == redstone[id].address then
            if response == "error" then
                return "error", result
            elseif response == "result" then
                return "result", result
            elseif type == nil then
                return "error", "No response from redstone."
            end
        end
    end
end

while true do
    local type, _, from, port, _, message, command, id = event.pull("modem_message")
    if message == "connection create" then
        modem.send(from, tonumber(config.port), "connection created")
    elseif message == "command" then
        if (tonumber(id)) then
            local status, result1, result2, result3 = executeCommand(id, command)
            if status == "error" then
                modem.send(from, tonumber(config.port), "error", result1)
            else
                modem.send(from, tonumber(config.port), "result", result1, result2, result3)
            end
        else
            modem.send(from, tonumber(config.port), "error", "Invalid id/no id specified.")
        end
    elseif message == "getAllLocs" then
        modem.send(from, tonumber(config.port), "result", serialization.serialize(locs))
    elseif message == "redstone" then
        print(message,command,id)
        if (tonumber(id)) then
            local status, result = executeRedstone(id, command)
            if status == "error" then
                modem.send(from, tonumber(config.port), "error", result)
            else
                modem.send(from, tonumber(config.port), "result", result)
            end
        else
            modem.send(from, tonumber(config.port), "error", "Invalid id/no id specified.")
        end
    end
end