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