2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2021, 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 * takeover.c: Take over from another country
29 * Known contributors to this file:
31 * Steve McClure, 1996-2000
32 * Markus Armbruster, 2007-2016
47 #include "prototypes.h"
53 static void takeover_unit(struct empobj *, natid);
56 takeover(struct sctstr *sp, natid newown)
68 /* Wipe all the distribution info */
69 memset(sp->sct_dist, 0, sizeof(sp->sct_dist));
70 memset(sp->sct_del, 0, sizeof(sp->sct_del));
75 sp->sct_dist_x = sp->sct_x;
76 sp->sct_dist_y = sp->sct_y;
79 /* Take over planes */
80 snxtitem_xy(&ni, EF_PLANE, sp->sct_x, sp->sct_y);
81 while (nxtitem(&ni, pp)) {
82 if (pp->pln_own != sp->sct_own)
84 takeover_plane(pp, newown);
87 /* Take over land units */
89 snxtitem_xy(&ni, EF_LAND, sp->sct_x, sp->sct_y);
90 while (nxtitem(&ni, lp)) {
91 if ((lp->lnd_own == newown) || (lp->lnd_own == 0))
93 if (lp->lnd_own != sp->sct_own)
95 if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
98 /* Spies either hide or get executed */
99 if (lchr[(int)lp->lnd_type].l_flags & L_SPY) {
100 if (!(chance(LND_SPY_DETECT_CHANCE(lp->lnd_effic))))
102 mpr(newown, "%s summarily executed!\n", prland(lp));
103 wu(0, lp->lnd_own, "%s summarily executed when %s took %s!\n",
105 cname(newown), xyas(lp->lnd_x, lp->lnd_y, lp->lnd_own));
107 putland(lp->lnd_uid, lp);
111 n = lp->lnd_effic - (29 + roll(100));
115 if (lp->lnd_effic < LAND_MINEFF) {
117 mpr(newown, "%s blown up by the crew!\n", prland(lp));
119 "%s blown up by the crew when %s took %s!\n",
121 cname(newown), xyas(lp->lnd_x, lp->lnd_y, lp->lnd_own));
123 mpr(newown, "We have captured %s!\n", prland(lp));
125 "%s captured when %s took %s!\n",
127 cname(newown), xyas(lp->lnd_x, lp->lnd_y, lp->lnd_own));
129 takeover_land(lp, newown);
133 civ = sp->sct_item[I_CIVIL];
134 oldche = sp->sct_che;
136 * create guerrillas from civilians
137 * how spunky are these guys?
138 * n: random number from -25:75 + (50 - loyalty)
140 n = (50 - sp->sct_loyal) + (roll(100) - 26);
141 if (n > 0 && sp->sct_own == sp->sct_oldown) {
142 che_count = (civ * n / 3000) + 5;
143 if (che_count * 2 > civ)
145 che_count /= hap_fact(getnatp(newown), getnatp(sp->sct_own));
146 if (che_count + oldche > CHE_MAX)
147 che_count = CHE_MAX - oldche;
155 sp->sct_che = che_count;
156 if (newown != sp->sct_oldown)
157 sp->sct_che_target = newown;
158 if (sp->sct_che_target == 0)
160 sp->sct_item[I_CIVIL] = civ;
161 if (sp->sct_oldown == newown || civ == 0) {
163 * taking over one of your old sectors
166 sp->sct_oldown = newown;
169 * taking over someone else's sector
173 sp->sct_own = newown;
174 if (opt_MOB_ACCESS) {
175 game_tick_to_now(&sp->sct_access);
176 sp->sct_mobil = -(etu_per_update / sect_mob_neg_factor);
183 takeover_plane(struct plnstr *pp, natid newown)
187 if ((pp->pln_own == newown) || (pp->pln_own == 0))
189 if (pp->pln_flags & PLN_LAUNCHED)
191 if (pp->pln_ship >= 0 || pp->pln_land >= 0)
194 * XXX If this was done right, planes could escape,
195 * flying to a nearby friendly airport.
197 n = pp->pln_effic - (29 + roll(100));
201 if (pp->pln_effic < PLANE_MINEFF || pp->pln_harden > 0) {
203 mpr(newown, "%s blown up by the crew!\n", prplane(pp));
205 "%s blown up by the crew to avoid capture by %s at %s!\n",
207 cname(newown), xyas(pp->pln_x, pp->pln_y, pp->pln_own));
209 mpr(newown, "We have captured %s!\n", prplane(pp));
211 "%s captured by %s at %s!\n",
213 cname(newown), xyas(pp->pln_x, pp->pln_y, pp->pln_own));
215 takeover_unit((struct empobj *)pp, newown);
219 takeover_ship(struct shpstr *sp, natid newown)
221 takeover_unit((struct empobj *)sp, newown);
225 takeover_land(struct lndstr *landp, natid newown)
227 takeover_unit((struct empobj *)landp, newown);
231 takeover_unit(struct empobj *unit, natid newown)
239 union empobj_storage cargo;
243 trdswitchown(unit->ef_type, unit, newown);
244 unit_wipe_orders(unit);
246 switch (unit->ef_type) {
248 sp = (struct shpstr *)unit;
252 pp = (struct plnstr *)unit;
253 if (pp->pln_mobil > 0)
258 lp = (struct lndstr *)unit;
259 if (lp->lnd_mobil > 0)
265 np = (struct nukstr *)unit;
272 put_empobj(unit->ef_type, unit->uid, unit);
274 for (type = EF_PLANE; type <= EF_NUKE; type++) {
275 snxtitem_cargo(&ni, type, unit->ef_type, unit->uid);
276 while (nxtitem(&ni, &cargo)) {
277 if (cargo.gen.own == newown)
279 if (type == EF_PLANE)
280 cargo.plane.pln_effic = PLANE_MINEFF;
281 takeover_unit(&cargo.gen, newown);