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
)