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

(is_engineer, has_helpful_engineer): Rename. Require allied

Browse source 
engineers.  This affecs command `fortify'.
This commit is contained in:
Markus Armbruster 2004-01-28 10:46:57 +00:00
parent f7faeb6470
commit c4ae0d89eb
3 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
include/prototypes.h
View file

@ -330,7 +330,7 @@ extern int gamehours(time_t, int *);
extern int has_units(coord, coord, natid, struct lndstr *);
extern int has_units_with_mob(coord, coord, natid);
extern int adj_units(coord, coord, natid);
extern int is_engineer(int x, int y);
extern int has_helpful_engineer(coord x, coord y, natid cn);
/* log.c */
extern void loginit(void);
extern void logerror(s_char *, ...);

7
src/lib/common/land.c
View file

@ -97,14 +97,19 @@ has_units_with_mob(coord x, coord y, natid cn)
return 0;
}
/*
* Is there a engineer unit at X,Y that can help nation CN?
*/
int
is_engineer(int x, int y)
has_helpful_engineer(coord x, coord y, natid cn)
{
struct nstr_item ni;
struct lndstr land;
snxtitem_xy(&ni, EF_LAND, x, y);
while (nxtitem(&ni, (s_char *)&land)) {
if (land.lnd_own != cn && getrel(getnatp(land.lnd_own), cn) != ALLIED)
continue;
if (lchr[(int)land.lnd_type].l_flags & L_ENGINEER)
return 1;
}

2
src/lib/subs/lndsub.c
View file

@ -1367,7 +1367,7 @@ lnd_fortify (struct lndstr *lp, int hard_amt)
if ((lp->lnd_harden + hard_amt) > land_mob_max)
hard_amt = land_mob_max - lp->lnd_harden;
eng = is_engineer(lp->lnd_x, lp->lnd_y);
eng = has_helpful_engineer(lp->lnd_x, lp->lnd_y, lp->lnd_own);
if (eng)
hard_amt = ((float)hard_amt * 1.5);