Added achievements for more damage than 600

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

game/modules/tome/class/Actor.lua

@@ -1128,7 +1128,11 @@ function _M:onTakeHit(value, src)
 
 	-- Achievements
 	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())
+		local rsrc = src:resolveSource()
+		world:gainAchievement("SIZE_MATTERS", rsrc)
+		world:gainAchievement("DAMAGE_1500", rsrc)
+		world:gainAchievement("DAMAGE_3000", rsrc)
+		world:gainAchievement("DAMAGE_6000", rsrc)
 	end
 
 	-- Stoned ? SHATTER !

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

@@ -27,6 +27,21 @@ newAchievement{
 	show = "full",
 	desc = [[Do over 600 damage in one attack]],
 }
+newAchievement{
+	name = "Size is everything", id = "DAMAGE_1500",
+	show = "full",
+	desc = [[Do over 1500 damage in one attack]],
+}
+newAchievement{
+	name = "The bigger the better!", id = "DAMAGE_3000",
+	show = "full",
+	desc = [[Do over 3000 damage in one attack]],
+}
+newAchievement{
+	name = "Overpowered!", id = "DAMAGE_6000",
+	show = "full",
+	desc = [[Do over 6000 damage in one attack]],
+}
 newAchievement{
 	name = "Exterminator",
 	show = "full",