New achievement for giving the staff of absorption to the apprentice mage

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

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

@@ -41,6 +41,10 @@ newAchievement{
 	name = "The secret city",
 	desc = [[Discovered the truth about mages.]],
 }
+newAchievement{
+	name = "Burnt to the ground", id="APPRENTICE_STAFF",
+	desc = [[Gave the staff of absorption to the apprentice mage and watched the fireworks.]],
+}
 newAchievement{
 	name = "Against all odds", id = "KILL_UKRUK",
 	desc = [[Killed Ukruk in the ambush.]],

game/modules/tome/data/quests/mage-apprentice.lua

@@ -90,6 +90,7 @@ collect_staff_unique = function(self, npc, who, dialog)
 				who:setQuestStatus(self, self.FAILED)
 				game:unregisterDialog(dialog.next_dialog)
 				game.level.map:particleEmitter(npc.x, npc.y, 3, "fireflash", {radius=3, tx=npc.x, ty=npc.y})
+				world:gainAchievement("APPRENTICE_STAFF", player)
 				npc:die()
 				return true
 			end