/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Copyright (C) 1986-2009, 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.
*
* ---
*
* loan.h: Definitions for loans
- *
+ *
* Known contributors to this file:
- *
+ *
*/
-#ifndef _LOAN_H_
-#define _LOAN_H_
+#ifndef LOAN_H
+#define LOAN_H
+
+#include <time.h>
+#include "types.h"
#define MAXLOAN 100000
#define SECS_PER_DAY (60*60*24)
struct lonstr {
+ /* initial part must match struct empobj */
short ef_type;
- natid l_loner; /* loan shark */
short l_uid;
+ unsigned l_seqno;
+ time_t l_timestamp;
+ /* end of part matching struct empobj */
+ natid l_loner; /* loan shark */
natid l_lonee; /* sucker */
- s_char l_status; /* loan status */
- short l_sell; /* pointer to trade file (unused) */
+ signed char l_status; /* loan status */
int l_irate; /* interest rate */
int l_ldur; /* intended duration */
long l_amtpaid; /* amount paid so far */
time_t l_duedate; /* date after which interest doubles, etc */
};
-#define LS_FREE 0
-#define LS_PROPOSED 1
-#define LS_SIGNED 2
+#define LS_FREE AGREE_FREE
+#define LS_PROPOSED AGREE_PROPOSED
+#define LS_SIGNED AGREE_SIGNED
+
+extern double loan_owed(struct lonstr *loan, time_t paytime);
-#define getloan(n, lp) \
- ef_read(EF_LOAN, n, lp)
-#define putloan(n, lp) \
- ef_write(EF_LOAN, n, lp)
-#define getloanp(n) \
- (struct lonstr *) ef_ptr(EF_LOAN, n)
+#define getloan(n, p) ef_read(EF_LOAN, (n), (p))
+#define putloan(n, p) ef_write(EF_LOAN, (n), (p))
+#define getloanp(n) ((struct lonstr *)ef_ptr(EF_LOAN, (n)))
-#endif /* _LOAN_H_ */
+#endif