1 1.9 joerg /* $NetBSD: hack.timeout.c,v 1.9 2011/05/23 22:53:25 joerg 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.9 joerg __RCSID("$NetBSD: hack.timeout.c,v 1.9 2011/05/23 22:53:25 joerg 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.8 dholland static void stoned_dialogue(void); 73 1.8 dholland 74 1.4 christos void 75 1.7 dholland timeout(void) 76 1.4 christos { 77 1.4 christos struct prop *upp; 78 1.4 christos if (Stoned) 79 1.4 christos stoned_dialogue(); 80 1.4 christos for (upp = u.uprops; upp < u.uprops + SIZE(u.uprops); upp++) 81 1.4 christos if ((upp->p_flgs & TIMEOUT) && !--upp->p_flgs) { 82 1.4 christos if (upp->p_tofn) 83 1.4 christos (*upp->p_tofn) (); 84 1.4 christos else 85 1.4 christos switch (upp - u.uprops) { 86 1.4 christos case STONED: 87 1.4 christos killer = "cockatrice"; 88 1.4 christos done("died"); 89 1.4 christos break; 90 1.4 christos case SICK: 91 1.4 christos pline("You die because of food poisoning."); 92 1.4 christos killer = u.usick_cause; 93 1.4 christos done("died"); 94 1.4 christos break; 95 1.4 christos case FAST: 96 1.4 christos pline("You feel yourself slowing down."); 97 1.4 christos break; 98 1.4 christos case CONFUSION: 99 1.4 christos pline("You feel less confused now."); 100 1.4 christos break; 101 1.4 christos case BLIND: 102 1.4 christos pline("You can see again."); 103 1.4 christos setsee(); 104 1.4 christos break; 105 1.4 christos case INVIS: 106 1.4 christos on_scr(u.ux, u.uy); 107 1.4 christos pline("You are no longer invisible."); 108 1.4 christos break; 109 1.4 christos case WOUNDED_LEGS: 110 1.4 christos heal_legs(); 111 1.4 christos break; 112 1.4 christos } 113 1.1 cgd } 114 1.1 cgd } 115 1.1 cgd 116 1.1 cgd /* He is being petrified - dialogue by inmet!tower */ 117 1.8 dholland static const char *const stoned_texts[] = { 118 1.4 christos "You are slowing down.",/* 5 */ 119 1.4 christos "Your limbs are stiffening.", /* 4 */ 120 1.1 cgd "Your limbs have turned to stone.", /* 3 */ 121 1.4 christos "You have turned to stone.", /* 2 */ 122 1.4 christos "You are a statue." /* 1 */ 123 1.1 cgd }; 124 1.1 cgd 125 1.8 dholland static void 126 1.7 dholland stoned_dialogue(void) 127 1.1 cgd { 128 1.4 christos long i = (Stoned & TIMEOUT); 129 1.1 cgd 130 1.4 christos if (i > 0 && i <= SIZE(stoned_texts)) 131 1.9 joerg pline("%s", stoned_texts[SIZE(stoned_texts) - i]); 132 1.4 christos if (i == 5) 133 1.1 cgd Fast = 0; 134 1.4 christos if (i == 3) 135 1.1 cgd nomul(-3); 136 1.1 cgd } 137