Do not pop artifact quest in the ID

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

game/modules/tome/class/Actor.lua

@@ -1663,7 +1663,7 @@ function _M:worthExp(target)
 	if not target.level or self.level < target.level - 7 then return 0 end
 
 	-- HHHHAACKKK ! Use a normal scheme for the game except in the infinite dungeon
-	if game.zone.short_name ~= "infinite-dungeon" then
+	if not game.zone.infinite_dungeon then
 		local mult = 0.6
 		if self.rank == 1 then mult = 0.6
 		elseif self.rank == 2 then mult = 0.8

game/modules/tome/class/Player.lua

@@ -272,7 +272,7 @@ function _M:playerFOV()
 			self:computeFOV(rad, "block_sight", function(x, y) if game.level.map(x, y, game.level.map.ACTOR) then game.level.map.seens(x, y, 1) end end, true, true, true)
 			self:computeFOV(rad2, "block_sight", function(x, y, dx, dy, sqdist) game.level.map:applyLite(x, y) end, true, true, true)
 		end
-		
+
 		-- Handle dark vision; same as infravision, but also sees past creeping dark
 		-- this is treated as a sense, but is filtered by custom LOS code
 		if self:knowTalent(self.T_DARK_VISION) then
@@ -802,7 +802,7 @@ end
 --- Notify of object pickup
 function _M:on_pickup_object(o)
 	-- Grant the artifact quest
-	if o.unique and not o.lore and not o:isIdentified() then self:grantQuest("first-artifact") end
+	if o.unique and not o.lore and not o:isIdentified() and not game.zone.infinite_dungeon then self:grantQuest("first-artifact") end
 
 	if self:attr("auto_id_mundane") and o:getPowerRank() <= 1 then
 		o:identify(true)

game/modules/tome/data/zones/infinite-dungeon/zone.lua

@@ -27,6 +27,7 @@ return {
 --	all_remembered = true,
 --	all_lited = true,
 	no_worldport = true,
+	infinite_dungeon = true,
 	ambiant_music = "Swashing the buck.ogg",
 	generator =  {
 		map = {