View difference between Paste ID: Jqp4KJDQ and g9gfxwsb

-local lamp = peripheral.find "colorful_lamp"
+local config = dofile "config.lua"
-lamp.setLampColor(32767)
+
-local sensor = peripheral.find "plethora:sensor"
+
-local label = os.getComputerLabel()
+
-local switch_config = dofile "config.lua"
+
 	local ws
 
 	local function send_packet(msg)
 		ws.send(textutils.serialiseJSON(msg))
 	end
 
 	local function send(data)
-		local ok, err = pcall(ws.send, textutils.serialiseJSON(msg))
+
-		if not ok then printError(err) try_connect_loop() end
+
 
 	local function connect()
 		if ws then ws.close() end
 		ws, err = http.websocket "wss://spudnet.osmarks.net/v4?enc=json"
 		if not ws then print("websocket failure %s", err) return false end
 		ws.url = "wss://spudnet.osmarks.net/v4?enc=json"
 
 		send_packet { type = "identify", implementation = "ARR control unit", key = settings.get "spudnet_key" }
 		send_packet { type = "set_channels", channels = { "comm:arr" } }
 
 		print("websocket connected")
 
-		send_packet { type = "identify", implementation = "ARR switching unit", key = settings.get "spudnet_key" }
+
 	end
 
 	local function try_connect_loop()
 		while not connect() do
 			sleep(0.5)
 		end
 	end
 
 	try_connect_loop()
 
 	local function recv()
 		while true do
 			local e, u, x = os.pullEvent "websocket_message"
 			if u == ws.url then return textutils.unserialiseJSON(x) end
 		end
 	end
 
 	local ping_timeout_timer = nil
 
 	local function ping_timer()
 		while true do
 			local _, t = os.pullEvent "timer"
 			if t == ping_timeout_timer and ping_timeout_timer then
 				-- 15 seconds since last ping, we probably got disconnected
 				print "SPUDNET timed out, attempting reconnect"
 				try_connect_loop()
 			end
 		end
 	end
 
 	local function main()
 		while true do
 			local packet = recv()
 			if packet.type == "ping" then
 				send_packet { type = "pong", seq = packet.seq }
 				if ping_timeout_timer then os.cancelTimer(ping_timeout_timer) end
 				ping_timeout_timer = os.startTimer(15)
 			elseif packet.type == "error" then
 				print("SPUDNET error", packet["for"], packet.error, packet.detail, textutils.serialise(packet))
 			elseif packet.type == "message" then
 				os.queueEvent("spudnet_message", packet.data)
 			end
 		end
 	end
 
 	return send, function() parallel.waitForAll(ping_timer, main) end
 end
 
 local spudnet_send, spudnet_handler = spudnet()
 
 local switches = {}
 local sweep_timer = os.startTimer(1)
 local function main()
 	while true do
 		local ev = {os.pullEvent()}
-local directions = {
+		if ev[1] == "spudnet_message" then
-	["+ "] = "east",
+			local data = ev[2]
-	[" +"] = "south",
+			if data.type == "sw_ping" then
-	["- "] = "west",
+				data.timer = timer
-	[" -"] = "north"
+				data.last_ping = os.epoch "utc"
-}
+				switches[data.id] = data
 				print(data.id)
-local function direction_name(vec)
+				spudnet_send { type = "sw_cmd", cmd = "set", lamp = (os.clock() % 16) * 2048 }
-	local function symbol(v)
+
-		if math.abs(v) < 0.1 then return " "
+		elseif ev[1] == "timer" then
-		elseif v < 0 then return "-"
+			if ev[2] == sweep_timer then
-		else return "+" end
+				local now = os.epoch "utc"
 				for id, switch in pairs(switches) do
-	return directions[symbol(vec.x) .. symbol(vec.z)]
+					if now - switch.last_ping >= 2000 then
 						print(switch, "antimemeticized")
 						switches[id] = nil
 					end
 				end
-		local entities = sensor.sense()
+				sweep_timer = os.startTimer(1)
-		for _, entity in pairs(entities) do
+
-			entity.position = vector.new(entity.x, entity.y, entity.z) + switch_config.offset
+
-			entity.velocity = vector.new(entity.motionX, entity.motionY, entity.motionZ)
+
 end
-		table.sort(entities, function(a, b) return a.position:length() < b.position:length() end)
+
-		local carts = {}
+parallel.waitForAll(spudnet_handler, main)