View difference between Paste ID: z3cyAkCr and ZgmytdU4

-function scheduleFromFile(path)
+local LONG_PING = 5
-    local file = fs.open(path, "r")
+local MEDIUM_PING = 1
-	local body = file.readAll()
+local SHORT_PING = 0.2
-	file.close()
+
-    return textutils.unserialize(body)
+local inst1 = "pling"
 local inst2 = "iron_xylophone"
 local inst3 = "bit"
-function scheduleFromStation()
+local melody = {
-	return peripheral.find("Create_Station").getSchedule()
+	{duration=0.5, notes={{inst1, 5, 20}, {inst2, 5, 20}, {inst3, 5, 4}}},
 	{duration=0.5, notes={{inst1, 5, 16}, {inst2, 5, 16}, {inst3, 5, 8}}},
 	{duration=0.5, notes={{inst1, 5, 18}, {inst2, 5, 18}, {inst3, 5, 6}}},
-local args = {...}
+	{duration=0.5, notes={{inst1, 5, 11}, {inst2, 5, 11}, {inst3, 5, 11}}}
-local filePath = args[1]
+}
-local schedule
+
-if filePath == nil then
+local stations = {}
-    schedule = scheduleFromStation()
+local speakers = {}
-else
+for _, name in pairs(peripheral.getNames()) do
-    schedule = scheduleFromFile(filePath)
+	pType = peripheral.getType(name)
     if pType == "Create_Station" then
         local station = peripheral.wrap(name)
-local color = schedule.color
+        local sName = station.getStationName()
-if color == nil then
+        station.name=string.gfind(string.gsub(sName, "%s%d", ""), "[%a%s%p]+")()
-    color = 2048
+        station.platform=tonumber(string.gfind(sName, "%d+$")())
         station.present=station.isTrainPresent()
-term.setTextColor(colors.white)
+        table.insert(stations, station)
-term.setBackgroundColor(colors.black)
+    elseif pType == "speaker" then
-term.clear()
+        table.insert(speakers, peripheral.wrap(name))
     end
-local i = 1
+
-for _, entry in ipairs(schedule.entries) do
+
-    if entry.instruction.id == "create:destination" then
+shell.run("clear")
-		local name = entry.instruction.data.text:gsub("%s%d+$", "")
+
-		term.setCursorPos(4, i)
+local pingTimer = os.startTimer(SHORT_PING)
-        term.write(name)
+local noteTimer = nil
-		i = i + 1
+local noteIndex = 1
-	end
+while true do
     local event, timerId = os.pullEvent("timer")
-term.setBackgroundColor(color)
+    local noteStart = false
-for j=1,i-1 do
+    if timerId == pingTimer then
-    term.setCursorPos(2, j)
+        local newTime = LONG_PING
-    term.write(" ")
+        for i, station in pairs(stations) do
---    if j == 1 or j == i-1 then
+            if station.isTrainPresent() then
---        term.write("O")
+                if not station.present then
---    else
+                    stations[i].present = true
---        term.write("|")
+                    newTime = math.min(newTime, MEDIUM_PING)
---    end
+                    noteStart = true
                     local name = station.getTrainName()
-term.setBackgroundColor(colors.black)
+                    print(name.." arrived on platform "..station.platform)
-term.setCursorPos(1, i)
+                end
             else
                 stations[i].present = false
                 if station.isTrainEnroute() then
                     newTime = math.min(newTime, MEDIUM_PING)
                 elseif station.isTrainImminent() then
                     newTime = math.min(newTime, SHORT_PING)
                 end
             end
         end
         pingTimer = os.startTimer(newTime)
     end
     if timerId == noteTimer or noteStart then
         local notes = melody[noteIndex]
         if notes == nil then
             noteIndex = 1
         else
             for _, note in pairs(notes.notes) do
                 for _, speaker in pairs(speakers) do
                 	speaker.playNote(unpack(note))
                 end
             end
         	noteIndex = noteIndex + 1
             noteTimer = os.startTimer(notes.duration)
         end
     end
 end