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
|
-- Track Circuit Breaks - Player interaction
local players_assign_tcb = {}
local players_addfar_tcb = {}
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 = true,
selection_box = {
type = "fixed",
fixed = {-1/4, -1/2, -1/4, 1/4, 1/2, 1/4},
},
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,
},
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 meta = minetest.get_meta(pos)
local tcbpts = meta:get_string("tcb_pos")
local pname = player:get_player_name()
if tcbpts ~= "" then
local tcbpos = minetest.string_to_pos(tcbpts)
advtrains.interlocking.show_tcb_form(tcbpos, pname)
else
--unconfigured
--TODO security
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)
atwarn("Would show tcb marker.")
-- TODO TCB-Marker anzeigen
end,
})
minetest.register_on_punchnode(function(pos, node, player, pointed_thing)
local pname = player:get_player_name()
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
advtrains.interlocking.db.create_tcb(pos)
advtrains.interlocking.db.update_tcb_neighbors(pos, 1)
advtrains.interlocking.db.update_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
end)
local function mkformspec(tcbs, btnpref, offset, pname)
local form = "label[0.5,"..offset..";Side "..btnpref..": "..(tcbs.end_of_interlocking and "End of interlocking" or "Track Circuit").."]"
if tcbs.end_of_interlocking then
form = form.."button[0.5,"..(offset+1)..";3,1;"..btnpref.."_clearadj;Activate Interlocking]"
if tcbs.section_free then
form = form.."button[4.5,"..(offset+1)..";3,1;"..btnpref.."_setlocked;Section is free]"
else
form = form.."button[4.5,"..(offset+1)..";3,1;"..btnpref.."_setfree;Section is blocked]"
end
else
local strtab = {}
for idx, sigd in ipairs(tcbs.adjacent) do
strtab[idx] = minetest.formspec_escape(sigd_to_string(sigd))
end
form = form.."textlist[0.5,"..(offset+1)..";5,3;"..btnpref.."_adjlist;"..table.concat(strtab, ",").."]"
if players_addfar_tcb[pname] then
local sigd = players_addfar_tcb[pname]
form = form.."button[5.5,"..(offset+2)..";2.5,1;"..btnpref.."_addadj;Link TCB to "..sigd_to_string(sigd).."]"
form = form.."button[8,"..(offset+2)..";0.5,1;"..btnpref.."_canceladdadj;X]"
else
form = form.."button[5.5,"..(offset+2)..";3,1;"..btnpref.."_addadj;Add far TCB]"
end
form = form.."button[5.5,"..(offset+1)..";3,1;"..btnpref.."_clearadj;Clear&Update]"
form = form.."button[5.5,"..(offset+3)..";3,1;"..btnpref.."_mknonint;Make non-interlocked]"
if tcbs.incomplete then
form = form.."label[0.5,"..(offset+0.5)..";Warning: You possibly need to add TCBs manually!]"
end
end
return form
end
function advtrains.interlocking.show_tcb_form(pos, pname)
local tcb = advtrains.interlocking.db.get_tcb(pos)
if not tcb then return end
local form = "size[10,10] label[0.5,0.5;Track Circuit Break Configuration]"
form = form .. mkformspec(tcb[1], "A", 1, pname)
form = form .. mkformspec(tcb[2], "B", 6, pname)
minetest.show_formspec(pname, "at_il_tcbconfig_"..minetest.pos_to_string(pos), form)
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
local pname = player:get_player_name()
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 = advtrains.interlocking.db.get_tcb(pos)
if not tcb then return end
local f_clearadj = {fields.A_clearadj, fields.B_clearadj}
local f_addadj = {fields.A_addadj, fields.B_addadj}
local f_canceladdadj = {fields.A_canceladdadj, fields.B_canceladdadj}
local f_setlocked = {fields.A_setlocked, fields.B_setlocked}
local f_setfree = {fields.A_setfree, fields.B_setfree}
local f_mknonint = {fields.A_mknonint, fields.B_mknonint}
for connid=1,2 do
if f_clearadj[connid] then
advtrains.interlocking.db.update_tcb_neighbors(pos, connid)
end
if f_mknonint[connid] then
--TODO: remove this from the other tcb's
tcb[connid].end_of_interlocking = true
end
if f_addadj[connid] then
if players_addfar_tcb[pname] then
local sigd = players_addfar_tcb[pname]
advtrains.interlocking.db.add_adjacent(tcb[connid], pos, connid, sigd)
players_addfar_tcb[pname] = nil
else
players_addfar_tcb[pname] = {p = pos, s = connid}
end
end
if f_canceladdadj[connid] then
players_addfar_tcb[pname] = nil
end
if f_setfree[connid] then
tcb[connid].section_free = true
end
if f_setlocked[connid] then
tcb[connid].section_free = nil
end
end
advtrains.interlocking.show_tcb_form(pos, pname)
end
end)
|
