Home | History | Annotate | Line # | Download | only in adventure
done.c revision 1.9 
      1 /*	$NetBSD: done.c,v 1.9 2005/07/01 00:03:36 jmc 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.9 2005/07/01 00:03:36 jmc 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     scor, i;
     57 	mxscor = scor = 0;
     58 	for (i = 50; i <= maxtrs; i++) {
     59 		if (ptext[i].txtlen == 0)
     60 			continue;
     61 		k = 12;
     62 		if (i == chest)
     63 			k = 14;
     64 		if (i > chest)
     65 			k = 16;
     66 		if (prop[i] >= 0)
     67 			scor += 2;
     68 		if (place[i] == 3 && prop[i] == 0)
     69 			scor += k - 2;
     70 		mxscor += k;
     71 	}
     72 	scor += (maxdie - numdie) * 10;
     73 	mxscor += maxdie * 10;
     74 	if (!(scorng || gaveup))
     75 		scor += 4;
     76 	mxscor += 4;
     77 	if (dflag != 0)
     78 		scor += 25;
     79 	mxscor += 25;
     80 	if (closng)
     81 		scor += 25;
     82 	mxscor += 25;
     83 	if (closed) {
     84 		if (bonus == 0)
     85 			scor += 10;
     86 		if (bonus == 135)
     87 			scor += 25;
     88 		if (bonus == 134)
     89 			scor += 30;
     90 		if (bonus == 133)
     91 			scor += 45;
     92 	}
     93 	mxscor += 45;
     94 	if (place[magzin] == 108)
     95 		scor++;
     96 	mxscor++;
     97 	scor += 2;
     98 	mxscor += 2;
     99 	for (i = 1; i <= hntmax; i++)
    100 		if (hinted[i])
    101 			scor -= hints[i][2];
    102 	return (scor);
    103 }
    104 
    105 /* entry=1 means goto 13000 */	/* game is over */
    106 /* entry=2 means goto 20000 */	/* 3=19000 */
    107 void
    108 done(int entry)
    109 {
    110 	int     i, sc;
    111 	if (entry == 1)
    112 		mspeak(1);
    113 	if (entry == 3)
    114 		rspeak(136);
    115 	printf("\n\n\nYou scored %d out of a ", (sc = score()));
    116 	printf("possible %d using %d turns.\n", mxscor, turns);
    117 	for (i = 1; i <= clsses; i++)
    118 		if (cval[i] >= sc) {
    119 			speak(&ctext[i]);
    120 			if (i == clsses - 1) {
    121 				printf("To achieve the next higher rating");
    122 				printf(" would be a neat trick!\n\n");
    123 				printf("Congratulations!!\n");
    124 				exit(0);
    125 			}
    126 			k = cval[i] + 1 - sc;
    127 			printf("To achieve the next higher rating, you need");
    128 			printf(" %d more point", k);
    129 			if (k == 1)
    130 				printf(".\n");
    131 			else
    132 				printf("s.\n");
    133 			exit(0);
    134 		}
    135 	printf("You just went off my scale!!!\n");
    136 	exit(0);
    137 }
    138 
    139 /* label 90 */
    140 void
    141 die(int entry)
    142 {
    143 	int     i;
    144 	if (entry != 99) {
    145 		rspeak(23);
    146 		oldlc2 = loc;
    147 	}
    148 	if (closng) {		/* 99 */
    149 		rspeak(131);
    150 		numdie++;
    151 		done(2);
    152 	}
    153 	yea = yes(81 + numdie * 2, 82 + numdie * 2, 54);
    154 	numdie++;
    155 	if (numdie == maxdie || !yea)
    156 		done(2);
    157 	place[water] = 0;
    158 	place[oil] = 0;
    159 	if (toting(lamp))
    160 		prop[lamp] = 0;
    161 	for (i = 100; i >= 1; i--) {
    162 		if (!toting(i))
    163 			continue;
    164 		k = oldlc2;
    165 		if (i == lamp)
    166 			k = 1;
    167 		drop(i, k);
    168 	}
    169 	loc = 3;
    170 	oldloc = loc;
    171 }
    172