386BSD 0.1 development

[unix-history] / usr / othersrc / games / hack / hack.search.c

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.search.c - version 1.0.3 */

#include "hack.h"

extern struct monst *makemon();

findit()        /* returns number of things found */
{
       int num;
       register xchar zx,zy;
       register struct trap *ttmp;
       register struct monst *mtmp;
       xchar lx,hx,ly,hy;

       if(u.uswallow) return(0);
       for(lx = u.ux; (num = levl[lx-1][u.uy].typ) && num != CORR; lx--) ;
       for(hx = u.ux; (num = levl[hx+1][u.uy].typ) && num != CORR; hx++) ;
       for(ly = u.uy; (num = levl[u.ux][ly-1].typ) && num != CORR; ly--) ;
       for(hy = u.uy; (num = levl[u.ux][hy+1].typ) && num != CORR; hy++) ;
       num = 0;
       for(zy = ly; zy <= hy; zy++)
               for(zx = lx; zx <= hx; zx++) {
                       if(levl[zx][zy].typ == SDOOR) {
                               levl[zx][zy].typ = DOOR;
                               atl(zx, zy, '+');
                               num++;
                       } else if(levl[zx][zy].typ == SCORR) {
                               levl[zx][zy].typ = CORR;
                               atl(zx, zy, CORR_SYM);
                               num++;
                       } else if(ttmp = t_at(zx, zy)) {
                               if(ttmp->ttyp == PIERC){
                                       (void) makemon(PM_PIERCER, zx, zy);
                                       num++;
                                       deltrap(ttmp);
                               } else if(!ttmp->tseen) {
                                       ttmp->tseen = 1;
                                       if(!vism_at(zx, zy))
                                               atl(zx,zy,'^');
                                       num++;
                               }
                       } else if(mtmp = m_at(zx,zy)) if(mtmp->mimic){
                               seemimic(mtmp);
                               num++;
                       }
               }
       return(num);
}

dosearch()
{
       register xchar x,y;
       register struct trap *trap;
       register struct monst *mtmp;

       if(u.uswallow)
               pline("What are you looking for? The exit?");
       else
       for(x = u.ux-1; x < u.ux+2; x++)
       for(y = u.uy-1; y < u.uy+2; y++) if(x != u.ux || y != u.uy) {
               if(levl[x][y].typ == SDOOR) {
                       if(rn2(7)) continue;
                       levl[x][y].typ = DOOR;
                       levl[x][y].seen = 0;    /* force prl */
                       prl(x,y);
                       nomul(0);
               } else if(levl[x][y].typ == SCORR) {
                       if(rn2(7)) continue;
                       levl[x][y].typ = CORR;
                       levl[x][y].seen = 0;    /* force prl */
                       prl(x,y);
                       nomul(0);
               } else {
               /* Be careful not to find anything in an SCORR or SDOOR */
                       if(mtmp = m_at(x,y)) if(mtmp->mimic){
                               seemimic(mtmp);
                               pline("You find a mimic.");
                               return(1);
                       }
                       for(trap = ftrap; trap; trap = trap->ntrap)
                       if(trap->tx == x && trap->ty == y &&
                          !trap->tseen && !rn2(8)) {
                               nomul(0);
                               pline("You find a%s.", traps[trap->ttyp]);
                               if(trap->ttyp == PIERC) {
                                       deltrap(trap);
                                       (void) makemon(PM_PIERCER,x,y);
                                       return(1);
                               }
                               trap->tseen = 1;
                               if(!vism_at(x,y)) atl(x,y,'^');
                       }
               }
       }
       return(1);
}

doidtrap() {
register struct trap *trap;
register int x,y;
       if(!getdir(1)) return(0);
       x = u.ux + u.dx;
       y = u.uy + u.dy;
       for(trap = ftrap; trap; trap = trap->ntrap)
               if(trap->tx == x && trap->ty == y && trap->tseen) {
                   if(u.dz)
                       if((u.dz < 0) != (!xdnstair && trap->ttyp == TRAPDOOR))
                           continue;
                   pline("That is a%s.", traps[trap->ttyp]);
                   return(0);
               }
       pline("I can't see a trap there.");
       return(0);
}

wakeup(mtmp)
register struct monst *mtmp;
{
       mtmp->msleep = 0;
       setmangry(mtmp);
       if(mtmp->mimic) seemimic(mtmp);
}

/* NOTE: we must check if(mtmp->mimic) before calling this routine */
seemimic(mtmp)
register struct monst *mtmp;
{
               mtmp->mimic = 0;
               mtmp->mappearance = 0;
               unpmon(mtmp);
               pmon(mtmp);
}