/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.search.c - version 1.0.3 */
/* $FreeBSD: src/games/hack/hack.search.c,v 1.3 1999/11/16 02:57:11 billf Exp $ */
/* $DragonFly: src/games/hack/hack.search.c,v 1.3 2006/08/21 19:45:32 pavalos Exp $ */

#include "hack.h"

int
findit(void)	/* returns number of things found */
{
	int num;
	xchar zx, zy;
	struct trap *ttmp;
	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)) != NULL) {
				if (ttmp->ttyp == PIERC) {
					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)) != NULL)
				if (mtmp->mimic) {
					seemimic(mtmp);
					num++;
				}
		}
	return (num);
}

int
dosearch(void)
{
	xchar x, y;
	struct trap *trap;
	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);
									makemon(PM_PIERCER, x, y);
									return (1);
								}
								trap->tseen = 1;
								if (!vism_at(x, y))
									atl(x, y, '^');
							}
					}
				}
	return (1);
}

int
doidtrap(void)
{
	struct trap *trap;
	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);
}

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

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