pearl of life & death

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

game/modules/tome/data/zones/high-peak/npcs.lua

@@ -113,7 +113,7 @@ newEntity{
 	define_as = "PALLANDO",
 	type = "humanoid", subtype = "istari",
 	name = "Pallando the Blue",
-	display = "@", color=colors.LIGHT_BLUE,
+	display = "@", color=colors.ROYAL_BLUE,
 	faction = "blue-wizards",
 
 	desc = [[Lost to the memory of the West, the Blue Wizards have setup in the Far East, slowly growing corrupt. Now they must be stopped.]],
@@ -130,6 +130,7 @@ newEntity{
 		{type="weapon", subtype="staff", ego_chance=100, autoreq=true},
 		{type="armor", subtype="cloth", ego_chance=100, autoreq=true},
 	},
+	resolvers.drops{chance=100, nb=1, {defined="PEARL_LIFE_DEATH"} },
 	resolvers.drops{chance=100, nb=5, {ego_chance=100} },
 
 	resolvers.talents{

game/modules/tome/data/zones/high-peak/objects.lua

@@ -50,7 +50,8 @@ The Istari seem to have awakened its power.]],
 	max_power = 1000, power_regen = 1,
 	use_power = { name = "absorb energies", power = 1000,
 		use = function(self, who)
-			local tg = {type="hit", range=8}
+			local tg = {type="hit", range=8
+			}
 			local x, y = who:getTarget(tg)
 			if not x or not y then return nil end
 			local _ _, x, y = who:canProject(tg, x, y)
@@ -66,3 +67,21 @@ The Istari seem to have awakened its power.]],
 		end
 	},
 }
+
+newEntity{ define_as = "PEARL_LIFE_DEATH",
+	unique = true,
+	type = "gem", subtype="white",
+	unided_name = "shining pearl",
+	name = "Pearl of Life and Death",
+	display = "*", color=colors.WHITE, image = "object/pearl.png",
+	encumber = 2,
+	desc = [[A pearl, three times a normal sized one, that glitters in infinite colours, with slight patterns ever shitting away.]],
+
+	carrier = {
+		lite = 1,
+		inc_stats = { [Stats.STAT_STR] = 5, [Stats.STAT_DEX] = 5, [Stats.STAT_MAG] = 5, [Stats.STAT_WIL] = 5, [Stats.STAT_CUN] = 5, [Stats.STAT_CON] = 5, [Stats.STAT_LCK] = 10 },
+		inc_damage = {all = 7},
+		resists = {all = 7},
+		stun_immune = 1,
+	},
+}
\ No newline at end of file