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 * setsect.c: Give resources to a country
29 * Known contributors to this file:
32 * Markus Armbruster, 2004-2013
43 * format: setres thing <sect> <#>
52 struct nstr_sect nstr;
56 what = getstarg(player->argp[1],
57 "Give what (iron, gold, oil, uranium, fertility, owner, eff., mob., work, avail., oldown, mines)? ",
64 if (!snxtsct(&nstr, player->argp[2]))
66 while (nxtsct(&nstr, §) > 0) {
67 p = getstarg(player->argp[3], "What value : ", buf);
71 if (!check_sect_ok(§))
75 current = sect.sct_min;
77 current = LIMIT_TO(current, 0, 100);
78 if (sect.sct_own != 0)
79 resnoise(§, "Iron ore content", sect.sct_min, current);
80 sect.sct_min = (unsigned char)current;
83 current = sect.sct_gmin;
85 current = LIMIT_TO(current, 0, 100);
86 if (sect.sct_own != 0)
87 resnoise(§, "Gold content", sect.sct_gmin, current);
88 sect.sct_gmin = (unsigned char)current;
93 current = sect.sct_oil;
95 current = LIMIT_TO(current, 0, 100);
96 if (sect.sct_own != 0)
97 resnoise(§, "Oil content", sect.sct_oil, current);
98 sect.sct_oil = (unsigned char)current;
101 if ((amt < 0) || (amt > MAXNOC - 1))
103 pr("Owner of %s changed from %s to %s.\n",
104 xyas(sect.sct_x, sect.sct_y, player->cnum),
105 prnatid(sect.sct_own), prnatid(amt));
106 if (amt == sect.sct_own)
108 if (sect.sct_own && sect.sct_own != player->cnum) {
110 "Sector %s taken from you by an act of %s!\n",
111 xyas(sect.sct_x, sect.sct_y, sect.sct_own),
112 cname(player->cnum));
114 if (amt && amt != player->cnum)
116 "Sector %s given to you by an act of %s!\n",
117 xyas(sect.sct_x, sect.sct_y, amt),
118 cname(player->cnum));
119 sect.sct_own = (natid)amt;
122 if ((amt < 0) || (amt > MAXNOC - 1))
124 pr("Old owner of %s changed from %s to %s.\n",
125 xyas(sect.sct_x, sect.sct_y, player->cnum),
126 prnatid(sect.sct_oldown), prnatid(amt));
127 sect.sct_oldown = (natid)amt;
135 current = sect.sct_effic;
137 current = LIMIT_TO(current, 0, 100);
138 pr("Efficiency in %s changed to %d.\n",
139 xyas(sect.sct_x, sect.sct_y, player->cnum), current);
140 sect.sct_effic = current;
145 current = sect.sct_mines;
147 current = LIMIT_TO(current, 0, MINES_MAX);
148 if (sect.sct_own != 0 && sect.sct_own == sect.sct_oldown)
149 resnoise(§, "Mines", sect.sct_mines, current);
150 sect.sct_mines = current;
153 current = sect.sct_mobil;
155 current = LIMIT_TO(current, -127, 127);
156 pr("Mobility in %s changed to %d.\n",
157 xyas(sect.sct_x, sect.sct_y, player->cnum), current);
158 sect.sct_mobil = current;
166 current = sect.sct_avail;
168 current = LIMIT_TO(current, 0, 9999);
169 pr("Available in %s changed to %d.\n",
170 xyas(sect.sct_x, sect.sct_y, player->cnum), current);
171 sect.sct_avail = (short)current;
174 current = sect.sct_work;
176 current = LIMIT_TO(current, 0, 100);
177 pr("Work in %s changed to %d.\n",
178 xyas(sect.sct_x, sect.sct_y, player->cnum), current);
179 sect.sct_work = (unsigned char)current;
182 current = sect.sct_fertil;
184 current = LIMIT_TO(current, 0, 100);
185 if (sect.sct_own != 0)
186 resnoise(§, "Fertility content", sect.sct_fertil, current);
187 sect.sct_fertil = (unsigned char)current;
190 current = sect.sct_uran;
192 current = LIMIT_TO(current, 0, 100);
193 if (sect.sct_own != 0)
194 resnoise(§, "Uranium content", sect.sct_uran, current);
195 sect.sct_uran = (unsigned char)current;
207 resbenefit(natid who, int goodness)
209 if (opt_GODNEWS && getnatp(who)->nat_stat != STAT_GOD && goodness)
210 nreport(player->cnum, goodness > 0 ? N_AIDS : N_HURTS, who, 1);
214 resnoise(struct sctstr *sptr, char *name, int old, int new)
216 pr("%s of %s changed from %d to %d\n",
217 name, xyas(sptr->sct_x, sptr->sct_y, player->cnum), old, new);
218 if (sptr->sct_own && sptr->sct_own != player->cnum && new != old)
220 "%s in %s was changed from %d to %d by an act of %s\n",
221 name, xyas(sptr->sct_x, sptr->sct_y, sptr->sct_own),
222 old, new, cname(player->cnum));
223 resbenefit(sptr->sct_own, new - old);