|
|
1.1 root 1: /*
2: * Copyright (c) 1983 Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted
6: * provided that: (1) source distributions retain this entire copyright
7: * notice and comment, and (2) distributions including binaries display
8: * the following acknowledgement: ``This product includes software
9: * developed by the University of California, Berkeley and its contributors''
10: * in the documentation or other materials provided with the distribution
11: * and in all advertising materials mentioning features or use of this
12: * software. Neither the name of the University nor the names of its
13: * contributors may be used to endorse or promote products derived
14: * from this software without specific prior written permission.
15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
16: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
17: * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18: */
19:
20: #ifndef lint
21: char copyright[] =
22: "@(#) Copyright (c) 1983 Regents of the University of California.\n\
23: All rights reserved.\n";
24: #endif /* not lint */
25:
26: #ifndef lint
27: static char sccsid[] = "@(#)battlestar.c 5.3 (Berkeley) 6/1/90";
28: #endif /* not lint */
29:
30: /*
31: * Battlestar - a stellar-tropical adventure game
32: *
33: * Originally written by His Lordship, Admiral David W. Horatio Riggle,
34: * on the Cory PDP-11/70, University of California, Berkeley.
35: */
36:
37: #include "externs.h"
38:
39: main(argc,argv)
40: int argc;
41: char **argv;
42: {
43: char mainbuf[LINELENGTH];
44: char *next;
45:
46: initialize(argc < 2 || strcmp(argv[1], "-r"));
47: start:
48: news();
49: beenthere[position]++;
50: if (notes[LAUNCHED])
51: crash(); /* decrements fuel & crash */
52: if (matchlight) {
53: puts("Your match splutters out.");
54: matchlight = 0;
55: }
56: if (!notes[CANTSEE] || testbit(inven,LAMPON) ||
57: testbit(location[position].objects, LAMPON)) {
58: writedes();
59: printobjs();
60: } else
61: puts("It's too dark to see anything in here!");
62: whichway(location[position]);
63: run:
64: next = getcom(mainbuf, sizeof mainbuf, ">-: ",
65: "Please type in something.");
66: for (wordcount = 0; next && wordcount < 20; wordcount++)
67: next = getword(next, words[wordcount], -1);
68: parse();
69: switch (cypher()) {
70: case -1:
71: goto run;
72: case 0:
73: goto start;
74: default:
75: exit();
76: }
77: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.