4
* $Log: planetlist.c,v $
5
* Revision 1.2 2006/05/16 06:16:35 quozl
8
* Revision 1.1.1.1 1998/11/01 17:24:11 siegl
9
* COW 3.0 initial revision
12
#include "copyright.h"
19
static char *teamname[9] =
32
/* * Open a window which contains all the planets and their current *
33
* statistics. Players will not know about planets that their team * has not
41
register struct planet *j;
43
/* W_ClearWindow(planetw); */
44
(void) sprintf(buf, "Planet Name own armies REPAIR FUEL AGRI CORE info");
45
W_WriteText(planetw, 2, 1, textColor, buf, strlen(buf), W_RegularFont);
47
for (i = 0, j = &planets[i]; i < MAXPLANETS; i++, j++)
49
if (j->pl_info & me->p_team)
51
(void) sprintf(buf, "%-16s %3s %3d %6s %4s %4s %4s %c%c%c%c",
53
teamname[j->pl_owner],
55
(j->pl_flags & PLREPAIR ? "REPAIR" : " "),
56
(j->pl_flags & PLFUEL ? "FUEL" : " "),
57
(j->pl_flags & PLAGRI ? "AGRI" : " "),
58
(j->pl_flags & PLCORE ? "CORE" : " "),
59
(j->pl_info & FED ? 'F' : ' '),
60
(j->pl_info & ROM ? 'R' : ' '),
61
(j->pl_info & KLI ? 'K' : ' '),
62
(j->pl_info & ORI ? 'O' : ' '));
63
W_WriteText(planetw, 2, k++, planetColor(j), buf, strlen(buf),
68
(void) sprintf(buf, "%-16s",
70
W_WriteText(planetw, 2, k++, unColor, buf, strlen(buf),