|
|
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted provided
6: * that: (1) source distributions retain this entire copyright notice and
7: * comment, and (2) distributions including binaries display the following
8: * acknowledgement: ``This product includes software developed by the
9: * University of California, Berkeley and its contributors'' in the
10: * documentation or other materials provided with the distribution and in
11: * all advertising materials mentioning features or use of this software.
12: * Neither the name of the University nor the names of its contributors may
13: * be used to endorse or promote products derived from this software without
14: * specific prior written permission.
15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
16: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
17: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18: */
19:
20: #ifndef lint
21: static char sccsid[] = "@(#)systemname.c 5.4 (Berkeley) 6/1/90";
22: #endif /* not lint */
23:
24: # include "trek.h"
25:
26: /*
27: ** RETRIEVE THE STARSYSTEM NAME
28: **
29: ** Very straightforward, this routine just gets the starsystem
30: ** name. It returns zero if none in the specified quadrant
31: ** (which, by the way, is passed it).
32: **
33: ** This routine knows all about such things as distressed
34: ** starsystems, etc.
35: */
36:
37: char *systemname(q1)
38: struct quad *q1;
39: {
40: register struct quad *q;
41: register int i;
42:
43: q = q1;
44:
45: i = q->qsystemname;
46: if (i & Q_DISTRESSED)
47: i = Event[i & Q_SYSTEM].systemname;
48:
49: i &= Q_SYSTEM;
50: if (i == 0)
51: return (0);
52: return (Systemname[i]);
53: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.