mods/mob/spawning.lua

   1 local minetest,vector,math,table = minetest,vector,math,table
   2
   3 --this is where mob spawning is defined
   4
   5 --spawn mob in a square doughnut shaped radius
   6 --the amount of mobs that the game will try to spawn per player
   7 local spawn_goal_per_player = 10
   8 --the amount of mobs that the spawner will cap out at
   9
  10 --the height in which the game will search the x and z chosen (NUMBER up, NUMBER down)
  11 local find_node_height = 32
  12
  13 --for debug testing to isolate mobs
  14 local spawn = true
  15
  16 local spawn_table = {"pig","chicken","sheep"}
  17 local snow_dark_spawn_table = {"snoider","sneeper","zombie","zombie"}
  18 local snow_light_spawn_table = {"snowman"}
  19 local dark_spawn_table = {"creeper","creeper","creeper","spider","spider","spider","small_slime","small_slime","zombie","zombie","zombie"}
  20 local nether_spawn_table = {"nitro_creeper"}
  21 local aether_spawn_table = {"phyg"}
  22
  23
  24 local axis
  25 --inner and outer part of square donut radius
  26 local inner = 18
  27 local outer = 50
  28 local int = {-1,1}
  29 local position_calculation = function(pos)
  30         --this is used to determine the axis buffer from the player
  31         axis = math.random(0,1)
  32
  33         --cast towards the direction
  34         if axis == 0 then --x
  35                 pos.x = pos.x + math.random(inner,outer)*int[math.random(1,2)]
  36                 pos.z = pos.z + math.random(-outer,outer)
  37         else --z
  38                 pos.z = pos.z + math.random(inner,outer)*int[math.random(1,2)]
  39                 pos.x = pos.x + math.random(-outer,outer)
  40         end
  41         return(pos)
  42 end
  43
  44
  45 local object_list
  46 local entity
  47 local counter
  48 local get_mobs_in_radius = function(pos)
  49         counter = 0
  50         object_list = minetest.get_objects_inside_radius(pos, outer)
  51         for _,object in ipairs(object_list) do
  52                 if not object:is_player() then
  53                         if object:get_luaentity().mobname then
  54                                 counter = counter + 1
  55                         end
  56                 end
  57         end
  58         return(counter)
  59 end
  60
  61
  62 local pos
  63 local mobs
  64 local spawner
  65 local mob_spawning
  66 local light_level
  67 local mob_pos
  68 local function spawn_mobs(player)
  69         pos = player:get_pos()
  70         mobs = get_mobs_in_radius(pos)
  71         if mobs > spawn_goal_per_player then
  72                 return
  73         end
  74
  75         for i = 1,math.random(2,5) do
  76
  77         pos = position_calculation(pos)
  78
  79         spawner = {}
  80         if pos.y >= 21000 then
  81                 spawner = minetest.find_nodes_in_area_under_air(vector.new(pos.x,pos.y-find_node_height,pos.z), vector.new(pos.x,pos.y+find_node_height,pos.z), {"aether:grass"})
  82         elseif pos.y <= -10033 and pos.y >= -20112 then
  83                 spawner = minetest.find_nodes_in_area_under_air(vector.new(pos.x,pos.y-find_node_height,pos.z), vector.new(pos.x,pos.y+find_node_height,pos.z), {"nether:netherrack"})
  84         else
  85                 spawner = minetest.find_nodes_in_area_under_air(vector.new(pos.x,pos.y-find_node_height,pos.z), vector.new(pos.x,pos.y+find_node_height,pos.z), {"main:grass","main:sand","main:water"})
  86         end
  87
  88         --print(dump(spawner))
  89         if table.getn(spawner) > 0 then
  90                 mob_pos = spawner[math.random(1,table.getn(spawner))]
  91                 mob_pos.y = mob_pos.y + 1
  92                 --print("spawning", dump(mob_pos))
  93
  94                 --aether spawning
  95                 if mob_pos.y >= 21000 then
  96                         mob_spawning = aether_spawn_table[math.random(1,table.getn(aether_spawn_table))]
  97                         --print("Aether Spawning "..mob_spawning.." at: "..minetest.pos_to_string(mob_pos))
  98                         minetest.add_entity(mob_pos,"mob:"..mob_spawning)
  99                 elseif mob_pos.y <= -10033 and mob_pos.y >= -20112 then
 100                         mob_spawning = nether_spawn_table[math.random(1,table.getn(nether_spawn_table))]
 101                         --print("Nether Spawning "..mob_spawning.." at: "..minetest.pos_to_string(mob_pos))
 102                         minetest.add_entity(mob_pos,"mob:"..mob_spawning)
 103                 else
 104                         light_level = minetest.get_node_light(mob_pos)
 105
 106                         if weather_type == 1 then
 107                                 if light_level < 7 then
 108                                         mob_spawning = snow_dark_spawn_table[math.random(1,table.getn(snow_dark_spawn_table))]
 109                                         --print("Snow Spawning "..mob_spawning.." at: "..minetest.pos_to_string(mob_pos))
 110                                         minetest.add_entity(mob_pos,"mob:"..mob_spawning)
 111                                 else
 112                                         local mob_spawning = snow_light_spawn_table[math.random(1,table.getn(snow_light_spawn_table))]
 113                                         --print("Snow Spawning "..mob_spawning.." at: "..minetest.pos_to_string(mob_pos))
 114                                         minetest.add_entity(mob_pos,"mob:"..mob_spawning)
 115                                 end
 116                         else
 117                                 if light_level < 7 then
 118                                         mob_spawning = dark_spawn_table[math.random(1,table.getn(dark_spawn_table))]
 119                                         --print("Dark Spawning "..mob_spawning.." at: "..minetest.pos_to_string(mob_pos))
 120                                         minetest.add_entity(mob_pos,"mob:"..mob_spawning)
 121                                 else
 122                                         mob_spawning = spawn_table[math.random(1,table.getn(spawn_table))]
 123                                         --print("Light Spawning "..mob_spawning.." at: "..minetest.pos_to_string(mob_pos))
 124                                         minetest.add_entity(mob_pos,"mob:"..mob_spawning)
 125                                 end
 126                         end
 127                 end
 128         end
 129         end
 130 end
 131
 132 local function per_player_handling()
 133         --check through players
 134         for _,player in ipairs(minetest.get_connected_players()) do
 135                 spawn_mobs(player)
 136         end
 137
 138         minetest.after(10, function()
 139                 per_player_handling()
 140         end)
 141 end
 142
 143 if spawn then
 144         minetest.register_on_mods_loaded(function()
 145                 minetest.after(0,function()
 146                         per_player_handling()
 147                 end)
 148         end)
 149 end
 150
 151