empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix pin bomb not to report subs when there are none

Browse source 
pin_bomb() computed the number of foreign subs as number of ships less
number of foreign surface ships.  This counted own surface ships as
subs.

Change it to count foreign subs directly.  Closes #906040.

However, shipsatxy(), the function for counting foreign ships, also
lists them.  Add a parameter to suppress that, and change its callers.
This commit is contained in:
Markus Armbruster 2008-05-11 13:43:26 +02:00
parent 221e88f106
commit 286388dcdc
3 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
include/prototypes.h
View file

@ -465,7 +465,7 @@ extern double torprange(struct shpstr *);
extern double fortrange(struct sctstr *);
extern int roundrange(double);
/* list.c */
extern int shipsatxy(coord, coord, int, int);
extern int shipsatxy(coord, coord, int, int, int);
extern int carriersatxy(coord, coord, natid);
extern int unitsatxy(coord, coord, int, int);
extern int planesatxy(coord, coord, int, int);

10
src/lib/commands/bomb.c
View file

@ -209,13 +209,11 @@ pin_bomb(struct emp_qelem *list, struct sctstr *target)
effadv((int)target->sct_effic), dcp->d_name);
nsubs = 0;
plp = (struct plist *)list->q_forw;
nships = shipsatxy(target->sct_x, target->sct_y, 0, M_SUB, 0);
if (plp->pcp->pl_flags & P_A) {
nships = num_shipsatxy(target->sct_x, target->sct_y, 0, 0);
nsubs = nships - shipsatxy(target->sct_x, target->sct_y, 0, M_SUB);
nsubs = shipsatxy(target->sct_x, target->sct_y, M_SUB, 0, 1);
if (nsubs > 0)
pr("Some subs are present in the sector.\n");
} else {
nships = shipsatxy(target->sct_x, target->sct_y, 0, M_SUB);
}
nplanes = planesatxy(target->sct_x, target->sct_y, 0, 0);
nunits = unitsatxy(target->sct_x, target->sct_y, 0, 0);
@ -481,7 +479,7 @@ ship_bomb(struct emp_qelem *list, struct sctstr *target)
nships = asw_shipsatxy(target->sct_x, target->sct_y, 0, 0,
&plp->plane, &head);
else
nships = shipsatxy(target->sct_x, target->sct_y, 0, M_SUB);
nships = shipsatxy(target->sct_x, target->sct_y, 0, M_SUB, 0);
if (nships == 0) {
pr("%s could not find any ships!\n", prplane(&plp->plane));
continue;
@ -501,7 +499,7 @@ ship_bomb(struct emp_qelem *list, struct sctstr *target)
if (plp->pcp->pl_flags & P_A)
print_shiplist(head);
else
shipsatxy(target->sct_x, target->sct_y, 0, M_SUB);
shipsatxy(target->sct_x, target->sct_y, 0, M_SUB, 0);
continue;
}
if (*q == 'd')

4
src/lib/subs/list.c
View file

@ -48,7 +48,7 @@
#include "xy.h"
int
shipsatxy(coord x, coord y, int wantflags, int nowantflags)
shipsatxy(coord x, coord y, int wantflags, int nowantflags, int only_count)
{
int first;
int ships;
@ -73,12 +73,14 @@ shipsatxy(coord x, coord y, int wantflags, int nowantflags)
if (mp->m_flags & nowantflags)
continue;
}
if (!only_count) {
if (first) {
pr(" # owner eff type\n");
first = 0;
}
pr("(#%3d) %10.10s %12.12s %s\n", ni.cur,
cname(ship.shp_own), effadv(ship.shp_effic), prship(&ship));
}
ships++;
}
return ships;