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
|
-- techage.lua
-- Tech-age specific features, loaded only when techage is found
-- == Liquid features == --
-- Tank wagons can get support for Techage liquids.
-- advtrains provides a "Tank car filling spigot" and a "Tank car unloading funnel" which are placed above resp. below the tracks.
-- They act as proxy nodes from/to which liquids can be pumped using the Techage pumps
-- Note: for tank cars to support filling with liquid, add the "techage_liquid_capacity = <capacity_in_liquid_units>" property to the wagon definition.
-- Get Techage variables
local Pipe = techage.LiquidPipe
local liquid = networks.liquid
-- Nodes
-- checks for and gets a tank car at given reference position. Ref Pos must be the track this node relates to.
-- For a wagon to be valid it must be standing at the node in question
-- If found, returns liquid_info, capacity, wagon_id (where liquid_info is {name=..., amount=...} in same format as the techage tank nvms)
-- If not found, returns nil
local function get_tank_car_liquidinfo(ref_pos)
local trains = advtrains.occ.get_trains_at(ref_pos)
for train_id, index in pairs(trains) do
local train = advtrains.trains[train_id]
-- make sure that the train is stopped
if train.velocity == 0 then
local wagon_num, wid, data, offset_from_center = advtrains.get_wagon_at_index(train_id, index)
if wagon_num and offset_from_center < 1 then
-- this wagon is possibly a tank car. Check the wagon def
local _, proto = advtrains.get_wagon_prototype(data)
if proto.techage_liquid_capacity then
-- Found a tank car. Get its liquid info from the data table, create it if necessary
if not data.techage_liquid then
data.techage_liquid = {}
end
return data.techage_liquid, proto.techage_liquid_capacity, wid
end
end
end
end
return nil
end
local function loader_relpos(pos)
return {x=pos.x, y=pos.y-3, z=pos.z}
end
local function tankcar_put_liquid(pos, name, amount)
local lic, capa, wid = get_tank_car_liquidinfo(pos)
if lic then
if lic.name then
if lic.name ~= name then
-- different liquid than already in here - deny
return amount
end
-- else add the amount
lic.amount = lic.amount + amount
else
-- does not contain liquid yet, set name and amount to 0
lic.name = name
lic.amount = amount
end
--atdebug("tankcar_put_liquid: put",name,amount,", now contains ",lic)
if lic.amount > capa then
-- capacity was hit, reject too much liquid
local reject = lic.amount - capa
lic.amount = capa
--atdebug("tankcar_put_liquid: over capa", capa, ", rejects ", reject)
return reject
end
return 0
end
return amount
end
local function unloader_relpos(pos)
return {x=pos.x, y=pos.y+1, z=pos.z}
end
local function tankcar_take_liquid(pos, name, amount)
local lic, capa, wid = get_tank_car_liquidinfo(pos)
if lic then
if lic.name then
-- note: name parameter may be nil (aka any), then do not prevent
if name and lic.name ~= name then
-- different liquid than already in here - deny
return 0
end
else
-- does not contain liquid, nothing to take
return 0
end
if lic.amount <= amount then
-- pumping last bit of liquid
local rest, oldname = lic.amount, lic.name
lic.amount = 0
lic.name = nil -- reset the name since car is now empty
--atdebug("tankcar_take_liquid: took",name,amount,", now empty")
return rest, oldname
end
-- no underflow, subtract
lic.amount = lic.amount - amount
--atdebug("tankcar_take_liquid: took",name,amount,", now left ",lic)
return amount, lic.name
end
return 0 -- no wagon here
end
minetest.register_node("advtrains:ta_liquid_loader", {
description = attrans("Tank Car Filling Spigot"),
tiles = {
"advtrains_ta_spigot_back.png^[transformR180",
"advtrains_ta_spigot_ahead.png",
"advtrains_ta_spigot_side.png",
"advtrains_ta_spigot_side.png^[transformR270",
"advtrains_ta_spigot_ahead.png",
"advtrains_ta_spigot_back.png",
},
after_dig_node = function(pos, oldnode, oldmetadata, digger)
Pipe:after_dig_tube(pos, oldnode, oldmetadata)
end,
paramtype2 = "facedir", -- important!
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-1/8, -6/8, -1/8, 1/8, 1/8, 1/8},
{-2/8, -5/8, -2/8, 2/8, -1/4, 2/8},
{-1/8, -1/8, 1/8, 1/8, 1/8, 4/8},
{-2/8, -2/8, 13/32, 2/8, 2/8, 1/2},
},
},
on_rotate = screwdriver.disallow, -- important!
paramtype = "light",
use_texture_alpha = techage.CLIP,
sunlight_propagates = true,
is_ground_content = false,
groups = {crumbly = 2, cracky = 2, snappy = 2},
sounds = default.node_sound_metal_defaults(),
drop = "advtrains:ta_liquid_loader",
})
liquid.register_nodes({"advtrains:ta_liquid_loader"},
Pipe, "tank", {"B"}, {
capa = 42, -- capa is ignored by put function, but needs to be given anyway.
peek = function(pos, indir) -- should provide the type of liquid anyway, because pump uses it to check whether it can pump here
local lic, capa, wid = get_tank_car_liquidinfo(loader_relpos(pos))
--atdebug("loader peeked: ", lic, capa)
if lic and lic.name and lic.amount > 0 then
return lic.name
end
return nil
end,
put = function(pos, indir, name, amount)
return tankcar_put_liquid(loader_relpos(pos), name, amount)
end,
take = function(pos, indir, name, amount)
return 0 -- cannot take anything from the loader
end,
untake = function(pos, indir, name, amount)
return tankcar_put_liquid(loader_relpos(pos), name, amount)
end,
}
)
minetest.register_node("advtrains:ta_liquid_unloader", {
description = attrans("Tank Car Unloading Drain Funnel"),
tiles = {
"advtrains_ta_spigot_ahead.png^[transformR180",
"advtrains_ta_spigot_back.png",
"advtrains_ta_spigot_side.png^[transformR90",
"advtrains_ta_spigot_side.png^[transformR180",
"advtrains_ta_spigot_ahead.png^[transformR180",
"advtrains_ta_spigot_back.png^[transformR180",
},
after_dig_node = function(pos, oldnode, oldmetadata, digger)
Pipe:after_dig_tube(pos, oldnode, oldmetadata)
end,
paramtype2 = "facedir", -- important!
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-1/8, -1/8, -1/8, 1/8, 5/8, 1/8},
{-2/8, 1/4, -2/8, 2/8, 5/8, 2/8},
{-1/8, -1/8, 1/8, 1/8, 1/8, 4/8},
{-2/8, -2/8, 13/32, 2/8, 2/8, 4/8},
},
},
on_rotate = screwdriver.disallow, -- important!
paramtype = "light",
use_texture_alpha = techage.CLIP,
sunlight_propagates = true,
is_ground_content = false,
groups = {crumbly = 2, cracky = 2, snappy = 2},
sounds = default.node_sound_metal_defaults(),
drop = "advtrains:ta_liquid_unloader",
})
liquid.register_nodes({"advtrains:ta_liquid_unloader"},
Pipe, "tank", {"B"}, {
capa = 42, -- capa is ignored by put function, but needs to be given anyway.
peek = function(pos, indir)
local lic, capa, wid = get_tank_car_liquidinfo(unloader_relpos(pos))
--atdebug("unloader peeked: ", lic, capa)
if lic and lic.name and lic.amount > 0 then
return lic.name
end
return nil
end,
put = function(pos, indir, name, amount)
return amount -- cannot put here
end,
take = function(pos, indir, name, amount)
return tankcar_take_liquid(unloader_relpos(pos), name, amount)
end,
untake = function(pos, indir, name, amount)
-- untake has to work like a put would!
return tankcar_put_liquid(loader_relpos(pos), name, amount)
end,
}
)
minetest.register_craft({
output = "advtrains:ta_liquid_loader",
recipe = {
{"techage:ta3_pipeS"},
{"minecart:hopper"},
},
})
minetest.register_craft({
output = "advtrains:ta_liquid_unloader",
recipe = {
{"minecart:hopper"},
{"techage:ta3_pipeS"},
},
})
|
