From 8ecbbb571667c9accefaa0a0cd163cfbabcee16e Mon Sep 17 00:00:00 2001
From: Beha <shacknetisp@mail.com>
Date: Mon, 9 Jan 2017 15:20:20 -0500
Subject: [PATCH] Add a meteor.

---
 init.lua                |  15 ++++++++---
 schematics/meteor_1.mts | Bin 0 -> 294 bytes
 structures.lua          |  56 +++++++++++++++++++++++++++++++++++++++-
 3 files changed, 66 insertions(+), 5 deletions(-)
 create mode 100644 schematics/meteor_1.mts

diff --git a/init.lua b/init.lua
index 36574b2..98bfcf9 100644
--- a/init.lua
+++ b/init.lua
@@ -116,24 +116,31 @@ minetest.register_on_generated(function(minp, maxp, seed)
                 local pos = vector.add(use, def.offset)
                 minetest.place_schematic(pos, def.schematic, "random")
 
-                -- Very Hacky Solution due to minetest.place_schematic carrying the replacements parameter between calls.
-                -- This parses the schematic file manually, then replaces appropriate nodes between all possible positions.
                 local schematic_size = {}
+
+                -- Open the schematic and read the three size integers into schematic_size.
                 local sf = io.open(def.schematic, "rb")
                 sf:read(6)
                 schematic_size.x = string.byte(sf:read(1)) * 256 + string.byte(sf:read(1))
                 schematic_size.y = string.byte(sf:read(1)) * 256 + string.byte(sf:read(1))
                 schematic_size.z = string.byte(sf:read(1)) * 256 + string.byte(sf:read(1))
                 sf:close()
+
+                local mid = vector.add(pos, vector.divide(schematic_size, 2))
+
+                -- Replace appropriate nodes in the possible schematic area.
                 for k,v in pairs(r) do
-                    local positions = minetest.find_nodes_in_area(vector.subtract(pos, schematic_size), vector.add(maxp, schematic_size), {k})
+                    local positions = minetest.find_nodes_in_area(vector.subtract(mid, schematic_size), vector.add(mid, schematic_size), {k})
                     if positions then
                         for _,p in ipairs(positions) do
                             minetest.set_node(p, {name=v})
                         end
                     end
                 end
-                -- End Very Hacky Solution
+
+                if def.special then
+                    def.special(pos, mid, schematic_size)
+                end
             end
         end
     end
diff --git a/schematics/meteor_1.mts b/schematics/meteor_1.mts
new file mode 100644
index 0000000000000000000000000000000000000000..7f77267f249ed9d762d29eae4faaee3ceee33c13
GIT binary patch
literal 294
zcmeYb3HD`RVc-Npwt5&~U}s=X%q(IMPf1NnEX^sgDlW;-ON}qjEXjz^EXvPgkWS1?
z&P>fKi7(GD%1N;*$Vp62&B)J5NiB*uWZ;46O35rLVc>=Fz-AyMb5n~`8Teq5=|zcU
zsW}yM-cCBm*P_7VlBo0h_V3r+9*uo37Jf{+mf7>N;mb{-Lub3V+xJR1@I7C%_V~=r
z6NB%qnEEBBL`rd1%A8GkvQOTec%wW;CRufx#F3@j!onZ9oVj$!==Of8`|-kDf?l@S
z@6uMayx1x6Y_GLb@Uf&<<vx{nuln;@|9q7A>B754ySPe@sUJOf7s>sO{k88G^Urt3
NR;RyY4>kYn0{}Q9f?fas

literal 0
HcmV?d00001

diff --git a/structures.lua b/structures.lua
index 75ba856..c50d304 100644
--- a/structures.lua
+++ b/structures.lua
@@ -187,7 +187,7 @@ end
 ancient_world.register("ancient_world:mine_1", {
     schematic = minetest.get_modpath("ancient_world") .. "/schematics/mine_1.mts",
     type = "decoration",
-    on = {"default:dirt_with_grass"},
+    on = {"default:dirt_with_grass", "default:dirt_with_dry_grass"},
     offset = {
         x = 0,
         y = -48,
@@ -207,3 +207,57 @@ ancient_world.register("ancient_world:mine_1", {
                 {"default:stone_with_gold", "default:stone_with_copper", "default:stone_with_iron"}),
     },
 })
+
+ancient_world.register("ancient_world:meteor_1", {
+    schematic = minetest.get_modpath("ancient_world") .. "/schematics/meteor_1.mts",
+    type = "decoration",
+    on = {"default:dirt_with_grass", "default:dirt_with_dry_grass"},
+    offset = {
+        x = 0,
+        y = -2,
+        z = 0,
+    },
+    limit_y = {
+        max = 31000,
+        min = -32,
+    },
+    replacements = {
+        ["ancient_world:placeholder_1"] = "fire:basic_flame",
+    },
+    special = function(pos, mid, schematic_size)
+        local want = {
+            ["default:dirt_with_dry_grass"] = true,
+            ["default:dirt_with_grass"] = true,
+            ["default:stone"] = true,
+        }
+        local t = vector.add(mid, schematic_size)
+        t.y = t.y - 4
+        local positions = minetest.find_nodes_in_area(vector.subtract(mid, schematic_size), t, {"air"})
+        if positions then
+            for _,p in ipairs(positions) do
+                if math.random(1, 100) <= 10 then
+                    local hit = p
+                    local tries = 1
+                    while true do
+                        hit = vector.add(hit, {x=0, y=-1, z=0})
+                        if want[minetest.get_node(vector.add(hit, {x=0, y=-1, z=0})).name] then
+                            break
+                        end
+                        if want[minetest.get_node(vector.add(hit, {x=0, y=-1, z=0})).name] == "ignore" then
+                            hit = nil
+                            break
+                        end
+                        if tries > 16 then
+                            hit = nil
+                            break
+                        end
+                        tries = tries + 1
+                    end
+                    if hit then
+                        minetest.set_node(hit, {name="default:dirt"})
+                    end
+                end
+            end
+        end
+    end,
+})