/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2005, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Copyright (C) 1986-2006, Dave Pare, Jeff Bailey, Thomas Ruschak,
* Ken Stevens, Steve McClure
*
* This program is free software; you can redistribute it and/or modify
*
* ---
*
- * See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- * related information and legal notices. It is expected that any future
- * projects/authors will amend these files as needed.
+ * See files README, COPYING and CREDITS in the root of the source
+ * tree for related information and legal notices. It is expected
+ * that future projects/authors will amend these files as needed.
*
* ---
*
* Steve McClure, 2000
*/
+#include <config.h>
+
#include "misc.h"
#include "player.h"
-#include "sect.h"
#include "nat.h"
#include "file.h"
-#include "xy.h"
-#include "nsc.h"
-#include <fcntl.h>
-#include <ctype.h>
#include "commands.h"
#include "optlist.h"
-struct stats {
- double res;
- double tech;
- double edu;
- double hap;
- int stat;
-};
-
-static void printdiff(int mystat, double ours, struct natstr *natp,
- int what);
static void repo_header(void);
-static void repo_list(struct stats *stat, natid cn, struct natstr *natp);
-
-static int check(s_char *buf, double theirs, double min, double max,
- int shift, int tolerance);
+static void repo_list(struct natstr *, struct natstr *);
+static void printdiff(struct natstr *, struct natstr *, int what);
+static int tryprdiff(double, double, double, int, int);
int
repo(void)
{
struct natstr *natp;
- struct stats mystat;
struct natstr nat;
struct nstr_item ni;
- int first;
if (!snxtitem(&ni, EF_NATION, player->argp[1]))
return RET_SYN;
prdate();
natp = getnatp(player->cnum);
- memset(&mystat, 0, sizeof(struct stats));
- mystat.stat = natp->nat_stat;
- if (mystat.stat & STAT_NORM) {
- mystat.res = natp->nat_level[NAT_RLEV];
- mystat.tech = natp->nat_level[NAT_TLEV];
- mystat.edu = natp->nat_level[NAT_ELEV];
- mystat.hap = natp->nat_level[NAT_HLEV];
- }
- if (opt_HIDDEN) {
- repo_header();
- first = 0;
- } else {
- first = 1;
- }
+ repo_header();
while (nxtitem(&ni, &nat)) {
- if (!(nat.nat_stat & STAT_INUSE))
+ if (nat.nat_stat == STAT_UNUSED)
continue;
if (opt_HIDDEN) {
- if (!player->god && !getcontact(getnatp(player->cnum), ni.cur))
+ if (!player->god && !getcontact(natp, ni.cur))
continue;
}
- if (first) {
- repo_header();
- first = 0;
- }
- repo_list(&mystat, (natid)ni.cur, &nat);
+ if (!player->god && nat.nat_stat != STAT_ACTIVE)
+ continue;
+ repo_list(natp, &nat);
}
return RET_OK;
}
static void
repo_header(void)
{
- pr(" # name tech research education happiness ");
- if (player->god)
- pr("capital\n");
- else {
- if (opt_HIDDEN)
- pr("\n");
- else
- pr(" status\n");
- }
+ pr(" # name tech research education happiness"
+ " %s\n",
+ player->god ? "capital" : " status");
}
static void
-repo_list(struct stats *stat, natid cn, struct natstr *natp)
+repo_list(struct natstr *plnatp, struct natstr *natp)
{
- struct sctstr cap;
-
+ pr(" %-3d %-14.14s ", natp->nat_cnum, natp->nat_cnam);
+ if (player->god || player->cnum == natp->nat_cnum) {
+ pr(" %7.2f %7.2f %7.2f %7.2f%s",
+ natp->nat_level[NAT_TLEV], natp->nat_level[NAT_RLEV],
+ natp->nat_level[NAT_ELEV], natp->nat_level[NAT_HLEV],
+ player->god ? "" : " ");
+ } else {
+ printdiff(plnatp, natp, NAT_TLEV);
+ printdiff(plnatp, natp, NAT_RLEV);
+ printdiff(plnatp, natp, NAT_ELEV);
+ printdiff(plnatp, natp, NAT_HLEV);
+ }
if (player->god) {
- pr(" %-3d %-14.14s ", cn, natp->nat_cnam);
- pr(" %7.2f %7.2f %7.2f %7.2f",
- natp->nat_level[NAT_TLEV],
- natp->nat_level[NAT_RLEV],
- natp->nat_level[NAT_ELEV], natp->nat_level[NAT_HLEV]);
prxy(" %4d,%-4d\n", natp->nat_xcap, natp->nat_ycap, player->cnum);
- return;
- }
- switch (natp->nat_stat & (STAT_NORM | STAT_GOD | STAT_NEW | STAT_SANCT)) {
- case STAT_NORM:
- pr(" %-3d %-14.14s ", cn, natp->nat_cnam);
- printdiff(stat->stat, stat->tech, natp, NAT_TLEV);
- printdiff(stat->stat, stat->res, natp, NAT_RLEV);
- printdiff(stat->stat, stat->edu, natp, NAT_ELEV);
- printdiff(stat->stat, stat->hap, natp, NAT_HLEV);
- getsect(natp->nat_xcap, natp->nat_ycap, &cap);
- if (opt_HIDDEN) {
- pr("\n");
- } else {
- if ((cap.sct_own != cn) ||
- (cap.sct_type != SCT_CAPIT && cap.sct_type != SCT_MOUNT) ||
- (natp->nat_flags & NF_SACKED))
- pr("In flux\n");
- else if (natp->nat_money <= 0)
- pr("Broke\n");
- else
- pr("Active\n");
- }
- break;
- case STAT_SANCT:
- break;
- case STAT_NEW:
- case 0:
- break;
- case STAT_SANCT | STAT_NORM | STAT_GOD:
- case STAT_NORM | STAT_GOD:
- case STAT_GOD:
- break;
- default:
- pr("???? ???? ???? ????\n");
- break;
+ } else {
+ if (!opt_HIDDEN && influx(natp))
+ pr("In flux\n");
+ else if (!opt_HIDDEN && natp->nat_money <= 0)
+ pr("Broke\n");
+ else
+ pr("Active\n");
}
}
static void
-printdiff(int mystat, double ours, struct natstr *natp, int what)
+printdiff(struct natstr *plnatp, struct natstr *natp, int what)
{
+ double ours = plnatp->nat_level[what];
double theirs;
int shift;
int tolerance;
- s_char buf[128];
- if (natp->nat_cnum == player->cnum) {
- pr(" %7.2f ", ours);
- return;
- }
- if (ours && mystat & STAT_NORM && natp->nat_stat & STAT_NORM) {
+ if (ours
+ && plnatp->nat_stat >= STAT_ACTIVE && natp->nat_stat >= STAT_ACTIVE) {
theirs = natp->nat_level[what];
- if ((shift = min((int)theirs, (int)ours) - 100) > 0) {
+ if ((shift = MIN((int)theirs, (int)ours) - 100) > 0) {
ours -= shift;
theirs -= shift;
} else
}
if (tolerance > 2 * ours)
tolerance = (int)(2 * ours);
- if (check(buf, theirs, 2 * ours, -1.0, shift, tolerance))
+ if (tryprdiff(theirs, 2 * ours, -1.0, shift, tolerance))
;
- else if (check(buf, theirs, 1.5 * ours, 2.0 * ours, shift, tolerance))
+ else if (tryprdiff(theirs, 1.5 * ours, 2.0 * ours, shift, tolerance))
;
- else if (check(buf, theirs, 1.2 * ours, 1.5 * ours, shift, tolerance))
+ else if (tryprdiff(theirs, 1.2 * ours, 1.5 * ours, shift, tolerance))
;
- else if (check(buf, theirs, 1.1 * ours, 1.2 * ours, shift, tolerance))
+ else if (tryprdiff(theirs, 1.1 * ours, 1.2 * ours, shift, tolerance))
;
- else if (check(buf, theirs, ours / 1.1, 1.1 * ours, shift, tolerance))
+ else if (tryprdiff(theirs, ours / 1.1, 1.1 * ours, shift, tolerance))
;
- else if (check(buf, theirs, ours / 1.2, ours / 1.1, shift, tolerance))
+ else if (tryprdiff(theirs, ours / 1.2, ours / 1.1, shift, tolerance))
;
- else if (check(buf, theirs, ours / 1.5, ours / 1.2, shift, tolerance))
+ else if (tryprdiff(theirs, ours / 1.5, ours / 1.2, shift, tolerance))
;
- else if (check(buf, theirs, ours / 2.0, ours / 1.5, shift, tolerance))
+ else if (tryprdiff(theirs, ours / 2.0, ours / 1.5, shift, tolerance))
;
- else if (check(buf, theirs, -1.0, ours / 2.0, shift, tolerance)) ;
+ else if (tryprdiff(theirs, -1.0, ours / 2.0, shift, tolerance)) ;
else
- sprintf(buf, " n/a");
+ pr(" n/a ");
} else
- sprintf(buf, " n/a");
-
- pr("%-11s ", buf);
+ pr(" n/a ");
}
static int
-check(s_char *buf, double theirs, double min, double max, int shift,
- int tolerance)
+tryprdiff(double theirs, double min, double max, int shift, int tolerance)
{
double shove;
if (theirs <= max) {
if (max < tolerance)
max = tolerance;
- sprintf(buf, " 0 - %d", (int)max + shift);
+ pr(" 0 - %-4d ", (int)max + shift);
return 1;
}
} else if (max < 0) {
if (theirs >= min) {
- sprintf(buf, " >= %d", (int)min + shift);
+ pr(" >= %-4d ", (int)min + shift);
return 1;
}
} else if (theirs >= min && theirs <= max) {
max = tolerance;
}
}
- sprintf(buf, "%4d - %d", (int)min + shift, (int)max + shift);
+ pr("%4d - %-4d ", (int)min + shift, (int)max + shift);
return 1;
}