2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2013, 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 * nat.c: Misc. accesses on the nation file
29 * Known contributors to this file:
31 * Ron Koenderink, 2005
32 * Markus Armbruster, 2006-2011
46 /* must follow nation relation defines in nat.h */
47 "At War", "Hostile", "Neutral", "Friendly", "Allied"
55 if (!(np = getnatp(n)))
61 relatename(struct natstr *np, natid other)
63 return relates[getrel(np, other)];
67 rejectname(struct natstr *np, natid other)
69 static char *rejects[] = {
70 /* must follow reject flags defined in nat.h */
89 return rejects[getrejects(other, np)];
93 natstate(struct natstr *np)
95 static char *stnam[] = {
96 /* must match nat_status */
97 "FREE", "VISITOR", "VISITOR", "SANCTUARY", "ACTIVE", "DEITY"
99 return stnam[np->nat_stat];
102 /* This returns the relations that np has with them */
104 getrel(struct natstr *np, natid them)
106 return np->nat_relate[them];
110 * Return relations US has with THEM.
111 * Countries are considered allied to themselves.
114 relations_with(natid us, natid them)
116 return us == them ? ALLIED : getrel(getnatp(us), them);
120 getrejects(natid them, struct natstr *np)
122 return np->nat_rejects[them];
126 agecontact(struct natstr *np)
130 for (them = 1; them < MAXNOC; ++them) {
131 if (them != np->nat_cnum && np->nat_contact[them]) {
132 --np->nat_contact[them];
138 getcontact(struct natstr *np, natid them)
140 return np->nat_contact[them];
144 putrel(struct natstr *np, natid them, int relate)
146 np->nat_relate[them] = relate;
150 putreject(struct natstr *np, natid them, int how, int what)
153 np->nat_rejects[them] |= what;
155 np->nat_rejects[them] &= ~what;
159 putcontact(struct natstr *np, natid them, int contact)
161 if (CANT_HAPPEN(contact < 0))
163 if (CANT_HAPPEN(contact > 255))
166 if (np->nat_contact[them] < contact)
167 np->nat_contact[them] = contact;
171 influx(struct natstr *np)
175 getsect(np->nat_xcap, np->nat_ycap, §);
176 if (sect.sct_own != np->nat_cnum ||
177 (sect.sct_type != SCT_CAPIT && sect.sct_type != SCT_MOUNT &&
178 sect.sct_type != SCT_SANCT) ||
179 (np->nat_flags & NF_SACKED))
186 * Initialize NATP for country #CNUM in status STAT.
187 * STAT must be STAT_UNUSED, STAT_NEW, STAT_VIS or STAT_GOD.
188 * Also wipe realms and telegrams.
191 nat_reset(struct natstr *natp, natid cnum, char *name, char *rep,
192 enum nat_status stat)
194 struct realmstr newrealm;
198 ef_blank(EF_NATION, cnum, natp);
199 natp->nat_stat = stat;
200 strncpy(natp->nat_cnam, name, sizeof(natp->nat_cnam) - 1);
201 strncpy(natp->nat_pnam, rep, sizeof(natp->nat_pnam) - 1);
202 if (stat == STAT_GOD)
203 natp->nat_money = 123456789;
204 for (i = 0; i < MAXNOR; i++) {
205 ef_blank(EF_REALM, i + cnum * MAXNOR, &newrealm);
208 mailbox_create(mailbox(buf, cnum));
209 /* FIXME natp->nat_ann = #annos */
210 natp->nat_level[NAT_HLEV] = start_happiness;
211 natp->nat_level[NAT_RLEV] = start_research;
212 natp->nat_level[NAT_TLEV] = start_technology;
213 natp->nat_level[NAT_ELEV] = start_education;
214 for (i = 0; i < MAXNOC; i++)
215 natp->nat_relate[i] = NEUTRAL;
217 NF_FLASH | NF_BEEP | NF_COASTWATCH | NF_SONAR | NF_TECHLISTS;