New achievement: Backstabbing Traitor

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

game/modules/tome/data/achievements/kills.lua

@@ -31,7 +31,6 @@ newAchievement{
 	mode = "player",
 	can_gain = function(self, who)
 		self.nb = (self.nb or 0) + 1
-		print(self.nb, "***")
 		if self.nb >= 1000 then return true end
 	end
 }
@@ -61,3 +60,13 @@ newAchievement{
 		game:setAllowedBuild("corrupter_reaver", true)
 	end,
 }
+
+newAchievement{
+	name = "Backstabbing Traitor", id = "ESCORT_KILL",
+	desc = [[Killed 6 escorted adventurers while you were supposed to save them]],
+	mode = "player",
+	can_gain = function(self, who, target)
+		self.nb = (self.nb or 0) + 1
+		if self.nb >= 6 then return true end
+	end,
+}

game/modules/tome/data/maps/zones/eruan-last.lua

@@ -90,11 +90,11 @@ return {
 [[                                                  ]],
 [[                                                  ]],
 [[                                                  ]],
-[[..................................................]],
-[[..#...................~~...~......#...............]],
-[[.....#............#...~~~~~~...........#...#....#.]],
-[[...#........#.........~~&&&~~......#.....#..#.....]],
-[[.........#...........~~~&&&s.............#....#...]],
-[[..............#......~~~&&&~~~....#...#........#..]],
-[[.......................~~~~~~.....................]]
+[[.....................########.....................]],
+[[..#.................##~~###~#.....#...............]],
+[[.....#............#..#~~~~~~##.........#...#....#.]],
+[[...#........#.......##~~&&&~~##....#.....#..#.....]],
+[[.........#..........#~~~&&&s.............#....#...]],
+[[..............#.....#~~~&&&~~~#...#...#........#..]],
+[[....................###~~~~~~##...................]]
 }

game/modules/tome/data/quests/escort-duty.lua

@@ -309,6 +309,9 @@ on_grant = function(self, who)
 		game.logPlayer(game.player, "#LIGHT_RED#%s is dead, quest failed!", self.name:capitalize())
 		game.player:setQuestStatus(self.quest_id, engine.Quest.FAILED)
 		game.player:hasQuest(self.quest_id).killing_npc = who and who.name or "something"
+		if who.resolveSource and who:resolveSource().player then
+			world:gainAchievement("ESCORT_KILL", game.player)
+		end
 	end
 
 	-- Spawn actor

game/modules/tome/data/talents/cunning/traps.lua

@@ -73,7 +73,7 @@ newTalent{
 }
 
 newTalent{
-	name = "Distract",
+	name = "Lure",
 	type = {"cunning/trapping", 2},
 	points = 5,
 	cooldown = 20,