finished starting undead zone

git-svn-id: http://svn.net-core.org/repos/t-engine4@1165 51575b47-30f0-44d4-a5cc-537603b46e54

game/modules/tome/class/Object.lua

@@ -318,6 +318,8 @@ function _M:getTextualDesc()
 	if w.combat_spellpower or w.combat_spellcrit then desc[#desc+1] = ("Spellpower %d, Spell Crit %d%%"):format(w.combat_spellpower or 0, w.combat_spellcrit or 0) end
 
 	if w.lite then desc[#desc+1] = ("Light radius %d"):format(w.lite) end
+	if w.infravision then desc[#desc+1] = ("Infravision radius %d"):format(w.infravision) end
+	if w.heightened_senses then desc[#desc+1] = ("Heightened senses radius %d"):format(w.heightened_senses) end
 
 	if w.see_invisible then desc[#desc+1] = ("See invisible: %d"):format(w.see_invisible) end
 	if w.invisible then desc[#desc+1] = ("Invisibility: %d"):format(w.invisible) end

game/modules/tome/data/quests/start-undead.lua

@@ -20,7 +20,11 @@
 name = "The rotting stench of the dead"
 desc = function(self, who)
 	local desc = {}
-	desc[#desc+1] = "\n"
+	desc[#desc+1] = "You have been ressurected as an undead by some dark powers."
+	desc[#desc+1] = "However the ritual failed in some way and you retain your own mind, you need to get out of this dark place and try to carve a place for yourself in the world."
+	if self:isCompleted("black-cloak") then
+		desc[#desc+1] = "You have found a very special cloak that will help you walk among the living without trouble."
+	end
 	return table.concat(desc, "\n")
 end
 

game/modules/tome/data/zones/paths-of-the-dead/npcs.lua

@@ -120,13 +120,15 @@ This specimen look like it was hastily assembled and is not really complete yet.
 	level_range = {7, nil}, exp_worth = 1,
 	rank = 4,
 	max_life = resolvers.rngavg(100,120), life_rating = 14,
-	combat_armor = 20, combat_def = 0,
+	combat_armor = 7, combat_def = 7,
 	on_melee_hit = {[DamageType.BLIGHT]=resolvers.mbonus(5, 2)},
 	melee_project = {[DamageType.BLIGHT]=resolvers.mbonus(5, 2)},
 	resolvers.talents{ [Talents.T_BONE_ARMOUR]=3, [Talents.T_THROW_BONES]=1, [Talents.T_STUN]=1, },
 	resolvers.sustains_at_birth(),
 
-	drops = resolvers.drops{chance=100, nb=3, {ego_chance=100} },
+	resolvers.drops{chance=100, nb=3, {ego_chance=100} },
+	resolvers.drops{chance=100, nb=1, {defined="UNDEATH_PHIAL"} },
+
 	ai = "dumb_talented_simple", ai_state = { talent_in=4, ai_move="move_astar", },
 
 	on_die = function(self, who)

game/modules/tome/data/zones/paths-of-the-dead/objects.lua

@@ -46,4 +46,22 @@ newEntity{ define_as = "CLOAK_DECEPTION",
 		if who.player then engine.Map:setViewerFaction(who.faction) end
 		game.logPlayer(who, "#LIGHT_BLUE#The illusion covering %s disappears", who.name:capitalize())
 	end,
+	on_pickup = function(self, who)
+		who:setQuestStatus("start-undead", engine.Quest.COMPLETED, "black-cloak")
+	end,
+}
+
+newEntity{ base = "BASE_LITE", define_as = "UNDEATH_PHIAL",
+	unided_name = "phial filled with darkness", unique = true,
+	name = "Phial of Undead", color=colors.DARK_GREY,
+	desc = [[This phial seems filled with darkness, yet it cleanses your thoughts.]],
+	rarity = false,
+	encumber = 2,
+	cost = 50,
+	material_level = 2,
+
+	wielder = {
+		lite = 1,
+		infravision = 6,
+	},
 }

game/modules/tome/data/zones/trollshaws/objects.lua

@@ -42,7 +42,7 @@ newEntity{ base = "BASE_GREATMAUL",
 
 for i = 1, 5 do
 newEntity{ base = "BASE_SCROLL",
-	define_as = "NOTE"..i,unique=1,
+	define_as = "NOTE"..i,
 	name = "tattered paper scrap", lore="trollshaws-note-"..i,
 	desc = [[A paper scrap, left by an adventurer.]],
 	rarity = false,

game/modules/tome/dialogs/CharacterSheet.lua

@@ -471,7 +471,7 @@ function _M:dump()
 	table.sort(achs, function(a, b) return a.name < b.name end)
 	for i, d in ipairs(achs) do
 		local a = world:getAchievementFromId(d.id)
-		nl(("'%s' was wchieved for %s At %s"):format(a.name, a.desc, d.data.when))
+		nl(("'%s' was achieved for %s At %s"):format(a.name, a.desc, d.data.when))
 	end
 
 	nl()