Home | History | Annotate | Line # | Download | only in hack
hack.search.c revision 1.1 
      1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
      2 /* hack.search.c - version 1.0.3 */
      3 
      4 #include "hack.h"
      5 
      6 extern struct monst *makemon();
      7 
      8 findit()	/* returns number of things found */
      9 {
     10 	int num;
     11 	register xchar zx,zy;
     12 	register struct trap *ttmp;
     13 	register struct monst *mtmp;
     14 	xchar lx,hx,ly,hy;
     15 
     16 	if(u.uswallow) return(0);
     17 	for(lx = u.ux; (num = levl[lx-1][u.uy].typ) && num != CORR; lx--) ;
     18 	for(hx = u.ux; (num = levl[hx+1][u.uy].typ) && num != CORR; hx++) ;
     19 	for(ly = u.uy; (num = levl[u.ux][ly-1].typ) && num != CORR; ly--) ;
     20 	for(hy = u.uy; (num = levl[u.ux][hy+1].typ) && num != CORR; hy++) ;
     21 	num = 0;
     22 	for(zy = ly; zy <= hy; zy++)
     23 		for(zx = lx; zx <= hx; zx++) {
     24 			if(levl[zx][zy].typ == SDOOR) {
     25 				levl[zx][zy].typ = DOOR;
     26 				atl(zx, zy, '+');
     27 				num++;
     28 			} else if(levl[zx][zy].typ == SCORR) {
     29 				levl[zx][zy].typ = CORR;
     30 				atl(zx, zy, CORR_SYM);
     31 				num++;
     32 			} else if(ttmp = t_at(zx, zy)) {
     33 				if(ttmp->ttyp == PIERC){
     34 					(void) makemon(PM_PIERCER, zx, zy);
     35 					num++;
     36 					deltrap(ttmp);
     37 				} else if(!ttmp->tseen) {
     38 					ttmp->tseen = 1;
     39 					if(!vism_at(zx, zy))
     40 						atl(zx,zy,'^');
     41 					num++;
     42 				}
     43 			} else if(mtmp = m_at(zx,zy)) if(mtmp->mimic){
     44 				seemimic(mtmp);
     45 				num++;
     46 			}
     47 		}
     48 	return(num);
     49 }
     50 
     51 dosearch()
     52 {
     53 	register xchar x,y;
     54 	register struct trap *trap;
     55 	register struct monst *mtmp;
     56 
     57 	if(u.uswallow)
     58 		pline("What are you looking for? The exit?");
     59 	else
     60 	for(x = u.ux-1; x < u.ux+2; x++)
     61 	for(y = u.uy-1; y < u.uy+2; y++) if(x != u.ux || y != u.uy) {
     62 		if(levl[x][y].typ == SDOOR) {
     63 			if(rn2(7)) continue;
     64 			levl[x][y].typ = DOOR;
     65 			levl[x][y].seen = 0;	/* force prl */
     66 			prl(x,y);
     67 			nomul(0);
     68 		} else if(levl[x][y].typ == SCORR) {
     69 			if(rn2(7)) continue;
     70 			levl[x][y].typ = CORR;
     71 			levl[x][y].seen = 0;	/* force prl */
     72 			prl(x,y);
     73 			nomul(0);
     74 		} else {
     75 		/* Be careful not to find anything in an SCORR or SDOOR */
     76 			if(mtmp = m_at(x,y)) if(mtmp->mimic){
     77 				seemimic(mtmp);
     78 				pline("You find a mimic.");
     79 				return(1);
     80 			}
     81 			for(trap = ftrap; trap; trap = trap->ntrap)
     82 			if(trap->tx == x && trap->ty == y &&
     83 			   !trap->tseen && !rn2(8)) {
     84 				nomul(0);
     85 				pline("You find a%s.", traps[trap->ttyp]);
     86 				if(trap->ttyp == PIERC) {
     87 					deltrap(trap);
     88 					(void) makemon(PM_PIERCER,x,y);
     89 					return(1);
     90 				}
     91 				trap->tseen = 1;
     92 				if(!vism_at(x,y)) atl(x,y,'^');
     93 			}
     94 		}
     95 	}
     96 	return(1);
     97 }
     98 
     99 doidtrap() {
    100 register struct trap *trap;
    101 register int x,y;
    102 	if(!getdir(1)) return(0);
    103 	x = u.ux + u.dx;
    104 	y = u.uy + u.dy;
    105 	for(trap = ftrap; trap; trap = trap->ntrap)
    106 		if(trap->tx == x && trap->ty == y && trap->tseen) {
    107 		    if(u.dz)
    108 			if((u.dz < 0) != (!xdnstair && trap->ttyp == TRAPDOOR))
    109 			    continue;
    110 		    pline("That is a%s.", traps[trap->ttyp]);
    111 		    return(0);
    112 		}
    113 	pline("I can't see a trap there.");
    114 	return(0);
    115 }
    116 
    117 wakeup(mtmp)
    118 register struct monst *mtmp;
    119 {
    120 	mtmp->msleep = 0;
    121 	setmangry(mtmp);
    122 	if(mtmp->mimic) seemimic(mtmp);
    123 }
    124 
    125 /* NOTE: we must check if(mtmp->mimic) before calling this routine */
    126 seemimic(mtmp)
    127 register struct monst *mtmp;
    128 {
    129 		mtmp->mimic = 0;
    130 		mtmp->mappearance = 0;
    131 		unpmon(mtmp);
    132 		pmon(mtmp);
    133 }
    134