2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2018, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure, Markus Armbruster
6 * Empire is free software: you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation, either version 3 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <http://www.gnu.org/licenses/>.
21 * See files README, COPYING and CREDITS in the root of the source
22 * tree for related information and legal notices. It is expected
23 * that future projects/authors will amend these files as needed.
27 * loan.h: Definitions for loans
29 * Known contributors to this file:
39 #define MAXLOAN 100000
40 #define SECS_PER_DAY (60*60*24)
43 /* initial part must match struct empobj */
46 unsigned l_generation: 12;
49 /* end of part matching struct empobj */
50 natid l_loner; /* loan shark */
51 natid l_lonee; /* sucker */
52 signed char l_status; /* loan status */
53 int l_irate; /* interest rate */
54 int l_ldur; /* intended duration */
55 int l_amtpaid; /* amount paid so far */
56 int l_amtdue; /* amount still owed */
57 time_t l_lastpay; /* date of most recent payment */
58 time_t l_duedate; /* date after which interest doubles, etc */
61 #define LS_FREE AGREE_FREE
62 #define LS_PROPOSED AGREE_PROPOSED
63 #define LS_SIGNED AGREE_SIGNED
65 extern double loan_owed(struct lonstr *loan, time_t paytime);
67 #define getloan(n, p) ef_read(EF_LOAN, (n), (p))
68 #define putloan(n, p) ef_write(EF_LOAN, (n), (p))
69 #define getloanp(n) ((struct lonstr *)ef_ptr(EF_LOAN, (n)))