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