diff options
Diffstat (limited to 'advtrains_interlocking/route_ui.lua')
| -rw-r--r-- | advtrains_interlocking/route_ui.lua | 152 |
1 files changed, 0 insertions, 152 deletions
diff --git a/advtrains_interlocking/route_ui.lua b/advtrains_interlocking/route_ui.lua deleted file mode 100644 index 71fed09..0000000 --- a/advtrains_interlocking/route_ui.lua +++ /dev/null @@ -1,152 +0,0 @@ --- route_ui.lua --- User interface for showing and editing routes - -local atil = advtrains.interlocking -local ildb = atil.db - --- TODO duplicate -local lntrans = { "A", "B" } -local function sigd_to_string(sigd) - return minetest.pos_to_string(sigd.p).." / "..lntrans[sigd.s] -end - - - -function atil.show_route_edit_form(pname, sigd, routeid) - - if not minetest.check_player_privs(pname, {train_operator=true, interlocking=true}) then - minetest.chat_send_player(pname, "Insufficient privileges to use this!") - return - end - - local tcbs = atil.db.get_tcbs(sigd) - if not tcbs then return end - local route = tcbs.routes[routeid] - if not route then return end - - local form = "size[9,10]label[0.5,0.2;Route overview]" - form = form.."field[0.8,1.2;5.2,1;name;Route name;"..minetest.formspec_escape(route.name).."]" - form = form.."button[5.5,0.9;1,1;setname;Set]" - - -- construct textlist for route information - local tab = {} - local function itab(t) - tab[#tab+1] = minetest.formspec_escape(string.gsub(t, ",", " ")) - end - itab("TCB "..sigd_to_string(sigd).." ("..tcbs.signal_name..") Route #"..routeid) - - -- this code is partially copy-pasted from routesetting.lua - -- we start at the tc designated by signal - local c_sigd = sigd - local i = 1 - local c_tcbs, c_ts_id, c_ts, c_rseg, c_lckp - while c_sigd and i<=#route do - c_tcbs = ildb.get_tcbs(c_sigd) - if not c_tcbs then - itab("-!- No TCBS at "..sigd_to_string(c_sigd)..". Please reconfigure route!") - break - end - c_ts_id = c_tcbs.ts_id - if not c_ts_id then - itab("-!- No track section adjacent to "..sigd_to_string(c_sigd)..". Please reconfigure route!") - break - end - c_ts = ildb.get_ts(c_ts_id) - - c_rseg = route[i] - c_lckp = {} - - itab(""..i.." Entry "..sigd_to_string(c_sigd).." -> Sec. "..(c_ts and c_ts.name or "-").." -> Exit "..(c_rseg.next and sigd_to_string(c_rseg.next) or "END")) - - if c_rseg.locks then - for pts, state in pairs(c_rseg.locks) do - - local pos = minetest.string_to_pos(pts) - itab(" Lock: "..pts.." -> "..state) - if not advtrains.is_passive(pos) then - itab("-!- No passive component at "..pts..". Please reconfigure route!") - break - end - end - end - -- advance - c_sigd = c_rseg.next - i = i + 1 - end - if c_sigd then - local e_tcbs = ildb.get_tcbs(c_sigd) - itab("Route end: "..sigd_to_string(c_sigd).." ("..(e_tcbs and e_tcbs.signal_name or "-")..")") - else - itab("Route ends on dead-end") - end - - form = form.."textlist[0.5,2;7,4;rtelog;"..table.concat(tab, ",").."]" - - form = form.."button[0.5,6;2,1;back;<<< Back to signal]" - form = form.."button[3.5,6;2,1;aspect;Signal Aspect]" - form = form.."button[5.5,6;2,1;delete;Delete Route]" - - --atdebug(route.ars) - form = form.."textarea[1,7.3;5.2,3;ars;ARS Rule List;"..atil.ars_to_text(route.ars).."]" - form = form.."button[6,7.7;1,1;savears;Save]" - - minetest.show_formspec(pname, "at_il_routeedit_"..minetest.pos_to_string(sigd.p).."_"..sigd.s.."_"..routeid, form) - -end - - -minetest.register_on_player_receive_fields(function(player, formname, fields) - local pname = player:get_player_name() - if not minetest.check_player_privs(pname, {train_operator=true, interlocking=true}) then - return - end - - local pts, connids, routeids = string.match(formname, "^at_il_routeedit_([^_]+)_(%d)_(%d+)$") - local pos, connid, routeid - if pts then - pos = minetest.string_to_pos(pts) - connid = tonumber(connids) - routeid = tonumber(routeids) - if not connid or connid<1 or connid>2 then return end - if not routeid then return end - end - if pos and connid and routeid and not fields.quit then - local sigd = {p=pos, s=connid} - local tcbs = ildb.get_tcbs(sigd) - if not tcbs then return end - local route = tcbs.routes[routeid] - if not route then return end - - if fields.setname and fields.name then - route.name = fields.name - end - - if fields.aspect then - local suppasp = advtrains.interlocking.signal_get_supported_aspects(tcbs.signal) - - local callback = function(pname, asp) - route.aspect = asp - advtrains.interlocking.show_route_edit_form(pname, sigd, routeid) - end - - advtrains.interlocking.show_signal_aspect_selector(pname, suppasp, route.name, callback, route.aspect) - return - end - if fields.delete then - -- if something set the route in the meantime, make sure this doesn't break. - atil.route.update_route(sigd, tcbs, nil, true) - table.remove(tcbs.routes, routeid) - advtrains.interlocking.show_signalling_form(sigd, pname) - end - - if fields.ars and fields.savears then - route.ars = atil.text_to_ars(fields.ars) - --atdebug(route.ars) - end - - if fields.back then - advtrains.interlocking.show_signalling_form(sigd, pname) - end - - end -end) |