hack.timeout.c revision 1.6 1 1.6 jsm /* $NetBSD: hack.timeout.c,v 1.6 2003/04/02 18:36:41 jsm Exp $ */
2 1.4 christos
3 1.2 mycroft /*
4 1.6 jsm * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
5 1.6 jsm * Amsterdam
6 1.6 jsm * All rights reserved.
7 1.6 jsm *
8 1.6 jsm * Redistribution and use in source and binary forms, with or without
9 1.6 jsm * modification, are permitted provided that the following conditions are
10 1.6 jsm * met:
11 1.6 jsm *
12 1.6 jsm * - Redistributions of source code must retain the above copyright notice,
13 1.6 jsm * this list of conditions and the following disclaimer.
14 1.6 jsm *
15 1.6 jsm * - Redistributions in binary form must reproduce the above copyright
16 1.6 jsm * notice, this list of conditions and the following disclaimer in the
17 1.6 jsm * documentation and/or other materials provided with the distribution.
18 1.6 jsm *
19 1.6 jsm * - Neither the name of the Stichting Centrum voor Wiskunde en
20 1.6 jsm * Informatica, nor the names of its contributors may be used to endorse or
21 1.6 jsm * promote products derived from this software without specific prior
22 1.6 jsm * written permission.
23 1.6 jsm *
24 1.6 jsm * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
25 1.6 jsm * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
26 1.6 jsm * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
27 1.6 jsm * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
28 1.6 jsm * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29 1.6 jsm * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
30 1.6 jsm * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
31 1.6 jsm * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
32 1.6 jsm * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
33 1.6 jsm * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
34 1.6 jsm * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35 1.6 jsm */
36 1.6 jsm
37 1.6 jsm /*
38 1.6 jsm * Copyright (c) 1982 Jay Fenlason <hack (at) gnu.org>
39 1.6 jsm * All rights reserved.
40 1.6 jsm *
41 1.6 jsm * Redistribution and use in source and binary forms, with or without
42 1.6 jsm * modification, are permitted provided that the following conditions
43 1.6 jsm * are met:
44 1.6 jsm * 1. Redistributions of source code must retain the above copyright
45 1.6 jsm * notice, this list of conditions and the following disclaimer.
46 1.6 jsm * 2. Redistributions in binary form must reproduce the above copyright
47 1.6 jsm * notice, this list of conditions and the following disclaimer in the
48 1.6 jsm * documentation and/or other materials provided with the distribution.
49 1.6 jsm * 3. The name of the author may not be used to endorse or promote products
50 1.6 jsm * derived from this software without specific prior written permission.
51 1.6 jsm *
52 1.6 jsm * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
53 1.6 jsm * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
54 1.6 jsm * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
55 1.6 jsm * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
56 1.6 jsm * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
57 1.6 jsm * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
58 1.6 jsm * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
59 1.6 jsm * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
60 1.6 jsm * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
61 1.6 jsm * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
62 1.2 mycroft */
63 1.2 mycroft
64 1.4 christos #include <sys/cdefs.h>
65 1.2 mycroft #ifndef lint
66 1.6 jsm __RCSID("$NetBSD: hack.timeout.c,v 1.6 2003/04/02 18:36:41 jsm Exp $");
67 1.4 christos #endif /* not lint */
68 1.1 cgd
69 1.4 christos #include "hack.h"
70 1.4 christos #include "extern.h"
71 1.1 cgd
72 1.4 christos void
73 1.4 christos timeout()
74 1.4 christos {
75 1.4 christos struct prop *upp;
76 1.4 christos if (Stoned)
77 1.4 christos stoned_dialogue();
78 1.4 christos for (upp = u.uprops; upp < u.uprops + SIZE(u.uprops); upp++)
79 1.4 christos if ((upp->p_flgs & TIMEOUT) && !--upp->p_flgs) {
80 1.4 christos if (upp->p_tofn)
81 1.4 christos (*upp->p_tofn) ();
82 1.4 christos else
83 1.4 christos switch (upp - u.uprops) {
84 1.4 christos case STONED:
85 1.4 christos killer = "cockatrice";
86 1.4 christos done("died");
87 1.4 christos break;
88 1.4 christos case SICK:
89 1.4 christos pline("You die because of food poisoning.");
90 1.4 christos killer = u.usick_cause;
91 1.4 christos done("died");
92 1.4 christos break;
93 1.4 christos case FAST:
94 1.4 christos pline("You feel yourself slowing down.");
95 1.4 christos break;
96 1.4 christos case CONFUSION:
97 1.4 christos pline("You feel less confused now.");
98 1.4 christos break;
99 1.4 christos case BLIND:
100 1.4 christos pline("You can see again.");
101 1.4 christos setsee();
102 1.4 christos break;
103 1.4 christos case INVIS:
104 1.4 christos on_scr(u.ux, u.uy);
105 1.4 christos pline("You are no longer invisible.");
106 1.4 christos break;
107 1.4 christos case WOUNDED_LEGS:
108 1.4 christos heal_legs();
109 1.4 christos break;
110 1.4 christos }
111 1.1 cgd }
112 1.1 cgd }
113 1.1 cgd
114 1.1 cgd /* He is being petrified - dialogue by inmet!tower */
115 1.5 jsm const char *const stoned_texts[] = {
116 1.4 christos "You are slowing down.",/* 5 */
117 1.4 christos "Your limbs are stiffening.", /* 4 */
118 1.1 cgd "Your limbs have turned to stone.", /* 3 */
119 1.4 christos "You have turned to stone.", /* 2 */
120 1.4 christos "You are a statue." /* 1 */
121 1.1 cgd };
122 1.1 cgd
123 1.4 christos void
124 1.1 cgd stoned_dialogue()
125 1.1 cgd {
126 1.4 christos long i = (Stoned & TIMEOUT);
127 1.1 cgd
128 1.4 christos if (i > 0 && i <= SIZE(stoned_texts))
129 1.1 cgd pline(stoned_texts[SIZE(stoned_texts) - i]);
130 1.4 christos if (i == 5)
131 1.1 cgd Fast = 0;
132 1.4 christos if (i == 3)
133 1.1 cgd nomul(-3);
134 1.1 cgd }
135