
local S = core.get_translator("mobs_monster")

-- Lava Flan by Zeg9 (additional textures by JurajVajda)

mobs:register_mob("mobs_monster:lava_flan", {
	description = S("Lava Flan"),
	type = "monster",
	passive = false,
	attack_type = "dogfight",
	reach = 2.5,
	damage = 3,
	hp_min = 20,
	hp_max = 35,
	armor = 80,
	collisionbox = {-0.5, -0.5, -0.5, 0.5, 1.2, 0.5},
	visual = "mesh",
	mesh = "zmobs_lava_flan.b3d",
	textures = {
		{"zmobs_lava_flan.png"},
		{"zmobs_lava_flan2.png"},
		{"zmobs_lava_flan3.png"}
	},
	blood_texture = "fire_basic_flame.png",
	makes_footstep_sound = false,
	sounds = {
		random = "mobs_lavaflan",
		war_cry = "mobs_lavaflan"
	},
	walk_velocity = 0.5,
	run_velocity = 2,
	view_range = 10,
	floats = 1,
	drops = {
		{name = "mobs:lava_orb", chance = 15, min = 1, max = 1}
	},
	water_damage = 8,
	lava_damage = -1,
	fire_damage = 0,
	light_damage = 0,
	immune_to = {
		{"mobs:pick_lava", -2}, -- lava pick heals 2 health
		{"default:lava_source", 0}, -- so that damage per second doesnt affect mob
		{"default:lava_flowing", 0},
		{"nether:lava_source", 0},
	},
	fly_in = {"default:lava_source", "default:lava_flowing", "nether:lava_source"},
	animation = {
		speed_normal = 15,
		stand_start = 0, stand_end = 8,
		walk_start = 10, walk_end = 18,
		run_start = 20, run_end = 28, speed_run = 15,
		punch_start = 20, punch_end = 28
	},
	glow = 10,

	-- custom death function
	on_die = function(self, pos)

		local cod = self.cause_of_death or {}
		local def = cod.node and core.registered_nodes[cod.node]

		if def and def.groups.water then

			pos.y = pos.y + 1

			mobs:effect(pos, 40, "tnt_smoke.png", 3, 5, 2, 0.5, nil, false)

			core.sound_play("fire_extinguish_flame",
					{pos = pos, max_hear_distance = 12, gain = 1.5}, true)

			self.object:remove()

			if math.random(4) == 1 then
				mobs:add_mob(pos, {name = "mobs_monster:obsidian_flan"})
			end
		else
			mobs:effect(pos, 40, "fire_basic_flame.png", 2, 3, 2, 5, 10, nil)

			local nods = core.find_nodes_in_area(
					{x = pos.x, y = pos.y + 1, z = pos.z},
					{x = pos.x, y = pos.y, z = pos.z}, "air")

			 -- place flame if position empty and flame exists
			if #nods > 0 and core.registered_nodes["fire:basic_flame"] then

				pos = nods[math.random(#nods)]
				core.set_node(pos, {name = "fire:basic_flame"})
			end

			self.object:remove()
		end
	end
})

-- where to spawn

if not mobs.custom_spawn_monster then

	mobs:spawn({
		name = "mobs_monster:lava_flan",
		nodes = {"default:lava_source", "nether:lava_source"},
		chance = 1500,
		active_object_count = 1,
		max_height = 0
	})
end

-- spawn egg

mobs:register_egg("mobs_monster:lava_flan", S("Lava Flan"), "default_lava.png", 1)

-- compatibility for old mobs mod

mobs:alias_mob("mobs:lava_flan", "mobs_monster:lava_flan")

-- lava orb

core.register_craftitem(":mobs:lava_orb", {
	description = S("Lava orb"),
	inventory_image = "zmobs_lava_orb.png",
	light_source = 14
})

core.register_alias("zmobs:lava_orb", "mobs:lava_orb")

core.register_craft({type = "fuel", recipe = "mobs:lava_orb", burntime = 80})

-- backup and replace old function

local old_handle_node_drops = core.handle_node_drops

function core.handle_node_drops(pos, drops, digger)

	-- are we a player using the lava pick?
	if digger and digger:get_wielded_item():get_name() == "mobs:pick_lava" then

		local hot_drops = {}
		local is_cooked

		for _, drop in ipairs(drops) do

			local stack = ItemStack(drop)

			while not stack:is_empty() do

				local output, decremented_input = core.get_craft_result({
						method = "cooking", width = 1, items = {stack}})

				if output.item:is_empty() then
					table.insert_all(hot_drops, decremented_input.items)
					break
				else
					is_cooked = true

					if not output.item:is_empty() then
						table.insert(hot_drops, output.item)
					end

					table.insert_all(hot_drops, output.replacements)

					stack = decremented_input.items[1] or ItemStack()
				end
			end
		end

		drops = hot_drops -- replace normal drops with cooked versions

		if is_cooked then

			mobs:effect(pos, 1, "tnt_smoke.png", 3, 5, 2, 0.5, nil, false)

			core.sound_play("fire_extinguish_flame",
					{pos = pos, max_hear_distance = 5, gain = 0.05}, true)
		end
	end

	return old_handle_node_drops(pos, drops, digger)
end

-- lava pick, smelts nodes when you dig

core.register_tool(":mobs:pick_lava", {
	description = S("Lava Pickaxe"),
	inventory_image = "mobs_pick_lava.png",
	tool_capabilities = {
		full_punch_interval = 0.4,
		max_drop_level = 3,
		groupcaps = {
			cracky = {
				times = {[1] = 1.80, [2] = 0.80, [3] = 0.40}, uses = 40, maxlevel = 3
			}
		},
		damage_groups = {fleshy = 6, fire = 1},
	},
	groups = {pickaxe = 1},
	light_source = 14
})

-- recipe

core.register_craft({
	output = "mobs:pick_lava",
	recipe = {
		{"mobs:lava_orb", "mobs:lava_orb", "mobs:lava_orb"},
		{"", "default:obsidian_shard", ""},
		{"", "default:obsidian_shard", ""}
	}
})

-- Add [toolranks] mod support

if core.get_modpath("toolranks") then

	core.override_item("mobs:pick_lava", {
		original_description = S("Lava Pickaxe"),
		description = toolranks.create_description("Lava Pickaxe", 0, 1),
		after_use = toolranks.new_afteruse})
end

-- obsidian flan

mobs:register_mob("mobs_monster:obsidian_flan", {
	description = S("Obsidian Flan"),
	type = "monster",
	passive = false,
	attack_type = "shoot",
	shoot_interval = 0.5,
	shoot_offset = 1.5,
	arrow = "mobs_monster:obsidian_arrow",
	reach = 2,
	damage = 3,
	hp_min = 20,
	hp_max = 35,
	armor = 30,
	visual_size = {x = 0.6, y = 0.6},
	collisionbox = {-0.3, -0.3, -0.3, 0.3, 0.8, 0.3},
	visual = "mesh",
	mesh = "zmobs_lava_flan.b3d",
	textures = {{"mobs_obsidian_flan.png"}},
	blood_texture = "default_obsidian.png",
	makes_footstep_sound = true,
	sounds = {random = "mobs_lavaflan"},
	walk_velocity = 0.1,
	run_velocity = 0.5,
	jump_height = 0,
	view_range = 10,
	floats = 0,
	drops = {
		{name = "default:obsidian_shard", chance = 1, min = 1, max = 5},
		{name = "default:obsidian", chance = 3, min = 0, max = 2}
	},
	water_damage = 0,
	lava_damage = 8,
	fire_damage = 0,
	light_damage = 0,
	animation = {
		speed_normal = 15, speed_run = 15,
		stand_start = 0, stand_end = 8,
		walk_start = 10, walk_end = 18,
		run_start = 20, run_end = 28,
		punch_start = 20, punch_end = 28
	}
})

-- spawn egg

mobs:register_egg("mobs_monster:obsidian_flan", S("Obsidian Flan"), "default_obsidian.png", 1)

-- obsidian arrow and grief setting check

local mobs_griefing = core.settings:get_bool("mobs_griefing") ~= false

mobs:register_arrow("mobs_monster:obsidian_arrow", {
	visual = "sprite",
	visual_size = {x = 0.5, y = 0.5},
	textures = {"default_obsidian_shard.png"},
	velocity = 6,

	hit_player = function(self, player)

		player:punch(self.object, 1.0,
				{full_punch_interval = 1.0, damage_groups = {fleshy = 8}}, nil)
	end,

	hit_mob = function(self, player)

		player:punch(self.object, 1.0,
				{full_punch_interval = 1.0, damage_groups = {fleshy = 8}}, nil)
	end,

	hit_node = function(self, pos, node)

		pos = self.node_pos or pos -- use stored node position instead of arrow

		if mobs_griefing == false or core.is_protected(pos, "") then return end

		local radius = 1
		local def = node and core.registered_nodes[node.name] ; if not def then return end

		local texture = def.tiles and def.tiles[1] or "mobs_fallback.png"

		-- do not break level 2 nodes like obsidian, or unbreakable nodes
		if (def.groups.level and def.groups.level > 1) or def.groups.unbreakable then
			return
		end

		core.add_particlespawner({
			amount = 16,
			time = 0.1,
			minpos = vector.subtract(pos, radius / 2),
			maxpos = vector.add(pos, radius / 2),
			minvel = {x = -3, y = 0, z = -3},
			maxvel = {x = 3, y = 5,  z = 3},
			minacc = {x = 0, y = -10, z = 0},
			maxacc = {x = 0, y = -10, z = 0},
			minexptime = 0.8,
			maxexptime = 2.0,
			minsize = radius * 0.33,
			maxsize = radius,
			texture = texture,
			-- ^ only as fallback for clients without support for `node` parameter
			node = node,
			collisiondetection = true
		})

		core.remove_node(pos)

		local snd = def.sounds and def.sounds.dug or "default_dig_crumbly"

		core.sound_play(snd, {pos = pos, max_hear_distance = 8}, true)
	end
})
