Import of Empire 4.2.12

2003-08-23 12:23:04 +00:00 · 2003-08-23 12:23:04 +00:00 · d8b7fdfae1
commit d8b7fdfae1
817 changed files with 126589 additions and 0 deletions
--- a/src/lib/commands/fina.c
+++ b/src/lib/commands/fina.c
@ -0,0 +1,120 @@
+/*
+ *  Empire - A multi-player, client/server Internet based war game.
+ *  Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ *                           Ken Stevens, Steve McClure
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ *  ---
+ *
+ *  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.
+ *
+ *  ---
+ *
+ *  fina.c: Financial report on current status of loans to countries
+ * 
+ *  Known contributors to this file:
+ *     Dave Pare, 1986
+ *     Steve McClure, 1996
+ */
+
+#include <math.h>
+#include "misc.h"
+#include "player.h"
+#include "loan.h"
+#include "file.h"
+#include "xy.h"
+#include "nsc.h"
+#include "nat.h"
+#include "commands.h"
+#include "optlist.h"
+
+/*
+ * format: fina
+ */
+int
+fina(void)
+{
+	struct	lonstr loan;
+	struct	nstr_item ni;
+      time_t  now;
+	int	rdur;
+	int	xdur;
+	double	rate;
+	double	amt;
+      time_t  due;
+      time_t  last;
+
+	if (!opt_LOANS) {
+	    pr("Loans are not enabled.\n");
+	    return RET_FAIL;
+	}
+	(void)time(&now);
+	pr("\n");
+	pr("             -= Empire Financial Status Report =- \n");
+	pr("                  ");
+	prdate();
+	pr("Loan       From            To        Rate   Dur     Paid      Total\n");
+	snxtitem(&ni, EF_LOAN, "*");
+	while (nxtitem(&ni, (s_char *)&loan)) {
+		if (loan.l_status != LS_SIGNED)
+			continue;
+		due = loan.l_duedate;
+		last = loan.l_lastpay;
+		rdur = 0;
+		xdur = 0;
+		if (now < due) {
+			rdur = now - last;
+			xdur = 0;
+		}
+		if (last < due && due < now) {
+			rdur = due - last;
+			xdur = now - due;
+		}
+		if (due < last) {
+			rdur = 0;
+			xdur = now - last;
+		}
+		if (loan.l_ldur == 0) {
+			logerror("loan #%d has zero duration", ni.cur);
+			continue;
+		}
+		rate = loan.l_irate / (loan.l_ldur * 8640000.0);
+
+/* changed following to avoid overflow 3/27/89 bailey@math-cs.kent.edu
+		amt = (rdur * rate + xdur * rate * 2.0 + 1.0) * loan.l_amtdue;
+   Begin overflow fix */
+		amt = (rdur * rate + xdur * rate * 2.0 + 1.0);
+		if (((1 << 30) / amt) < loan.l_amtdue)
+			amt = (1 << 30);
+		else
+			amt *= loan.l_amtdue;
+/* End overflow fix */
+
+		pr(" %-2d  (%3d) %-8.8s  (%3d) %-8.8s  ", ni.cur,
+		       loan.l_loner, cname(loan.l_loner),
+		       loan.l_lonee, cname(loan.l_lonee));
+		pr("%3d%%   %3d    %5d    %7d",
+		       loan.l_irate, loan.l_ldur, loan.l_amtpaid, (int) amt);
+		if (now > loan.l_duedate)
+			pr(" (in arrears)\n");
+		else
+			pr("\n");
+	}
+	pr("\n");
+	return RET_OK;
+}