1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
|
local F = advtrains.formspec
function advtrains.interlocking.show_signal_form(pos, node, pname, aux_key)
local sigd = advtrains.interlocking.db.get_sigd_for_signal(pos)
if sigd and not aux_key then
advtrains.interlocking.show_signalling_form(sigd, pname)
else
if advtrains.interlocking.signal.get_signal_cap_level(pos) >= 2 then
advtrains.interlocking.show_ip_sa_form(pos, pname)
else
advtrains.interlocking.show_ip_form(pos, pname)
end
end
end
local players_assign_ip = {}
local players_assign_distant = {}
local function ipmarker(ipos, connid)
local node_ok, conns, rhe = advtrains.get_rail_info_at(ipos, advtrains.all_tracktypes)
if not node_ok then return end
local yaw = advtrains.dir_to_angle(conns[connid].c)
-- using tcbmarker here
local obj = minetest.add_entity(vector.add(ipos, {x=0, y=0.2, z=0}), "advtrains_interlocking:tcbmarker")
if not obj then return end
obj:set_yaw(yaw)
obj:set_properties({
textures = { "at_il_signal_ip.png" },
})
end
function advtrains.interlocking.make_ip_formspec_component(pos, x, y, w)
advtrains.interlocking.db.check_for_duplicate_ip(pos)
local pts, connid = advtrains.interlocking.db.get_ip_by_signalpos(pos)
if pts then
-- display marker
local ipos = minetest.string_to_pos(pts)
ipmarker(ipos, connid)
return table.concat {
F.S_label(x, y, "Influence point is set at @1.", string.format("%s/%s", pts, connid)),
F.S_button_exit(x, y+0.5, w/2-0.125, "ip_set", "Modify"),
F.S_button_exit(x+w/2+0.125, y+0.5, w/2-0.125, "ip_clear", "Clear"),
}
else
return table.concat {
F.S_label(x, y, "Influence point is not set."),
F.S_button_exit(x, y+0.5, w, "ip_set", "Set influence point"),
}
end
end
-- shows small formspec to set the signal influence point
-- only_notset: show only if it is not set yet (used by signal tcb assignment)
function advtrains.interlocking.show_ip_form(pos, pname, only_notset)
if not minetest.check_player_privs(pname, "interlocking") then
return
end
local ipform = advtrains.interlocking.make_ip_formspec_component(pos, 0.5, 0.5, 7)
local form = {
"formspec_version[4]",
"size[8,2.25]",
ipform,
}
if not only_notset or not pts then
minetest.show_formspec(pname, "at_il_ipsaform_"..minetest.pos_to_string(pos), table.concat(form))
end
end
-- shows larger formspec to set the signal influence point, main aspect and distant signal pos
-- only_notset: show only if it is not set yet (used by signal tcb assignment)
function advtrains.interlocking.show_ip_sa_form(pos, pname)
if not minetest.check_player_privs(pname, "interlocking") then
return
end
local ipform = advtrains.interlocking.make_ip_formspec_component(pos, 0.5, 0.5, 7)
local ma, rpos = advtrains.interlocking.signal.get_aspect(pos)
local form = {
"formspec_version[4]",
"size[8,4.5]",
ipform,
}
-- Create Signal aspect formspec elements
local ndef = advtrains.ndb.get_ndef(pos)
if ndef and ndef.advtrains then
form[#form+1] = F.label(0.5, 2, "Signal Aspect:")
-- main aspect list
if ndef.advtrains.main_aspects then
local entries = { "<none>" }
local sel = 1
for i, mae in ipairs(ndef.advtrains.main_aspects) do
entries[i+1] = mae.description
if ma and ma.name == mae.name then
sel = i+1
end
end
form[#form+1] = F.dropdown(0.5, 2.5, 4, "sa_mainaspect", entries, sel, true)
end
-- distant signal assign (is shown either when main_aspect is not none, or when pure distant signal)
if rpos then
form[#form+1] = F.button_exit(0.5, 3.5, 4, "sa_undistant", "Dst: " .. minetest.pos_to_string(rpos))
elseif (ma and not ma.halt) or not ndef.advtrains.main_aspects then
form[#form+1] = F.button_exit(0.5, 3.5, 4, "sa_distant", "<assign distant>")
end
end
minetest.show_formspec(pname, "at_il_ipsaform_"..minetest.pos_to_string(pos), table.concat(form))
end
function advtrains.interlocking.handle_ip_sa_formspec_fields(pname, pos, fields)
if not (pos and minetest.check_player_privs(pname, {train_operator=true, interlocking=true})) then
return
end
local ma, rpos = advtrains.interlocking.signal.get_aspect(pos)
-- mainaspect dropdown
if fields.sa_mainaspect then
local idx = tonumber(fields.sa_mainaspect)
local new_ma = nil
if idx > 1 then
local ndef = advtrains.ndb.get_ndef(pos)
if ndef and ndef.advtrains and ndef.advtrains.main_aspects then
new_ma = ndef.advtrains.main_aspects[idx - 1]
end
end
if new_ma then
advtrains.interlocking.signal.set_aspect(pos, new_ma.name, rpos)
else
-- reset everything
advtrains.interlocking.signal.clear_aspect(pos)
end
end
-- buttons
if fields.ip_set then
advtrains.interlocking.init_ip_assign(pos, pname)
return
elseif fields.ip_clear then
advtrains.interlocking.db.clear_ip_by_signalpos(pos)
return
elseif fields.sa_distant then
advtrains.interlocking.init_distant_assign(pos, pname)
return
elseif fields.sa_undistant then
advtrains.interlocking.signal.set_aspect(pos, ma.name, nil)
return
end
-- show the form again unless one of the buttons was clicked
if not fields.quit then
advtrains.interlocking.show_ip_sa_form(pos, pname)
end
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
local pname = player:get_player_name()
local pts = string.match(formname, "^at_il_ipsaform_([^_]+)$")
local pos
if pts then
pos = minetest.string_to_pos(pts)
end
if pos then
advtrains.interlocking.handle_ip_sa_formspec_fields(pname, pos, fields)
end
end)
-- inits the signal IP assignment process
function advtrains.interlocking.init_ip_assign(pos, pname)
if not minetest.check_player_privs(pname, "interlocking") then
minetest.chat_send_player(pname, "Insufficient privileges to use this!")
return
end
--remove old IP
--advtrains.interlocking.db.clear_ip_by_signalpos(pos)
minetest.chat_send_player(pname, "Configuring Signal: Please look in train's driving direction and punch rail to set influence point.")
players_assign_ip[pname] = pos
end
-- inits the distant signal assignment process
function advtrains.interlocking.init_distant_assign(pos, pname)
if not minetest.check_player_privs(pname, "interlocking") then
minetest.chat_send_player(pname, "Insufficient privileges to use this!")
return
end
minetest.chat_send_player(pname, "Set distant signal: Punch the main signal to assign!")
players_assign_distant[pname] = pos
end
local function try_auto_assign_to_tcb(signalpos, pos, connid, pname)
local ti = advtrains.get_track_iterator(pos, connid, 6, false) -- maximum 6 track nodes ahead
local apos, aconnid = ti:next_branch()
while apos do
-- check for presence of a tcb
local tcb = advtrains.interlocking.db.get_tcb(apos)
if tcb then
-- check on the pointing connid whether it has a signal already
if not tcb[aconnid].signal then
-- go ahead and assign
local sigd = { p=apos, s=aconnid }
advtrains.interlocking.db.assign_signal_to_tcbs(signalpos, sigd)
minetest.chat_send_player(pname, "Assigned signal to the TCB at "..core.pos_to_string(apos))
advtrains.interlocking.show_tcb_marker(apos)
advtrains.interlocking.show_signalling_form(sigd, pname)
end
-- in all cases return
return
end
apos, aconnid = ti:next_track()
end
-- if we end up here limit is up
end
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
-- IP assignment
local signalpos = players_assign_ip[pname]
if signalpos then
if vector.distance(pos, signalpos)<=50 then
local node_ok, conns, rhe = advtrains.get_rail_info_at(pos, advtrains.all_tracktypes)
if node_ok and #conns == 2 then
local yaw = player:get_look_horizontal()
local plconnid = advtrains.yawToClosestConn(yaw, conns)
-- add assignment if not already present.
local pts = advtrains.roundfloorpts(pos)
if not advtrains.interlocking.db.get_ip_signal_asp(pts, plconnid) then
advtrains.interlocking.db.set_ip_signal(pts, plconnid, signalpos)
ipmarker(pos, plconnid)
minetest.chat_send_player(pname, "Configuring Signal: Successfully set influence point")
-- Try to find a TCB ahead and auto assign this signal there
try_auto_assign_to_tcb(signalpos, pos, plconnid, pname)
else
minetest.chat_send_player(pname, "Configuring Signal: Influence point of another signal is already present!")
end
else
minetest.chat_send_player(pname, "Configuring Signal: This is not a normal two-connection rail! Aborted.")
end
else
minetest.chat_send_player(pname, "Configuring Signal: Node is too far away. Aborted.")
end
players_assign_ip[pname] = nil
end
-- DST assignment
signalpos = players_assign_distant[pname]
if signalpos then
-- get current mainaspect
local ma, rpos = advtrains.interlocking.signal.get_aspect(signalpos)
-- if punched pos is valid signal then set it as the new remote, otherwise nil
local nrpos
if advtrains.interlocking.signal.get_signal_cap_level(pos) > 1 then
nrpos = pos
if not ma or ma.halt then -- make sure that dst is never set without a main aspect (esp. for pure distant signal case)
ma = "_default"
end
advtrains.interlocking.signal.set_aspect(signalpos, ma, nrpos)
end
players_assign_distant[pname] = nil
end
end)
|
