1 /* $NetBSD: hack.vault.c,v 1.9 2011/08/16 09:26:22 christos Exp $ */
4 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are
12 * - Redistributions of source code must retain the above copyright notice,
13 * this list of conditions and the following disclaimer.
15 * - Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
19 * - Neither the name of the Stichting Centrum voor Wiskunde en
20 * Informatica, nor the names of its contributors may be used to endorse or
21 * promote products derived from this software without specific prior
24 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
25 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
26 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
27 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
28 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
30 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
31 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
32 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
33 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
34 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
38 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
39 * All rights reserved.
41 * Redistribution and use in source and binary forms, with or without
42 * modification, are permitted provided that the following conditions
44 * 1. Redistributions of source code must retain the above copyright
45 * notice, this list of conditions and the following disclaimer.
46 * 2. Redistributions in binary form must reproduce the above copyright
47 * notice, this list of conditions and the following disclaimer in the
48 * documentation and/or other materials provided with the distribution.
49 * 3. The name of the author may not be used to endorse or promote products
50 * derived from this software without specific prior written permission.
52 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
53 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
54 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
55 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
56 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
57 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
58 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
59 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
60 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
61 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
84 replgd(struct monst *mtmp __unused, struct monst *mtmp2 __unused)
96 #include "def.mkroom.h"
97 #define FCSIZ (ROWNO+COLNO)
103 int fcbeg, fcend; /* fcend: first unused pos */
104 xchar gdx, gdy; /* goal of guard's walk */
106 struct fakecorridor fakecorr[FCSIZ];
109 static const struct permonst pm_guard =
110 {"guard", '@', 12, 12, -1, 4, 10, sizeof(struct egd)};
112 static struct monst *guard;
115 static void restfakecorr(void);
116 static int goldincorridor(void);
123 struct egd *egd = monster_private(guard);
125 while ((fcbeg = egd->fcbeg) < egd->fcend) {
126 fcx = egd->fakecorr[fcbeg].fx;
127 fcy = egd->fakecorr[fcbeg].fy;
128 if ((u.ux == fcx && u.uy == fcy) || cansee(fcx, fcy) ||
131 crm = &levl[fcx][fcy];
132 crm->typ = egd->fakecorr[fcbeg].ftyp;
138 /* it seems he left the corridor - let the guard disappear */
147 struct egd *egd = monster_private(guard);
149 for (fci = egd->fcbeg; fci < egd->fcend; fci++)
150 if (g_at(egd->fakecorr[fci].fx, egd->fakecorr[fci].fy))
159 for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
171 int tmp = inroom(u.ux, u.uy);
173 if (tmp < 0 || rooms[tmp].rtype != VAULT) {
177 if (++u.uinvault % 50 == 0 && (!guard || gdlevel != dlevel)) {
179 int x, y, dd, gx, gy;
181 /* first find the goal for the guard */
182 for (dd = 1; (dd < ROWNO || dd < COLNO); dd++) {
183 for (y = u.uy - dd; y <= u.uy + dd; y++) {
184 if (y < 0 || y > ROWNO - 1)
186 for (x = u.ux - dd; x <= u.ux + dd; x++) {
187 if (y != u.uy - dd && y != u.uy + dd && x != u.ux - dd)
189 if (x < 0 || x > COLNO - 1)
191 if (levl[x][y].typ == CORR)
196 impossible("Not a single corridor on this level??");
203 /* next find a good place for a door in the wall */
206 while (levl[x][y].typ == ROOM) {
209 dx = (gx > x) ? 1 : (gx < x) ? -1 : 0;
210 dy = (gy > y) ? 1 : (gy < y) ? -1 : 0;
211 if (abs(gx - x) >= abs(gy - y))
217 /* make something interesting happen */
218 if (!(guard = makemon(&pm_guard, x, y)))
220 guard->isgd = guard->mpeaceful = 1;
221 egd = monster_private(guard);
224 if (!cansee(guard->mx, guard->my)) {
229 pline("Suddenly one of the Vault's guards enters!");
232 pline("\"Hello stranger, who are you?\" - ");
234 } while (!letter(buf[0]));
236 if (!strcmp(buf, "Croesus") || !strcmp(buf, "Kroisos")) {
237 pline("\"Oh, yes - of course. Sorry to have disturbed you.\"");
243 pline("\"I don't know you.\"");
245 pline("\"Please follow me.\"");
247 pline("\"Most likely all that gold was stolen from this vault.\"");
248 pline("\"Please drop your gold (say d$ ) and follow me.\"");
253 egd->fakecorr[0].fx = x;
254 egd->fakecorr[0].fy = y;
255 egd->fakecorr[0].ftyp = levl[x][y].typ;
256 levl[x][y].typ = DOOR;
264 int x, y, dx, dy, gx, gy, nx, ny, typ;
265 struct fakecorridor *fcp;
267 struct egd *egd = monster_private(guard);
268 if (!guard || gdlevel != dlevel) {
269 impossible("Where is the guard?");
270 return (2); /* died */
272 if (u.ugold || goldincorridor())
273 return (0); /* didnt move */
274 if (dist(guard->mx, guard->my) > 1 || egd->gddone) {
276 return (0); /* didnt move */
280 /* look around (hor & vert only) for accessible places */
281 for (nx = x - 1; nx <= x + 1; nx++)
282 for (ny = y - 1; ny <= y + 1; ny++) {
283 if (nx == x || ny == y)
284 if (nx != x || ny != y)
286 if (!IS_WALL(typ = (crm = &levl[nx][ny])->typ) && typ != POOL) {
288 for (i = egd->fcbeg; i < egd->fcend; i++)
289 if (egd->fakecorr[i].fx == nx &&
290 egd->fakecorr[i].fy == ny)
292 if ((i = inroom(nx, ny)) >= 0 && rooms[i].rtype == VAULT)
302 crm->typ = (typ == SCORR) ? CORR : DOOR;
311 dx = (gx > x) ? 1 : (gx < x) ? -1 : 0;
312 dy = (gy > y) ? 1 : (gy < y) ? -1 : 0;
313 if (abs(gx - x) >= abs(gy - y))
318 while ((typ = (crm = &levl[nx][ny])->typ) != 0) {
320 * in view of the above we must have IS_WALL(typ) or typ ==
323 /* must be a wall here */
324 if (isok(nx + nx - x, ny + ny - y) && typ != POOL &&
325 ZAP_POS(levl[nx + nx - x][ny + ny - y].typ)) {
340 /* I don't like this, but ... */
346 if (cansee(nx, ny)) {
350 fcp = &(egd->fakecorr[egd->fcend]);
351 if (egd->fcend++ == FCSIZ)
352 panic("fakecorr overflow");
373 replgd(struct monst *mtmp, struct monst *mtmp2)