1 /* $NetBSD: hack.engrave.c,v 1.14 2011/08/07 06:03:45 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.
69 struct engr
*nxt_engr
;
72 unsigned engr_lth
; /* for save & restore; not length of
74 long engr_time
; /* moment engraving was (will be)
82 static struct engr
*head_engr
;
84 static void del_engr(struct engr
*);
87 engr_at(xchar x
, xchar y
)
89 struct engr
*ep
= head_engr
;
91 if (x
== ep
->engr_x
&& y
== ep
->engr_y
)
95 return ((struct engr
*) 0);
99 sengr_at(const char *s
, xchar x
, xchar y
)
101 struct engr
*ep
= engr_at(x
, y
);
105 if (ep
&& ep
->engr_time
<= moves
) {
108 if(!strcmp(s,t)) return(1);
112 if (!strncmp(s
, t
, n
))
123 if (!u
.uswallow
&& !Levitation
)
124 wipe_engr_at(u
.ux
, u
.uy
, cnt
);
128 wipe_engr_at(xchar x
, xchar y
, xchar cnt
)
130 struct engr
*ep
= engr_at(x
, y
);
136 if ((ep
->engr_type
!= DUST
) || Levitation
) {
137 cnt
= rn2(1 + 50 / (cnt
+ 1)) ? 0 : 1;
139 lth
= strlen(ep
->engr_txt
);
140 if (lth
&& cnt
> 0) {
143 if ((ch
= ep
->engr_txt
[pos
]) == ' ')
145 ep
->engr_txt
[pos
] = (ch
!= '?') ? '?' : ' ';
148 while (lth
&& ep
->engr_txt
[lth
- 1] == ' ')
149 ep
->engr_txt
[--lth
] = 0;
150 while (ep
->engr_txt
[0] == ' ')
152 if (!ep
->engr_txt
[0])
158 read_engr_at(int x
, int y
)
160 struct engr
*ep
= engr_at(x
, y
);
161 if (ep
&& ep
->engr_txt
[0]) {
162 switch (ep
->engr_type
) {
164 pline("Something is written here in the dust.");
167 pline("Something is engraved here on the floor.");
170 pline("Some text has been burned here in the floor.");
173 impossible("Something is written in a very strange way.");
175 pline("You read: \"%s\".", ep
->engr_txt
);
180 make_engr_at(int x
, int y
, const char *s
)
184 if ((ep
= engr_at(x
, y
)) != NULL
)
186 ep
= alloc(sizeof(*ep
) + strlen(s
) + 1);
188 ep
->nxt_engr
= head_engr
;
192 ep
->engr_txt
= (char *) (ep
+ 1);
193 (void) strcpy(ep
->engr_txt
, s
);
195 ep
->engr_type
= DUST
;
196 ep
->engr_lth
= strlen(s
) + 1;
204 struct engr
*ep
, *oep
= engr_at(u
.ux
, u
.uy
);
207 int spct
; /* number of leading spaces */
212 pline("You're joking. Hahaha!"); /* riv05!a3 */
215 /* one may write with finger, weapon or wand */
216 otmp
= getobj("#-)/", "write with");
220 if (otmp
== &zeroobj
)
222 if (otmp
&& otmp
->otyp
== WAN_FIRE
&& otmp
->spe
) {
226 /* first wield otmp */
228 if (uwep
&& uwep
->cursed
) {
229 /* Andreas Bormann */
230 pline("Since your weapon is welded to your hand,");
231 pline("you use the %s.", aobjnam(uwep
, NULL
));
235 pline("You are now empty-handed.");
236 else if (otmp
->cursed
)
237 pline("The %s %s to your hand!",
238 aobjnam(otmp
, "weld"),
239 (otmp
->quan
== 1) ? "itself" : "themselves");
241 pline("You now wield %s.", doname(otmp
));
247 else if (otmp
->otyp
== DAGGER
|| otmp
->otyp
== TWO_HANDED_SWORD
||
248 otmp
->otyp
== CRYSKNIFE
||
249 otmp
->otyp
== LONG_SWORD
|| otmp
->otyp
== AXE
) {
251 if ((int) otmp
->spe
<= -3) {
253 pline("Your %s too dull for engraving.",
254 aobjnam(otmp
, "are"));
255 if (oep
&& oep
->engr_type
!= DUST
)
261 if (Levitation
&& type
!= BURN
) { /* riv05!a3 */
262 pline("You can't reach the floor!");
265 if (oep
&& oep
->engr_type
== DUST
) {
266 pline("You wipe out the message that was written here.");
270 if (type
== DUST
&& oep
) {
271 pline("You cannot wipe out the message that is %s in the rock.",
272 (oep
->engr_type
== BURN
) ? "burned" : "engraved");
275 pline("What do you want to %s on the floor here? ",
276 (type
== ENGRAVE
) ? "engrave" : (type
== BURN
) ? "burn" : "write");
284 if (!len
|| *buf
== '\033') {
294 nomovemsg
= "You finished writing.";
297 case ENGRAVE
: /* here otmp != 0 */
299 int len2
= (otmp
->spe
+ 3) * 2 + 1;
301 pline("Your %s dull.", aobjnam(otmp
, "get"));
306 nomovemsg
= "You cannot engrave more.";
308 otmp
->spe
-= len
/ 2;
309 nomovemsg
= "You finished engraving.";
316 len
+= strlen(oep
->engr_txt
) + spct
;
317 ep
= alloc(sizeof(*ep
) + len
+ 1);
318 ep
->nxt_engr
= head_engr
;
322 sp
= (char *) (ep
+ 1); /* (char *)ep + sizeof(struct engr) */
325 (void) strcpy(sp
, oep
->engr_txt
);
326 (void) strcat(sp
, buf
);
329 (void) strcpy(sp
, buf
);
330 ep
->engr_lth
= len
+ 1;
331 ep
->engr_type
= type
;
332 ep
->engr_time
= moves
- multi
;
334 /* kludge to protect pline against excessively long texts */
335 if (len
> BUFSZ
- 20)
342 save_engravings(int fd
)
344 struct engr
*ep
= head_engr
;
346 if (!ep
->engr_lth
|| !ep
->engr_txt
[0]) {
350 bwrite(fd
, &(ep
->engr_lth
), sizeof(ep
->engr_lth
));
351 bwrite(fd
, ep
, sizeof(struct engr
) + ep
->engr_lth
);
354 bwrite(fd
, nul
, sizeof(unsigned));
359 rest_engravings(int fd
)
365 mread(fd
, <h
, sizeof(unsigned));
368 ep
= alloc(sizeof(*ep
) + lth
);
369 mread(fd
, ep
, sizeof(*ep
) + lth
);
370 ep
->nxt_engr
= head_engr
;
371 ep
->engr_txt
= (char *) (ep
+ 1); /* Andreas Bormann */
377 del_engr(struct engr
*ep
)
381 head_engr
= ep
->nxt_engr
;
383 for (ept
= head_engr
; ept
; ept
= ept
->nxt_engr
) {
384 if (ept
->nxt_engr
== ep
) {
385 ept
->nxt_engr
= ep
->nxt_engr
;
389 impossible("Error in del_engr?");