mods/mob_spawners/init.lua

   1 dungeon_loot = {}
   2
   3 dungeon_loot.CHESTS_MIN = 10 -- not necessarily in a single dungeon
   4 dungeon_loot.CHESTS_MAX = 50
   5 dungeon_loot.STACKS_PER_CHEST_MAX = 10
   6
   7 mob_spawners = {}
   8
   9 function register_mob_spawner(mobname,texture,mesh)
  10     minetest.register_node(":mob_spawners:"..mobname,{
  11         description = mobname:gsub("^%l", string.upper).." Spawner",
  12         drawtype = "allfaces",
  13                 tiles = {"spawner.png"},
  14                 groups = {stone = 3, pathable = 1},
  15         sounds = main.stoneSound(),
  16         sunlight_propagates = true,
  17         paramtype = "light",
  18         drop = "",
  19         on_construct = function(pos)
  20             minetest.add_entity(pos, "mob_spawners:"..mobname)
  21         end,
  22         after_destruct = function(pos)
  23             for _,object in ipairs(minetest.get_objects_inside_radius(pos, 0.5)) do
  24                 if not object:is_player() then
  25                     if object:get_luaentity().name == "mob_spawners:"..mobname then
  26                         object:remove()
  27                         return
  28                     end
  29                 end
  30             end
  31         end
  32     })
  33
  34     table.insert(mob_spawners,"mob_spawners:"..mobname)
  35     print(dump(mob_spawners))
  36
  37     minetest.register_lbm({
  38         name = ":mob_spawners:"..mobname,
  39         nodenames = {"mob_spawners:"..mobname},
  40         action = function(pos)
  41             minetest.add_entity(pos, "mob_spawners:"..mobname)
  42         end,
  43     })
  44
  45     minetest.register_abm({
  46         label = "mob_spawners:"..mobname,
  47         nodenames = {"mob_spawners:"..mobname},
  48         neighbors = {"air"},
  49         interval = 5,
  50         chance = 1,
  51         action = function(pos)
  52             --readd the mob visual
  53             local found = false
  54             for _,object in ipairs(minetest.get_objects_inside_radius(pos, 0.5)) do
  55                 if not object:is_player() then
  56                     if object:get_luaentity().name == "mob_spawners:"..mobname then
  57                         found = true
  58                         break
  59                     end
  60                 end
  61             end
  62             if found == false then
  63                 minetest.add_entity(pos, "mob_spawners:"..mobname)
  64             end
  65
  66             local mobcount = 0
  67             for _,object in ipairs(minetest.get_objects_inside_radius(pos, 5)) do
  68                 if not object:is_player() and object:get_luaentity().mobname then
  69                     mobcount = mobcount + 1
  70                     if mobcount > 5 then
  71                         return
  72                     end
  73                 end
  74             end
  75
  76             for i = 1,math.random(2,4) do
  77                 local newpos = minetest.find_node_near(pos, 5, {"air"})
  78                 if newpos then
  79                     minetest.add_entity(newpos,"mob:"..mobname)
  80                 end
  81             end
  82             end,
  83     })
  84
  85     local spawner_entity = {}
  86     spawner_entity.initial_properties = {
  87         physical = false,
  88         collide_with_objects = false,
  89         collisionbox = {0,0,0,0,0,0},
  90         visual = "mesh",
  91         visual_size = {x=1,y=1,z=1},
  92         mesh = mesh,
  93         textures = texture,
  94         is_visible = true,
  95         pointable = false,
  96         makes_footstep_sound = false,
  97         static_save = false,
  98         automatic_rotate = 3
  99     }
 100
 101     minetest.register_entity(":mob_spawners:"..mobname, spawner_entity)
 102 end
 103
 104 dofile(minetest.get_modpath("mob_spawners") .. "/loot.lua")
 105 dofile(minetest.get_modpath("mob_spawners") .. "/mapgen.lua")