Home | History | Annotate | Line # | Download | only in adventure
wizard.c revision 1.1.1.1
      1  1.1  jtc /*-
      2  1.1  jtc  * Copyright (c) 1991, 1993
      3  1.1  jtc  *	The Regents of the University of California.  All rights reserved.
      4  1.1  jtc  *
      5  1.1  jtc  * The game adventure was originally written in Fortran by Will Crowther
      6  1.1  jtc  * and Don Woods.  It was later translated to C and enhanced by Jim
      7  1.1  jtc  * Gillogly.  This code is derived from software contributed to Berkeley
      8  1.1  jtc  * by Jim Gillogly at The Rand Corporation.
      9  1.1  jtc  *
     10  1.1  jtc  * Redistribution and use in source and binary forms, with or without
     11  1.1  jtc  * modification, are permitted provided that the following conditions
     12  1.1  jtc  * are met:
     13  1.1  jtc  * 1. Redistributions of source code must retain the above copyright
     14  1.1  jtc  *    notice, this list of conditions and the following disclaimer.
     15  1.1  jtc  * 2. Redistributions in binary form must reproduce the above copyright
     16  1.1  jtc  *    notice, this list of conditions and the following disclaimer in the
     17  1.1  jtc  *    documentation and/or other materials provided with the distribution.
     18  1.1  jtc  * 3. All advertising materials mentioning features or use of this software
     19  1.1  jtc  *    must display the following acknowledgement:
     20  1.1  jtc  *	This product includes software developed by the University of
     21  1.1  jtc  *	California, Berkeley and its contributors.
     22  1.1  jtc  * 4. Neither the name of the University nor the names of its contributors
     23  1.1  jtc  *    may be used to endorse or promote products derived from this software
     24  1.1  jtc  *    without specific prior written permission.
     25  1.1  jtc  *
     26  1.1  jtc  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     27  1.1  jtc  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     28  1.1  jtc  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     29  1.1  jtc  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     30  1.1  jtc  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     31  1.1  jtc  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     32  1.1  jtc  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     33  1.1  jtc  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     34  1.1  jtc  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     35  1.1  jtc  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     36  1.1  jtc  * SUCH DAMAGE.
     37  1.1  jtc  */
     38  1.1  jtc 
     39  1.1  jtc #ifndef lint
     40  1.1  jtc static char sccsid[] = "@(#)wizard.c	8.1 (Berkeley) 6/2/93";
     41  1.1  jtc #endif /* not lint */
     42  1.1  jtc 
     43  1.1  jtc /*      Re-coding of advent in C: privileged operations                 */
     44  1.1  jtc 
     45  1.1  jtc # include "hdr.h"
     46  1.1  jtc 
     47  1.1  jtc datime(d,t)
     48  1.1  jtc int *d,*t;
     49  1.1  jtc {       int tvec[2],*tptr;
     50  1.1  jtc 	int *localtime();
     51  1.1  jtc 
     52  1.1  jtc 	time(tvec);
     53  1.1  jtc 	tptr=localtime(tvec);
     54  1.1  jtc 	*d=tptr[7]+365*(tptr[5]-77);    /* day since 1977  (mod leap)   */
     55  1.1  jtc 	/* bug: this will overflow in the year 2066 AD                  */
     56  1.1  jtc 	/* it will be attributed to Wm the C's millenial celebration    */
     57  1.1  jtc 	*t=tptr[2]*60+tptr[1];          /* and minutes since midnite    */
     58  1.1  jtc }                                       /* pretty painless              */
     59  1.1  jtc 
     60  1.1  jtc 
     61  1.1  jtc char magic[6];
     62  1.1  jtc 
     63  1.1  jtc poof()
     64  1.1  jtc {
     65  1.1  jtc 	strcpy(magic, DECR(d,w,a,r,f));
     66  1.1  jtc 	latncy = 45;
     67  1.1  jtc }
     68  1.1  jtc 
     69  1.1  jtc Start(n)
     70  1.1  jtc {       int d,t,delay;
     71  1.1  jtc 
     72  1.1  jtc 	datime(&d,&t);
     73  1.1  jtc 	delay=(d-saved)*1440+(t-savet); /* good for about a month     */
     74  1.1  jtc 
     75  1.1  jtc 	if (delay >= latncy)
     76  1.1  jtc 	{       saved = -1;
     77  1.1  jtc 		return(FALSE);
     78  1.1  jtc 	}
     79  1.1  jtc 	printf("This adventure was suspended a mere %d minute%s ago.",
     80  1.1  jtc 		delay, delay == 1? "" : "s");
     81  1.1  jtc 	if (delay <= latncy/3)
     82  1.1  jtc 	{       mspeak(2);
     83  1.1  jtc 		exit(0);
     84  1.1  jtc 	}
     85  1.1  jtc 	mspeak(8);
     86  1.1  jtc 	if (!wizard())
     87  1.1  jtc 	{       mspeak(9);
     88  1.1  jtc 		exit(0);
     89  1.1  jtc 	}
     90  1.1  jtc 	saved = -1;
     91  1.1  jtc 	return(FALSE);
     92  1.1  jtc }
     93  1.1  jtc 
     94  1.1  jtc wizard()                /* not as complex as advent/10 (for now)        */
     95  1.1  jtc {       register int wiz;
     96  1.1  jtc 	char *word,*x;
     97  1.1  jtc 	if (!yesm(16,0,7)) return(FALSE);
     98  1.1  jtc 	mspeak(17);
     99  1.1  jtc 	getin(&word,&x);
    100  1.1  jtc 	if (!weq(word,magic))
    101  1.1  jtc 	{       mspeak(20);
    102  1.1  jtc 		return(FALSE);
    103  1.1  jtc 	}
    104  1.1  jtc 	mspeak(19);
    105  1.1  jtc 	return(TRUE);
    106  1.1  jtc }
    107  1.1  jtc 
    108  1.1  jtc ciao(cmdfile)
    109  1.1  jtc char *cmdfile;
    110  1.1  jtc {       register char *c;
    111  1.1  jtc 	register int outfd, size;
    112  1.1  jtc 	char fname[80], buf[512];
    113  1.1  jtc 	extern unsigned filesize;
    114  1.1  jtc 
    115  1.1  jtc 	printf("What would you like to call the saved version?\n");
    116  1.1  jtc 	for (c=fname;; c++)
    117  1.1  jtc 		if ((*c=getchar())=='\n') break;
    118  1.1  jtc 	*c=0;
    119  1.1  jtc 	if (save(fname) != 0) return;           /* Save failed */
    120  1.1  jtc 	printf("To resume, say \"adventure %s\".\n", fname);
    121  1.1  jtc 	printf("\"With these rooms I might now have been familiarly acquainted.\"\n");
    122  1.1  jtc 	exit(0);
    123  1.1  jtc }
    124  1.1  jtc 
    125  1.1  jtc 
    126  1.1  jtc ran(range)
    127  1.1  jtc int range;
    128  1.1  jtc {
    129  1.1  jtc 	long rand(), i;
    130  1.1  jtc 
    131  1.1  jtc 	i = rand() % range;
    132  1.1  jtc 	return(i);
    133  1.1  jtc }
    134