From 0b14726c5539782a60d2f4beaed2cfca74a50f7a Mon Sep 17 00:00:00 2001 From: autocommitter Date: Mon, 22 Apr 2024 14:51:45 +0200 Subject: State at 2019-12-13 --- Crossroads/init_code.lua | 224 +++++++++++++++++++++++++++++++++++ Crossroads/nodes/(-5710,2,-3917).lua | 14 +++ Crossroads/nodes/(1083,19,3028).lua | 5 + Crossroads/nodes/(1167,8,1013).lua | 5 + Crossroads/nodes/(1219,9,1549).lua | 1 + Crossroads/nodes/(1223,12,1555).lua | 5 + Crossroads/nodes/(1224,12,1555).lua | 1 + Crossroads/nodes/(1227,12,1541).lua | 1 + Crossroads/nodes/(1228,12,1541).lua | 5 + Crossroads/nodes/(1232,9,1547).lua | 1 + Crossroads/nodes/(1288,9,1545).lua | 4 + Crossroads/nodes/(1350,11,1371).lua | 1 + Crossroads/nodes/(1352,11,1389).lua | 1 + Crossroads/nodes/(1359,11,1380).lua | 1 + Crossroads/nodes/(1388,-9,1321).lua | 1 + Crossroads/nodes/(1388,-9,1352).lua | 1 + Crossroads/nodes/(1388,-9,1373).lua | 1 + Crossroads/nodes/(1393,19,1619).lua | 1 + Crossroads/nodes/(1393,19,1709).lua | 1 + Crossroads/nodes/(1393,19,1820).lua | 1 + Crossroads/nodes/(1393,4,1965).lua | 1 + Crossroads/nodes/(1393,8,1489).lua | 1 + Crossroads/nodes/(1397,19,1630).lua | 1 + Crossroads/nodes/(1397,19,1720).lua | 1 + Crossroads/nodes/(1397,4,1977).lua | 1 + Crossroads/nodes/(1397,8,1501).lua | 1 + Crossroads/nodes/(1400,21,819).lua | 1 + Crossroads/nodes/(1402,19,1820).lua | 1 + Crossroads/nodes/(1419,26,819).lua | 1 + Crossroads/nodes/(1601,5,1992).lua | 9 ++ Crossroads/nodes/(1673,20,985).lua | 1 + Crossroads/nodes/(1682,20,971).lua | 1 + Crossroads/nodes/(1702,12,914).lua | 1 + Crossroads/nodes/(1709,17,914).lua | 1 + Crossroads/nodes/(1714,26,1007).lua | 3 + Crossroads/nodes/(1720,15,995).lua | 4 + Crossroads/nodes/(1746,12,914).lua | 1 + Crossroads/nodes/(1746,17,987).lua | 1 + Crossroads/nodes/(1753,12,988).lua | 1 + Crossroads/nodes/(1753,17,917).lua | 1 + Crossroads/nodes/(1755,27,942).lua | 5 + Crossroads/nodes/(1755,27,943).lua | 57 +++++++++ Crossroads/nodes/(1767,27,946).lua | 2 + Crossroads/nodes/(1773,5,994).lua | 1 + Crossroads/nodes/(1790,5,1020).lua | 1 + Crossroads/nodes/(1795,5,1000).lua | 5 + Crossroads/nodes/(1796,25,1011).lua | 1 + Crossroads/nodes/(1796,25,1019).lua | 1 + Crossroads/nodes/(1801,5,1008).lua | 5 + Crossroads/nodes/(2009,4,993).lua | 1 + Crossroads/nodes/(2022,4,993).lua | 1 + Crossroads/nodes/(2254,4,991).lua | 1 + Crossroads/nodes/(2254,4,997).lua | 1 + Crossroads/nodes/(544,11,2152).lua | 9 ++ Crossroads/nodes/(851,14,773).lua | 12 ++ Crossroads/nodes/(852,12,710).lua | 6 + Crossroads/nodes/(861,12,725).lua | 6 + Crossroads/nodes/(864,14,793).lua | 11 ++ Crossroads/nodes/(867,14,776).lua | 12 ++ Crossroads/nodes/(880,14,789).lua | 1 + Crossroads/nodes/(881,6,886).lua | 6 + Crossroads/nodes/(898,14,835).lua | 6 + 62 files changed, 459 insertions(+) create mode 100644 Crossroads/init_code.lua create mode 100644 Crossroads/nodes/(-5710,2,-3917).lua create mode 100644 Crossroads/nodes/(1083,19,3028).lua create mode 100644 Crossroads/nodes/(1167,8,1013).lua create mode 100644 Crossroads/nodes/(1219,9,1549).lua create mode 100644 Crossroads/nodes/(1223,12,1555).lua create mode 100644 Crossroads/nodes/(1224,12,1555).lua create mode 100644 Crossroads/nodes/(1227,12,1541).lua create mode 100644 Crossroads/nodes/(1228,12,1541).lua create mode 100644 Crossroads/nodes/(1232,9,1547).lua create mode 100644 Crossroads/nodes/(1288,9,1545).lua create mode 100644 Crossroads/nodes/(1350,11,1371).lua create mode 100644 Crossroads/nodes/(1352,11,1389).lua create mode 100644 Crossroads/nodes/(1359,11,1380).lua create mode 100644 Crossroads/nodes/(1388,-9,1321).lua create mode 100644 Crossroads/nodes/(1388,-9,1352).lua create mode 100644 Crossroads/nodes/(1388,-9,1373).lua create mode 100644 Crossroads/nodes/(1393,19,1619).lua create mode 100644 Crossroads/nodes/(1393,19,1709).lua create mode 100644 Crossroads/nodes/(1393,19,1820).lua create mode 100644 Crossroads/nodes/(1393,4,1965).lua create mode 100644 Crossroads/nodes/(1393,8,1489).lua create mode 100644 Crossroads/nodes/(1397,19,1630).lua create mode 100644 Crossroads/nodes/(1397,19,1720).lua create mode 100644 Crossroads/nodes/(1397,4,1977).lua create mode 100644 Crossroads/nodes/(1397,8,1501).lua create mode 100644 Crossroads/nodes/(1400,21,819).lua create mode 100644 Crossroads/nodes/(1402,19,1820).lua create mode 100644 Crossroads/nodes/(1419,26,819).lua create mode 100644 Crossroads/nodes/(1601,5,1992).lua create mode 100644 Crossroads/nodes/(1673,20,985).lua create mode 100644 Crossroads/nodes/(1682,20,971).lua create mode 100644 Crossroads/nodes/(1702,12,914).lua create mode 100644 Crossroads/nodes/(1709,17,914).lua create mode 100644 Crossroads/nodes/(1714,26,1007).lua create mode 100644 Crossroads/nodes/(1720,15,995).lua create mode 100644 Crossroads/nodes/(1746,12,914).lua create mode 100644 Crossroads/nodes/(1746,17,987).lua create mode 100644 Crossroads/nodes/(1753,12,988).lua create mode 100644 Crossroads/nodes/(1753,17,917).lua create mode 100644 Crossroads/nodes/(1755,27,942).lua create mode 100644 Crossroads/nodes/(1755,27,943).lua create mode 100644 Crossroads/nodes/(1767,27,946).lua create mode 100644 Crossroads/nodes/(1773,5,994).lua create mode 100644 Crossroads/nodes/(1790,5,1020).lua create mode 100644 Crossroads/nodes/(1795,5,1000).lua create mode 100644 Crossroads/nodes/(1796,25,1011).lua create mode 100644 Crossroads/nodes/(1796,25,1019).lua create mode 100644 Crossroads/nodes/(1801,5,1008).lua create mode 100644 Crossroads/nodes/(2009,4,993).lua create mode 100644 Crossroads/nodes/(2022,4,993).lua create mode 100644 Crossroads/nodes/(2254,4,991).lua create mode 100644 Crossroads/nodes/(2254,4,997).lua create mode 100644 Crossroads/nodes/(544,11,2152).lua create mode 100644 Crossroads/nodes/(851,14,773).lua create mode 100644 Crossroads/nodes/(852,12,710).lua create mode 100644 Crossroads/nodes/(861,12,725).lua create mode 100644 Crossroads/nodes/(864,14,793).lua create mode 100644 Crossroads/nodes/(867,14,776).lua create mode 100644 Crossroads/nodes/(880,14,789).lua create mode 100644 Crossroads/nodes/(881,6,886).lua create mode 100644 Crossroads/nodes/(898,14,835).lua (limited to 'Crossroads') diff --git a/Crossroads/init_code.lua b/Crossroads/init_code.lua new file mode 100644 index 0000000..aa4e66d --- /dev/null +++ b/Crossroads/init_code.lua @@ -0,0 +1,224 @@ +--[[ +This environment has programs that can be separated to three parts: +I) Common functions +II) Common variables +III) ATL/CRT Bronze Line +]] + +-- I) Common Functions +if S.trains == nil then S.trains = {} end + +-- F.dst - Get summer time +function F.dst() + if os.date().isdst then return "CEST" else return "CET" end +end +-- F.error - Send error with error code +function F.error(errorcode) + error(F.errlist[errorcode]) +end +--[[ F.stnbasic - Basis for all station functions: +(By default, nil is defined as false or "no changes") +stn = Station Code +side = Door opening side +optime = Length of time before train departs +reverse = Reverse train before departing +acc = Departure Speed +out = Change outside text +reventry = Allow trains to pass from the reverse direction +predepart = Function to execute before departure +postdepart = Function to execute after departure +next = Next stop +]] +function F.stnbasic(stn, side, optime, reverse, acc, out, reventry, predepart, postdepart, next,track) + if event.train then + if atc_arrow then + local cmdstr="" + if out~=nil then atc_set_text_outside(out) end + if stn==nil then atc_set_text_inside("Unknown Station") + else atc_set_text_inside(F.stnlist[stn]) end + cmdstr="BBWO"..(side or "R") + if predepart~=nil then predepart() end + S.trains[atc_id] = "P "..stn.." "..(track or "x") + cmdstr=cmdstr.."D"..(optime or 15) + cmdstr=cmdstr.."OCD2" + if reverse then cmdstr=cmdstr.."R" end + cmdstr=cmdstr.."S"..(acc or "M") + atc_send(cmdstr) + interrupt((optime or 15)+2) + else + if reventry==nil then F.error("wrong_direction") + else + if not reventry then F.error("wrong_direction") end + end + end + end + if event.int then + if atc_id ~= nil then + if next == nil then atc_set_text_inside("") else atc_set_text_inside("Next stop: "..F.stnlist[next]) end + if postdepart~=nil then postdepart() end + end + end +end + +-- F.hst - preset function for small stations (Haltestelle) +function F.hst(cur, nxt, side, spd, out, trk) + F.stnbasic(cur, side, 10, false, spd, out, true, nil, nil, nxt, trk) +end + +-- F.bhf - preset function for large stations (Bahnhof) +function F.bhf(cur, nxt, side, spd, out, trk) + F.stnbasic(cur, side, 15, false, spd, out, true, nil, nil, nxt, trk) +end + +-- F.kbhf - preset function for termini +function F.kbhf(cur, nxt, side, spd, out, trk) + F.stnbasic(cur, side, 15, true, spd, out, true, nil, nil, nxt, trk) +end + +-- F.timing - station with timing +function F.timing(d_off, d_int, cur, nxt, side, spd, out, trk, term, pre, post) + local timenow = os.time() + local timerdy = timenow + 8 + local wait = d_int - ((timerdy-d_off) % d_int) + local waitcorr = math.floor(wait*0.66) + F.stnbasic(cur, side, waitcorr, term, spd, out, true, pre, post, nxt, trk) +end + +-- F.brk(direction) - sends ATC B2 command +function F.brk(dir) + if event.type == "train" then + if atc_arrow == dir then + atc_send("B2S2") + end + end +end + +--[[ F.eval - similar to the ? : operator in C +expr = the expression to evaluate +rettrue = the value to return if expr is true +retfalse = the value to return if expr is false +]] +function F.eval(expr, rettrue, retfalse) + if expr then return rettrue else return retfalse end +end + +function F.checkpoint(name,arrow,opp) + if event.train then + S.trains[atc_id] = "C "..name.." " + if atc_arrow then + S.trains[atc_id] = S.trains[atc_id]..arrow + else + S.trains[atc_id] = S.trains[atc_id]..opp + end + end +end + +--[[ II) Common Variables +F.stnlist = List of stations +F.errlist = List of errors +F.depint = Departure intervals +]] +F.stnlist = { + cg = "Colored Grasses", + clockwise = "Clockwise Route", + counterclockwise = "Counterclockwise Route", + cras = "Crossroads ARSE7's Shop", + crbfost = "Crossroads Station East", + crbfsm = "Crossroads Station St. Central", + crbfso = "Crossroads Station St. East", + crbfsw = "Crossroads Station St. West", + crch = "Crossroads City Hall", + crchs = "Crossroads City Hall South", + crmtrail = "Crossroads Mountain Railway Termius", + crnsw = "CR-North Station St. Ferry (W.)", + crrathaus = "Crossroads City Hall", + crsmacker = "Crossroads Smacker's Station", + crwm = "Crossroads-West Mountains", + crzn = "Crossroads-Zentrum/Nordstadt", + el = "Erstaziland", + elchateau = "Chateau d'Erstazi", + elgp = "Erstaziland Greener Pastures", + elsf = "Erstaziland Salt Factory", + evo = "EVO", + mushroom = "Mushroom Land", + neverbuild = "Neverbuild", + nvbcentral = "Neverbuild Central", + nvbold = "Neverbuild Old Termius", + nvboutskirts = "Neverbuild Outskirts", + oc = "Ocean City", + occh = "Ocean City, City Hall", + occrt = "Ocean City, CRT Office", + ocmushroom = "Ocean City, Mushroom Market", + ocoutskirts = "Ocean City Outskirts", + phwest = "Personhood, West", + scc = "Silver Coast Central", + scn = "Silver Coast North", + scs = "Silver Coast South", +} +F.errlist = { + ["runaway_train"] = "Runaway train found!", + ["train_disappeared"] = "Train has disappeared!", + ["unexpected_train"] = "Train is not expected to pass!", + ["wrong_direction"] = "Train passed in wrong direction!", +} +F.depint = { + ["AB"] = 60, + ["AG"] = 120, + ["CRT1"] = 30, +} + +-- ATL/CRT Bronze Line + +-- Colored Grasses +F.ab_cgw="--:-- "..F.dst() +F.ab_cge="--:-- "..F.dst() + +F.ab_status = "Irregular operation" + +F.cg_disp = function() + if event.digiline then + if event.digiline then if not event.channel=="upd" then return end end + local t=os.date() + local cg="Colored Grasses\nATL/CRT Bronze Line\n" + local str = string.format("%s\n"..F.ab_status.." \n", os.date("%d %b %Y %H:%M %z",os.time())) + local abf = os.date("%H:%M %z",os.time()+60) + digiline_send("bstg1-1",cg.."<-- Personhood West\n[1] via The Cube") + digiline_send("bstg1-2",string.format("%s%27s\n%27s",str,"Crossroads City Hall -->","via Silver Coast [2]")) + digiline_send("bstg2-1",cg.."<-- Crossroads City Hall\n[2] via Silver Coast") + digiline_send("bstg2-2",string.format("%s%27s\n%27s",str,"Personhood West -->","via The Cube [1]")) + digiline_send("bstg3","Scheduled departure (Track\nScheduled departure (Track") + digiline_send("bstg4","1): "..abf.."\n2): "..abf) + return + end + return +end + +function F.cg_stn(gleis) + if event.train and atc_arrow then + if get_line()~="AB" then atc_send("SM") return end + atc_send("B0 W OR") + local time=os.date() + if time.sec>50 then time.sec=time.sec-11 end + local m="" + if time.min>58 then + m = string.format("%s%02d:%02d", m, F.eval(time.hour > 22, time.hour - 24, time.hour) + 1, time.min - 59) + else + m = string.format("%s%02d:%02d", m, time.hour, time.min + 1) + end + m = m .. " " .. F.dst() + atc_set_text_inside("Colored Grasses\nThis train will depart at: "..m) + interrupt(60-time.sec,"depart") + if gleis==1 then F.ab_cgw=m + else F.ab_cge=m + end + end + if event.int and event.message=="depart" then + atc_set_text_inside("") + time = os.date() + local nxt = string.format("%02d:%02d %s", F.eval(time.min>58, F.eval(time.hour>22, time.hour-23, time.hour+1), time.hour), F.eval(time.min>58, time.min-59, time.min+1), F.dst()) + atc_send("OC D1 SM") + if gleis==1 then F.ab_cgw=nxt + else F.ab_cge=nxt + end + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(-5710,2,-3917).lua b/Crossroads/nodes/(-5710,2,-3917).lua new file mode 100644 index 0000000..65f7991 --- /dev/null +++ b/Crossroads/nodes/(-5710,2,-3917).lua @@ -0,0 +1,14 @@ +local testpos=POS(-5716,2,-3919) +local chn="out" +local newstate=nil + +if event.type=="punch" then + if is_passive(testpos) then + if newstate==nil then digiline_send(chn," true\n "..getstate(testpos)) + else + digiline_send(chn," true\n "..getstate(testpos).."\n "..newstate) + setstate(testpos,newstate) + end + else digiline_send(chn," false") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1083,19,3028).lua b/Crossroads/nodes/(1083,19,3028).lua new file mode 100644 index 0000000..0e5b482 --- /dev/null +++ b/Crossroads/nodes/(1083,19,3028).lua @@ -0,0 +1,5 @@ +if event.train then + if not atc_arrow then return end + atc_set_text_outside("ATL/CRT Bronze Line - Crossroads City Hall") + set_line("AB") +end \ No newline at end of file diff --git a/Crossroads/nodes/(1167,8,1013).lua b/Crossroads/nodes/(1167,8,1013).lua new file mode 100644 index 0000000..5f46f5d --- /dev/null +++ b/Crossroads/nodes/(1167,8,1013).lua @@ -0,0 +1,5 @@ +if event.type == "train" then + if atc_arrow then + atc_set_text_outside("ATL Mithril Line - Crossroads") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1219,9,1549).lua b/Crossroads/nodes/(1219,9,1549).lua new file mode 100644 index 0000000..e08cb42 --- /dev/null +++ b/Crossroads/nodes/(1219,9,1549).lua @@ -0,0 +1 @@ +F.cg_stn(1) \ No newline at end of file diff --git a/Crossroads/nodes/(1223,12,1555).lua b/Crossroads/nodes/(1223,12,1555).lua new file mode 100644 index 0000000..b07a528 --- /dev/null +++ b/Crossroads/nodes/(1223,12,1555).lua @@ -0,0 +1,5 @@ +if event.type == "digiline" then + if event.channel == "updwrapper" then + digiline_send("upd","update") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1224,12,1555).lua b/Crossroads/nodes/(1224,12,1555).lua new file mode 100644 index 0000000..a150241 --- /dev/null +++ b/Crossroads/nodes/(1224,12,1555).lua @@ -0,0 +1 @@ +F.cg_disp() \ No newline at end of file diff --git a/Crossroads/nodes/(1227,12,1541).lua b/Crossroads/nodes/(1227,12,1541).lua new file mode 100644 index 0000000..a150241 --- /dev/null +++ b/Crossroads/nodes/(1227,12,1541).lua @@ -0,0 +1 @@ +F.cg_disp() \ No newline at end of file diff --git a/Crossroads/nodes/(1228,12,1541).lua b/Crossroads/nodes/(1228,12,1541).lua new file mode 100644 index 0000000..b07a528 --- /dev/null +++ b/Crossroads/nodes/(1228,12,1541).lua @@ -0,0 +1,5 @@ +if event.type == "digiline" then + if event.channel == "updwrapper" then + digiline_send("upd","update") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1232,9,1547).lua b/Crossroads/nodes/(1232,9,1547).lua new file mode 100644 index 0000000..4e4a905 --- /dev/null +++ b/Crossroads/nodes/(1232,9,1547).lua @@ -0,0 +1 @@ +F.cg_stn(2) \ No newline at end of file diff --git a/Crossroads/nodes/(1288,9,1545).lua b/Crossroads/nodes/(1288,9,1545).lua new file mode 100644 index 0000000..f0f7da4 --- /dev/null +++ b/Crossroads/nodes/(1288,9,1545).lua @@ -0,0 +1,4 @@ +if event.train and atc_arrow then + atc_send("B8S8") + atc_set_text_inside("Next station:\nColored Grasses") +end \ No newline at end of file diff --git a/Crossroads/nodes/(1350,11,1371).lua b/Crossroads/nodes/(1350,11,1371).lua new file mode 100644 index 0000000..a9a4f88 --- /dev/null +++ b/Crossroads/nodes/(1350,11,1371).lua @@ -0,0 +1 @@ +F.bhf("oc","scn","R","M",nil,"ZS") \ No newline at end of file diff --git a/Crossroads/nodes/(1352,11,1389).lua b/Crossroads/nodes/(1352,11,1389).lua new file mode 100644 index 0000000..1b4c4ac --- /dev/null +++ b/Crossroads/nodes/(1352,11,1389).lua @@ -0,0 +1 @@ +F.bhf("oc","elgp","R","M",nil,"ZN") \ No newline at end of file diff --git a/Crossroads/nodes/(1359,11,1380).lua b/Crossroads/nodes/(1359,11,1380).lua new file mode 100644 index 0000000..9214f4d --- /dev/null +++ b/Crossroads/nodes/(1359,11,1380).lua @@ -0,0 +1 @@ +F.timing(215, F.depint["AG"], "oc","ocoutskirts","R","M","ATL Gold Line - Neverbuild Central","T",true) \ No newline at end of file diff --git a/Crossroads/nodes/(1388,-9,1321).lua b/Crossroads/nodes/(1388,-9,1321).lua new file mode 100644 index 0000000..64642da --- /dev/null +++ b/Crossroads/nodes/(1388,-9,1321).lua @@ -0,0 +1 @@ +F.hst("ocmushroom","occh","L",8,nil,"2") \ No newline at end of file diff --git a/Crossroads/nodes/(1388,-9,1352).lua b/Crossroads/nodes/(1388,-9,1352).lua new file mode 100644 index 0000000..44e8f92 --- /dev/null +++ b/Crossroads/nodes/(1388,-9,1352).lua @@ -0,0 +1 @@ +F.hst("occrt","ocmushroom","L",7,nil,"2") \ No newline at end of file diff --git a/Crossroads/nodes/(1388,-9,1373).lua b/Crossroads/nodes/(1388,-9,1373).lua new file mode 100644 index 0000000..c53d4a6 --- /dev/null +++ b/Crossroads/nodes/(1388,-9,1373).lua @@ -0,0 +1 @@ +F.hst("occh","occrt","R",8,nil,"2") \ No newline at end of file diff --git a/Crossroads/nodes/(1393,19,1619).lua b/Crossroads/nodes/(1393,19,1619).lua new file mode 100644 index 0000000..02e416b --- /dev/null +++ b/Crossroads/nodes/(1393,19,1619).lua @@ -0,0 +1 @@ +F.timing(125,F.depint["AG"],"nvboutskirts", "ocoutskirts", "R", "M", nil, "S") \ No newline at end of file diff --git a/Crossroads/nodes/(1393,19,1709).lua b/Crossroads/nodes/(1393,19,1709).lua new file mode 100644 index 0000000..4eaa76f --- /dev/null +++ b/Crossroads/nodes/(1393,19,1709).lua @@ -0,0 +1 @@ +F.timing(85, F.depint["AG"], "mushroom", "nvboutskirts", "R", "M", nil, "S") \ No newline at end of file diff --git a/Crossroads/nodes/(1393,19,1820).lua b/Crossroads/nodes/(1393,19,1820).lua new file mode 100644 index 0000000..fada4e2 --- /dev/null +++ b/Crossroads/nodes/(1393,19,1820).lua @@ -0,0 +1 @@ +F.timing(50,F.depint["AG"],"nvbold","mushroom","L","M",nil,"S") \ No newline at end of file diff --git a/Crossroads/nodes/(1393,4,1965).lua b/Crossroads/nodes/(1393,4,1965).lua new file mode 100644 index 0000000..0f6692c --- /dev/null +++ b/Crossroads/nodes/(1393,4,1965).lua @@ -0,0 +1 @@ +F.timing(0, F.depint["AG"], "nvbcentral", "nvbold", "R", "M", "ATL Gold Line - Ocean City","GS") \ No newline at end of file diff --git a/Crossroads/nodes/(1393,8,1489).lua b/Crossroads/nodes/(1393,8,1489).lua new file mode 100644 index 0000000..2c08535 --- /dev/null +++ b/Crossroads/nodes/(1393,8,1489).lua @@ -0,0 +1 @@ +F.timing(165,F.depint["AG"],"ocoutskirts","oc","R","M",nil,"S") \ No newline at end of file diff --git a/Crossroads/nodes/(1397,19,1630).lua b/Crossroads/nodes/(1397,19,1630).lua new file mode 100644 index 0000000..d343142 --- /dev/null +++ b/Crossroads/nodes/(1397,19,1630).lua @@ -0,0 +1 @@ +F.timing(305,F.depint["AG"],"nvboutskirts", "mushroom", "R", "M", nil, "N") \ No newline at end of file diff --git a/Crossroads/nodes/(1397,19,1720).lua b/Crossroads/nodes/(1397,19,1720).lua new file mode 100644 index 0000000..85d220d --- /dev/null +++ b/Crossroads/nodes/(1397,19,1720).lua @@ -0,0 +1 @@ +F.timing(345,F.depint["AG"],"mushroom","nvbold","R","M",nil,"N") \ No newline at end of file diff --git a/Crossroads/nodes/(1397,4,1977).lua b/Crossroads/nodes/(1397,4,1977).lua new file mode 100644 index 0000000..d42c671 --- /dev/null +++ b/Crossroads/nodes/(1397,4,1977).lua @@ -0,0 +1 @@ +F.bhf("nvbcentral","nvbcentral","R","8","ATL Gold Line - Ocean City","N") \ No newline at end of file diff --git a/Crossroads/nodes/(1397,8,1501).lua b/Crossroads/nodes/(1397,8,1501).lua new file mode 100644 index 0000000..58832a9 --- /dev/null +++ b/Crossroads/nodes/(1397,8,1501).lua @@ -0,0 +1 @@ +F.timing(265,F.depint["AG"],"ocoutskirts","nvboutskirts","R","M", nil, "N") \ No newline at end of file diff --git a/Crossroads/nodes/(1400,21,819).lua b/Crossroads/nodes/(1400,21,819).lua new file mode 100644 index 0000000..4b632e4 --- /dev/null +++ b/Crossroads/nodes/(1400,21,819).lua @@ -0,0 +1 @@ +F.bhf("crwm","scs","L","M",nil,"FW") \ No newline at end of file diff --git a/Crossroads/nodes/(1402,19,1820).lua b/Crossroads/nodes/(1402,19,1820).lua new file mode 100644 index 0000000..6569ce9 --- /dev/null +++ b/Crossroads/nodes/(1402,19,1820).lua @@ -0,0 +1 @@ +F.timing(385, F.depint["AG"], "nvbold", "nvbcentral", "L", "M", nil, "N") \ No newline at end of file diff --git a/Crossroads/nodes/(1419,26,819).lua b/Crossroads/nodes/(1419,26,819).lua new file mode 100644 index 0000000..e3c0adf --- /dev/null +++ b/Crossroads/nodes/(1419,26,819).lua @@ -0,0 +1 @@ +F.bhf("crwm","crch","R","M",nil,"1") \ No newline at end of file diff --git a/Crossroads/nodes/(1601,5,1992).lua b/Crossroads/nodes/(1601,5,1992).lua new file mode 100644 index 0000000..4cb1cb8 --- /dev/null +++ b/Crossroads/nodes/(1601,5,1992).lua @@ -0,0 +1,9 @@ +-- +local interval = 900 -- Interval in seconds +local offset = interval/2 -- Offset for the timing system +if event.type == "train" then + if atc_arrow then + interrupt_time = (offset-os.time())%interval + atc_send(string.format("BBWD%dRSM",interrupt_time)) + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1673,20,985).lua b/Crossroads/nodes/(1673,20,985).lua new file mode 100644 index 0000000..20d4674 --- /dev/null +++ b/Crossroads/nodes/(1673,20,985).lua @@ -0,0 +1 @@ +F.stnbasic("crsmacker", "L", (30-os.date().sec)%30, false, "M", "CRT 1 - Counterclockwise Route", false, nil, nil, "cras", "2") \ No newline at end of file diff --git a/Crossroads/nodes/(1682,20,971).lua b/Crossroads/nodes/(1682,20,971).lua new file mode 100644 index 0000000..048d9f3 --- /dev/null +++ b/Crossroads/nodes/(1682,20,971).lua @@ -0,0 +1 @@ +F.stnbasic("crsmacker", "L", (27-os.date().sec)%30+5, false, "M", "CRT 1 - Clockwise Route", false, nil, nil, "crch", "1") \ No newline at end of file diff --git a/Crossroads/nodes/(1702,12,914).lua b/Crossroads/nodes/(1702,12,914).lua new file mode 100644 index 0000000..27def93 --- /dev/null +++ b/Crossroads/nodes/(1702,12,914).lua @@ -0,0 +1 @@ +F.hst("cras","crsmacker","L","M",nil,"1") \ No newline at end of file diff --git a/Crossroads/nodes/(1709,17,914).lua b/Crossroads/nodes/(1709,17,914).lua new file mode 100644 index 0000000..1375bd7 --- /dev/null +++ b/Crossroads/nodes/(1709,17,914).lua @@ -0,0 +1 @@ +F.hst("cras","crchs","R","M",nil,"2") \ No newline at end of file diff --git a/Crossroads/nodes/(1714,26,1007).lua b/Crossroads/nodes/(1714,26,1007).lua new file mode 100644 index 0000000..7193ddb --- /dev/null +++ b/Crossroads/nodes/(1714,26,1007).lua @@ -0,0 +1,3 @@ +if event.train and atc_arrow then + atc_set_text_inside("Next stop: Crossroads City Hall") +end \ No newline at end of file diff --git a/Crossroads/nodes/(1720,15,995).lua b/Crossroads/nodes/(1720,15,995).lua new file mode 100644 index 0000000..c9162ac --- /dev/null +++ b/Crossroads/nodes/(1720,15,995).lua @@ -0,0 +1,4 @@ +if event.train then +atc_set_text_inside("Next station:\nCrossroads City Hall") +atc_set_text_outside("ATL/CRT Bronze Line - Personhood West") +end \ No newline at end of file diff --git a/Crossroads/nodes/(1746,12,914).lua b/Crossroads/nodes/(1746,12,914).lua new file mode 100644 index 0000000..4a5be7d --- /dev/null +++ b/Crossroads/nodes/(1746,12,914).lua @@ -0,0 +1 @@ +F.hst("crchs","cras","R",8,nil,"1") \ No newline at end of file diff --git a/Crossroads/nodes/(1746,17,987).lua b/Crossroads/nodes/(1746,17,987).lua new file mode 100644 index 0000000..819ca25 --- /dev/null +++ b/Crossroads/nodes/(1746,17,987).lua @@ -0,0 +1 @@ +F.hst("crch","crsmacker","L","M",nil,"R2") \ No newline at end of file diff --git a/Crossroads/nodes/(1753,12,988).lua b/Crossroads/nodes/(1753,12,988).lua new file mode 100644 index 0000000..c3dce37 --- /dev/null +++ b/Crossroads/nodes/(1753,12,988).lua @@ -0,0 +1 @@ +F.hst("crch","crchs","R","M",nil,"R1") \ No newline at end of file diff --git a/Crossroads/nodes/(1753,17,917).lua b/Crossroads/nodes/(1753,17,917).lua new file mode 100644 index 0000000..4e4f080 --- /dev/null +++ b/Crossroads/nodes/(1753,17,917).lua @@ -0,0 +1 @@ +F.hst("crchs","crch","L","M",nil,"1") \ No newline at end of file diff --git a/Crossroads/nodes/(1755,27,942).lua b/Crossroads/nodes/(1755,27,942).lua new file mode 100644 index 0000000..f208c95 --- /dev/null +++ b/Crossroads/nodes/(1755,27,942).lua @@ -0,0 +1,5 @@ +if event.type == "digiline" then + if event.channel == "upd_wrapper" then + digiline_send("upd_main","") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1755,27,943).lua b/Crossroads/nodes/(1755,27,943).lua new file mode 100644 index 0000000..01ed586 --- /dev/null +++ b/Crossroads/nodes/(1755,27,943).lua @@ -0,0 +1,57 @@ +local head="TRAIN STATUS" +local function trainpairs(t, f) + local a = {} + for n in pairs(t) do table.insert(a, n) end + table.sort(a, f) + local i = 0 + local iter = function () + i = i + 1 + if a[i] == nil then return nil + else return a[i], t[a[i]] + end + end + return iter +end +local length = 18 +if event.type=="digiline" then + if event.channel=="upd_main" then + local start_t = os.clock() + if not S.lagrec then S.lagrec = {} end + local l = {} + local i + for i=1,length,1 do + if i%2 == 0 then + l[i]="" + else + l[i]=head + end + end + local counter=0 + for id,st in trainpairs(S.trains) do + if (counter) % 7 < 3 then + i = (counter - counter % 7) / 7 * 2 + 1 + else + i = (counter - counter % 7) / 7 * 2 + 2 + end + l[i] = l[i] .. "\n" .. id .. " " .. st + counter = counter + 1 + end + for i=1,length,1 do + if l[i]=="" then + digiline_send("d"..tostring(i),"...") + else + digiline_send("d"..tostring(i),l[i]) + end + end + local end_t = os.clock() + table.insert(S.lagrec,end_t - start_t) + table.sort(S.lagrec) + local lagavg = 0 + for _,v in pairs(S.lagrec) do + lagavg = lagavg + v + end + lagavg = lagavg / #S.lagrec + digiline_send("lag1", "DEBUG\nTRAINS: " .. counter .. "\nDISPS: " .. length .. "\nTIME: " .. os.date("%d %b %Y %X")) + digiline_send("lag2", "CUR " .. (end_t - start_t) .. "\nMIN " .. S.lagrec[1] .. "\nMAX " .. S.lagrec[#S.lagrec] .. "\nAVG " .. lagavg) + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1767,27,946).lua b/Crossroads/nodes/(1767,27,946).lua new file mode 100644 index 0000000..27d996d --- /dev/null +++ b/Crossroads/nodes/(1767,27,946).lua @@ -0,0 +1,2 @@ +S.trains = {} +S.lagavg = {} \ No newline at end of file diff --git a/Crossroads/nodes/(1773,5,994).lua b/Crossroads/nodes/(1773,5,994).lua new file mode 100644 index 0000000..575cb88 --- /dev/null +++ b/Crossroads/nodes/(1773,5,994).lua @@ -0,0 +1 @@ +F.timing(0, F.depint["AB"], "crch", "crwm", "R", "M", "ATL/CRT Bronze Line - Personhood West", "1", true) \ No newline at end of file diff --git a/Crossroads/nodes/(1790,5,1020).lua b/Crossroads/nodes/(1790,5,1020).lua new file mode 100644 index 0000000..b7a24f0 --- /dev/null +++ b/Crossroads/nodes/(1790,5,1020).lua @@ -0,0 +1 @@ +F.kbhf("crrathaus","crbfsw","L","M","CRT2 - Crossroads North","5") \ No newline at end of file diff --git a/Crossroads/nodes/(1795,5,1000).lua b/Crossroads/nodes/(1795,5,1000).lua new file mode 100644 index 0000000..ccf3e26 --- /dev/null +++ b/Crossroads/nodes/(1795,5,1000).lua @@ -0,0 +1,5 @@ +if event.type == "train" then + if atc_arrow then + atc_set_text_inside("Next stop: CR-North Station St. Ferry (West)") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(1796,25,1011).lua b/Crossroads/nodes/(1796,25,1011).lua new file mode 100644 index 0000000..9aafeb8 --- /dev/null +++ b/Crossroads/nodes/(1796,25,1011).lua @@ -0,0 +1 @@ +F.kbhf("crch","crwm","L","M","CRT 12","C4") \ No newline at end of file diff --git a/Crossroads/nodes/(1796,25,1019).lua b/Crossroads/nodes/(1796,25,1019).lua new file mode 100644 index 0000000..69f3d92 --- /dev/null +++ b/Crossroads/nodes/(1796,25,1019).lua @@ -0,0 +1 @@ +F.kbhf("crch","crch","R","M",nil,"C5") \ No newline at end of file diff --git a/Crossroads/nodes/(1801,5,1008).lua b/Crossroads/nodes/(1801,5,1008).lua new file mode 100644 index 0000000..7741b35 --- /dev/null +++ b/Crossroads/nodes/(1801,5,1008).lua @@ -0,0 +1,5 @@ +if event.type == "train" then + if atc_arrow then + atc_set_text_outside("ATL Mithril Line - Ehlodex") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(2009,4,993).lua b/Crossroads/nodes/(2009,4,993).lua new file mode 100644 index 0000000..7006284 --- /dev/null +++ b/Crossroads/nodes/(2009,4,993).lua @@ -0,0 +1 @@ +F.hst("crbfsw","crch","L","M",nil,"W") \ No newline at end of file diff --git a/Crossroads/nodes/(2022,4,993).lua b/Crossroads/nodes/(2022,4,993).lua new file mode 100644 index 0000000..5cfe913 --- /dev/null +++ b/Crossroads/nodes/(2022,4,993).lua @@ -0,0 +1 @@ +F.hst("crbfsw","crnsw","R","M",nil,"E") \ No newline at end of file diff --git a/Crossroads/nodes/(2254,4,991).lua b/Crossroads/nodes/(2254,4,991).lua new file mode 100644 index 0000000..9340cff --- /dev/null +++ b/Crossroads/nodes/(2254,4,991).lua @@ -0,0 +1 @@ +F.kbhf("crnsw","crbfsw","R","M","CRT2 - Crossroads City Hall","1") \ No newline at end of file diff --git a/Crossroads/nodes/(2254,4,997).lua b/Crossroads/nodes/(2254,4,997).lua new file mode 100644 index 0000000..94928cd --- /dev/null +++ b/Crossroads/nodes/(2254,4,997).lua @@ -0,0 +1 @@ +F.kbhf("crnsw","crch","L","M","ATL Mithril Line - Ehlodex","2") \ No newline at end of file diff --git a/Crossroads/nodes/(544,11,2152).lua b/Crossroads/nodes/(544,11,2152).lua new file mode 100644 index 0000000..69612c9 --- /dev/null +++ b/Crossroads/nodes/(544,11,2152).lua @@ -0,0 +1,9 @@ +-- +local interval = 900 -- Interval in seconds +local offset = 0 -- Offset for the timing system +if event.type == "train" then + if atc_arrow then + interrupt_time = (offset-os.time())%interval + atc_send(string.format("BBWD%dRSM",interrupt_time)) + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(851,14,773).lua b/Crossroads/nodes/(851,14,773).lua new file mode 100644 index 0000000..aabbc7b --- /dev/null +++ b/Crossroads/nodes/(851,14,773).lua @@ -0,0 +1,12 @@ +if event.train then + if atc_arrow then + atc_send("B0 W OL") + atc_set_text_inside("EVO") + interrupt(15) + end +end + +if event.int then + atc_send("OCD2SM") + atc_set_text_inside("") +end \ No newline at end of file diff --git a/Crossroads/nodes/(852,12,710).lua b/Crossroads/nodes/(852,12,710).lua new file mode 100644 index 0000000..7d7b203 --- /dev/null +++ b/Crossroads/nodes/(852,12,710).lua @@ -0,0 +1,6 @@ +if event.train then + if atc_arrow then + atc_send("B14S14") + atc_set_text_inside("Next station: EVO") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(861,12,725).lua b/Crossroads/nodes/(861,12,725).lua new file mode 100644 index 0000000..7d7b203 --- /dev/null +++ b/Crossroads/nodes/(861,12,725).lua @@ -0,0 +1,6 @@ +if event.train then + if atc_arrow then + atc_send("B14S14") + atc_set_text_inside("Next station: EVO") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(864,14,793).lua b/Crossroads/nodes/(864,14,793).lua new file mode 100644 index 0000000..da49bc9 --- /dev/null +++ b/Crossroads/nodes/(864,14,793).lua @@ -0,0 +1,11 @@ +if event.train then + if atc_arrow then + atc_send("B0 W OL") + atc_set_text_inside("EVO") + interrupt(15) + end +end +if event.int then + atc_send("OCD2SM") + atc_set_text_inside("") +end \ No newline at end of file diff --git a/Crossroads/nodes/(867,14,776).lua b/Crossroads/nodes/(867,14,776).lua new file mode 100644 index 0000000..08ccb2c --- /dev/null +++ b/Crossroads/nodes/(867,14,776).lua @@ -0,0 +1,12 @@ +if event.train then + if atc_arrow then + atc_send("B0WOL") + atc_set_text_inside("EVO") + interrupt(15) + end +end + +if event.int then + atc_set_text_inside("") + atc_send("OCD2SM") +end \ No newline at end of file diff --git a/Crossroads/nodes/(880,14,789).lua b/Crossroads/nodes/(880,14,789).lua new file mode 100644 index 0000000..f6c14b8 --- /dev/null +++ b/Crossroads/nodes/(880,14,789).lua @@ -0,0 +1 @@ +F.bhf("evo","scs","L","M",nil,"ZN") \ No newline at end of file diff --git a/Crossroads/nodes/(881,6,886).lua b/Crossroads/nodes/(881,6,886).lua new file mode 100644 index 0000000..fada148 --- /dev/null +++ b/Crossroads/nodes/(881,6,886).lua @@ -0,0 +1,6 @@ +if event.train then + if atc_arrow then + atc_send("B14S14") + atc_set_text_inside("Next station: EVO") + end +end \ No newline at end of file diff --git a/Crossroads/nodes/(898,14,835).lua b/Crossroads/nodes/(898,14,835).lua new file mode 100644 index 0000000..7d7b203 --- /dev/null +++ b/Crossroads/nodes/(898,14,835).lua @@ -0,0 +1,6 @@ +if event.train then + if atc_arrow then + atc_send("B14S14") + atc_set_text_inside("Next station: EVO") + end +end \ No newline at end of file -- cgit v1.2.3