Remove various unneeded definitions of abs() in userland.
[dragonfly.git] / games / adventure / done.c
1 /*-
2  * Copyright (c) 1991, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * The game adventure was originally written in Fortran by Will Crowther
6  * and Don Woods.  It was later translated to C and enhanced by Jim
7  * Gillogly.  This code is derived from software contributed to Berkeley
8  * by Jim Gillogly at The Rand Corporation.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  * 2. 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.
18  * 3. Neither the name of the University nor the names of its contributors
19  *    may be used to endorse or promote products derived from this software
20  *    without specific prior written permission.
21  *
22  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32  * SUCH DAMAGE.
33  *
34  * @(#)done.c   8.1 (Berkeley) 5/31/93
35  * $FreeBSD: src/games/adventure/done.c,v 1.7 1999/12/19 00:21:50 billf Exp $
36  * $DragonFly: src/games/adventure/done.c,v 1.4 2007/04/18 18:32:12 swildner Exp $
37  */
38
39 /* Re-coding of advent in C: termination routines */
40
41 #include <stdio.h>
42 #include <stdlib.h>
43 #include "hdr.h"
44
45 /* sort of like 20000 */
46 int
47 score(void)
48 {
49         int scor, i;
50
51         mxscor = scor = 0;
52         for (i = 50; i <= maxtrs; i++) {
53                 if (ptext[i].txtlen == 0)
54                         continue;
55                 k = 12;
56                 if (i == chest)
57                         k = 14;
58                 if (i > chest)
59                         k = 16;
60                 if (prop[i] >= 0)
61                         scor += 2;
62                 if (place[i] == 3 && prop[i] == 0)
63                         scor += k - 2;
64                 mxscor += k;
65         }
66         scor += (maxdie - numdie) * 10;
67         mxscor += maxdie * 10;
68         if (!(scorng || gaveup))
69                 scor += 4;
70         mxscor += 4;
71         if (dflag != 0)
72                 scor += 25;
73         mxscor += 25;
74         if (closng)
75                 scor += 25;
76         mxscor += 25;
77         if (closed) {
78                 if (bonus == 0)
79                         scor += 10;
80                 if (bonus == 135)
81                         scor += 25;
82                 if (bonus == 134)
83                         scor += 30;
84                 if (bonus == 133)
85                         scor += 45;
86         }
87         mxscor += 45;
88         if (place[magzin] == 108)
89                 scor++;
90         mxscor++;
91         scor += 2;
92         mxscor += 2;
93         for (i = 1; i <= hntmax; i++)
94                 if (hinted[i])
95                         scor -= hints[i][2];
96         return (scor);
97 }
98
99 /* entry=1 means goto 13000 */  /* game is over */
100 /* entry=2 means goto 20000 */  /* 3=19000 */
101 void
102 done(int entry)
103 {
104         int i, sc;
105
106         if (entry == 1)
107                 mspeak(1);
108         if (entry == 3)
109                 rspeak(136);
110         printf("\n\n\nYou scored %d out of a ", (sc = score()));
111         printf("possible %d using %d turns.\n", mxscor, turns);
112         for (i = 1; i <= clsses; i++)
113                 if (cval[i] >= sc) {
114                         speak(&ctext[i]);
115                         if (i == clsses - 1) {
116                                 printf("To achieve the next higher rating");
117                                 printf(" would be a neat trick!\n\n");
118                                 printf("Congratulations!!\n");
119                                 exit(0);
120                         }
121                         k = cval[i] + 1 - sc;
122                         printf("To achieve the next higher rating, you need");
123                         printf(" %d more point", k);
124                         if (k == 1)
125                                 printf(".\n");
126                         else
127                                 printf("s.\n");
128                         exit(0);
129                 }
130         printf("You just went off my scale!!!\n");
131         exit(0);
132 }
133
134 /* label 90 */
135 void
136 die(int entry)
137 {
138         int i;
139
140         if (entry != 99) {
141                 rspeak(23);
142                 oldlc2 = loc;
143         }
144         if (closng) {           /* 99 */
145                 rspeak(131);
146                 numdie++;
147                 done(2);
148         }
149         yea = yes(81 + numdie * 2, 82 + numdie * 2, 54);
150         numdie++;
151         if (numdie == maxdie || !yea)
152                 done(2);
153         place[water] = 0;
154         place[oil] = 0;
155         if (toting(lamp))
156                 prop[lamp] = 0;
157         for (i = 100; i >= 1; i--) {
158                 if (!toting(i))
159                         continue;
160                 k = oldlc2;
161                 if (i == lamp)
162                         k = 1;
163                 drop(i, k);
164         }
165         loc = 3;
166         oldloc = loc;
167 }