minetest.git - modified minetest for gpcfs purposes

about summary refs log tree commit diff

path: root/src/guiFormSpecMenu.h

	Commit message (Expand)	Author	Age
*	Reworked formspecs and kahrl's hexcolor parser	BlockMen	2013-11-03
*	Send a on_receive_fields event when formspec is closed, with fields.quit = "t...	Novatux	2013-11-03
*	Change mainmenu texture handling + small misc changes	Kahrl	2013-09-11
*	GUIFormSpecMenu focus fixes	Kahrl	2013-08-19
*	Add translation for main menu	sapier	2013-08-17
*	Don't automatically scroll listbox when selecting an item in the middle	Kahrl	2013-08-16
*	Formspec textlist: Black Irrlicht magic to detect fake doubleclicks	Kahrl	2013-08-16
*	Omnicleanup: header cleanup, add ModApiUtil shared between game and mainmenu	Kahrl	2013-08-14
*	Fix many formspec menu bugs	sapier	2013-07-07
*	Use hexadecimal RRGGBB instead of colorkeys, rename getColor to parseColor	Sfan5	2013-07-06
*	Replace C++ mainmenu by formspec powered one	sapier	2013-07-02
*	Formspec: Don't perform black magic if selected item fits the guess	Kahrl	2013-06-18
*	Migrate to STL containers/algorithms.	Ilya Zhuravlev	2013-03-11
*	Update Copyright Years	Sfan5	2013-02-24
*	Change Minetest-c55 to Minetest	PilzAdam	2013-02-24
*	New elements in formspec, item_image and item_image_button.	RealBadAngel	2012-12-01
*	Make dragged itemstack following the mouse cursor much smoother	Jürgen Doser	2012-11-30
*	Adding background to Formspec	RealBadAngel	2012-11-08
*	Make inventory GUI do sane things when server-side inventory acts unusually	Perttu Ahola	2012-09-02
*	Detached inventories	Perttu Ahola	2012-07-24
*	Formspec button_exit[] and image_button_exit[]	Perttu Ahola	2012-07-22
*	minetest.register_on_player_receive_fields()	Perttu Ahola	2012-07-22
*	Implement formspec	darkrose	2012-07-22

">.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;6.5,1;name;Route name;"..minetest.formspec_escape(route.name).."]" form = form.."button[7.0,0.9;1.5,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.75,3.9;rtelog;"..table.concat(tab, ",").."]" form = form.."button[0.5,6;3,1;back;<<< Back to signal]" form = form.."button[4.5,6;2,1;aspect;Signal Aspect]" form = form.."button[6.5,6;2,1;delete;Delete Route]" --atdebug(route.ars) form = form.."style[ars;font=mono]" form = form.."textarea[0.8,7.3;5,3;ars;ARS Rule List;"..atil.ars_to_text(route.ars).."]" form = form.."button[5.5,7.23;3,1;savears;Save ARS List]" 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 or advtrains.interlocking.GENERIC_FREE) 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)