VoxeLibre/mods/ENTITIES/mobs_mc/ender_dragon.lua

--###################
--################### ENDERDRAGON
--###################

local S = minetest.get_translator("mobs_mc")

mobs:register_mob("mobs_mc:enderdragon", {
	description = S("Ender Dragon"),
	type = "monster",
	spawn_class = "hostile",
	attacks_animals = true,
	walk_chance = 100,
	rotate = 270,
	tilt_fly = true,
	hostile = true,
	shoot_arrow = function(self, pos, dir)
		-- 2-4 damage per arrow
		local dmg = math.random(2,4)
		mobs.shoot_projectile_handling("mobs_mc:dragon_fireball", pos, dir, self.object:get_yaw(), self.object, nil, dmg)
	end,
	hp_max = 200,
	hp_min = 200,
	xp_min = 500,
	xp_max = 500,
	collisionbox = {-2, 0, -2, 2, 2, 2},
	eye_height = 1,
	visual = "mesh",
	mesh = "mobs_mc_dragon.b3d",
	textures = {
		{"mobs_mc_dragon.png"},
	},
	visual_size = {x=3, y=3},
	view_range = 35,
	reach = 20,
	walk_velocity = 6,
	run_velocity = 6,
	can_despawn = false,
	sounds = {
		-- TODO: more sounds
		shoot_attack = "mobs_mc_ender_dragon_shoot",
		attack = "mobs_mc_ender_dragon_attack",
		distance = 60,
	},
	physical = true,
	damage = 10,
	jump = true,
	jump_height = 14,
	fly = true,
	makes_footstep_sound = false,
	dogshoot_switch = 1,
	dogshoot_count_max =5,
	dogshoot_count2_max = 5,
	passive = false,
	attack_animals = true,
	lava_damage = 0,
	fire_damage = 0,
	on_rightclick = nil,
	attack_type = "projectile",
	arrow = "mobs_mc:dragon_fireball",
	shoot_interval = 0.5,
	shoot_offset = -1.0,
	animation = {
		fly_speed = 8, stand_speed = 8,
		stand_start = 0,		stand_end = 20,
		walk_start = 0,		walk_end = 20,
		run_start = 0,		run_end = 20,
	},
	ignores_nametag = true,
	do_custom = function(self)
		mcl_bossbars.update_boss(self.object, "Ender Dragon", "light_purple")
		for _, obj in ipairs(minetest.get_objects_inside_radius(self.object:get_pos(), 80)) do
			local luaentity = obj:get_luaentity()
			if luaentity and luaentity.name == "mcl_end:crystal" then
				if luaentity.beam then
					if luaentity.beam == self.beam then
						break
					end
				else
					if self.beam then
						self.beam:remove()
					end
					minetest.add_entity(self.object:get_pos(), "mcl_end:crystal_beam"):get_luaentity():init(self.object, obj)
					break
				end
			end
		end
		if self._portal_pos then
			-- migrate old format
			if type(self._portal_pos) == "string" then
				self._portal_pos = minetest.string_to_pos(self._portal_pos)
			end
			local portal_center = vector.add(self._portal_pos, vector.new(3, 11, 3))
			local pos = self.object:get_pos()
			if vector.distance(pos, portal_center) > 50 then
				self.object:set_pos(self._last_good_pos or portal_center)
			else
				self._last_good_pos = pos
			end
		end
	end,
	on_die = function(self, pos)
		if self._portal_pos then
			mcl_portals.spawn_gateway_portal()
			mcl_structures.call_struct(self._portal_pos, "end_exit_portal_open")
			if self._initial then
				mcl_experience.throw_experience(pos, 11500) -- 500 + 11500 = 12000
				minetest.set_node(vector.add(self._portal_pos, vector.new(3, 5, 3)), {name = mobs_mc.items.dragon_egg})
			end
		end
	end,
	fire_resistant = true,
})

--TODO: replace this setting by a proper gamerules system
local mobs_griefing = minetest.settings:get_bool("mobs_griefing", true)

-- dragon fireball (projectile)
mobs:register_arrow("mobs_mc:dragon_fireball", {
	visual = "sprite",
	visual_size = {x = 1.25, y = 1.25},
	textures = {"mobs_mc_dragon_fireball.png"},
	velocity = 6,

	-- direct hit, no fire... just plenty of pain
	hit_player = function(self, player)
		player:punch(self.object, 1.0, {
			full_punch_interval = 0.5,
			damage_groups = {fleshy = 12},
		}, nil)
	end,

	hit_mob = function(self, mob)
		minetest.sound_play("tnt_explode", {pos = mob:get_pos(), gain = 1.5, max_hear_distance = 2*64}, true)
		mob:punch(self.object, 1.0, {
			full_punch_interval = 0.5,
			damage_groups = {fleshy = 12},
		}, nil)
	end,

	-- node hit, explode
	hit_node = function(self, pos, node)
		--mobs:boom(self, pos, 2)
		if mobs_griefing then
			mcl_explosions.explode(self.object:get_pos(), 2, { drop_chance = 1.0 })
		end
	end
})

mobs:register_egg("mobs_mc:enderdragon", S("Ender Dragon"), "mobs_mc_spawn_icon_dragon.png", 0, true)

--mcl_wip.register_wip_item("mobs_mc:enderdragon")