achievement for the portal quest

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

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

@@ -113,3 +113,7 @@ newAchievement{
 	name = "Curse Lifter", id = "CURSE_ERASER",
 	desc = [[Killed Ben Cruthdar the Cursed.]],
 }
+newAchievement{
+	name = "There and back again", id = "WEST_PORTAL",
+	desc = [[Opened a portal to Middle-earth from the Far East.]],
+}

game/modules/tome/data/quests/west-portal.lua

@@ -116,14 +116,8 @@ This one seems to go near the town of Minas Tirith in the West.]],
 
 	game.zone:addEntity(game.level, zemekkys, "actor", 41, 17)
 	game.zone:addEntity(game.level, g, "terrain", 41, 16)
-	game.player:move(40, 16, true)
-end
+	player:move(40, 16, true)
 
-on_status_change = function(self, who, status, sub)
-	if sub then
---		if self:isCompleted() then
---			who:setQuestStatus(self.id, engine.Quest.COMPLETED)
---			world:gainAchievement("ORC_PRIDE", game.player)
---		end
-	end
+	player:setQuestStatus(self.id, engine.Quest.DONE)
+	world:gainAchievement("WEST_PORTAL", game.player)
 end