New achievement for having Aeryn survive the last battle

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

@@ -96,6 +96,11 @@ newAchievement{
 	show = "name", huge=true,
 	desc = [[Won ToME by closing the Void portal using Aeryn as a sacrifice.]],
 }
+newAchievement{
+	name = "The Sun Still Shines", id = "WIN_AERYN_SURVIVE",
+	show = "name", huge=true,
+	desc = [[Aeryn survived the last battle.]],
+}
 newAchievement{
 	name = "Selfless", id = "WIN_SACRIFICE",
 	show = "name", huge=true,

game/modules/tome/data/quests/high-peak.lua

@@ -121,6 +121,9 @@ function win(self, how)
 	elseif how == "yeek-sacrifice" then world:gainAchievement("YEEK_SACRIFICE", game.player)
 	end
 
+	local aeryn = game.level:findEntity{define_as="HIGH_SUN_PALADIN_AERYN"}
+	if aeryn and not aeryn.dead then world:gainAchievement("WIN_AERYN_SURVIVE", game.player) end
+
 	if not game.state.gone_west then world:gainAchievement("WIN_NEVER_WEST", game.player) end
 
 	game:setAllowedBuild("adventurer", true)