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 * mslsub.c: Missile subroutine stuff
30 * Known contributors to this file:
32 * Steve McClure, 1996-2000
53 #include "prototypes.h"
56 msl_equip(struct plnstr *pp)
60 bzero((s_char *)&pl, sizeof(struct plist));
61 pl.pcp = plchr + pp->pln_type;
62 bcopy((s_char *)pp, (s_char *)&pl.plane, sizeof(struct plnstr));
63 return mission_pln_equip(&pl, 0, 0, 'p');
67 msl_hit(struct plnstr *pp, int hardtarget, int type, int news_item, int snews_item, s_char *what, coord x, coord y, int victim)
73 struct plchrstr *pcp = plchr + pp->pln_type;
74 int hitchance = pln_hitchance(pp, hardtarget, type);
78 mpr(pp->pln_own,"Preparing to launch %s at %s %s %s%s\n",
82 (type==EF_SHIP||type==EF_PLANE)?"in ":"",
83 xyas(x, y, pp->pln_own));
84 mpr(pp->pln_own, "\tLaunching from ");
85 if (pp->pln_ship >= 0) {
86 getship(pp->pln_ship, &ship);
87 mpr(pp->pln_own, "%s in ", prship(&ship));
88 if (mchr[(int)ship.shp_type].m_flags & M_SUB) {
93 mpr(pp->pln_own, "%s\n",
94 xyas(ship.shp_x, ship.shp_y, pp->pln_own));
96 if (pp->pln_harden > 0) {
97 mpr(pp->pln_own, "missile silo at ");
100 from = "on launch pad";
101 mpr(pp->pln_own, "%s\n",
102 xyas(pp->pln_x, pp->pln_y, pp->pln_own));
105 if (chance((0.05 + (100 - pp->pln_effic)/100.0)
106 * (1 - techfact(pp->pln_tech, 1.0)))) {
107 mpr(pp->pln_own, "KABOOOOM! Missile explodes %s!\n", from);
109 if (pp->pln_nuketype != (s_char)-1 &&
110 opt_NUKEFAILDETONATE) {
111 pp->pln_flags &= ~PLN_AIRBURST;
112 detonate(pp, pp->pln_x, pp->pln_y);
114 dam = pln_damage(pp, pp->pln_x, pp->pln_y,
115 'p', &dummyi, 1) / 2;
117 if (pp->pln_ship >= 0) {
118 shipdamage(&ship, dam);
119 putship(ship.shp_uid, &ship);
121 pr("Explosion damages %s %d%%",
122 xyas(pp->pln_x, pp->pln_y, pp->pln_own),
124 getsect(pp->pln_x, pp->pln_y, §);
125 sectdamage(§, dam, 0);
134 mpr(pp->pln_own, "\tSHWOOOOOSH! Missile launched!\n");
136 if (pp->pln_nuketype != (s_char)-1)
137 mpr(pp->pln_own, "\tArming nuclear warheads...\n");
139 if (pcp->pl_flags & P_T)
140 mpr(victim, "Incoming %s missile...\n",sublaunch?(s_char *)"":cname(pp->pln_own));
142 if (opt_PINPOINTMISSILE == 0 ||
143 (pcp->pl_flags & P_T && !(pcp->pl_flags & P_MAR))) {
144 if (msl_intercept(x, y, pp->pln_own, pcp->pl_def,
145 sublaunch, P_N, P_O)) {
149 if (pcp->pl_flags & P_MAR) {
150 if (shp_missile_defense(x, y, pp->pln_own, pcp->pl_def)) {
155 if (pp->pln_nuketype != (s_char)-1)
158 mpr(pp->pln_own,"\t%d%% hitchance...", hitchance);
159 hit = (roll(100) <= hitchance);
161 mpr(pp->pln_own,hit?"HIT!\n":"miss\n");
162 if (pcp->pl_flags & P_T)
163 mpr(victim, "...Incoming %s missile %s\n",sublaunch?(s_char *)"":cname(pp->pln_own), hit?"HIT!\n":"missed\n");
164 if (hit && news_item) {
166 nreport(victim, snews_item, 0, 1);
168 nreport(pp->pln_own, news_item, victim, 1);
174 msl_sel(struct emp_qelem *list, coord x, coord y, natid victim, int wantflags, int nowantflags, int mission)
176 register struct plchrstr *pcp;
182 snxtitem_all (&ni, EF_PLANE);
183 while (nxtitem (&ni, (s_char *)&plane)) {
187 pcp = &plchr[(int)plane.pln_type];
188 if (!(pcp->pl_flags & P_M))
190 if (wantflags && (pcp->pl_flags & wantflags) != wantflags)
192 if (nowantflags && pcp->pl_flags & nowantflags)
194 if (mission && plane.pln_mission != mission)
196 if (getrel(getnatp(plane.pln_own), victim) >= NEUTRAL)
198 /* missiles go one way, so we can use all the range */
199 if (plane.pln_range < mapdist(x, y, plane.pln_x, plane.pln_y))
201 if (plane.pln_mobil <= (s_char)0)
203 if (plane.pln_effic < 100)
205 /* got a valid interceptor */
206 irv = (struct plist *) malloc(sizeof(*irv));
210 irv->pcp = &plchr[(int)plane.pln_type];
211 bcopy((s_char *)&plane, (s_char *)&irv->plane, sizeof(plane));
212 emp_insque(&irv->queue, list);
217 msl_intercept(coord x, coord y, natid bombown, int hardtarget, int sublaunch, int wantflags, int nowantflags)
219 register struct plnstr *pp;
220 register struct plchrstr *pcp;
222 struct emp_qelem *irvlist;
223 struct emp_qelem foo;
224 struct emp_qelem *intlist;
225 struct emp_qelem intfoo;
226 struct emp_qelem *qp;
227 struct emp_qelem *next;
235 s_char *who = sublaunch?(s_char *)"":cname(bombown);
237 getsect(x, y, §);
238 if (wantflags == P_O && !nowantflags) {
239 att_name = "satellite";
240 def_name = "a-sat missile";
241 news_item = N_SAT_KILL;
243 mpr(sect.sct_own, "%s has positioned a satellite over %s\n", sublaunch?(s_char *)"someone":cname(bombown), xyas(x,y,sect.sct_own));
245 } else if (wantflags == P_N && nowantflags == P_O) {
246 att_name = "warhead";
248 news_item = sublaunch?N_NUKE_SSTOP:N_NUKE_STOP;
250 att_name = "elephant";
251 def_name = "tomato"; /* heh -KHS */
252 news_item = N_NUKE_STOP;
254 sprintf(what,"%s %s",who, att_name);
257 /* get all hostile abms in range */
258 msl_sel(irvlist, x, y, bombown, wantflags, nowantflags, 0);
260 emp_initque(intlist);
261 /* First choose interceptors belonging to the target sector */
262 /* only allow two defense missiles per missile attack */
263 for (qp = irvlist->q_forw; qp != irvlist && icount < 2; qp = next) {
265 ip = (struct plist *)qp;
267 if (pp->pln_own != sect.sct_own)
270 if (mission_pln_equip(ip, 0, 0, 'i') < 0) {
275 /* got one interceptor, delete from irv_list and
279 emp_insque(qp, intlist);
280 putplane(pp->pln_uid, pp);
283 /* only allow two defense missiles per missile attack */
284 for (qp = irvlist->q_forw; qp != irvlist && icount < 2; qp = next) {
286 ip = (struct plist *)qp;
289 if (mission_pln_equip(ip, 0, 0, 'i') < 0) {
294 /* got one interceptor, delete from irv_list and
298 emp_insque(qp, intlist);
299 putplane(pp->pln_uid, pp);
302 /* Now, clean out the queue */
303 while (!QEMPTY(irvlist)) {
304 qp = irvlist->q_forw;
309 if(sect.sct_own != 0)
310 mpr(sect.sct_own, "No %ss launched to intercept.\n", def_name);
314 /* attempt to destroy incoming missile */
316 while (!QEMPTY(intlist)) {
317 qp = intlist->q_forw;
318 ip = (struct plist *)qp;
322 mpr(bombown,"%s %s launched in defense!\n",
323 cname(pp->pln_own), def_name);
324 if (sect.sct_own == pp->pln_own) {
325 mpr(sect.sct_own, "%s launched to intercept %s %s!\n",
326 def_name, who, att_name);
329 mpr(sect.sct_own, "%s launched an %s to intercept the %s %s!\n",
330 cname(pp->pln_own), def_name, who, att_name);
332 "%s launched to intercept %s %s arcing towards %s territory!\n",
333 def_name, who, att_name, cname(sect.sct_own));
337 msl_hit(pp, hardtarget, EF_PLANE, news_item, news_item, what, x, y, bombown)) {
338 mpr(bombown, "%s destroyed by %s %s!\n", att_name,
339 cname(pp->pln_own), def_name);
341 mpr(sect.sct_own, "%s %s intercepted!\n", who, att_name);
342 if (sect.sct_own != pp->pln_own)
343 mpr(pp->pln_own, "%s %s intercepted!\n", who, att_name);
346 /* zap the missile */
347 makelost(EF_PLANE, pp->pln_own, pp->pln_uid, pp->pln_x, pp->pln_y);
349 putplane(pp->pln_uid, pp);
355 /* Clean out what is left in the list */
356 while (!QEMPTY(intlist)) {
357 qp = intlist->q_forw;
364 mpr(bombown,"%s made it through %s defenses!\n", att_name, def_name);
366 mpr(sect.sct_own, "%s made it through %s defenses!\n", att_name,
372 /* Keep launching missiles on list until mindam damage has been done */
374 msl_launch_mindam(struct emp_qelem *list, coord x, coord y, int hardtarget, int type, int mindam, s_char *whatp, int victim, int mission)
376 struct emp_qelem *qp;
377 struct emp_qelem *next;
384 if (type == EF_SHIP) {
385 news_item = N_SHP_MISS;
386 snews_item = N_SHP_SMISS;
387 } else if (type == EF_LAND) {
388 news_item = N_LND_MISS;
389 snews_item = N_LND_SMISS;
391 news_item = N_SCT_MISS;
392 snews_item = N_SCT_SMISS;
395 for (qp = list->q_back;qp != list && dam < mindam && !nukedam;qp = next) {
397 plp = (struct plist *)qp;
399 if (mission_pln_equip(plp, 0, 0, 'p') >= 0) {
400 if (msl_hit(&plp->plane,
401 hardtarget, type, news_item, snews_item,
402 whatp, x, y, victim)) {
403 newdam = pln_damage(&plp->plane,x,y,'p',&nukedam, 1);
405 if (mission == MI_INTERDICT &&
411 /* Missiles that miss have to hit somewhere! */
412 newdam = pln_damage(&plp->plane,x,y,'p',&nukedam, 0);
413 collateral_damage(x, y, newdam, 0);
415 makelost(EF_PLANE, plp->plane.pln_own, plp->plane.pln_uid, plp->plane.pln_x, plp->plane.pln_y);
416 plp->plane.pln_own = 0;
417 putplane(plp->plane.pln_uid, &plp->plane);