New achievement: Bad Driver

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

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

@@ -98,6 +98,18 @@ newAchievement{
 	track = function(self) return tstring{tostring(self.nb or 0)," / 6"} end,
 }
 
+newAchievement{
+	name = "Bad Driver", id = "ESCORT_LOST",
+	show = "full",
+	desc = [[Failed to save any escorted adventurers.]],
+	mode = "player",
+	can_gain = function(self, who, target)
+		self.nb = (self.nb or 0) + 1
+		if self.nb >= 9 then return true end
+	end,
+	track = function(self) return tstring{tostring(self.nb or 0)," / 9"} end,
+}
+
 newAchievement{
 	name = "Earth Master", id = "GEOMANCER",
 	show = "name",

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

@@ -332,6 +332,7 @@ on_grant = function(self, who)
 			world:gainAchievement("ESCORT_KILL", game.player)
 			game.player:registerEscorts("betrayed")
 		else
+			world:gainAchievement("ESCORT_LOST", game.player)
 			game.player:registerEscorts("lost")
 		end
 	end