Make TNT respect on_blast, implement on_blast for some nodes
[oweals/minetest_game.git] / mods / doors / init.lua
1 doors = {}
2
3 -- Registers a door
4 function doors.register_door(name, def)
5         def.groups.not_in_creative_inventory = 1
6
7         local box = {{-0.5, -0.5, -0.5, 0.5, 0.5, -0.5+1.5/16}}
8
9         if not def.node_box_bottom then
10                 def.node_box_bottom = box
11         end
12         if not def.node_box_top then
13                 def.node_box_top = box
14         end
15         if not def.selection_box_bottom then
16                 def.selection_box_bottom= box
17         end
18         if not def.selection_box_top then
19                 def.selection_box_top = box
20         end
21
22         if not def.sound_close_door then
23                 def.sound_close_door = "doors_door_close"
24         end
25         if not def.sound_open_door then
26                 def.sound_open_door = "doors_door_open"
27         end
28         
29         
30         minetest.register_craftitem(name, {
31                 description = def.description,
32                 inventory_image = def.inventory_image,
33
34                 on_place = function(itemstack, placer, pointed_thing)
35                         if not pointed_thing.type == "node" then
36                                 return itemstack
37                         end
38
39                         local ptu = pointed_thing.under
40                         local nu = minetest.get_node(ptu)
41                         if minetest.registered_nodes[nu.name].on_rightclick then
42                                 return minetest.registered_nodes[nu.name].on_rightclick(ptu, nu, placer, itemstack)
43                         end
44
45                         local pt = pointed_thing.above
46                         local pt2 = {x=pt.x, y=pt.y, z=pt.z}
47                         pt2.y = pt2.y+1
48                         if
49                                 not minetest.registered_nodes[minetest.get_node(pt).name].buildable_to or
50                                 not minetest.registered_nodes[minetest.get_node(pt2).name].buildable_to or
51                                 not placer or
52                                 not placer:is_player()
53                         then
54                                 return itemstack
55                         end
56
57                         if minetest.is_protected(pt, placer:get_player_name()) or
58                                         minetest.is_protected(pt2, placer:get_player_name()) then
59                                 minetest.record_protection_violation(pt, placer:get_player_name())
60                                 return itemstack
61                         end
62
63                         local p2 = minetest.dir_to_facedir(placer:get_look_dir())
64                         local pt3 = {x=pt.x, y=pt.y, z=pt.z}
65                         if p2 == 0 then
66                                 pt3.x = pt3.x-1
67                         elseif p2 == 1 then
68                                 pt3.z = pt3.z+1
69                         elseif p2 == 2 then
70                                 pt3.x = pt3.x+1
71                         elseif p2 == 3 then
72                                 pt3.z = pt3.z-1
73                         end
74                         if minetest.get_item_group(minetest.get_node(pt3).name, "door") == 0 then
75                                 minetest.set_node(pt, {name=name.."_b_1", param2=p2})
76                                 minetest.set_node(pt2, {name=name.."_t_1", param2=p2})
77                         else
78                                 minetest.set_node(pt, {name=name.."_b_2", param2=p2})
79                                 minetest.set_node(pt2, {name=name.."_t_2", param2=p2})
80                                 minetest.get_meta(pt):set_int("right", 1)
81                                 minetest.get_meta(pt2):set_int("right", 1)
82                         end
83
84                         if def.only_placer_can_open then
85                                 local pn = placer:get_player_name()
86                                 local meta = minetest.get_meta(pt)
87                                 meta:set_string("doors_owner", pn)
88                                 meta:set_string("infotext", "Owned by "..pn)
89                                 meta = minetest.get_meta(pt2)
90                                 meta:set_string("doors_owner", pn)
91                                 meta:set_string("infotext", "Owned by "..pn)
92                         end
93
94                         if not minetest.setting_getbool("creative_mode") then
95                                 itemstack:take_item()
96                         end
97                         return itemstack
98                 end,
99         })
100
101         local tt = def.tiles_top
102         local tb = def.tiles_bottom
103         
104         local function after_dig_node(pos, name, digger)
105                 local node = minetest.get_node(pos)
106                 if node.name == name then
107                         minetest.node_dig(pos, node, digger)
108                 end
109         end
110
111         local function check_and_blast(pos, name)
112                 local node = minetest.get_node(pos)
113                 if node.name == name then
114                         minetest.remove_node(pos)
115                 end
116         end
117
118         local function make_on_blast(base_name, door_type, other_door_type)
119                 if def.only_placer_can_open then
120                         return function() end
121                 else
122                         if door_type == "_b_1" or door_type == "_b_2" then
123                                 return function(pos, intensity)
124                                         check_and_blast(pos, name..door_type)
125                                         pos.y = pos.y + 1
126                                         check_and_blast(pos, name..other_door_type)
127                                 end
128                         elseif door_type == "_t_1" or door_type == "_t_2" then
129                                 return function(pos, intensity)
130                                         check_and_blast(pos, name..door_type)
131                                         pos.y = pos.y - 1
132                                         check_and_blast(pos, name..other_door_type)
133                                 end
134                         end
135                 end
136         end
137
138         local function on_rightclick(pos, dir, check_name, replace, replace_dir, params)
139                 pos.y = pos.y+dir
140                 if not minetest.get_node(pos).name == check_name then
141                         return
142                 end
143                 local p2 = minetest.get_node(pos).param2
144                 p2 = params[p2+1]
145                 
146                 minetest.swap_node(pos, {name=replace_dir, param2=p2})
147                 
148                 pos.y = pos.y-dir
149                 minetest.swap_node(pos, {name=replace, param2=p2})
150
151                 local snd_1 = def.sound_close_door
152                 local snd_2 = def.sound_open_door 
153                 if params[1] == 3 then
154                         snd_1 = def.sound_open_door 
155                         snd_2 = def.sound_close_door
156                 end
157
158                 if minetest.get_meta(pos):get_int("right") ~= 0 then
159                         minetest.sound_play(snd_1, {pos = pos, gain = 0.3, max_hear_distance = 10})
160                 else
161                         minetest.sound_play(snd_2, {pos = pos, gain = 0.3, max_hear_distance = 10})
162                 end
163         end
164
165         local function check_player_priv(pos, player)
166                 if not def.only_placer_can_open then
167                         return true
168                 end
169                 local meta = minetest.get_meta(pos)
170                 local pn = player:get_player_name()
171                 return meta:get_string("doors_owner") == pn
172         end
173
174         minetest.register_node(name.."_b_1", {
175                 tiles = {tb[2], tb[2], tb[2], tb[2], tb[1], tb[1].."^[transformfx"},
176                 paramtype = "light",
177                 paramtype2 = "facedir",
178                 drop = name,
179                 drawtype = "nodebox",
180                 node_box = {
181                         type = "fixed",
182                         fixed = def.node_box_bottom
183                 },
184                 selection_box = {
185                         type = "fixed",
186                         fixed = def.selection_box_bottom
187                 },
188                 groups = def.groups,
189                 
190                 after_dig_node = function(pos, oldnode, oldmetadata, digger)
191                         pos.y = pos.y+1
192                         after_dig_node(pos, name.."_t_1", digger)
193                 end,
194                 
195                 on_rightclick = function(pos, node, clicker)
196                         if check_player_priv(pos, clicker) then
197                                 on_rightclick(pos, 1, name.."_t_1", name.."_b_2", name.."_t_2", {1,2,3,0})
198                         end
199                 end,
200                 
201                 can_dig = check_player_priv,
202                 sounds = def.sounds,
203                 sunlight_propagates = def.sunlight,
204                 on_blast = make_on_blast(name, "_b_1", "_t_1")
205         })
206
207         minetest.register_node(name.."_t_1", {
208                 tiles = {tt[2], tt[2], tt[2], tt[2], tt[1], tt[1].."^[transformfx"},
209                 paramtype = "light",
210                 paramtype2 = "facedir",
211                 drop = "",
212                 drawtype = "nodebox",
213                 node_box = {
214                         type = "fixed",
215                         fixed = def.node_box_top
216                 },
217                 selection_box = {
218                         type = "fixed",
219                         fixed = def.selection_box_top
220                 },
221                 groups = def.groups,
222                 
223                 after_dig_node = function(pos, oldnode, oldmetadata, digger)
224                         pos.y = pos.y-1
225                         after_dig_node(pos, name.."_b_1", digger)
226                 end,
227                 
228                 on_rightclick = function(pos, node, clicker)
229                         if check_player_priv(pos, clicker) then
230                                 on_rightclick(pos, -1, name.."_b_1", name.."_t_2", name.."_b_2", {1,2,3,0})
231                         end
232                 end,
233                 
234                 can_dig = check_player_priv,
235                 sounds = def.sounds,
236                 sunlight_propagates = def.sunlight,
237                 on_blast = make_on_blast(name, "_t_1", "_b_1")
238         })
239
240         minetest.register_node(name.."_b_2", {
241                 tiles = {tb[2], tb[2], tb[2], tb[2], tb[1].."^[transformfx", tb[1]},
242                 paramtype = "light",
243                 paramtype2 = "facedir",
244                 drop = name,
245                 drawtype = "nodebox",
246                 node_box = {
247                         type = "fixed",
248                         fixed = def.node_box_bottom
249                 },
250                 selection_box = {
251                         type = "fixed",
252                         fixed = def.selection_box_bottom
253                 },
254                 groups = def.groups,
255                 
256                 after_dig_node = function(pos, oldnode, oldmetadata, digger)
257                         pos.y = pos.y+1
258                         after_dig_node(pos, name.."_t_2", digger)
259                 end,
260                 
261                 on_rightclick = function(pos, node, clicker)
262                         if check_player_priv(pos, clicker) then
263                                 on_rightclick(pos, 1, name.."_t_2", name.."_b_1", name.."_t_1", {3,0,1,2})
264                         end
265                 end,
266                 
267                 can_dig = check_player_priv,
268                 sounds = def.sounds,
269                 sunlight_propagates = def.sunlight,
270                 on_blast = make_on_blast(name, "_b_2", "_t_2")
271         })
272
273         minetest.register_node(name.."_t_2", {
274                 tiles = {tt[2], tt[2], tt[2], tt[2], tt[1].."^[transformfx", tt[1]},
275                 paramtype = "light",
276                 paramtype2 = "facedir",
277                 drop = "",
278                 drawtype = "nodebox",
279                 node_box = {
280                         type = "fixed",
281                         fixed = def.node_box_top
282                 },
283                 selection_box = {
284                         type = "fixed",
285                         fixed = def.selection_box_top
286                 },
287                 groups = def.groups,
288                 
289                 after_dig_node = function(pos, oldnode, oldmetadata, digger)
290                         pos.y = pos.y-1
291                         after_dig_node(pos, name.."_b_2", digger)
292                 end,
293                 
294                 on_rightclick = function(pos, node, clicker)
295                         if check_player_priv(pos, clicker) then
296                                 on_rightclick(pos, -1, name.."_b_2", name.."_t_1", name.."_b_1", {3,0,1,2})
297                         end
298                 end,
299                 
300                 can_dig = check_player_priv,
301                 sounds = def.sounds,
302                 sunlight_propagates = def.sunlight,
303                 on_blast = make_on_blast(name, "_t_2", "_b_2")
304         })
305
306 end
307
308 doors.register_door("doors:door_wood", {
309         description = "Wooden Door",
310         inventory_image = "doors_wood.png",
311         groups = {snappy=1,choppy=2,oddly_breakable_by_hand=2,flammable=2,door=1},
312         tiles_bottom = {"doors_wood_b.png", "doors_brown.png"},
313         tiles_top = {"doors_wood_a.png", "doors_brown.png"},
314         sounds = default.node_sound_wood_defaults(),
315         sunlight = false,
316 })
317
318 minetest.register_craft({
319         output = "doors:door_wood",
320         recipe = {
321                 {"group:wood", "group:wood"},
322                 {"group:wood", "group:wood"},
323                 {"group:wood", "group:wood"}
324         }
325 })
326
327 doors.register_door("doors:door_steel", {
328         description = "Steel Door",
329         inventory_image = "doors_steel.png",
330         groups = {snappy=1,bendy=2,cracky=1,melty=2,level=2,door=1},
331         tiles_bottom = {"doors_steel_b.png", "doors_grey.png"},
332         tiles_top = {"doors_steel_a.png", "doors_grey.png"},
333         only_placer_can_open = true,
334         sounds = default.node_sound_wood_defaults(),
335         sunlight = false,
336 })
337
338 minetest.register_craft({
339         output = "doors:door_steel",
340         recipe = {
341                 {"default:steel_ingot", "default:steel_ingot"},
342                 {"default:steel_ingot", "default:steel_ingot"},
343                 {"default:steel_ingot", "default:steel_ingot"}
344         }
345 })
346
347 doors.register_door("doors:door_glass", {
348         description = "Glass Door",
349         inventory_image = "doors_glass.png",
350         groups = {snappy=1,cracky=1,oddly_breakable_by_hand=3,door=1},
351         tiles_bottom = {"doors_glass_b.png", "doors_glass_side.png"},
352         tiles_top = {"doors_glass_a.png", "doors_glass_side.png"},
353         sounds = default.node_sound_glass_defaults(),
354         sunlight = true,
355 })
356
357 minetest.register_craft({
358         output = "doors:door_glass",
359         recipe = {
360                 {"default:glass", "default:glass"},
361                 {"default:glass", "default:glass"},
362                 {"default:glass", "default:glass"}
363         }
364 })
365
366 doors.register_door("doors:door_obsidian_glass", {
367         description = "Obsidian Glass Door",
368         inventory_image = "doors_obsidian_glass.png",
369         groups = {snappy=1,cracky=1,oddly_breakable_by_hand=3,door=1},
370         tiles_bottom = {"doors_obsidian_glass_b.png", "doors_obsidian_glass_side.png"},
371         tiles_top = {"doors_obsidian_glass_a.png", "doors_obsidian_glass_side.png"},
372         sounds = default.node_sound_glass_defaults(),
373         sunlight = true,
374 })
375
376 minetest.register_craft({
377         output = "doors:door_obsidian_glass",
378         recipe = {
379                 {"default:obsidian_glass", "default:obsidian_glass"},
380                 {"default:obsidian_glass", "default:obsidian_glass"},
381                 {"default:obsidian_glass", "default:obsidian_glass"}
382         }
383 })
384
385
386 ----trapdoor----
387
388 function doors.register_trapdoor(name, def)
389         local name_closed = name
390         local name_opened = name.."_open"
391
392         def.on_rightclick = function (pos, node)
393                 local newname = node.name == name_closed and name_opened or name_closed
394                 local sound = false
395                 if node.name == name_closed then sound = def.sound_open end
396                 if node.name == name_opened then sound = def.sound_close end
397                 if sound then
398                         minetest.sound_play(sound, {pos = pos, gain = 0.3, max_hear_distance = 10})
399                 end
400                 minetest.set_node(pos, {name = newname, param1 = node.param1, param2 = node.param2})
401         end
402
403         -- Common trapdoor configuration
404         def.drawtype = "nodebox"
405         def.paramtype = "light"
406         def.paramtype2 = "facedir"
407
408         local def_opened = table.copy(def)
409         local def_closed = table.copy(def)
410
411         def_closed.node_box = {
412                 type = "fixed",
413                 fixed = {-0.5, -0.5, -0.5, 0.5, -0.4, 0.5}
414         }
415         def_closed.selection_box = {
416                 type = "fixed",
417                 fixed = {-0.5, -0.5, -0.5, 0.5, -0.4, 0.5}
418         }
419         def_closed.tiles = { def.tile_front, def.tile_front, def.tile_side, def.tile_side,
420                 def.tile_side, def.tile_side }
421
422         def_opened.node_box = {
423                 type = "fixed",
424                 fixed = {-0.5, -0.5, 0.4, 0.5, 0.5, 0.5}
425         }
426         def_opened.selection_box = {
427                 type = "fixed",
428                 fixed = {-0.5, -0.5, 0.4, 0.5, 0.5, 0.5}
429         }
430         def_opened.tiles = { def.tile_side, def.tile_side, def.tile_side, def.tile_side,
431                 def.tile_front, def.tile_front }
432         def_opened.drop = name_closed
433         def_opened.groups.not_in_creative_inventory = 1
434
435         minetest.register_node(name_opened, def_opened)
436         minetest.register_node(name_closed, def_closed)
437 end
438
439
440
441 doors.register_trapdoor("doors:trapdoor", {
442         description = "Trapdoor",
443         inventory_image = "doors_trapdoor.png",
444         wield_image = "doors_trapdoor.png",
445         tile_front = "doors_trapdoor.png",
446         tile_side = "doors_trapdoor_side.png",
447         groups = {snappy=1, choppy=2, oddly_breakable_by_hand=2, flammable=2, door=1},
448         sounds = default.node_sound_wood_defaults(),
449         sound_open = "doors_door_open",
450         sound_close = "doors_door_close"
451 })
452
453 minetest.register_craft({
454         output = 'doors:trapdoor 2',
455         recipe = {
456                 {'group:wood', 'group:wood', 'group:wood'},
457                 {'group:wood', 'group:wood', 'group:wood'},
458                 {'', '', ''},
459         }
460 })