oups

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

game/modules/tome/data/general/encounters/fareast.lua

@@ -48,6 +48,7 @@ newEntity{
 	type = "hostile", subtype = "special", unique = true,
 	level_range = {34, 45},
 	rarity = 6,
+	on_world_encounter = "shadow-crypt",
 	on_encounter = function(self, who)
 		local x, y = self:findSpot(who)
 		if not x then return end
@@ -65,3 +66,27 @@ newEntity{
 		return true
 	end
 }
+
+newEntity{
+	name = "Orc Breeding Pit",
+	type = "hostile", subtype = "special", unique = true,
+	level_range = {30, 45},
+	rarity = 6,
+	on_world_encounter = "orc-breeding-pit",
+	on_encounter = function(self, who)
+		local x, y = self:findSpot(who)
+		if not x then return end
+
+		local g = mod.class.Grid.new{
+			show_tooltip=true,
+			name="Entrance to the orc breeding pit",
+			display='>', color=colors.GREEN,
+			notice = true,
+			change_level=1, change_zone="orc-breeding-pit"
+		}
+		g:resolve() g:resolve(nil, true)
+		game.zone:addEntity(game.level, g, "terrain", x, y)
+		game.logPlayer(who, "#LIGHT_BLUE#You find an entrance to a dim, moist cavern. The stench of the warm air rising from it is almost unbearable.")
+		return true
+	end
+}

game/modules/tome/data/maps/wilderness/eyal.lua

@@ -202,6 +202,7 @@ addZone({20, 1, 31, 9}, "world-encounter", "infinite-dungeon")
 addZone({59, 41, 65, 46}, "world-encounter", "infinite-dungeon")
 addZone({38, 35, 53, 46}, "world-encounter", "mark-spellblaze")
 addZone({3, 16, 10, 28}, "world-encounter", "angolwen")
+addZone({153, 15, 160, 22}, "world-encounter", "orc-breeding-pit")
 
 -- ASCII map section
 return {

tiled-maps/eyal2.tmx

@@ -715,5 +715,11 @@
     <property name="type" value="&quot;world-encounter&quot;"/>
    </properties>
   </object>
+  <object name="Orc breeding pits" x="4903" y="483" width="244" height="245">
+   <properties>
+    <property name="subtype" value="&quot;orc-breeding-pit&quot;"/>
+    <property name="type" value="&quot;world-encounter&quot;"/>
+   </properties>
+  </object>
  </objectgroup>
 </map>