Winning as an alchemist by self sacrifice will correctly record the win

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

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

@@ -121,8 +121,9 @@ function win(self, how)
 	elseif how == "yeek-sacrifice" then world:gainAchievement("YEEK_SACRIFICE", game.player)
 	end
 
-	game.player.winner = how
-	game:registerDialog(require("engine.dialogs.ShowText").new("Winner", "win", {playername=game.player.name, how=how}, game.w * 0.6))
+	local p = game:getPlayer(true)
+	p.winner = how
+	game:registerDialog(require("engine.dialogs.ShowText").new("Winner", "win", {playername=p.name, how=how}, game.w * 0.6))
 end
 
 function onWin(self, who)