Can not cheese out the 600 damage achievements using the Mouth

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

game/modules/tome/class/Actor.lua

@@ -962,7 +962,7 @@ function _M:onTakeHit(value, src)
 	end
 
 	-- Achievements
-	if src and src.resolveSource and src:resolveSource().player and value >= 600 then
+	if not self.no_take_hit_achievements and src and src.resolveSource and src:resolveSource().player and value >= 600 then
 		world:gainAchievement("SIZE_MATTERS", src:resolveSource())
 	end
 

game/modules/tome/data/zones/deep-bellow/npcs.lua

@@ -114,7 +114,9 @@ It seems to come from the digestive system of the mouth.]],
 	on_die = function(self, who)
 		if self.summoner and not self.summoner.dead then
 			game.logSeen(self, "#AQUAMARINE#As %s falls you notice that %s seems to shudder in pain!", self.name, self.summoner.name)
+			self.summoner.no_take_hit_achievements = true
 			self.summoner:takeHit(1000, who)
+			self.summoner.no_take_hit_achievements = nil
 		end
 	end,
 }