index : advtrains.git	atcjit doc l10n luaatcdebug master new-ks new-ks-orwell profiler route_prog_rework techage tracy trainhud trainhud-unifont
	Advtrains mod for minetest.	orwell

aboutsummaryrefslogtreecommitdiff

log msg author committer range

path: root/advtrains_train_track/textures/advtrains_dtrack_placer.png

blob: 7bef8a98adb358a2b2c9a040c6ac8c541209d202 (plain)

ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 38 00 00 00 38 08 06 00 00 00 a8 86 3b	.PNG........IHDR...8...8.......;
0020	1e 00 00 00 06 62 4b 47 44 00 ff 00 ff 00 ff a0 bd a7 93 00 00 00 09 70 48 59 73 00 00 0b 13 00	.....bKGD..............pHYs.....
0040	00 0b 13 01 00 9a 9c 18 00 00 00 07 74 49 4d 45 07 e1 01 04 0b 00 1c bb 9a 6f ce 00 00 03 d6 49	............tIME.........o.....I
0060	44 41 54 68 de ed da 5b 48 93 51 00 07 f0 ff d9 c5 c9 74 92 4e 57 83 72 5e 46 05 35 51 b3 a0 74	DATh...[H.Q.......t.NW.r^F.5Q..t
0080	63 11 bd ac 8b 14 e5 83 58 3d 45 ad 32 ec 42 14 41 44 0f 15 d1 8b 14 5d 88 e8 29 02 8b 6e 0f 85	c.......X=E.2.B.AD.....]..)..n..
00a0	cd 64 d5 ec 42 94 50 94 f4 d0 45 7b 18 6e 4b 73 6e 5e 56 7a 7a 90 4f d6 fc be 6f df 2e 6e 19 e7	.d..B.P...E{.nKsn^Vzz.O...o..n..
00c0	bc ee 63 3b 3f ce ff fc bf ef 6c 23 7a bd 1e ff f3 90 e1 3f 1f 0c c8 80 0c c8 80 0c c8 80 0c c8	..c;?.....l#z......?............
00e0	80 0c c8 80 0c c8 80 0c c8 80 0c c8 80 0c c8 80 0c c8 80 0c 38 8d 63 d9 d2 2a 9a 6a a0 22 15 1f	....................8.c..*.j."..
0100	b2 b7 71 37 35 9b 6b 00 00 3f fb 7f d2 ed 3b ec 64 46 02 5b 8e 16 51 00 78 f6 7e 00 00 40 0c f5	..q75.k..?....;.dF.[..Q.x.~..@..
0120	e0 60 81 c1 00 1e 39 1c 18 1a 1a 9e 99 11 dd b0 3c 8b 76 7b c7 01 42 40 0c f5 b0 34 5c 80 d9 5c	.`....9.........<.v{..B@...4\..\
0140	83 c0 60 00 b7 6f df 81 ef 87 0f 4b 2a 2b 31 38 e8 9f 99 c0 39 b9 32 7c 57 ad 03 29 3b c9 0b f3	..`..o.....K*+18....9.2|W..);...
0160	78 bc d0 e4 e4 c0 6e df 89 2d 0d f5 29 db 8b 24 9e 9f cf b8 28 72 71 e4 8b 62 65 65 05 08 08 7a	x.....n..-..)..$....(rq..bee...z
0180	3d 1e 18 8d 46 e4 e5 e5 62 74 34 84 57 37 9b 70 ee 7e 3f f9 67 81 1b 96 67 d1 15 26 2d 0c 3a 39	=...F...bt4.W7.p.~?.g...g..&-.:9
01a0	ce b6 6a 71 f0 c0 7e 10 19 89 0a cb f8 74 1c a0 14 e1 7b 34 15 d0 98 81 76 9b 86 2a 4b b7 fe b5	..jq..~......t....{4....v..*K...
01c0	62 6d 8f db 51 5e 5e c6 0b eb b8 b1 07 ee be 31 00 40 75 59 3e 0c 3a 79 4a a1 a2 40 29 51 1c 1a	bm..Q^^........1.@uY>.:yJ..@)Q..
01e0	1a 86 b9 a6 3a 6a 14 ed 36 0d 4d 07 54 10 18 1e 45 d7 80 4d 64 8f 79 51 5c 64 40 81 ae 60 4a 14	....:j..6.M.T...E..Md.yQ\d@..`J.
0200	b9 c9 a7 13 2a ba 82 e1 37 68 b1 3d 16 0c 04 f1 ea d6 3e 00 80 bb 6f 6c ca c4 d3 09 25 7a bd 3e	....*...7h.=......>...ol....%z.>
0220	a9 ad 68 b7 69 68 32 a0 3d 3e a0 db 9d 38 94 ec da 68 a4 0a 39 c1 66 6b c1 c4 44 4c 27 63 6e 45	..h.ih2.=>...8...h..9.fk..DL'cnE
0240	a1 89 a7 6a 45 af 5d bd 42 d5 59 6a 38 9d 4f 71 f1 d2 65 32 65 05 b9 37 57 2a 64 50 cc 5d 03 a5	...jE.].B.Yj8.Oq..e2e..7W*dP.]..
0260	52 09 93 69 11 2f ac 61 cb 36 c2 5d 2f 75 e2 d3 05 bd 76 f5 0a cd d6 64 4f bc f6 cc 85 7c ad 16	R..i./.a.6.]/u....v....dO....|..
0280	c7 8e 9f 20 82 7b f0 c8 e1 43 d4 e5 ea 40 ed fa 75 92 6e d0 c9 80 f6 f8 26 5e ef 76 47 87 f6 78	.....{...C...@..u.n.....&^.vG..x
02a0	29 0a f3 81 60 c9 51 44 c2 46 43 21 74 76 76 e2 c1 c3 56 22 5a 32 75 75 9b a8 d5 62 91 dc 8a c9	)...`.QD.FC!tvv...V"Z2uu...b....
02c0	82 4a 59 d1 da ed cd bc 30 95 4a 85 de 5e 0f 2c 96 1a f8 bc 5e ec 6e 6c 22 92 5a 34 3c ba 93 7b	.JY.....0.J..^.,....^.nl".Z4<..{
02e0	34 0d 50 be 28 86 c3 ac 56 0b 08 08 de bc 7d 8b 53 a7 cf 90 98 9f 64 92 05 e5 9a 31 1a 34 5a 14	4.P.(...V.....}.S.....d....1.4Z.
0300	f9 60 15 f2 16 de 32 8a e9 51 2d 55 2b ca 45 b1 bd dd 89 cc 4c 15 72 67 cd 12 84 75 39 cf f3 96	.`....2..Q-U+.E.....L.rg...u9...
0320	91 4c 46 d0 7c b7 8f c4 75 9a 98 2e 28 5f 14 3b 9e bf 40 75 f5 0a c1 28 46 96 51 d1 6c 05 be f6	.LF.|...u...(_.;..@u...(F.Q.l...
0340	fe 46 e8 d7 38 da 5e 7e 89 ef b8 14 0d ca 17 45 3e 68 8f 77 e2 7a ed 32 e1 56 2c 2e 2e 99 12 45	.F..8.^~.......E>h.w.z.2.V,....E
0360	b1 32 ea f7 8f c0 64 cc c5 bc 7c 39 de 7d f6 27 06 4c 74 45 a3 b5 a2 d5 6a 81 c3 d1 06 ad 56 cb	.2....d...|9.}.'.LtE....j.....V.
0380	1b 45 00 e8 f8 e0 47 f3 dd be c9 f7 df 6c d6 d0 d0 88 1f f7 5e 13 12 f7 81 37 51 68 3c ad 18 59	.E....G......l......^....7Qh<..Y
03a0	46 91 51 74 76 65 90 a4 9d e8 63 85 46 8b a2 50 2b 8a 95 d1 c7 6f c1 bf a2 78 fd c9 48 ea 80 42	F.Qtve....c.F..P+....o...x..H..B
03c0	d0 c7 9e 55 50 ab d5 31 b7 a2 94 28 26 f5 3b 99 78 a1 59 25 b5 28 2f 2f c3 f0 f0 88 e8 0d 3a bc	...UP..1...(&.;.x.Y%.(//......:.
03e0	8c a4 46 31 ad 40 00 28 32 14 d2 d2 52 23 16 2e 5c 20 29 8a 1c f4 e3 b7 20 74 79 99 a8 9a 9f 2d	..F1.@.(2...R#..\.)......ty....-
0400	1a c5 b4 03 b9 61 32 2d a6 6b d7 d8 d0 e5 3c cf 5b 46 91 51 04 80 d5 8b 42 d4 f1 21 23 ae 33 21	.....a2-.k....<.[F.Q....B..!#.3!
0420	49 e7 bf ee c3 f7 68 dd 4a 5d 42 51 fc 27 81 c9 8c a2 d0 f8 03 22 0c 11 db 1d 13 49 96 00 00 00	I.....h.J]BQ.'.......".....I....
0440	00 49 45 4e 44 ae 42 60 82	.IEND.B`.

generated by cgit v1.2.3 (git 2.39.1) at 2025-01-03 11:43:17 +0000

-- Track Circuit Breaks and Track Sections - Player interaction

local players_assign_tcb = {}
local players_assign_signal = {}
local players_link_ts = {}

local ildb = advtrains.interlocking.db
local ilrs = advtrains.interlocking.route

local sigd_equal = advtrains.interlocking.sigd_equal

local lntrans = { "A", "B" }

local function sigd_to_string(sigd)
	return minetest.pos_to_string(sigd.p).." / "..lntrans[sigd.s]
end

minetest.register_node("advtrains_interlocking:tcb_node", {
	drawtype = "mesh",
	paramtype="light",
	paramtype2="facedir",
	walkable = false,
	selection_box = {
		type = "fixed",
		fixed = {-1/6, -1/2, -1/6, 1/6, 1/4, 1/6},
	},
	mesh = "at_il_tcb_node.obj",
	tiles = {"at_il_tcb_node.png"},
	description="Track Circuit Break",
	sunlight_propagates=true,
	groups = {
		cracky=3,
		not_blocking_trains=1,
		--save_in_at_nodedb=2,
		at_il_track_circuit_break = 1,
	},
	after_place_node = function(pos, node, player)
		local meta = minetest.get_meta(pos)
		meta:set_string("infotext", "Unconfigured Track Circuit Break, right-click to assign.")
	end,
	on_rightclick = function(pos, node, player)
		local pname = player:get_player_name()
		if not minetest.check_player_privs(pname, "interlocking") then
			minetest.chat_send_player(pname, "Insufficient privileges to use this!")
			return
		end
		
		local meta = minetest.get_meta(pos)
		local tcbpts = meta:get_string("tcb_pos")
		if tcbpts ~= "" then
			local tcbpos = minetest.string_to_pos(tcbpts)
			local tcb = ildb.get_tcb(tcbpos)
			if tcb then
				advtrains.interlocking.show_tcb_form(tcbpos, pname)
			else
				minetest.chat_send_player(pname, "This TCB has been removed. Please dig marker.")
			end
		else
			--unconfigured
			minetest.chat_send_player(pname, "Configuring TCB: Please punch the rail you want to assign this TCB to.")
			
			players_assign_tcb[pname] = pos
		end	
	end,
	--on_punch = function(pos, node, player)
	--	local meta = minetest.get_meta(pos)
	--	local tcbpts = meta:get_string("tcb_pos")
	--	if tcbpts ~= "" then
	--		local tcbpos = minetest.string_to_pos(tcbpts)
	--		advtrains.interlocking.show_tcb_marker(tcbpos)
	--	end	
	--end,
	can_dig = function(pos, player)
		if player == nil then return false end

		local pname = player:get_player_name()

		-- Those markers can only be dug when all adjacent TS's are set
		-- as EOI.
		local meta = minetest.get_meta(pos)
		local tcbpts = meta:get_string("tcb_pos")
		if tcbpts ~= "" then
			if not minetest.check_player_privs(pname, "interlocking") then
				minetest.chat_send_player(pname, "Insufficient privileges to use this!")
				return
			end			
			local tcbpos = minetest.string_to_pos(tcbpts)
			local tcb = ildb.get_tcb(tcbpos)
			if not tcb then return true end
			for connid=1,2 do
				if tcb[connid].ts_id or tcb[connid].signal then
					minetest.chat_send_player(pname, "Can't remove TCB: Both sides must have no track section and no signal assigned!")
					return false
				end
				if not ildb.may_modify_tcbs(tcb[connid]) then
					minetest.chat_send_player(pname, "Can't remove TCB: Side "..connid.." forbids modification (shouldn't happen).")
					return false
				end
			end
		end	
		return true
	end,
	after_dig_node = function(pos, oldnode, oldmetadata, player)
		if not oldmetadata or not oldmetadata.fields then return end
		local tcbpts = oldmetadata.fields.tcb_pos
		if tcbpts and tcbpts ~= "" then
			local tcbpos = minetest.string_to_pos(tcbpts)
			local success = ildb.remove_tcb(tcbpos)
			if success and player then
				minetest.chat_send_player(player:get_player_name(), "TCB has been removed.")
			else
				minetest.chat_send_player(player:get_player_name(), "Failed to remove TCB!")
				minetest.set_node(pos, oldnode)
				local meta = minetest.get_meta(pos)
				meta:set_string("tcb_pos", minetest.pos_to_string(tcbpos))
			end
		end
	end,
})


-- Crafting

-- set some fallbacks
local tcb_core = "default:mese_crystal"
local tcb_secondary = "default:mese_crystal_fragment"

--alternative recipe items
--core
if minetest.get_modpath("basic_materials") then
	tcb_core = "basic_materials:ic"
elseif minetest.get_modpath("technic") then
	tcb_core = "technic:control_logic_unit"
end
--print("TCB Core: "..tcb_core)
--secondary
if minetest.get_modpath("mesecons") then
	tcb_secondary = 'mesecons:wire_00000000_off'
end
--print("TCB Secondary: "..tcb_secondary)

minetest.register_craft({
	output = 'advtrains_interlocking:tcb_node 4',
	recipe = {
		{tcb_secondary,tcb_core,tcb_secondary},
		{'advtrains:dtrack_placer','','advtrains:dtrack_placer'}
	},
	--actually use track in the tcb recipe
	replacements = {
		{"advtrains:dtrack_placer","advtrains:dtrack_placer"},
		{"advtrains:dtrack_placer","advtrains:dtrack_placer"},
	}
})

--nil the temp crafting variables
tcb_core= nil
tcb_secondary = nil

minetest.register_on_punchnode(function(pos, node, player, pointed_thing)
	local pname = player:get_player_name()
	if not minetest.check_player_privs(pname, "interlocking") then
		return
	end
	-- TCB assignment
	local tcbnpos = players_assign_tcb[pname]
	if tcbnpos then
		if vector.distance(pos, tcbnpos)<=20 then
			local node_ok, conns, rhe = advtrains.get_rail_info_at(pos, advtrains.all_tracktypes)
			if node_ok and #conns == 2 then
				local ok = ildb.create_tcb(pos)
				
				if not ok then
					minetest.chat_send_player(pname, "Configuring TCB: TCB already exists at this position! It has now been re-assigned.")
				end
				
				ildb.sync_tcb_neighbors(pos, 1)
				ildb.sync_tcb_neighbors(pos, 2)
				
				local meta = minetest.get_meta(tcbnpos)
				meta:set_string("tcb_pos", minetest.pos_to_string(pos))
				meta:set_string("infotext", "TCB assigned to "..minetest.pos_to_string(pos))
				minetest.chat_send_player(pname, "Configuring TCB: Successfully configured TCB")
			else
				minetest.chat_send_player(pname, "Configuring TCB: This is not a normal two-connection rail! Aborted.")
			end
		else
			minetest.chat_send_player(pname, "Configuring TCB: Node is too far away. Aborted.")
		end
		players_assign_tcb[pname] = nil
	end
	
	-- Signal assignment
	local sigd = players_assign_signal[pname]
	if sigd then
		if vector.distance(pos, sigd.p)<=50 then
			local is_signal = minetest.get_item_group(node.name, "advtrains_signal") >= 2
			if is_signal then
				local ndef = minetest.registered_nodes[node.name]
				if ndef and ndef.advtrains and ndef.advtrains.set_aspect then
					local tcbs = ildb.get_tcbs(sigd)
					if tcbs then
						tcbs.signal = pos
						if not tcbs.signal_name then
							tcbs.signal_name = "Signal at "..minetest.pos_to_string(sigd.p)
						end
						if not tcbs.routes then
							tcbs.routes = {}
						end
						ildb.set_sigd_for_signal(pos, sigd)
						minetest.chat_send_player(pname, "Configuring TCB: Successfully assigned signal.")
						advtrains.interlocking.show_ip_form(pos, pname, true)
					else
						minetest.chat_send_player(pname, "Configuring TCB: Internal error, TCBS doesn't exist. Aborted.")
					end
				else
					minetest.chat_send_player(pname, "Configuring TCB: Cannot use static signals for routesetting. Aborted.")
				end
			else
				minetest.chat_send_player(pname, "Configuring TCB: Not a compatible signal. Aborted.")
			end
		else
			minetest.chat_send_player(pname, "Configuring TCB: Node is too far away. Aborted.")
		end
		players_assign_signal[pname] = nil
	end
end)

-- TCB Form

local function mktcbformspec(tcbs, btnpref, offset, pname)
	local form = ""
	local ts
	if tcbs.ts_id then
		ts = ildb.get_ts(tcbs.ts_id)
	end
	if ts then
		form = form.."label[0.5,"..offset..";Side "..btnpref..": "..minetest.formspec_escape(ts.name).."]"
		form = form.."button[0.5,"..(offset+0.5)..";5,1;"..btnpref.."_gotots;Show track section]"
		if ildb.may_modify_tcbs(tcbs) then
			-- Note: the security check to prohibit those actions is located in database.lua in the corresponding functions.
			form = form.."button[0.5,"..(offset+1.5)..";2.5,1;"..btnpref.."_update;Update near TCBs]"
			form = form.."button[3  ,"..(offset+1.5)..";2.5,1;"..btnpref.."_remove;Remove from section]"
		end
	else
		tcbs.ts_id = nil
		form = form.."label[0.5,"..offset..";Side "..btnpref..": ".."End of interlocking]"
		form = form.."button[0.5,"..(offset+0.5)..";5,1;"..btnpref.."_makeil;Create Interlocked Track Section]"
		--if tcbs.section_free then
			--form = form.."button[0.5,"..(offset+1.5)..";5,1;"..btnpref.."_setlocked;Section is free]"
		--else
			--form = form.."button[0.5,"..(offset+1.5)..";5,1;"..btnpref.."_setfree;Section is blocked]"		
		--end
	end
	if tcbs.signal then
		form = form.."button[0.5,"..(offset+2.5)..";5,1;"..btnpref.."_sigdia;Signalling]"	
	else
		form = form.."button[0.5,"..(offset+2.5)..";5,1;"..btnpref.."_asnsig;Assign a signal]"
	end
	return form
end


function advtrains.interlocking.show_tcb_form(pos, pname)
	if not minetest.check_player_privs(pname, "interlocking") then
		minetest.chat_send_player(pname, "Insufficient privileges to use this!")
		return
	end
	local tcb = ildb.get_tcb(pos)
	if not tcb then return end
	
	local form = "size[6,9] label[0.5,0.5;Track Circuit Break Configuration]"
	form = form .. mktcbformspec(tcb[1], "A", 1, pname)
	form = form .. mktcbformspec(tcb[2], "B", 5, pname)
	
	minetest.show_formspec(pname, "at_il_tcbconfig_"..minetest.pos_to_string(pos), form)
	advtrains.interlocking.show_tcb_marker(pos)
end

--helper: length of nil table is 0
local function nlen(t)
	if not t then return 0 end
	return #t
end


minetest.register_on_player_receive_fields(function(player, formname, fields)
	local pname = player:get_player_name()
	if not minetest.check_player_privs(pname, "interlocking") then
		return
	end
	local pts = string.match(formname, "^at_il_tcbconfig_(.+)$")
	local pos
	if pts then
		pos = minetest.string_to_pos(pts)
	end
	if pos and not fields.quit then
		local tcb = ildb.get_tcb(pos)
		if not tcb then return end
		local f_gotots = {fields.A_gotots, fields.B_gotots}
		local f_update = {fields.A_update, fields.B_update}
		local f_remove = {fields.A_remove, fields.B_remove}
		local f_makeil = {fields.A_makeil, fields.B_makeil}
		local f_setlocked = {fields.A_setlocked, fields.B_setlocked}
		local f_setfree = {fields.A_setfree, fields.B_setfree}
		local f_asnsig = {fields.A_asnsig, fields.B_asnsig}
		local f_sigdia = {fields.A_sigdia, fields.B_sigdia}
		
		for connid=1,2 do
			local tcbs = tcb[connid]
			if tcbs.ts_id then
				if f_gotots[connid] then
					advtrains.interlocking.show_ts_form(tcbs.ts_id, pname)
					return
				end
				if f_update[connid] then
					ildb.sync_tcb_neighbors(pos, connid)
				end
				if f_remove[connid] then
					ildb.remove_from_interlocking({p=pos, s=connid})
				end
			else
				if f_makeil[connid] then
					-- try sinc_tcb_neighbors first
					ildb.sync_tcb_neighbors(pos, connid)
					-- if that didn't work, create new section
					if not tcbs.ts_id then
						ildb.create_ts({p=pos, s=connid})
						ildb.sync_tcb_neighbors(pos, connid)
					end
				end
				-- non-interlocked
				if f_setfree[connid] then
					tcbs.section_free = true
				end
				if f_setlocked[connid] then
					tcbs.section_free = nil
				end
			end
			if f_asnsig[connid] and not tcbs.signal then
				minetest.chat_send_player(pname, "Configuring TCB: Please punch the signal to assign.")
				players_assign_signal[pname] = {p=pos, s=connid}
				minetest.close_formspec(pname, formname)
				return
			end
			if f_sigdia[connid] and tcbs.signal then
				advtrains.interlocking.show_signalling_form({p=pos, s=connid}, pname)
				return
			end

		end
		advtrains.interlocking.show_tcb_form(pos, pname)
	end

end)



-- TS Formspec

-- textlist selection temporary storage
local ts_pselidx = {}

function advtrains.interlocking.show_ts_form(ts_id, pname, sel_tcb)
	if not minetest.check_player_privs(pname, "interlocking") then
		minetest.chat_send_player(pname, "Insufficient privileges to use this!")
		return
	end
	local ts = ildb.get_ts(ts_id)
	if not ts_id then return end
	
	local form = "size[10,10]label[0.5,0.5;Track Section Detail - "..ts_id.."]"
	form = form.."field[0.8,2;5.2,1;name;Section name;"..minetest.formspec_escape(ts.name).."]"
	form = form.."button[5.5,1.7;1,1;setname;Set]"
	local hint
	
	local strtab = {}
	for idx, sigd in ipairs(ts.tc_breaks) do
		strtab[#strtab+1] = minetest.formspec_escape(sigd_to_string(sigd))
		advtrains.interlocking.show_tcb_marker(sigd.p)
	end
	
	form = form.."textlist[0.5,3;5,3;tcblist;"..table.concat(strtab, ",").."]"
	
	if ildb.may_modify_ts(ts) then
		
		if players_link_ts[pname] then
			local other_id = players_link_ts[pname]
			local other_ts = ildb.get_ts(other_id)
			if other_ts then
				if ildb.may_modify_ts(other_ts) then
					form = form.."button[5.5,3;3.5,1;mklink;Join with "..minetest.formspec_escape(other_ts.name).."]"
					form = form.."button[9  ,3;0.5,1;cancellink;X]"
				end
			end
		else
			form = form.."button[5.5,3;4,1;link;Join into other section]"
			hint = 1
		end
		form = form.."button[5.5,4;4,1;dissolve;Dissolve Section]"
		form = form.."tooltip[dissolve;This will remove the track section and set all its end points to End Of Interlocking]"
		if sel_tcb then
			form = form.."button[5.5,5;4,1;del_tcb;Unlink selected TCB]"
			hint = 2
		end
	else
		hint=3
	end
	
	if ts.route then
		form = form.."label[0.5,6.1;Route is set: "..ts.route.rsn.."]"
	elseif ts.route_post then
		form = form.."label[0.5,6.1;Section holds "..#(ts.route_post.lcks or {}).." route locks.]"
	end
	-- occupying trains
	if ts.trains and #ts.trains>0 then
		form = form.."label[0.5,7.1;Trains on this section:]"
		form = form.."textlist[0.5,7.7;3,2;trnlist;"..table.concat(ts.trains, ",").."]"
	else
		form = form.."label[0.5,7.1;No trains on this section.]"
	end
	
	form = form.."button[5.5,7;4,1;reset;Reset section state]"
	
	if hint == 1 then
		form = form.."label[0.5,0.75;Use the 'Join' button to designate rail crosses and link not listed far-away TCBs]"
	elseif hint == 2 then
		form = form.."label[0.5,0.75;Unlinking a TCB will set it to non-interlocked mode.]"
	elseif hint == 3 then
		form = form.."label[0.5,0.75;You cannot modify track sections when a route is set or a train is on the section.]"
		--form = form.."label[0.5,1;Trying to unlink a TCB directly connected to this track will not work.]"
	end
	
	ts_pselidx[pname]=sel_tcb
	minetest.show_formspec(pname, "at_il_tsconfig_"..ts_id, 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, "interlocking") then
		return
	end
	-- independent of the formspec, clear this whenever some formspec event happens
	local tpsi = ts_pselidx[pname]
	ts_pselidx[pname] = nil
	
	local ts_id = string.match(formname, "^at_il_tsconfig_(.+)$")
	if ts_id and not fields.quit then
		local ts = ildb.get_ts(ts_id)
		if not ts then return end
		
		local sel_tcb
		if fields.tcblist then
			local tev = minetest.explode_textlist_event(fields.tcblist)