nethack-3.4.3/src/dungeon.c

34 	schar lev[MAXLINFO];
332 	num = level_range(dnum, pd->tmpbranch[i].lev.base,
333 					      pd->tmpbranch[i].lev.rand,
512     s_level *lev = pd->final_lev[idx];
518     count = level_range(lev->dlevel.dnum, pd->tmplevel[idx].lev.base,
519 					pd->tmplevel[idx].lev.rand,
573     s_level *lev;
581     lev = pd->final_lev[proto_index];
584     if (!lev) return place_level(proto_index+1, pd);
589 	lev->dlevel.dlevel = pick_level(map, rn2(npossible));
592 	fprintf(stderr,"%s: trying %d [ ", lev->proto, lev->dlevel.dlevel);
598 	map[lev->dlevel.dlevel] = FALSE;	/* this choice didn't work */
602     fprintf(stderr,"%s: failed\n", lev->proto);
724 	    if(pd.tmpdungeon[i].lev.rand)
725 		dungeons[i].num_dunlevs = (xchar)rn1(pd.tmpdungeon[i].lev.rand,
726 						     pd.tmpdungeon[i].lev.base);
727 	    else dungeons[i].num_dunlevs = (xchar)pd.tmpdungeon[i].lev.base;
903 dunlev(lev)	/* return the level number for lev in *this* dungeon */
904 d_level	*lev;
906 	return(lev->dlevel);
910 dunlevs_in_dungeon(lev)	/* return the lowest level number for *this* dungeon*/
911 d_level	*lev;
913 	return(dungeons[lev->dnum].num_dunlevs);
952 ledger_no(lev)
953 d_level	*lev;
955 	return((xchar)(lev->dlevel + dungeons[lev->dnum].ledger_start));
963  * list, should not be confused with dunlevs_in_dungeon(lev) -- which
964  * returns the max number of levels in lev's dungeon, and both should
1007 depth(lev)
1008 d_level	*lev;
1010 	return((schar)( dungeons[lev->dnum].depth_start + lev->dlevel - 1));
1025 Is_special(lev)
1026 d_level	*lev;
1031 	    if (on_level(lev, &levtmp->dlevel)) return(levtmp);
1041 Is_branchlev(lev)
1042 	d_level	*lev;
1047 	    if (on_level(lev, &curr->end1) || on_level(lev, &curr->end2))
1162 Is_botlevel(lev)
1163 d_level *lev;
1165 	return((boolean)(lev->dlevel == dungeons[lev->dnum].num_dunlevs));
1169 Can_dig_down(lev)
1170 d_level *lev;
1173 	    && !Is_botlevel(lev) && !Invocation_lev(lev)));
1182 Can_fall_thru(lev)
1183 d_level *lev;
1185 	return((boolean)(Can_dig_down(lev) || Is_stronghold(lev)));
1195 Can_rise_up(x, y, lev)
1197 d_level *lev;
1201     if (In_endgame(lev) || In_sokoban(lev) ||
1202 			(Is_wiz1_level(lev) && In_W_tower(x, y, lev)))
1204     return (boolean)(lev->dlevel > 1 ||
1205 		(dungeons[lev->dnum].entry_lev == 1 && ledger_no(lev) != 1 &&
1272 In_quest(lev)	/* are you in the quest dungeon? */
1273 d_level *lev;
1275 	return((boolean)(lev->dnum == quest_dnum));
1282 In_mines(lev)	/* are you in the mines dungeon? */
1283 d_level	*lev;
1285 	return((boolean)(lev->dnum == mines_dnum));
1333 In_V_tower(lev)	/* is `lev' part of Vlad's tower? */
1334 d_level	*lev;
1336 	return((boolean)(lev->dnum == tower_dnum));
1340 On_W_tower_level(lev)	/* is `lev' a level containing the Wizard's tower? */
1341 d_level	*lev;
1343 	return (boolean)(Is_wiz1_level(lev) ||
1344 			 Is_wiz2_level(lev) ||
1345 			 Is_wiz3_level(lev));
1349 In_W_tower(x, y, lev)	/* is <x,y> of `lev' inside the Wizard's tower? */
1351 d_level	*lev;
1353 	if (!On_W_tower_level(lev)) return FALSE;
1371 In_hell(lev)	/* are you in one of the Hell levels? */
1372 d_level	*lev;
1374 	return((boolean)(dungeons[lev->dnum].flags.hellish));
1381 find_hell(lev)	/* sets *lev to be the gateway to Gehennom... */
1382 d_level *lev;
1384 	lev->dnum = valley_level.dnum;
1385 	lev->dlevel = 1;
1392 	d_level lev;
1394 	find_hell(&lev);
1395 	goto_level(&lev, at_stairs, falling, FALSE);
1427 	s_level	*lev = Is_special(&u.uz);
1430 	if (lev && lev->flags.align)
1431 		if(rn2(100) < pct) return(lev->flags.align);
1444 Invocation_lev(lev)
1445 d_level *lev;
1447 	return((boolean)(In_hell(lev) &&
1448 		lev->dlevel == (dungeons[lev->dnum].num_dunlevs - 1)));
1473     schar lev = 0;
1507 	    lev = depth(&slev->dlevel);
1527 		lev = depth(&dlev);
1531     return lev;
1573 		lchoices->lev[lchoices->idx] = br->end1.dlevel;
1650 			lchoices.lev[lchoices.idx] = slev->dlevel.dlevel;
1653 			lchoices.lev[lchoices.idx] = depth(&slev->dlevel);
1701 			*rlev = lchoices.lev[idx];