Initial Commit

init.lua

@@ -0,0 +1,105 @@
+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"},
+	}
+})

locale/mcl_end_crystal.de.tr

@@ -0,0 +1,6 @@
+# textdomain: mcl_end_crystal
+End Crystal=Enderkristall
+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.=Enderkristalle sind explosiv. Sie können auf Obsidian oder Grundgestein platziert werden. Man kann sie durch einen Schlag oder einen Treffer mit einem Pfeil entzünden. Ausserdem können sie benutzt werden, um den Enderdrachen zu erzeugen, in dem man je einen auf jeder Seite des Endausgangsportals platziert.
+Explosion radius: @1=Explosionsradius: @1
+Ignited by a punch or a hit with an arrow=Entzündbar durch einen Schlag oder einen Treffer mit einem Pfeil
+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.=Platziere den Enderkistall auf Obsidian oder Grundgestein, dann schlage ihn oder triff ihn mit einem Pfeil, um eine riesige und meistens tödliche Explosion zu bewirken.

locale/template.txt

@@ -0,0 +1,6 @@
+# textdomain: mcl_end_crystal
+End Crystal=
+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.=
+Explosion radius: @1=
+Ignited by a punch or a hit with an arrow=
+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.=

mod.conf

@@ -0,0 +1,4 @@
+name = mcl_end_crystal
+author = Fleckenstein
+depends = mcl_explosions
+description = Adds End Crystals to MineClone2. The Ender Dragon can be spawned by placing one of them on each side of the end exit portal.