1 /* $NetBSD: hack.worm.c,v 1.9 2011/08/06 20:29:37 dholland 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.
70 struct wseg
*wsegs
[32]; /* linked list, tail first */
71 struct wseg
*wheads
[32];
74 static void remseg(struct wseg
*);
77 getwn(struct monst
*mtmp
)
80 for (tmp
= 1; tmp
< 32; tmp
++)
85 return (0); /* level infested with worms */
88 /* called to initialize a worm unless cut in half */
90 initworm(struct monst
*mtmp
)
93 int tmp
= mtmp
->wormno
;
96 wheads
[tmp
] = wsegs
[tmp
] = wtmp
= newseg();
100 /* wtmp->wdispl = 0; */
105 worm_move(struct monst
*mtmp
)
107 struct wseg
*wtmp
, *whd
= NULL
;
108 int tmp
= mtmp
->wormno
;
113 /* wtmp->wdispl = 0; */
114 (whd
= wheads
[tmp
])->nseg
= wtmp
;
116 if (cansee(whd
->wx
, whd
->wy
)) {
118 atl(whd
->wx
, whd
->wy
, '~');
122 if (wgrowtime
[tmp
] <= moves
) {
124 wgrowtime
[tmp
] = moves
+ rnd(5);
126 wgrowtime
[tmp
] += 2 + rnd(15);
132 wsegs
[tmp
] = whd
->nseg
;
137 worm_nomove(struct monst
*mtmp
)
143 if (wtmp
== wheads
[tmp
])
145 if (wtmp
== 0 || wtmp
->nseg
== 0)
146 panic("worm_nomove?");
147 wsegs
[tmp
] = wtmp
->nseg
;
149 mtmp
->mhp
-= 3; /* mhpmax not changed ! */
153 wormdead(struct monst
*mtmp
)
155 int tmp
= mtmp
->wormno
;
156 struct wseg
*wtmp
, *wtmp2
;
160 for (wtmp
= wsegs
[tmp
]; wtmp
; wtmp
= wtmp2
) {
168 wormhit(struct monst
*mtmp
)
170 int tmp
= mtmp
->wormno
;
173 return; /* worm without tail */
174 for (wtmp
= wsegs
[tmp
]; wtmp
; wtmp
= wtmp
->nseg
)
175 (void) hitu(mtmp
, 1);
179 wormsee(unsigned tmp
)
181 struct wseg
*wtmp
= wsegs
[tmp
];
183 panic("wormsee: wtmp==0");
184 for (; wtmp
->nseg
; wtmp
= wtmp
->nseg
)
185 if (!cansee(wtmp
->wx
, wtmp
->wy
) && wtmp
->wdispl
) {
186 newsym(wtmp
->wx
, wtmp
->wy
);
192 pwseg(struct wseg
*wtmp
)
195 atl(wtmp
->wx
, wtmp
->wy
, '~');
200 /* weptyp is uwep->otyp or 0 */
202 cutworm(struct monst
*mtmp
, xchar x
, xchar y
, uchar weptyp
)
204 struct wseg
*wtmp
, *wtmp2
;
207 if (mtmp
->mx
== x
&& mtmp
->my
== y
)
208 return; /* hit headon */
210 /* cutting goes best with axe or sword */
212 if (weptyp
== LONG_SWORD
|| weptyp
== TWO_HANDED_SWORD
||
218 /* if tail then worm just loses a tail segment */
221 if (wtmp
->wx
== x
&& wtmp
->wy
== y
) {
222 wsegs
[tmp
] = wtmp
->nseg
;
226 /* cut the worm in two halves */
229 mtmp2
->mxlth
= mtmp2
->mnamelth
= 0;
231 /* sometimes the tail end dies */
232 if (rn2(3) || !getwn(mtmp2
)) {
236 tmp2
= mtmp2
->wormno
;
237 wsegs
[tmp2
] = wsegs
[tmp
];
241 if (wtmp
->nseg
->wx
== x
&& wtmp
->nseg
->wy
== y
) {
244 wsegs
[tmp
] = wtmp
->nseg
->nseg
;
248 pline("You cut the worm in half.");
249 mtmp2
->mhpmax
= mtmp2
->mhp
=
250 d(mtmp2
->data
->mlevel
, 8);
251 mtmp2
->mx
= wtmp
->wx
;
252 mtmp2
->my
= wtmp
->wy
;
257 pline("You cut off part of the worm's tail.");
268 } while (wtmp
->nseg
);
269 panic("Cannot find worm segment");
273 remseg(struct wseg
*wtmp
)
276 newsym(wtmp
->wx
, wtmp
->wy
);