Early Roguelike Collection: rogue5/new

annotate rogue5/new_level.c @ 201:6fb21004a981

Fix some preprocessor directives. Include process.h in the right place, and use the correct definition of PATH_MAX, when compiling on Windows.

author	John "Elwin" Edwards
date	Wed, 12 Aug 2015 16:56:19 -0400
parents	f502bf60e6e4
children

rev	line source
33 f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	1 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	2 * new_level:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	3 * Dig and draw a new level
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	4 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	5 * @(#)new_level.c 4.38 (Berkeley) 02/05/99
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	6 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	7 * Rogue: Exploring the Dungeons of Doom
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	8 * Copyright (C) 1980-1983, 1985, 1999 Michael Toy, Ken Arnold and Glenn Wichman
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	9 * All rights reserved.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	10 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	11 * See the file LICENSE.TXT for full copyright and licensing information.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	12 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	13
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	14 #include <curses.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	15 #include <string.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	16 #include "rogue.h"
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	17
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	18 #define TREAS_ROOM 20 /* one chance in TREAS_ROOM for a treasure room */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	19 #define MAXTREAS 10 /* maximum number of treasures in a treasure room */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	20 #define MINTREAS 2 /* minimum number of treasures in a treasure room */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	21
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	22 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	23 new_level(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	24 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	25 THING *tp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	26 PLACE *pp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	27 int *sp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	28 int i;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	29
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	30 player.t_flags &= ~ISHELD; /* unhold when you go down just in case */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	31 if (level > max_level)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	32 max_level = level;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	33 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	34 * Clean things off from last level
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	35 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	36 for (pp = places; pp < &places[MAXCOLS*MAXLINES]; pp++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	37 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	38 pp->p_ch = ' ';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	39 pp->p_flags = F_REAL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	40 pp->p_monst = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	41 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	42 clear();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	43 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	44 * Free up the monsters on the last level
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	45 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	46 for (tp = mlist; tp != NULL; tp = next(tp))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	47 free_list(tp->t_pack);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	48 free_list(mlist);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	49 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	50 * Throw away stuff left on the previous level (if anything)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	51 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	52 free_list(lvl_obj);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	53 do_rooms(); /* Draw rooms */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	54 do_passages(); /* Draw passages */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	55 no_food++;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	56 put_things(); /* Place objects (if any) */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	57 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	58 * Place the traps
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	59 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	60 if (rnd(10) < level)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	61 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	62 ntraps = rnd(level / 4) + 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	63 if (ntraps > MAXTRAPS)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	64 ntraps = MAXTRAPS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	65 i = ntraps;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	66 while (i--)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	67 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	68 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	69 * not only wouldn't it be NICE to have traps in mazes
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	70 * (not that we care about being nice), since the trap
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	71 * number is stored where the passage number is, we
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	72 * can't actually do it.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	73 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	74 do
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	75 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	76 find_floor(NULL, &stairs, FALSE, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	77 } while ( (chat(stairs.y, stairs.x) != FLOOR) &&
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	78 (flat(stairs.y, stairs.x) & F_REAL) );
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	79 sp = &flat(stairs.y, stairs.x);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	80 *sp &= ~(F_REAL \| F_TMASK);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	81 *sp \|= rnd(NTRAPS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	82 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	83 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	84 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	85 * Place the staircase down.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	86 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	87 find_floor(NULL, &stairs, FALSE, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	88 chat(stairs.y, stairs.x) = STAIRS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	89 seenstairs = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	90
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	91 for (tp = mlist; tp != NULL; tp = next(tp))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	92 tp->t_room = roomin(&tp->t_pos);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	93
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	94 find_floor(NULL, &hero, FALSE, TRUE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	95 enter_room(&hero);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	96 mvaddch(hero.y, hero.x, PLAYER);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	97 if (on(player, SEEMONST))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	98 turn_see(FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	99 if (on(player, ISHALU))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	100 visuals();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	101 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	102
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	103 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	104 * rnd_room:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	105 * Pick a room that is really there
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	106 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	107 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	108 rnd_room(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	109 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	110 int rm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	111
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	112 do
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	113 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	114 rm = rnd(MAXROOMS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	115 } while (rooms[rm].r_flags & ISGONE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	116 return rm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	117 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	118
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	119 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	120 * put_things:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	121 * Put potions and scrolls on this level
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	122 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	123
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	124 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	125 put_things(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	126 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	127 int i;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	128 THING *obj;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	129
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	130 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	131 * Once you have found the amulet, the only way to get new stuff is
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	132 * go down into the dungeon.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	133 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	134 if (amulet && level < max_level)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	135 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	136 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	137 * check for treasure rooms, and if so, put it in.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	138 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	139 if (rnd(TREAS_ROOM) == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	140 treas_room();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	141 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	142 * Do MAXOBJ attempts to put things on a level
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	143 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	144 for (i = 0; i < MAXOBJ; i++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	145 if (rnd(100) < 36)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	146 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	147 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	148 * Pick a new object and link it in the list
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	149 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	150 obj = new_thing();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	151 attach(lvl_obj, obj);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	152 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	153 * Put it somewhere
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	154 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	155 find_floor(NULL, &obj->o_pos, FALSE, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	156 chat(obj->o_pos.y, obj->o_pos.x) = obj->o_type;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	157 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	158 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	159 * If he is really deep in the dungeon and he hasn't found the
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	160 * amulet yet, put it somewhere on the ground
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	161 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	162 if (level >= AMULETLEVEL && !amulet)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	163 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	164 obj = new_item();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	165 attach(lvl_obj, obj);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	166 obj->o_hplus = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	167 obj->o_dplus = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	168 strncpy(obj->o_damage,"0x0",sizeof(obj->o_damage));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	169 strncpy(obj->o_hurldmg,"0x0",sizeof(obj->o_hurldmg));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	170 obj->o_arm = 11;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	171 obj->o_type = AMULET;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	172 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	173 * Put it somewhere
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	174 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	175 find_floor(NULL, &obj->o_pos, FALSE, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	176 chat(obj->o_pos.y, obj->o_pos.x) = AMULET;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	177 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	178 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	179
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	180 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	181 * treas_room:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	182 * Add a treasure room
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	183 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	184 #define MAXTRIES 10 /* max number of tries to put down a monster */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	185
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	186
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	187 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	188 treas_room(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	189 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	190 int nm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	191 THING *tp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	192 struct room *rp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	193 int spots, num_monst;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	194 coord mp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	195
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	196 rp = &rooms[rnd_room()];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	197 spots = (rp->r_max.y - 2) * (rp->r_max.x - 2) - MINTREAS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	198 if (spots > (MAXTREAS - MINTREAS))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	199 spots = (MAXTREAS - MINTREAS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	200 num_monst = nm = rnd(spots) + MINTREAS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	201 while (nm--)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	202 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	203 find_floor(rp, &mp, 2 * MAXTRIES, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	204 tp = new_thing();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	205 tp->o_pos = mp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	206 attach(lvl_obj, tp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	207 chat(mp.y, mp.x) = tp->o_type;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	208 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	209
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	210 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	211 * fill up room with monsters from the next level down
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	212 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	213
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	214 if ((nm = rnd(spots) + MINTREAS) < num_monst + 2)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	215 nm = num_monst + 2;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	216 spots = (rp->r_max.y - 2) * (rp->r_max.x - 2);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	217 if (nm > spots)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	218 nm = spots;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	219 level++;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	220 while (nm--)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	221 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	222 spots = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	223 if (find_floor(rp, &mp, MAXTRIES, TRUE))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	224 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	225 tp = new_item();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	226 new_monster(tp, randmonster(FALSE), &mp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	227 tp->t_flags \|= ISMEAN; /* no sloughers in THIS room */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	228 give_pack(tp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	229 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	230 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	231 level--;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	232 }

Mercurial > hg > early-roguelike

annotate rogue5/new_level.c @ 201:6fb21004a981