Point speed restriction rails

5 files changed, 61 insertions, 0 deletions

diff --git a/advtrains_interlocking/database.lua b/advtrains_interlocking/database.lua
index 4aaa4c4..ba2a318 100644
--- a/advtrains_interlocking/database.lua
+++ b/advtrains_interlocking/database.lua
@@ -105,6 +105,8 @@ local signal_assignments = {}
 -- track+direction -> signal position
 local influence_points = {}
 
+advtrains.interlocking.npr_rails = {}
+
 
 function ildb.load(data)
 	if not data then return end
@@ -126,6 +128,9 @@ function ildb.load(data)
 	if data.influence_points then
 		influence_points = data.influence_points
 	end
+	if data.npr_rails then
+		advtrains.interlocking.npr_rails = data.npr_rails
+	end
 end
 
 function ildb.save()
@@ -136,6 +141,7 @@ function ildb.save()
 		rs_locks = advtrains.interlocking.route.rte_locks,
 		rs_callbacks = advtrains.interlocking.route.rte_callbacks,
 		influence_points = influence_points,
+		npr_rails = advtrains.interlocking.npr_rails,
 	}
 end
 
diff --git a/advtrains_interlocking/init.lua b/advtrains_interlocking/init.lua
index aa498df..37f962b 100644
--- a/advtrains_interlocking/init.lua
+++ b/advtrains_interlocking/init.lua
@@ -24,6 +24,7 @@ dofile(modpath.."tool.lua")
 
 dofile(modpath.."lzb.lua")
 dofile(modpath.."ars.lua")
+dofile(modpath.."tsr_rail.lua")
 
 
 minetest.register_privilege("interlocking", {description = "Can set up track sections, routes and signals.", give_to_singleplayer = true})
diff --git a/advtrains_interlocking/textures/advtrains_dtrack_npr_placer.png b/advtrains_interlocking/textures/advtrains_dtrack_npr_placer.png
new file mode 100644
index 0000000..0d1c769
--- /dev/null
+++ b/advtrains_interlocking/textures/advtrains_dtrack_npr_placer.png
diff --git a/advtrains_interlocking/textures/advtrains_dtrack_shared_npr.png b/advtrains_interlocking/textures/advtrains_dtrack_shared_npr.png
new file mode 100644
index 0000000..0116c27
--- /dev/null
+++ b/advtrains_interlocking/textures/advtrains_dtrack_shared_npr.png
diff --git a/advtrains_interlocking/tsr_rail.lua b/advtrains_interlocking/tsr_rail.lua
new file mode 100644
index 0000000..253298c
--- /dev/null
+++ b/advtrains_interlocking/tsr_rail.lua
@@ -0,0 +1,54 @@
+-- tsr_rail.lua
+-- Point speed restriction rails
+-- Simple rail whose only purpose is to place a TSR on the position, as a temporary solution until the timetable system covers everything.
+
+local function updateform(pos)
+	local meta = minetest.get_meta(pos)
+	local pe = advtrains.encode_pos(pos)
+	local npr = advtrains.interlocking.npr_rails[pe] or 2
+	
+	meta:set_string("infotext", "Point speed restriction: "..npr)
+	meta:set_string("formspec", "field[npr;Set point speed restriction:;"..npr.."]")
+end
+
+
+local adefunc = function(def, preset, suffix, rotation)
+		return {
+			after_place_node=function(pos)
+				updateform(pos)
+			end,
+			after_dig_node=function(pos)
+				local pe = advtrains.encode_pos(pos)
+				advtrains.interlocking.npr_rails[pe] = nil
+			end,
+			on_receive_fields = function(pos, formname, fields, player)
+				if fields.npr then
+					local pe = advtrains.encode_pos(pos)
+					advtrains.interlocking.npr_rails[pe] = tonumber(fields.npr)
+					updateform(pos)
+				end
+			end,
+			advtrains = {
+				on_train_approach = function(pos,train_id, train, index)
+					if train.path_cn[index] == 1 then
+						local pe = advtrains.encode_pos(pos)
+						local npr = advtrains.interlocking.npr_rails[pe] or 2
+						advtrains.interlocking.lzb_add_oncoming_npr(train, index, npr)
+					end
+				end,
+			},
+		}
+end
+
+
+
+advtrains.register_tracks("default", {
+	nodename_prefix="advtrains_interlocking:dtrack_npr",
+	texture_prefix="advtrains_dtrack_npr",
+	models_prefix="advtrains_dtrack",
+	models_suffix=".b3d",
+	shared_texture="advtrains_dtrack_shared_npr.png",
+	description="Point Speed Restriction Rail",
+	formats={},
+	get_additional_definiton = adefunc,
+}, advtrains.trackpresets.t_30deg_straightonly)