--- /dev/null
+local S = minetest.get_translator("mcl_end_crystal")
+
+local explosion_range = 7
+
+local directions = {
+ {x = 1}, {x = -1}, {z = 1}, {z = -1}
+}
+
+local dimensions = {"x", "y", "z"}
+
+for _, dir in pairs(directions) do
+ for _, dim in pairs(dimensions) do
+ dir[dim] = dir[dim] or 0
+ end
+end
+
+local function crystal_explode(self, puncher)
+ if self.exploded then return end
+ self.exploded = true
+ local radius = puncher and explosion_range or 1
+ mcl_explosions.explode(self.object:get_pos(), radius, {drop_chance = 1}, puncher)
+ minetest.after(0, self.object.remove, self.object)
+end
+
+local function set_crystal_animation(self)
+ self.object:set_animation({x = 0, y = 60}, 30)
+end
+
+local function spawn_crystal(pos)
+ local crystal = minetest.add_entity(pos, "mcl_end_crystal:end_crystal")
+ if not vector.equals(pos, vector.floor(pos)) then return end
+ if mcl_worlds.pos_to_dimension(pos) ~= "end" then return end
+ local portal_center
+ for _, dir in pairs(directions) do
+ local node = minetest.get_node(vector.add(pos, vector.add(dir, {x = 0, y = -1, z = 0})))
+ if node.name == "mcl_portals:portal_end" then
+ portal_center = vector.add(pos, vector.multiply(dir, 3))
+ break
+ end
+ end
+ if not portal_center then return end
+ local crystals = {}
+ for i, dir in pairs(directions) do
+ local crystal_pos = vector.add(portal_center, vector.multiply(dir, 3))
+ print(minetest.pos_to_string(crystal_pos))
+ local objects = minetest.get_objects_inside_radius(crystal_pos, 0)
+ for _, obj in pairs(objects) do
+ local luaentity = obj:get_luaentity()
+ if luaentity and luaentity.name == "mcl_end_crystal:end_crystal" then
+ crystals[i] = luaentity
+ break
+ end
+ end
+ if not crystals[i] then return end
+ end
+ for _, crystal in pairs(crystals) do
+ crystal_explode(crystal)
+ end
+ minetest.add_entity(vector.add(portal_center, {x = 0, y = 10, z = 0}), "mobs_mc:enderdragon")
+end
+
+minetest.register_entity("mcl_end_crystal:end_crystal", {
+ initial_properties = {
+ physical = true,
+ visual = "mesh",
+ visual_size = {x = 7.5, y = 7.5, z = 7.5},
+ collisionbox = {-0.75, -0.5, -0.75, 0.75, 1.25, 0.75},
+ mesh = "end_crystal.b3d",
+ textures = {"end_crystal_entity.png"},
+ collide_with_objects = true,
+ },
+ exploded = false,
+ on_punch = crystal_explode,
+ on_activate = set_crystal_animation,
+ _cmi_is_mob = true -- Ignitable by arrows
+})
+
+minetest.register_craftitem("mcl_end_crystal:end_crystal", {
+ inventory_image = "end_crystal.png",
+ description = S("End Crystal"),
+ stack_max = 64,
+ on_place = function(itemstack, placer, pointed_thing)
+ if pointed_thing.type == "node" and pointed_thing.above.y > pointed_thing.under.y then
+ local node = minetest.get_node(pointed_thing.under).name
+ if node == "mcl_core:obsidian" or node == "mcl_core:bedrock" then
+ itemstack:take_item()
+ spawn_crystal(pointed_thing.above)
+ end
+ end
+ return itemstack
+ end,
+ _tt_help = S("Ignited by a punch or a hit with an arrow").."\n"..S("Explosion radius: @1", tostring(explosion_range)),
+ _doc_items_longdesc = S("End Crystals are explosive devices. They can be placed on Obsidian or Bedrock. Ignite them by a punch or a hit with an arrow. End Crystals can also be used the spawn the Ender Dragon by placing one at each side of the End Exit Portal."),
+ _doc_items_usagehelp = S("Place the End Crystal on Obsidian or Bedrock, then punch it or hit it with an arrow to cause an huge and probably deadly explosion. To Spawn the Ender Dragon, place one at each side of the End Exit Portal."),
+
+})
+
+minetest.register_craft({
+ output = "mcl_end_crystal:end_crystal",
+ recipe = {
+ {"mcl_core:glass", "mcl_core:glass", "mcl_core:glass"},
+ {"mcl_core:glass", "mcl_end:ender_eye", "mcl_core:glass"},
+ {"mcl_core:glass", "mcl_mobitems:ghast_tear", "mcl_core:glass"},
+ }
+})