src/rooms-special.c

   1 #include "angband.h"
   2 #include "util.h"
   3
   4 #include "grid.h"
   5 #include "floor-generate.h"
   6 #include "rooms.h"
   7 #include "monster.h"
   8 #include "monsterrace-hook.h"
   9 #include "objectkind-hook.h"
  10 #include "feature.h"
  11 #include "floor.h"
  12 #include "dungeon.h"
  13
  14
  15 /*!
  16 * @brief タイプ15の部屋…ガラス部屋の生成 / Type 15 -- glass rooms
  17 * @return なし
  18 */
  19 bool build_type15(floor_type *floor_ptr)
  20 {
  21         POSITION y, x, y2, x2, yval, xval;
  22         POSITION y1, x1, xsize, ysize;
  23         bool light;
  24
  25         grid_type *g_ptr;
  26
  27         /* Pick a room size */
  28         xsize = rand_range(9, 13);
  29         ysize = rand_range(9, 13);
  30
  31         /* Find and reserve some space in the dungeon.  Get center of room. */
  32         if (!find_space(&yval, &xval, ysize + 2, xsize + 2)) return FALSE;
  33
  34         /* Choose lite or dark */
  35         light = ((floor_ptr->dun_level <= randint1(25)) && !(d_info[floor_ptr->dungeon_idx].flags1 & DF1_DARKNESS));
  36
  37         /* Get corner values */
  38         y1 = yval - ysize / 2;
  39         x1 = xval - xsize / 2;
  40         y2 = yval + (ysize - 1) / 2;
  41         x2 = xval + (xsize - 1) / 2;
  42
  43         /* Place a full floor under the room */
  44         for (y = y1 - 1; y <= y2 + 1; y++)
  45         {
  46                 for (x = x1 - 1; x <= x2 + 1; x++)
  47                 {
  48                         g_ptr = &floor_ptr->grid_array[y][x];
  49                         place_floor_grid(g_ptr);
  50                         g_ptr->feat = feat_glass_floor;
  51                         g_ptr->info |= (CAVE_ROOM);
  52                         if (light) g_ptr->info |= (CAVE_GLOW);
  53                 }
  54         }
  55
  56         /* Walls around the room */
  57         for (y = y1 - 1; y <= y2 + 1; y++)
  58         {
  59                 g_ptr = &floor_ptr->grid_array[y][x1 - 1];
  60                 place_outer_grid(g_ptr);
  61                 g_ptr->feat = feat_glass_wall;
  62                 g_ptr = &floor_ptr->grid_array[y][x2 + 1];
  63                 place_outer_grid(g_ptr);
  64                 g_ptr->feat = feat_glass_wall;
  65         }
  66         for (x = x1 - 1; x <= x2 + 1; x++)
  67         {
  68                 g_ptr = &floor_ptr->grid_array[y1 - 1][x];
  69                 place_outer_grid(g_ptr);
  70                 g_ptr->feat = feat_glass_wall;
  71                 g_ptr = &floor_ptr->grid_array[y2 + 1][x];
  72                 place_outer_grid(g_ptr);
  73                 g_ptr->feat = feat_glass_wall;
  74         }
  75
  76         switch (randint1(3))
  77         {
  78         case 1: /* 4 lite breathers + potion */
  79         {
  80                 DIRECTION dir1, dir2;
  81                 get_mon_num_prep(vault_aux_lite, NULL);
  82
  83                 /* Place fixed lite berathers */
  84                 for (dir1 = 4; dir1 < 8; dir1++)
  85                 {
  86                         MONRACE_IDX r_idx = get_mon_num(floor_ptr->dun_level);
  87
  88                         y = yval + 2 * ddy_ddd[dir1];
  89                         x = xval + 2 * ddx_ddd[dir1];
  90                         if (r_idx) place_monster_aux(0, y, x, r_idx, PM_ALLOW_SLEEP);
  91
  92                         /* Walls around the breather */
  93                         for (dir2 = 0; dir2 < 8; dir2++)
  94                         {
  95                                 g_ptr = &floor_ptr->grid_array[y + ddy_ddd[dir2]][x + ddx_ddd[dir2]];
  96                                 place_inner_grid(g_ptr);
  97                                 g_ptr->feat = feat_glass_wall;
  98                         }
  99                 }
 100
 101                 /* Walls around the potion */
 102                 for (dir1 = 0; dir1 < 4; dir1++)
 103                 {
 104                         y = yval + 2 * ddy_ddd[dir1];
 105                         x = xval + 2 * ddx_ddd[dir1];
 106                         g_ptr = &floor_ptr->grid_array[y][x];
 107                         place_inner_perm_grid(g_ptr);
 108                         g_ptr->feat = feat_permanent_glass_wall;
 109                         floor_ptr->grid_array[yval + ddy_ddd[dir1]][xval + ddx_ddd[dir1]].info |= (CAVE_ICKY);
 110                 }
 111
 112                 /* Glass door */
 113                 dir1 = randint0(4);
 114                 y = yval + 2 * ddy_ddd[dir1];
 115                 x = xval + 2 * ddx_ddd[dir1];
 116                 place_secret_door(floor_ptr, y, x, DOOR_GLASS_DOOR);
 117                 g_ptr = &floor_ptr->grid_array[y][x];
 118                 if (is_closed_door(g_ptr->feat)) g_ptr->mimic = feat_glass_wall;
 119
 120                 /* Place a potion */
 121                 get_obj_num_hook = kind_is_potion;
 122                 place_object(yval, xval, AM_NO_FIXED_ART);
 123                 floor_ptr->grid_array[yval][xval].info |= (CAVE_ICKY);
 124         }
 125         break;
 126
 127         case 2: /* 1 lite breather + random object */
 128         {
 129                 MONRACE_IDX r_idx;
 130                 DIRECTION dir1;
 131
 132                 /* Pillars */
 133                 g_ptr = &floor_ptr->grid_array[y1 + 1][x1 + 1];
 134                 place_inner_grid(g_ptr);
 135                 g_ptr->feat = feat_glass_wall;
 136
 137                 g_ptr = &floor_ptr->grid_array[y1 + 1][x2 - 1];
 138                 place_inner_grid(g_ptr);
 139                 g_ptr->feat = feat_glass_wall;
 140
 141                 g_ptr = &floor_ptr->grid_array[y2 - 1][x1 + 1];
 142                 place_inner_grid(g_ptr);
 143                 g_ptr->feat = feat_glass_wall;
 144
 145                 g_ptr = &floor_ptr->grid_array[y2 - 1][x2 - 1];
 146                 place_inner_grid(g_ptr);
 147                 g_ptr->feat = feat_glass_wall;
 148                 get_mon_num_prep(vault_aux_lite, NULL);
 149
 150                 r_idx = get_mon_num(floor_ptr->dun_level);
 151                 if (r_idx) place_monster_aux(0, yval, xval, r_idx, 0L);
 152
 153                 /* Walls around the breather */
 154                 for (dir1 = 0; dir1 < 8; dir1++)
 155                 {
 156                         g_ptr = &floor_ptr->grid_array[yval + ddy_ddd[dir1]][xval + ddx_ddd[dir1]];
 157                         place_inner_grid(g_ptr);
 158                         g_ptr->feat = feat_glass_wall;
 159                 }
 160
 161                 /* Curtains around the breather */
 162                 for (y = yval - 1; y <= yval + 1; y++)
 163                 {
 164                         place_closed_door(floor_ptr, y, xval - 2, DOOR_CURTAIN);
 165                         place_closed_door(floor_ptr, y, xval + 2, DOOR_CURTAIN);
 166                 }
 167                 for (x = xval - 1; x <= xval + 1; x++)
 168                 {
 169                         place_closed_door(floor_ptr, yval - 2, x, DOOR_CURTAIN);
 170                         place_closed_door(floor_ptr, yval + 2, x, DOOR_CURTAIN);
 171                 }
 172
 173                 /* Place an object */
 174                 place_object(yval, xval, AM_NO_FIXED_ART);
 175                 floor_ptr->grid_array[yval][xval].info |= (CAVE_ICKY);
 176         }
 177         break;
 178
 179         case 3: /* 4 shards breathers + 2 potions */
 180         {
 181                 DIRECTION dir1;
 182
 183                 /* Walls around the potion */
 184                 for (y = yval - 2; y <= yval + 2; y++)
 185                 {
 186                         g_ptr = &floor_ptr->grid_array[y][xval - 3];
 187                         place_inner_grid(g_ptr);
 188                         g_ptr->feat = feat_glass_wall;
 189                         g_ptr = &floor_ptr->grid_array[y][xval + 3];
 190                         place_inner_grid(g_ptr);
 191                         g_ptr->feat = feat_glass_wall;
 192                 }
 193                 for (x = xval - 2; x <= xval + 2; x++)
 194                 {
 195                         g_ptr = &floor_ptr->grid_array[yval - 3][x];
 196                         place_inner_grid(g_ptr);
 197                         g_ptr->feat = feat_glass_wall;
 198                         g_ptr = &floor_ptr->grid_array[yval + 3][x];
 199                         place_inner_grid(g_ptr);
 200                         g_ptr->feat = feat_glass_wall;
 201                 }
 202                 for (dir1 = 4; dir1 < 8; dir1++)
 203                 {
 204                         g_ptr = &floor_ptr->grid_array[yval + 2 * ddy_ddd[dir1]][xval + 2 * ddx_ddd[dir1]];
 205                         place_inner_grid(g_ptr);
 206                         g_ptr->feat = feat_glass_wall;
 207                 }
 208                 get_mon_num_prep(vault_aux_shards, NULL);
 209
 210                 /* Place shard berathers */
 211                 for (dir1 = 4; dir1 < 8; dir1++)
 212                 {
 213                         MONRACE_IDX r_idx = get_mon_num(floor_ptr->dun_level);
 214
 215                         y = yval + ddy_ddd[dir1];
 216                         x = xval + ddx_ddd[dir1];
 217                         if (r_idx) place_monster_aux(0, y, x, r_idx, 0L);
 218                 }
 219
 220                 /* Place two potions */
 221                 if (one_in_(2))
 222                 {
 223                         get_obj_num_hook = kind_is_potion;
 224                         place_object(yval, xval - 1, AM_NO_FIXED_ART);
 225                         get_obj_num_hook = kind_is_potion;
 226                         place_object(yval, xval + 1, AM_NO_FIXED_ART);
 227                 }
 228                 else
 229                 {
 230                         get_obj_num_hook = kind_is_potion;
 231                         place_object(yval - 1, xval, AM_NO_FIXED_ART);
 232                         get_obj_num_hook = kind_is_potion;
 233                         place_object(yval + 1, xval, AM_NO_FIXED_ART);
 234                 }
 235
 236                 for (y = yval - 2; y <= yval + 2; y++)
 237                         for (x = xval - 2; x <= xval + 2; x++)
 238                                 floor_ptr->grid_array[y][x].info |= (CAVE_ICKY);
 239
 240         }
 241         break;
 242         }
 243
 244         msg_print_wizard(CHEAT_DUNGEON, _("ガラスの部屋が生成されました。", "Glass room was generated."));
 245
 246         return TRUE;
 247 }