3 * @brief ¥À¥ó¥¸¥ç¥ó¤ÎÀ¸À®½èÍý¤Î´ð´´Éôʬ / low-level dungeon creation primitives
6 * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke\n
8 * This software may be copied and distributed for educational, research,\n
9 * and not for profit purposes provided that this copyright and statement\n
10 * are included in all such copies. Other copyrights may also apply.\n
12 * 2014 Deskull Doxygen¸þ¤±¤Î¥³¥á¥ó¥ÈÀ°Íý\n
21 * @brief ¿·µ¬¥Õ¥í¥¢¤ËÆþ¤ê¤¿¤Æ¤Î¥×¥ì¥¤¥ä¡¼¤ò¥é¥ó¥À¥à¤Ê¾ì½ê¤ËÇÛÃÖ¤¹¤ë / Returns random co-ordinates for player/monster/object
22 * @return ÇÛÃÖ¤ËÀ®¸ù¤·¤¿¤éTRUE¤òÊÖ¤¹
24 bool new_player_spot(void)
27 int max_attempts = 10000;
32 /* Place the player */
33 while (max_attempts--)
35 /* Pick a legal spot */
36 y = rand_range(1, cur_hgt - 2);
37 x = rand_range(1, cur_wid - 2);
41 /* Must be a "naked" floor grid */
42 if (c_ptr->m_idx) continue;
45 f_ptr = &f_info[c_ptr->feat];
47 if (max_attempts > 5000) /* Rule 1 */
49 if (!have_flag(f_ptr->flags, FF_FLOOR)) continue;
53 if (!have_flag(f_ptr->flags, FF_MOVE)) continue;
54 if (have_flag(f_ptr->flags, FF_HIT_TRAP)) continue;
57 /* Refuse to start on anti-teleport grids in dungeon */
58 if (!have_flag(f_ptr->flags, FF_TELEPORTABLE)) continue;
60 if (!player_can_enter(c_ptr->feat, 0)) continue;
61 if (!in_bounds(y, x)) continue;
63 /* Refuse to start on anti-teleport grids */
64 if (c_ptr->info & (CAVE_ICKY)) continue;
70 if (max_attempts < 1) /* Should be -1, actually if we failed... */
73 /* Save the new player grid */
83 * @brief ½êÄê¤Î°ÌÃ֤˾å¤ê³¬Ãʤ«²¼¤ê³¬ÃʤòÇÛÃÖ¤¹¤ë / Place an up/down staircase at given location
84 * @param y ÇÛÃÖ¤ò»î¤ß¤¿¤¤¥Þ¥¹¤ÎYºÂɸ
85 * @param x ÇÛÃÖ¤ò»î¤ß¤¿¤¤¥Þ¥¹¤ÎXºÂɸ
88 void place_random_stairs(int y, int x)
90 bool up_stairs = TRUE;
91 bool down_stairs = TRUE;
96 if (!is_floor_grid(c_ptr) || c_ptr->o_idx) return;
103 if (ironman_downward)
107 if (dun_level >= d_info[dungeon_type].maxdepth)
111 if (quest_number(dun_level) && (dun_level > 1))
114 /* We can't place both */
115 if (down_stairs && up_stairs)
117 /* Choose a staircase randomly */
118 if (randint0(100) < 50)
124 /* Place the stairs */
126 place_up_stairs(y, x);
127 else if (down_stairs)
128 place_down_stairs(y, x);
132 * @brief ½êÄê¤Î°ÌÃ֤ˤµ¤Þ¤¶¤Þ¤Ê¾õÂÖ¤ä¼ïÎà¤Î¥É¥¢¤òÇÛÃÖ¤¹¤ë / Place a random type of door at the given location
133 * @param y ¥É¥¢¤ÎÇÛÃÖ¤ò»î¤ß¤¿¤¤¥Þ¥¹¤ÎYºÂɸ
134 * @param x ¥É¥¢¤ÎÇÛÃÖ¤ò»î¤ß¤¿¤¤¥Þ¥¹¤ÎXºÂɸ
135 * @param room Éô²°¤ËÀܤ·¤Æ¤¤¤ë¾ì¹ç¸þ¤±¤Î¥É¥¢À¸À®¤«Èݤ«
138 void place_random_door(int y, int x, bool room)
141 s16b feat = feat_none;
142 cave_type *c_ptr = &cave[y][x];
144 /* Initialize mimic info */
147 if (d_info[dungeon_type].flags1 & DF1_NO_DOORS)
149 place_floor_bold(y, x);
153 type = ((d_info[dungeon_type].flags1 & DF1_CURTAIN) &&
154 one_in_((d_info[dungeon_type].flags1 & DF1_NO_CAVE) ? 16 : 256)) ? DOOR_CURTAIN :
155 ((d_info[dungeon_type].flags1 & DF1_GLASS_DOOR) ? DOOR_GLASS_DOOR : DOOR_DOOR);
157 /* Choose an object */
158 tmp = randint0(1000);
160 /* Open doors (300/1000) */
163 /* Create open door */
164 feat = feat_door[type].open;
167 /* Broken doors (100/1000) */
170 /* Create broken door */
171 feat = feat_door[type].broken;
174 /* Secret doors (200/1000) */
177 /* Create secret door */
178 place_closed_door(y, x, type);
180 if (type != DOOR_CURTAIN)
182 /* Hide. If on the edge of room, use outer wall. */
183 c_ptr->mimic = room ? feat_wall_outer : fill_type[randint0(100)];
185 /* Floor type terrain cannot hide a door */
186 if (feat_supports_los(c_ptr->mimic) && !feat_supports_los(c_ptr->feat))
188 if (have_flag(f_info[c_ptr->mimic].flags, FF_MOVE) || have_flag(f_info[c_ptr->mimic].flags, FF_CAN_FLY))
190 c_ptr->feat = one_in_(2) ? c_ptr->mimic : floor_type[randint0(100)];
197 /* Closed, locked, or stuck doors (400/1000) */
198 else place_closed_door(y, x, type);
202 if (feat != feat_none)
204 set_cave_feat(y, x, feat);
208 place_floor_bold(y, x);
212 delete_monster(y, x);
216 * @brief ½êÄê¤Î°ÌÃ֤˳Ƽï¤ÎÊĤ¸¤¿¥É¥¢¤òÇÛÃÖ¤¹¤ë / Place a random type of normal door at the given location.
217 * @param y ¥É¥¢¤ÎÇÛÃÖ¤ò»î¤ß¤¿¤¤¥Þ¥¹¤ÎYºÂɸ
218 * @param x ¥É¥¢¤ÎÇÛÃÖ¤ò»î¤ß¤¿¤¤¥Þ¥¹¤ÎXºÂɸ
219 * @param type ¥É¥¢¤ÎÃÏ·ÁID
222 void place_closed_door(int y, int x, int type)
225 s16b feat = feat_none;
227 if (d_info[dungeon_type].flags1 & DF1_NO_DOORS)
229 place_floor_bold(y, x);
233 /* Choose an object */
236 /* Closed doors (300/400) */
239 /* Create closed door */
240 feat = feat_door[type].closed;
243 /* Locked doors (99/400) */
246 /* Create locked door */
247 feat = feat_locked_door_random(type);
250 /* Stuck doors (1/400) */
253 /* Create jammed door */
254 feat = feat_jammed_door_random(type);
257 if (feat != feat_none)
259 cave_set_feat(y, x, feat);
261 /* Now it is not floor */
262 cave[y][x].info &= ~(CAVE_MASK);
266 place_floor_bold(y, x);
271 * @brief ĹÊý·Á¤Î¶õƶ¤òÀ¸À®¤¹¤ë / Make an empty square floor, for the middle of rooms
272 * @param x1 ĹÊý·Á¤Îº¸Ã¼XºÂɸ(-1)
273 * @param x2 ĹÊý·Á¤Î±¦Ã¼XºÂɸ(+1)
274 * @param y1 ĹÊý·Á¤Î¾åüYºÂɸ(-1)
275 * @param y2 ĹÊý·Á¤Î²¼Ã¼YºÂɸ(+1)
276 * @param light ¾ÈÌÀ¤ÎÍ̵
279 void place_floor(int x1, int x2, int y1, int y2, bool light)
283 /* Place a full floor under the room */
284 for (y = y1 - 1; y <= y2 + 1; y++)
286 for (x = x1 - 1; x <= x2 + 1; x++)
288 place_floor_bold(y, x);
289 add_cave_info(y, x, CAVE_ROOM);
290 if (light) add_cave_info(y, x, CAVE_GLOW);
297 * @brief ĹÊý·Á¤ÎÉô²°¤òÀ¸À®¤¹¤ë / Make an empty square room, only floor and wall grids
298 * @param x1 ĹÊý·Á¤Îº¸Ã¼XºÂɸ(-1)
299 * @param x2 ĹÊý·Á¤Î±¦Ã¼XºÂɸ(+1)
300 * @param y1 ĹÊý·Á¤Î¾åüYºÂɸ(-1)
301 * @param y2 ĹÊý·Á¤Î²¼Ã¼YºÂɸ(+1)
302 * @param light ¾ÈÌÀ¤ÎÍ̵
305 void place_room(int x1, int x2, int y1, int y2, bool light)
309 place_floor(x1, x2, y1, y2, light);
311 /* Walls around the room */
312 for (y = y1 - 1; y <= y2 + 1; y++)
314 place_outer_bold(y, x1 - 1);
315 place_outer_bold(y, x2 + 1);
317 for (x = x1 - 1; x <= x2 + 1; x++)
319 place_outer_bold(y1 - 1, x);
320 place_outer_bold(y2 + 1, x);
326 * @brief Æüì¤ÊÉô²°¸þ¤±¤Ë³Æ¼ï¥¢¥¤¥Æ¥à¤òÇÛÃÖ¤¹¤ë / Create up to "num" objects near the given coordinates
327 * @param y ÇÛÃÖ¤·¤¿¤¤Ãæ¿´¥Þ¥¹¤ÎYºÂɸ
328 * @param x ÇÛÃÖ¤·¤¿¤¤Ãæ¿´¥Þ¥¹¤ÎXºÂɸ
329 * @param num ÇÛÃÖ¤·¤¿¤¤¿ô
332 * Only really called by some of the "vault" routines.
334 void vault_objects(int y, int x, int num)
337 int i = 0, j = y, k = x;
342 /* Attempt to place 'num' objects */
343 for (; num > 0; --num)
345 /* Try up to 11 spots looking for empty space */
346 for (i = 0; i < 11; ++i)
348 /* Pick a random location */
349 while (dummy < SAFE_MAX_ATTEMPTS)
351 j = rand_spread(y, 2);
352 k = rand_spread(x, 3);
354 if (!in_bounds(j, k)) continue;
359 if (dummy >= SAFE_MAX_ATTEMPTS)
364 msg_print("·Ù¹ð¡ªÃϲ¼¼¼¤Î¥¢¥¤¥Æ¥à¤òÇÛÃ֤Ǥ¤Þ¤»¤ó¡ª");
366 msg_print("Warning! Could not place vault object!");
373 /* Require "clean" floor space */
375 if (!is_floor_grid(c_ptr) || c_ptr->o_idx) continue;
378 if (randint0(100) < 75)
380 place_object(j, k, 0L);
389 /* Placement accomplished */
396 * @brief Æüì¤ÊÉô²°¸þ¤±¤Ë³Æ¼ï¥¢¥¤¥Æ¥à¤òÇÛÃÖ¤¹¤ë(vault_trap¤Î¥µ¥Ö¥»¥Ã¥È) / Place a trap with a given displacement of point
397 * @param y ¥È¥é¥Ã¥×¤òÇÛÃÖ¤·¤¿¤¤¥Þ¥¹¤ÎÃæ¿´YºÂɸ
398 * @param x ¥È¥é¥Ã¥×¤òÇÛÃÖ¤·¤¿¤¤¥Þ¥¹¤ÎÃæ¿´XºÂɸ
399 * @param yd YÊý¸þ¤ÎÇÛÃÖʬ»¶¥Þ¥¹¿ô
400 * @param xd XÊý¸þ¤ÎÇÛÃÖʬ»¶¥Þ¥¹¿ô
403 * Only really called by some of the "vault" routines.
405 void vault_trap_aux(int y, int x, int yd, int xd)
407 int count = 0, y1 = y, x1 = x;
413 for (count = 0; count <= 5; count++)
416 while (dummy < SAFE_MAX_ATTEMPTS)
418 y1 = rand_spread(y, yd);
419 x1 = rand_spread(x, xd);
421 if (!in_bounds(y1, x1)) continue;
425 if (dummy >= SAFE_MAX_ATTEMPTS)
430 msg_print("·Ù¹ð¡ªÃϲ¼¼¼¤Î¥È¥é¥Ã¥×¤òÇÛÃ֤Ǥ¤Þ¤»¤ó¡ª");
432 msg_print("Warning! Could not place vault trap!");
438 /* Require "naked" floor grids */
439 c_ptr = &cave[y1][x1];
440 if (!is_floor_grid(c_ptr) || c_ptr->o_idx || c_ptr->m_idx) continue;
451 * @brief Æüì¤ÊÉô²°¸þ¤±¤Ë³Æ¼ï¥¢¥¤¥Æ¥à¤òÇÛÃÖ¤¹¤ë(¥á¥¤¥ó¥ë¡¼¥Á¥ó) / Place some traps with a given displacement of given location
452 * @param y ¥È¥é¥Ã¥×¤òÇÛÃÖ¤·¤¿¤¤¥Þ¥¹¤ÎÃæ¿´YºÂɸ
453 * @param x ¥È¥é¥Ã¥×¤òÇÛÃÖ¤·¤¿¤¤¥Þ¥¹¤ÎÃæ¿´XºÂɸ
454 * @param yd YÊý¸þ¤ÎÇÛÃÖʬ»¶¥Þ¥¹¿ô
455 * @param xd XÊý¸þ¤ÎÇÛÃÖʬ»¶¥Þ¥¹¿ô
456 * @param num ÇÛÃÖ¤·¤¿¤¤¥È¥é¥Ã¥×¤Î¿ô
459 * Only really called by some of the "vault" routines.
461 void vault_traps(int y, int x, int yd, int xd, int num)
465 for (i = 0; i < num; i++)
467 vault_trap_aux(y, x, yd, xd);
472 * @brief Æüì¤ÊÉô²°ÃÏ·Á¸þ¤±¤Ë¥â¥ó¥¹¥¿¡¼¤òÇÛÃÖ¤¹¤ë / Hack -- Place some sleeping monsters near the given location
473 * @param y1 ¥â¥ó¥¹¥¿¡¼¤òÇÛÃÖ¤·¤¿¤¤¥Þ¥¹¤ÎÃæ¿´YºÂɸ
474 * @param x1 ¥â¥ó¥¹¥¿¡¼¤òÇÛÃÖ¤·¤¿¤¤¥Þ¥¹¤ÎÃæ¿´XºÂɸ
475 * @param num ÇÛÃÖ¤·¤¿¤¤¥â¥ó¥¹¥¿¡¼¤Î¿ô
478 * Only really called by some of the "vault" routines.
480 void vault_monsters(int y1, int x1, int num)
485 /* Try to summon "num" monsters "near" the given location */
486 for (k = 0; k < num; k++)
488 /* Try nine locations */
489 for (i = 0; i < 9; i++)
493 /* Pick a nearby location */
494 scatter(&y, &x, y1, x1, d, 0);
496 /* Require "empty" floor grids */
498 if (!cave_empty_grid(c_ptr)) continue;
500 /* Place the monster (allow groups) */
501 monster_level = base_level + 2;
502 (void)place_monster(y, x, (PM_ALLOW_SLEEP | PM_ALLOW_GROUP));
503 monster_level = base_level;
510 * @brief build_tunnelÍѤËÄÌÏ©¤ò·¡¤ë¤¿¤á¤ÎÊý¸þ¤ò°ÌÃÖ´Ø·¸Ä̤ê¤Ë·è¤á¤ë / Always picks a correct direction
511 * @param rdir YÊý¸þ¤Ë¼è¤ë¤Ù¤¥Ù¥¯¥È¥ëÃͤòÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
512 * @param cdir XÊý¸þ¤Ë¼è¤ë¤Ù¤¥Ù¥¯¥È¥ëÃͤòÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
513 * @param y1 »ÏÅÀYºÂɸ
514 * @param x1 »ÏÅÀXºÂɸ
515 * @param y2 ½ªÅÀYºÂɸ
516 * @param x2 ½ªÅÀXºÂɸ
519 void correct_dir(int *rdir, int *cdir, int y1, int x1, int y2, int x2)
521 /* Extract vertical and horizontal directions */
522 *rdir = (y1 == y2) ? 0 : (y1 < y2) ? 1 : -1;
523 *cdir = (x1 == x2) ? 0 : (x1 < x2) ? 1 : -1;
525 /* Never move diagonally */
528 if (randint0(100) < 50)
536 * @brief build_tunnelÍѤËÄÌÏ©¤ò·¡¤ë¤¿¤á¤ÎÊý¸þ¤ò¥é¥ó¥À¥à¤Ë·è¤á¤ë / Pick a random direction
537 * @param rdir YÊý¸þ¤Ë¼è¤ë¤Ù¤¥Ù¥¯¥È¥ëÃͤòÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
538 * @param cdir XÊý¸þ¤Ë¼è¤ë¤Ù¤¥Ù¥¯¥È¥ëÃͤòÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
541 void rand_dir(int *rdir, int *cdir)
543 /* Pick a random direction */
546 /* Extract the dy/dx components */
552 * @brief »ØÄê¤Î¥Þ¥¹¤¬¾²·ÏÃÏ·Á¤Ç¤¢¤ë¤«¤òÊÖ¤¹ / Function that sees if a square is a floor. (Includes range checking.)
553 * @param x ¥Á¥§¥Ã¥¯¤¹¤ë¥Þ¥¹¤ÎXºÂɸ
554 * @param y ¥Á¥§¥Ã¥¯¤¹¤ë¥Þ¥¹¤ÎYºÂɸ
555 * @return ¾²·ÏÃÏ·Á¤Ê¤é¤ÐTRUE
557 bool get_is_floor(int x, int y)
559 if (!in_bounds(y, x))
565 /* Do the real check */
566 if (is_floor_bold(y, x)) return (TRUE);
572 * @brief »ØÄê¤Î¥Þ¥¹¤ò¾²ÃÏ·Á¤ËÊѤ¨¤ë / Set a square to be floor. (Includes range checking.)
573 * @param x ÃÏ·Á¤òÊѤ¨¤¿¤¤¥Þ¥¹¤ÎXºÂɸ
574 * @param y ÃÏ·Á¤òÊѤ¨¤¿¤¤¥Þ¥¹¤ÎYºÂɸ
577 void set_floor(int x, int y)
579 if (!in_bounds(y, x))
585 if (cave[y][x].info & CAVE_ROOM)
587 /* A room border don't touch. */
591 /* Set to be floor if is a wall (don't touch lakes). */
592 if (is_extra_bold(y, x))
593 place_floor_bold(y, x);
598 * @brief Éô²°´Ö¤Î¥È¥ó¥Í¥ë¤òÀ¸À®¤¹¤ë / Constructs a tunnel between two points
599 * @param row1 »ÏÅÀYºÂɸ
600 * @param col1 »ÏÅÀXºÂɸ
601 * @param row2 ½ªÅÀYºÂɸ
602 * @param col2 ½ªÅÀXºÂɸ
603 * @return À¸À®¤ËÀ®¸ù¤·¤¿¤éTRUE¤òÊÖ¤¹
605 * This function must be called BEFORE any streamers are created,\n
606 * since we use the special "granite wall" sub-types to keep track\n
607 * of legal places for corridors to pierce rooms.\n
609 * We use "door_flag" to prevent excessive construction of doors\n
610 * along overlapping corridors.\n
612 * We queue the tunnel grids to prevent door creation along a corridor\n
613 * which intersects itself.\n
615 * We queue the wall piercing grids to prevent a corridor from leaving\n
616 * a room and then coming back in through the same entrance.\n
618 * We "pierce" grids which are "outer" walls of rooms, and when we\n
619 * do so, we change all adjacent "outer" walls of rooms into "solid"\n
620 * walls so that no two corridors may use adjacent grids for exits.\n
622 * The "solid" wall check prevents corridors from "chopping" the\n
623 * corners of rooms off, as well as "silly" door placement, and\n
624 * "excessively wide" room entrances.\n
628 * inner -- inner room walls\n
629 * outer -- outer room walls\n
630 * solid -- solid room walls\n
632 bool build_tunnel(int row1, int col1, int row2, int col2)
635 int tmp_row, tmp_col;
636 int row_dir, col_dir;
637 int start_row, start_col;
638 int main_loop_count = 0;
640 bool door_flag = FALSE;
644 /* Save the starting location */
648 /* Start out in the correct direction */
649 correct_dir(&row_dir, &col_dir, row1, col1, row2, col2);
651 /* Keep going until done (or bored) */
652 while ((row1 != row2) || (col1 != col2))
654 /* Mega-Hack -- Paranoia -- prevent infinite loops */
655 if (main_loop_count++ > 2000) return FALSE;
657 /* Allow bends in the tunnel */
658 if (randint0(100) < dun_tun_chg)
660 /* Acquire the correct direction */
661 correct_dir(&row_dir, &col_dir, row1, col1, row2, col2);
663 /* Random direction */
664 if (randint0(100) < dun_tun_rnd)
666 rand_dir(&row_dir, &col_dir);
670 /* Get the next location */
671 tmp_row = row1 + row_dir;
672 tmp_col = col1 + col_dir;
675 /* Extremely Important -- do not leave the dungeon */
676 while (!in_bounds(tmp_row, tmp_col))
678 /* Acquire the correct direction */
679 correct_dir(&row_dir, &col_dir, row1, col1, row2, col2);
681 /* Random direction */
682 if (randint0(100) < dun_tun_rnd)
684 rand_dir(&row_dir, &col_dir);
687 /* Get the next location */
688 tmp_row = row1 + row_dir;
689 tmp_col = col1 + col_dir;
693 /* Access the location */
694 c_ptr = &cave[tmp_row][tmp_col];
696 /* Avoid "solid" walls */
697 if (is_solid_grid(c_ptr)) continue;
699 /* Pierce "outer" walls of rooms */
700 if (is_outer_grid(c_ptr))
702 /* Acquire the "next" location */
703 y = tmp_row + row_dir;
704 x = tmp_col + col_dir;
706 /* Hack -- Avoid outer/solid walls */
707 if (is_outer_bold(y, x)) continue;
708 if (is_solid_bold(y, x)) continue;
710 /* Accept this location */
714 /* Save the wall location */
715 if (dun->wall_n < WALL_MAX)
717 dun->wall[dun->wall_n].y = row1;
718 dun->wall[dun->wall_n].x = col1;
723 /* Forbid re-entry near this piercing */
724 for (y = row1 - 1; y <= row1 + 1; y++)
726 for (x = col1 - 1; x <= col1 + 1; x++)
728 /* Convert adjacent "outer" walls as "solid" walls */
729 if (is_outer_bold(y, x))
731 /* Change the wall to a "solid" wall */
732 place_solid_noperm_bold(y, x);
738 /* Travel quickly through rooms */
739 else if (c_ptr->info & (CAVE_ROOM))
741 /* Accept the location */
746 /* Tunnel through all other walls */
747 else if (is_extra_grid(c_ptr) || is_inner_grid(c_ptr) || is_solid_grid(c_ptr))
749 /* Accept this location */
753 /* Save the tunnel location */
754 if (dun->tunn_n < TUNN_MAX)
756 dun->tunn[dun->tunn_n].y = row1;
757 dun->tunn[dun->tunn_n].x = col1;
762 /* Allow door in next grid */
766 /* Handle corridor intersections or overlaps */
769 /* Accept the location */
773 /* Collect legal door locations */
776 /* Save the door location */
777 if (dun->door_n < DOOR_MAX)
779 dun->door[dun->door_n].y = row1;
780 dun->door[dun->door_n].x = col1;
785 /* No door in next grid */
789 /* Hack -- allow pre-emptive tunnel termination */
790 if (randint0(100) >= dun_tun_con)
792 /* Distance between row1 and start_row */
793 tmp_row = row1 - start_row;
794 if (tmp_row < 0) tmp_row = (-tmp_row);
796 /* Distance between col1 and start_col */
797 tmp_col = col1 - start_col;
798 if (tmp_col < 0) tmp_col = (-tmp_col);
800 /* Terminate the tunnel */
801 if ((tmp_row > 10) || (tmp_col > 10)) break;
811 * @brief ¥È¥ó¥Í¥ëÀ¸À®¤Î¤¿¤á¤Î´ð½àÅÀ¤ò»ØÄꤹ¤ë¡£
812 * @param x ´ð½àÅÀ¤ò»ØÄꤹ¤ëXºÂɸ¤Î»²¾È¥Ý¥¤¥ó¥¿¡¢Å¬»þÃͤ¬½¤Àµ¤µ¤ì¤ë¡£
813 * @param y ´ð½àÅÀ¤ò»ØÄꤹ¤ëYºÂɸ¤Î»²¾È¥Ý¥¤¥ó¥¿¡¢Å¬»þÃͤ¬½¤Àµ¤µ¤ì¤ë¡£
814 * @param affectwall (Ä´ººÃæ)
817 * This routine adds the square to the tunnel\n
818 * It also checks for SOLID walls - and returns a nearby\n
819 * non-SOLID square in (x,y) so that a simple avoiding\n
820 * routine can be used. The returned boolean value reflects\n
821 * whether or not this routine hit a SOLID wall.\n
823 * "affectwall" toggles whether or not this new square affects\n
824 * the boundaries of rooms. - This is used by the catacomb\n
826 * @todo Æä˾ܺ٤ʽèÍý¤Î°ÕÌ£¤òÄ´ºº¤¹¤Ù¤·
828 static bool set_tunnel(int *x, int *y, bool affectwall)
832 cave_type *c_ptr = &cave[*y][*x];
834 if (!in_bounds(*y, *x)) return TRUE;
836 if (is_inner_grid(c_ptr))
841 if (is_extra_bold(*y,*x))
843 /* Save the tunnel location */
844 if (dun->tunn_n < TUNN_MAX)
846 dun->tunn[dun->tunn_n].y = *y;
847 dun->tunn[dun->tunn_n].x = *x;
855 if (is_floor_bold(*y, *x))
857 /* Don't do anything */
861 if (is_outer_grid(c_ptr) && affectwall)
863 /* Save the wall location */
864 if (dun->wall_n < WALL_MAX)
866 dun->wall[dun->wall_n].y = *y;
867 dun->wall[dun->wall_n].x = *x;
872 /* Forbid re-entry near this piercing */
873 for (j = *y - 1; j <= *y + 1; j++)
875 for (i = *x - 1; i <= *x + 1; i++)
877 /* Convert adjacent "outer" walls as "solid" walls */
878 if (is_outer_bold(j, i))
880 /* Change the wall to a "solid" wall */
881 place_solid_noperm_bold(j, i);
886 /* Clear mimic type */
887 cave[*y][*x].mimic = 0;
889 place_floor_bold(*y, *x);
894 if (is_solid_grid(c_ptr) && affectwall)
896 /* cannot place tunnel here - use a square to the side */
898 /* find usable square and return value in (x,y) */
904 while ((i > 0) && is_solid_bold(*y + dy, *x + dx))
906 dy = randint0(3) - 1;
907 dx = randint0(3) - 1;
909 if (!in_bounds(*y + dy, *x + dx))
920 /* Failed for some reason: hack - ignore the solidness */
921 place_outer_grid(c_ptr);
926 /* Give new, acceptable coordinate. */
938 * @brief ³°Êɤòºï¤Ã¤Æ¡Ö¥«¥¿¥³¥ó¥Ù¾õ¡×¤ÎÄÌÏ©¤òºîÀ®¤¹¤ë / This routine creates the catacomb-like tunnels by removing extra rock.
939 * @param x ´ð½àÅÀ¤ÎXºÂɸ
940 * @param y ´ð½àÅÀ¤ÎYºÂɸ
943 * Note that this routine is only called on "even" squares - so it gives
944 * a natural checkerboard pattern.
946 static void create_cata_tunnel(int x, int y)
953 set_tunnel(&x1, &y1, FALSE);
957 set_tunnel(&x1, &y1, FALSE);
961 set_tunnel(&x1, &y1, FALSE);
965 set_tunnel(&x1, &y1, FALSE);
970 * @brief ¥È¥ó¥Í¥ëÀ¸À®½èÍý¡Ê¾ÜºÙÄ´ººÃæ¡Ë/ This routine does the bulk of the work in creating the new types of tunnels.
974 * It is designed to use very simple algorithms to go from (x1,y1) to (x2,y2)\n
975 * It doesn't need to add any complexity - straight lines are fine.\n
976 * The SOLID walls are avoided by a recursive algorithm which tries random ways\n
977 * around the obstical until it works. The number of itterations is counted, and it\n
978 * this gets too large the routine exits. This should stop any crashes - but may leave\n
979 * small gaps in the tunnel where there are too many SOLID walls.\n
981 * Type 1 tunnels are extremely simple - straight line from A to B. This is only used\n
982 * as a part of the dodge SOLID walls algorithm.\n
984 * Type 2 tunnels are made of two straight lines at right angles. When this is used with\n
985 * short line segments it gives the "cavelike" tunnels seen deeper in the dungeon.\n
987 * Type 3 tunnels are made of two straight lines like type 2, but with extra rock removed.\n
988 * This, when used with longer line segments gives the "catacomb-like" tunnels seen near\n
991 static void short_seg_hack(int x1, int y1, int x2, int y2, int type, int count, bool *fail)
996 /* Check for early exit */
997 if (!(*fail)) return;
999 length = distance(x1, y1, x2, y2);
1003 if ((type == 1) && (length != 0))
1006 for (i = 0; i <= length; i++)
1008 x = x1 + i * (x2 - x1) / length;
1009 y = y1 + i * (y2 - y1) / length;
1010 if (!set_tunnel(&x, &y, TRUE))
1014 /* This isn't working - probably have an infinite loop */
1019 /* solid wall - so try to go around */
1020 short_seg_hack(x, y, x1 + (i - 1) * (x2 - x1) / length, y1 + (i - 1) * (y2 - y1) / length, 1, count, fail);
1021 short_seg_hack(x, y, x1 + (i + 1) * (x2 - x1) / length, y1 + (i + 1) * (y2 - y1) / length, 1, count, fail);
1025 else if ((type == 2) || (type == 3))
1029 for (i = x1; i <= x2; i++)
1033 if (!set_tunnel(&x, &y, TRUE))
1035 /* solid wall - so try to go around */
1036 short_seg_hack(x, y, i - 1, y1, 1, count, fail);
1037 short_seg_hack(x, y, i + 1, y1, 1, count, fail);
1039 if ((type == 3) && ((x + y) % 2))
1041 create_cata_tunnel(i, y1);
1047 for (i = x2; i <= x1; i++)
1051 if (!set_tunnel(&x, &y, TRUE))
1053 /* solid wall - so try to go around */
1054 short_seg_hack(x, y, i - 1, y1, 1, count, fail);
1055 short_seg_hack(x, y, i + 1, y1, 1, count, fail);
1057 if ((type == 3) && ((x + y) % 2))
1059 create_cata_tunnel(i, y1);
1066 for (i = y1; i <= y2; i++)
1070 if (!set_tunnel(&x, &y, TRUE))
1072 /* solid wall - so try to go around */
1073 short_seg_hack(x, y, x2, i - 1, 1, count, fail);
1074 short_seg_hack(x, y, x2, i + 1, 1, count, fail);
1076 if ((type == 3) && ((x + y) % 2))
1078 create_cata_tunnel(x2, i);
1084 for (i = y2; i <= y1; i++)
1088 if (!set_tunnel(&x, &y, TRUE))
1090 /* solid wall - so try to go around */
1091 short_seg_hack(x, y, x2, i - 1, 1, count, fail);
1092 short_seg_hack(x, y, x2, i + 1, 1, count, fail);
1094 if ((type == 3) && ((x + y) % 2))
1096 create_cata_tunnel(x2, i);
1105 * @brief ÆÃÄê¤ÎÊÉ(±Êµ×ÊɤʤÉ)¤òÈò¤±¤Ê¤¬¤éÉô²°´Ö¤ÎÄÌÏ©¤òºîÀ®¤¹¤ë / This routine maps a path from (x1, y1) to (x2, y2) avoiding SOLID walls.
1109 * Permanent rock is ignored in this path finding- sometimes there is no\n
1110 * path around anyway -so there will be a crash if we try to find one.\n
1111 * This routine is much like the river creation routine in Zangband.\n
1112 * It works by dividing a line segment into two. The segments are divided\n
1113 * until they are less than "cutoff" - when the corresponding routine from\n
1114 * "short_seg_hack" is called.\n
1115 * Note it is VERY important that the "stop if hit another passage" logic\n
1116 * stays as is. Without this the dungeon turns into Swiss Cheese...\n
1118 bool build_tunnel2(int x1, int y1, int x2, int y2, int type, int cutoff)
1121 int changex, changey;
1124 bool retval, firstsuccede;
1127 length = distance(x1, y1, x2, y2);
1129 if (length > cutoff)
1132 * Divide path in half and call routine twice.
1137 /* perturbation perpendicular to path */
1138 changex = (randint0(abs(dy) + 2) * 2 - abs(dy) - 1) / 2;
1140 /* perturbation perpendicular to path */
1141 changey = (randint0(abs(dx) + 2) * 2 - abs(dx) - 1) / 2;
1143 /* Work out "mid" ponit */
1144 x3 = x1 + dx + changex;
1145 y3 = y1 + dy + changey;
1147 /* See if in bounds - if not - do not perturb point */
1148 if (!in_bounds(y3, x3))
1154 c_ptr = &cave[y3][x3];
1155 if (is_solid_grid(c_ptr))
1157 /* move midpoint a bit to avoid problem. */
1163 while ((i > 0) && is_solid_bold(y3 + dy, x3 + dx))
1165 dy = randint0(3) - 1;
1166 dx = randint0(3) - 1;
1167 if (!in_bounds(y3 + dy, x3 + dx))
1177 /* Failed for some reason: hack - ignore the solidness */
1178 place_outer_bold(y3, x3);
1184 c_ptr = &cave[y3][x3];
1187 if (is_floor_grid(c_ptr))
1189 if (build_tunnel2(x1, y1, x3, y3, type, cutoff))
1191 if ((cave[y3][x3].info & CAVE_ROOM) || (randint1(100) > 95))
1193 /* do second half only if works + if have hit a room */
1194 retval = build_tunnel2(x3, y3, x2, y2, type, cutoff);
1198 /* have hit another tunnel - make a set of doors here */
1201 /* Save the door location */
1202 if (dun->door_n < DOOR_MAX)
1204 dun->door[dun->door_n].y = y3;
1205 dun->door[dun->door_n].x = x3;
1210 firstsuccede = TRUE;
1214 /* false- didn't work all the way */
1216 firstsuccede = FALSE;
1221 /* tunnel through walls */
1222 if (build_tunnel2(x1, y1, x3, y3, type, cutoff))
1224 retval = build_tunnel2(x3, y3, x2, y2, type, cutoff);
1225 firstsuccede = TRUE;
1229 /* false- didn't work all the way */
1231 firstsuccede = FALSE;
1236 /* only do this if the first half has worked */
1237 set_tunnel(&x3, &y3, TRUE);
1239 /* return value calculated above */
1244 /* Do a short segment */
1246 short_seg_hack(x1, y1, x2, y2, type, 0, &retval);
1248 /* Hack - ignore return value so avoid infinite loops */