|
|
1.1 ! root 1: /* ! 2: * Copyright (c) 1983 Regents of the University of California, ! 3: * All rights reserved. Redistribution permitted subject to ! 4: * the terms of the Berkeley Software License Agreement. ! 5: */ ! 6: ! 7: #ifndef lint ! 8: static char sccsid[] = "@(#)battlestar.c 1.3 4/24/85"; ! 9: #endif ! 10: ! 11: /* ! 12: * Battlestar - a stellar-tropical adventure game ! 13: * ! 14: * Originally written by His Lordship, Admiral David W. Horatio Riggle, ! 15: * on the Cory PDP-11/70, University of California, Berkeley. ! 16: */ ! 17: ! 18: #include "externs.h" ! 19: ! 20: main(argc,argv) ! 21: int argc; ! 22: char **argv; ! 23: { ! 24: char mainbuf[LINELENGTH]; ! 25: char *next; ! 26: ! 27: initialize(argc < 2 || strcmp(argv[1], "-r")); ! 28: start: ! 29: news(); ! 30: beenthere[position]++; ! 31: if (notes[LAUNCHED]) ! 32: crash(); /* decrements fuel & crash */ ! 33: if (matchlight) { ! 34: puts("Your match splutters out."); ! 35: matchlight = 0; ! 36: } ! 37: if (!notes[CANTSEE] || testbit(inven,LAMPON) || ! 38: testbit(location[position].objects, LAMPON)) { ! 39: writedes(); ! 40: printobjs(); ! 41: } else ! 42: puts("It's too dark to see anything in here!"); ! 43: whichway(location[position]); ! 44: run: ! 45: next = getcom(mainbuf, sizeof mainbuf, ">-: ", ! 46: "Please type in something."); ! 47: for (wordcount = 0; next && wordcount < 20; wordcount++) ! 48: next = getword(next, words[wordcount], -1); ! 49: parse(); ! 50: switch (cypher()) { ! 51: case -1: ! 52: goto run; ! 53: case 0: ! 54: goto start; ! 55: default: ! 56: exit(); ! 57: } ! 58: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.