Low levels of the Infinite Dungeon do not all have random bosses

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

game/modules/tome/class/generator/actor/RandomStairGuard.lua

@@ -33,7 +33,7 @@ function _M:generate()
 	-- Add a guard on the stairs, except on the last level
 	local data = self.level.data.generator.actor
 	local glevel = self.zone.max_level
-	if self.level.level < glevel and self.level.default_down and data.guard then
+	if self.level.level < glevel and self.level.default_down and data.guard and (not data.guard_test or data.guard_test(self.level)) then
 		local m = self.zone:makeEntity(self.level, "actor", rng.table(data.guard), nil, true)
 		if m then
 			local x, y = util.findFreeGrid(self.level.default_down.x, self.level.default_down.y, 5, true, {[Map.ACTOR]=true})

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

@@ -44,6 +44,11 @@ return {
 		},
 		actor = {
 			class = "mod.class.generator.actor.RandomStairGuard",
+			guard_test = function(level)
+				local allow = {[5]=true, [8]=true, [11]=true, [14]=true, [16]=true, [18]=true, [20]=true, [22]=true, [24]=true, [26]=true, [28]=true }
+				if level.level >= 30 then return true end
+				return allow[level.level]
+			end,
 			guard = {
 				{random_boss={rank = 3.5, loot_quantity = 3,}},
 			},