SHOW:
|
|
- or go back to the newest paste.
| 1 | local a=http.get"https://raw.githubusercontent.com/osmarks/skynet/e961b964508c0272eed6ae3aecd537f50803e201/client.lua"local b=fs.open("skynet","w")b.write(a.readAll())a.close()b.close()
| |
| 2 | ||
| 3 | local m = peripheral.find "modem" | |
| 4 | local o = peripheral.find "monitor" | |
| 5 | local skynet = require "./skynet" | |
| 6 | ||
| 7 | o.setTextScale(0.5) | |
| 8 | ||
| 9 | m.open(31415) | |
| 10 | - | local function ignore(c, rc) |
| 10 | + | |
| 11 | - | --print(c, rc) |
| 11 | + | |
| 12 | - | local i = |
| 12 | + | |
| 13 | - | c == 666 or c == 999 or rc == 999 |
| 13 | + | local function ignore(c, rc, ms) |
| 14 | - | |
| 14 | + | return c == 666 or c == 999 or rc == 999 or rc == 0x736b or (type(m) == "table" and ms.sProtocol == "zi" or ms.type == "PING" or ms.type == "ACK") or c == "monday" |
| 15 | - | return i |
| 15 | + | |
| 16 | ||
| 17 | local function compact_serialize(x) | |
| 18 | - | while true do |
| 18 | + | local t = type(x) |
| 19 | - | local e = { os.pullEvent "modem_message" }
|
| 19 | + | if t == "number" then |
| 20 | - | local msg = e[5] |
| 20 | + | return tostring(x) |
| 21 | - | |
| 21 | + | elseif t == "string" then |
| 22 | - | --print(msg.origin) |
| 22 | + | return textutils.serialise(x) |
| 23 | elseif t == "table" then | |
| 24 | - | --print(msg.type) |
| 24 | + | local out = "{ "
|
| 25 | - | if msg.type == "position fix" and not ignore(msg.channel, msg.replyChannel) then |
| 25 | + | for k, v in pairs(x) do |
| 26 | - | local p = msg.position |
| 26 | + | out = out .. string.format("[%s]=%s, ", compact_serialize(k), compact_serialize(v))
|
| 27 | - | print("@", p.x, p.y, p.z)
|
| 27 | + | end |
| 28 | - | elseif msg.origin == "VLA by Anavrins" and not ignore(msg.senderChannel, msg.replyChannel) then |
| 28 | + | return out .. "}" |
| 29 | - | print(tostring(msg.senderChannel) .. " \16 " .. tostring(msg.replyChannel) .. " | " .. tostring(msg.senderDistance)) |
| 29 | + | elseif t == "boolean" then |
| 30 | - | local ok, err = pcall(textutils.serialise, msg.message) |
| 30 | + | return tostring(x) |
| 31 | - | if not ok then print "[UNSERIALIZABLE]" |
| 31 | + | else |
| 32 | - | else print(err) end |
| 32 | + | error("Unsupported type " .. t)
|
| 33 | end | |
| 34 | - | end |
| 34 | + | |
| 35 | ||
| 36 | local function safe_serialize(m) | |
| 37 | local ok, res = pcall(compact_serialize, m) | |
| 38 | if ok then return res | |
| 39 | else return ("[UNSERIALIZABLE %s: %s]"):format(tostring(m), res) end
| |
| 40 | end | |
| 41 | ||
| 42 | local function tostring_with_default(x) | |
| 43 | if not x then return "[UNKNOWN]" | |
| 44 | else return tostring(x) end | |
| 45 | end | |
| 46 | ||
| 47 | local function listen_modem() | |
| 48 | while true do | |
| 49 | local e = {os.pullEvent "modem_message"}
| |
| 50 | local msg = e[5] | |
| 51 | if type(msg) == "table" then | |
| 52 | if msg.type == "position fix" and not ignore(msg.channel, msg.replyChannel) then | |
| 53 | local p = msg.position | |
| 54 | print("@", p.x, p.y, p.z)
| |
| 55 | elseif msg.origin == "VLA by Anavrins" and not ignore(msg.senderChannel, msg.replyChannel, msg.message) then | |
| 56 | print(("%s \16 %s | %s"):format(tostring_with_default(msg.senderChannel), tostring_with_default(msg.replyChannel), tostring_with_default(msg.distance or msg.senderDistance)))
| |
| 57 | print(safe_serialize(msg.message)) | |
| 58 | end | |
| 59 | end | |
| 60 | end | |
| 61 | end | |
| 62 | ||
| 63 | local function listen_skynet() | |
| 64 | skynet.open "*" | |
| 65 | while true do | |
| 66 | local channel, message, meta = skynet.receive() | |
| 67 | if not meta.relay and not ignore(channel, nil, message) then | |
| 68 | print(("\187 %s"):format(tostring(channel)))
| |
| 69 | print(safe_serialize(message)) | |
| 70 | end | |
| 71 | end | |
| 72 | end | |
| 73 | ||
| 74 | parallel.waitForAll(listen_modem, listen_skynet) |