boss-artifacts-maj-eyal.lua

-- ToME - Tales of Middle-Earth
-- Copyright (C) 2009 - 2017 Nicolas Casalini
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
--
-- Nicolas Casalini "DarkGod"
-- darkgod@te4.org

local Stats = require "engine.interface.ActorStats"
local Talents = require "engine.interface.ActorTalents"

-- This file describes artifacts associated with a boss of the game, they have a high chance of dropping their respective ones, but they can still be found elsewhere

-- Design:  Revamp Wintertide to make it more unique, interesting, and not terrible.
-- Balance:  A cold themed weapon doesn't play nice with melee scalers, and Ice Block on hit, while useful overall, has some obvious anti-synergy.  So instead of focusing on stats I added a decent passive on hit and a very powerful active.  The active is a "better" Stone Wall but you have to be actively using the weapon in melee to make use of it.  The delayed expansion of the storm also limits its strength as an "oh shit" button.
newEntity{ base = "BASE_LONGSWORD",
	power_source = {arcane=true},
	define_as = "LONGSWORD_WINTERTIDE", unided_name = "glittering longsword", image="object/artifact/wintertide.png",
	name = "Wintertide", unique=true,
	moddable_tile = "special/%s_wintertide",
	moddable_tile_big = true,
	desc = [[The air seems to freeze around the blade of this sword, draining all heat from the area.
It is said the Conclave created this weapon for their warmaster during the dark times of the first allure war.]],
	require = { stat = { str=35 }, },
	level_range = {35, 45},
	rarity = 280,
	cost = 1000,
	material_level = 5,
	winterStorm = nil,
	special_desc = function(self)
		local storm = self.winterStorm
		if not storm or storm.duration <=0 then 
			return ("No Winter Storm Active") 
		else
			return ("Winter Storm: " .. ((storm.duration and storm.radius) and ("radius %d (%d turns remaining)"):format(math.floor(storm.radius), storm.duration) or "None"))
		end
	end,
	combat = {
		dam = 39, -- lower damage, defensive item with extremely powerful effects
		apr = 10,
		physcrit = 10,
		dammod = {str=1},
		damrange = 1.4,
		melee_project={[DamageType.ICE] = 25}, -- Iceblock HP is based on damage, since were adding iceblock pierce we want this to be less generous
		special_on_hit = {
			desc=function(self, who, special) 
				local dam = who:damDesc(engine.DamageType.COLD, special:damage(self, who))
				return ("Create a Winter Storm that gradually expands (from radius %d to radius %d), dealing %0.2f cold damage (based on Strength) to your enemies each turn and slowing their ability to act by 20%%.  Subsequent melee strikes will relocate the storm on top of your target and increase its duration."):format(special.radius, special.max_radius, dam)
			end,
			on_kill=1,
			damage = function(special, self, who) return who:combatStatScale("str", 20, 80, 0.75) end,
			duration = 5,
			radius = 1,
			max_radius = 4,
			fct=function(combat, who, target, dam, special)
				local Object = require "mod.class.Object"
				local Map = require "engine.Map"

				-- special_on_hit doesn't know what item triggered it, so find it
				local self, item, inven_id = who:findInAllInventoriesBy("define_as", "LONGSWORD_WINTERTIDE")
				if not self or not who:getInven(inven_id).worn then return end
				
				if who.turn_procs.wintertide_sword then return end

				-- The reference to winterStorm is lost sometimes on reload but since we know only one can ever exist we can just check the map effects and set the reference every proc
				self.winterStorm = nil
				for k, eff in pairs(game.level.map.effects) do
					if eff and eff.is_wintertide then
						self.winterStorm = eff
					end
				end

				-- Who knows if this is necessary
				if self.winterStorm and self.winterStorm.duration <= 0 then
					self.winterStorm = nil
				end
				who.turn_procs.wintertide_sword = true
				 
				-- If the map has no Winter Storm then create one
				if not self.winterStorm then
					game.logSeen(target, "#LIGHT_BLUE#A Winter Storm forms around %s.", target.name:capitalize())
					local stormDam = special:damage(self, who)
					self.winterStorm = game.level.map:addEffect(who,
						target.x, target.y, special.duration,
						engine.DamageType.WINTER, {dam=stormDam, x=target.x, y=target.y}, -- Winter is cold damage+energy reduction, enemy only
						special.radius, -- starting radius
						5, nil,
						{type="icestorm", only_one=true, args = {radius = 1}},
						function(e, update_shape_only)
							if not update_shape_only then 
								 -- Increase the radius by 0.2 each time the effect ticks (1000 energy)	
								if e.radius < e.max_radius then
									e.radius = e.radius + 0.2
									if e.particles and math.floor(e.particles[1].args.radius) ~= math.floor(e.radius) then -- expand the graphical effect
										e.particles[1].args.radius = e.radius
										e.particles[1].radius = e.radius -- is this needed?
										e.particles[1]:dieDisplay()
										e.particles[1]:checkDisplay()
									end
								end
							end
							return true
						end,
						false,
						false
					)
					self.winterStorm.is_wintertide = true
					self.winterStorm.max_radius = special.max_radius
				else
					-- The storm already exists so move it on top of the target and increase its duration
					self.winterStorm.x = target.x
					self.winterStorm.y = target.y
					if self.winterStorm.duration < 7 then -- duration can be extended forever while meleeing
						self.winterStorm.duration = self.winterStorm.duration + 2
					end
					game.level.map.changed = true
				end
			end
		},	
	},
	wielder = {
		iceblock_pierce=35, -- this can be generous because of how melee specific the item is
		resists = { [DamageType.COLD] = 25 },
		on_melee_hit={[DamageType.ICE] = 40},
		inc_damage = { [DamageType.COLD] = 20 },
	},
	max_power = 40, power_regen = 1,
	use_power = { name ="precipitate ice walls (lasting 10 turns) within your Winter Storm's area", power = 30,
		use = function(self, who)
			
			local Object = require "mod.class.Object"
			local Map = require "engine.Map"
			
			if not self.winterStorm then return end
			
			if self.winterStorm and self.winterStorm.duration <= 0 then
				self.winterStorm = nil
				return
			end
			
			local grids = core.fov.circle_grids(self.winterStorm.x, self.winterStorm.y, self.winterStorm.radius, true)
			game.logSeen(who, "#LIGHT_BLUE#%s brandishes %s %s, releasing a wave of Winter cold!", who.name:capitalize(), who:his_her(), self:getName({no_add_name = true, do_color = true}))
			self.use_power.last_use = {turn = game.turn, x = self.winterStorm.x, y = self.winterStorm.y, radius = self.winterStorm.radius} -- for ai purposes
			
			local msg = false
			for x, yy in pairs(grids) do for y, _ in pairs(grids[x]) do
				local oe = game.level.map(x, y, engine.Map.TERRAIN)

				if oe then
					if oe._wintertide_ice_wall then
						oe.temporary = 10
					elseif not oe:check("block_move", x, y) then
						local e = Object.new{
							old_feat = oe,
							name = "winter wall", image = "npc/iceblock.png",
							_wintertide_ice_wall = true,
							display = '#', color_r=255, color_g=255, color_b=255, back_color=colors.GREY,
							desc = "a summoned wall of ice",
							type = "wall", --subtype = "floor",
							always_remember = true,
							can_pass = {pass_wall=1},
							does_block_move = true,
							show_tooltip = true,
							block_move = true,
							block_sight = true,
							temporary = 10,
							x = x, y = y,
							canAct = false,
							act = function(self)
								self:useEnergy()
								self.temporary = self.temporary - 1
								if self.temporary <= 0 then
									game.level.map(self.x, self.y, engine.Map.TERRAIN, self.old_feat)
									game.level:removeEntity(self)
								end
							end,
							dig = function(src, x, y, old)
								game.level:removeEntity(old)
								return nil, old.old_feat
							end,
							summoner_gain_exp = true,
							summoner = who,
						}
						e.tooltip = mod.class.Grid.tooltip
						game.level:addEntity(e)
						game.level.map(x, y, engine.Map.TERRAIN, e)
						if game.level.map.seens(x, y) and game.player:canSee(e) then msg = true end
					end
				end