2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure
6 * This program 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 2 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, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 * See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
23 * related information and legal notices. It is expected that any future
24 * projects/authors will amend these files as needed.
28 * damage.c: Damage stuff.
30 * Known contributors to this file:
53 item_damage(int pct, u_short *item)
57 for (i = 1; i <= I_MAX; ++i) {
58 if (opt_SUPER_BARS && i == I_BAR)
60 lose = roundavg((double)item[i] * pct * 0.01);
61 if (i == I_CIVIL || i == I_MILIT || i == I_UW)
62 lose = ldround(people_damage * lose, 1);
63 item[i] = item[i] >= lose ? item[i] - lose : 0;
68 ship_damage(struct shpstr *sp, int dam)
75 mpr(sp->shp_own, "\t%s takes %d\n", prship(sp), dam);
77 sp->shp_effic = damage((int)sp->shp_effic, dam);
78 if (sp->shp_mobil > 0)
79 sp->shp_mobil = damage((int)sp->shp_mobil, dam);
80 if (opt_FUEL && sp->shp_fuel)
81 sp->shp_fuel = damage((int)sp->shp_fuel, dam);
82 item_damage(dam, sp->shp_item);
86 shipdamage(struct shpstr *sp, int dam)
88 ship_damage(sp, (int)(dam / (1.0 + sp->shp_armor / 100.0)));
92 land_damage(struct lndstr *lp, int dam)
99 mpr(lp->lnd_own, "\t%s takes %d\n", prland(lp), dam);
100 if (lchr[(int)lp->lnd_type].l_flags & L_SPY) {
104 lp->lnd_effic = damage((int)lp->lnd_effic, dam);
105 if (lp->lnd_mobil > 0)
106 lp->lnd_mobil = damage((int)lp->lnd_mobil, dam);
107 if (opt_FUEL && lp->lnd_fuel)
108 lp->lnd_fuel = damage((int)lp->lnd_fuel, dam);
109 item_damage(dam, lp->lnd_item);
114 landdamage(struct lndstr *lp, int dam)
116 double damage_factor, m;
118 m = (double)land_mob_max;
120 /* fortification reduces damage */
121 damage_factor = m / (m + ((double)lp->lnd_harden));
122 if (damage_factor == 0.0)
125 /* vulnerable units take more damage */
126 damage_factor *= lp->lnd_vul / 100.0;
128 land_damage(lp, ldround(damage_factor * dam, 1));
132 planedamage(struct plnstr *pp, int dam)
139 mpr(pp->pln_own, "\t%s takes %d\n", prplane(pp), dam);
140 pp->pln_effic = damage((int)pp->pln_effic, dam);
141 if (pp->pln_mobil > 0)
142 pp->pln_mobil = damage((int)pp->pln_mobil, dam);
146 * nukedamage() actually just calculates damage
147 * rather than inflicting it.
150 nukedamage(struct nchrstr *ncp, int range, int airburst)
157 rad = (int)(rad * 1.5);
161 /* larger area, less center damage */
162 dam = (int)((ncp->n_dam * 0.75) - (range * 20));
164 /* smaller area, more center damage */
165 dam = (int)(ncp->n_dam / (range + 1.0));
173 damage(register int amt, int pct)
182 if ((random() % 100) < (tmp % 100))
187 /* asymptotic damage to commodities, efficiency, and sectors */
189 effdamage(register int amt, int dam)
191 return damage(amt, PERCENT_DAMAGE(dam));
195 commdamage(register int amt, int dam, int vtype)
199 if (vtype == V_BAR && opt_SUPER_BARS)
202 lost = amt - effdamage(amt, dam);
204 if (vtype == V_MILIT || vtype == V_CIVIL || vtype == V_UW)
205 lost = ldround(people_damage * lost, 1);