2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2016, 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 * mobility.c: Add mobility to each of the items which accumulate mobility.
29 * Known contributors to this file:
31 * Steve McClure, 1998-1999
32 * Markus Armbruster, 2004-2016
46 /* Increase mobility of everything for @etus ETUs, update timestamps */
59 for (i = 0; (sectp = getsectid(i)); i++) {
60 sectp->sct_timestamp = now;
62 mob_inc_sect(sectp, etus);
65 for (i = 0; (sp = getshipp(i)); i++) {
66 sp->shp_timestamp = now;
68 mob_inc_ship(sp, etus);
71 for (i = 0; (pp = getplanep(i)); i++) {
72 pp->pln_timestamp = now;
74 mob_inc_plane(pp, etus);
77 for (i = 0; (lp = getlandp(i)); i++) {
78 lp->lnd_timestamp = now;
80 mob_inc_land(lp, etus);
84 /* Increase @sp's mobility for @etus ETUs */
86 mob_inc_sect(struct sctstr *sp, int etus)
90 if (CANT_HAPPEN(etus < 0))
95 if (sp->sct_type == SCT_SANCT)
98 value = sp->sct_mobil + ((float)etus * sect_mob_scale);
99 if (value > sect_mob_max)
100 value = sect_mob_max;
101 sp->sct_mobil = value;
104 /* Increase @sp's mobility for @etus ETUs */
106 mob_inc_ship(struct shpstr *sp, int etus)
110 if (CANT_HAPPEN(etus < 0))
113 if (sp->shp_own == 0)
116 value = sp->shp_mobil + (float)etus * ship_mob_scale;
117 if (value > ship_mob_max)
118 value = ship_mob_max;
119 sp->shp_mobil = (signed char)value;
122 /* Increase @lp's mobility for @etus ETUs */
124 mob_inc_land(struct lndstr *lp, int etus)
128 if (CANT_HAPPEN(etus < 0))
131 if (lp->lnd_own == 0)
134 value = lp->lnd_mobil + ((float)etus * land_mob_scale);
135 if (value > land_mob_max) {
136 if (lp->lnd_harden < land_mob_max && !opt_MOB_ACCESS) {
138 * Automatic fortification on excess mobility.
139 * Disabled for MOB_ACCESS, because it leads to
140 * excessively deep recursion and thus miserable
141 * performance as the number of land units grows.
143 * Provide mobility to be used in lnd_fortify()
144 * without overflowing lnd_mobil.
146 lp->lnd_mobil = land_mob_max;
147 lnd_fortify(lp, value - land_mob_max);
149 value = land_mob_max;
151 lp->lnd_mobil = value;
154 /* Increase @pp's mobility for @etus ETUs */
156 mob_inc_plane(struct plnstr *pp, int etus)
160 if (CANT_HAPPEN(etus < 0))
163 if (pp->pln_own == 0)
166 value = pp->pln_mobil + ((float)etus * plane_mob_scale);
167 if (value > plane_mob_max)
168 value = plane_mob_max;
169 pp->pln_mobil = value;
173 * Credit the turn's remaining MOB_ACCESS mobility.
174 * Exactly as if everything was accessed right now.
179 struct sctstr *sectp;
185 if (CANT_HAPPEN(!opt_MOB_ACCESS))
188 for (i = 0; (sectp = getsectid(i)); i++)
189 mob_inc_sect(sectp, game_reset_tick(§p->sct_access));
191 for (i = 0; (sp = getshipp(i)); i++)
192 mob_inc_ship(sp, game_reset_tick(&sp->shp_access));
194 for (i = 0; (pp = getplanep(i)); i++)
195 mob_inc_plane(pp, game_reset_tick(&pp->pln_access));
197 for (i = 0; (lp = getlandp(i)); i++)
198 mob_inc_land(lp, game_reset_tick(&lp->lnd_access));