// This is assuming the royal jelly is a unique monster. Is it?
    // FIXME: Needs check for being at bottom level of the branch.
    if (monster->type == MONS_ROYAL_JELLY
        && player_in_branch( BRANCH_SLIME_PITS ))
    {
        mpr("Suddenly, all colour oozes out of the surrounding stone!",
            MSGCH_MONSTER_ENCHANT);
            
        replace_area_wrapper(DNGN_STONE_WALL, DNGN_CLEAR_ROCK_WALL);
    }

static int dgn_max_bounds(lua_State *ls)
{
    lua_pushnumber(ls, GXM);
    lua_pushnumber(ls, GYM);
    return (2);
}

    const bool preserve_features =
        lua_isboolean(ls, 5)? lua_toboolean(ls, 5) : true;
    const bool preserve_items =
        lua_isboolean(ls, 6)? lua_toboolean(ls, 6) : true;

                             type, affect_player );

                             type, affect_player,
                             preserve_features, preserve_items );

    { "max_bounds", dgn_max_bounds },
    

lua {{

-- Special effects for Slime:6
function slime_wall_morph(x)
  local stone = dgn.feature_number('stone_wall')
  local inlos = false
  for x = 0, dgn.GXM - 1 do
    for y = 0, dgn.GYM - 1 do
      if dgn.grid(x, y) == stone and you.see_grid(x, y) then
        inlos = true
        break
      end
    end
    if inlos then break end
  end
  dgn.replace_feat { stone_wall= "clear_rock_wall" }
  if inlos then
    crawl.mpr("Suddenly all colour oozes out of the stone walls.",
              "monster_enchant")
  else
    crawl.mpr("You feel a strange vibration for a moment.",
              "monster_enchant")
  end
end
}}

NSUBST:  P = O / *|

             level_flags="!no_tele_control", mon_name="royal jelly" \

             level_flags="!no_tele_control", mon_name="royal jelly", \
             trigger=slime_wall_morph \

  cf.trigger      = pars.trigger

  if self.trigger then
    self.trigger(marker)
  end

  file.marshall_meta(th, self.trigger)

  self.trigger      = file.unmarshall_meta(th)

dgn.GXM, dgn.GYM = dgn.max_bounds()

function dgn.fnum(feat)
  if type(feat) == 'string' then
    return dgn.feature_number(feat)
  else
    return feat
  end
end
function dgn.fnum_map(map)
  local fnmap = { }
  for k, v in pairs(map) do
    fnmap[dgn.fnum(k)] = dgn.fnum(v)
  end
  return fnmap
end
-- Replaces all features matching 
function dgn.replace_feat(rmap)
  local cmap = dgn.fnum_map(rmap)
  for x = 0, dgn.GXM - 1 do
    for y = 0, dgn.GYM - 1 do
      local grid = dgn.grid(x, y)
      local repl = cmap[grid]
      if repl then
        dgn.terrain_changed(x, y, repl)
      end
    end
  end
end