Markus Armbruster
c75d19b082
struct lndstr members lnd_spy, lnd_rad, lnd_ammo, lnd_fuelc, lnd_fuelu, lnd_maxlight, lnd_maxlight are mere copies of struct lchrstr members l_spy, l_rad, l_ammo, l_fuelc, l_fuelu, l_nxlight, l_nland. Remove them. Make land unit selectors spy, rmax, ammo, fuelc, fuelu, maxlight virtual.
454 lines
12 KiB
C
454 lines
12 KiB
C
/*
|
|
* Empire - A multi-player, client/server Internet based war game.
|
|
* Copyright (C) 1986-2008, Dave Pare, Jeff Bailey, Thomas Ruschak,
|
|
* Ken Stevens, Steve McClure
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
* ---
|
|
*
|
|
* See files README, COPYING and CREDITS in the root of the source
|
|
* tree for related information and legal notices. It is expected
|
|
* that future projects/authors will amend these files as needed.
|
|
*
|
|
* ---
|
|
*
|
|
* fuel.c: fuel ships/land units
|
|
*
|
|
* Known contributors to this file:
|
|
*
|
|
*/
|
|
|
|
#include <config.h>
|
|
|
|
#include <ctype.h>
|
|
#include "commands.h"
|
|
#include "empobj.h"
|
|
#include "optlist.h"
|
|
#include "plague.h"
|
|
|
|
int
|
|
fuel(void)
|
|
{
|
|
static int shp_or_lnd[] = { EF_SHIP, EF_LAND, EF_BAD };
|
|
struct nstr_item ni;
|
|
union empobj_storage item, item2;
|
|
int type;
|
|
struct mchrstr *mp;
|
|
struct lchrstr *lcp;
|
|
char *p;
|
|
int fueled;
|
|
int land_fuel, ship_fuel;
|
|
int oil_amt, pet_amt, fuel_amt, tot_fuel, max_amt;
|
|
int move_amt;
|
|
double extra;
|
|
struct sctstr sect;
|
|
struct natstr *natp;
|
|
int harbor, sector;
|
|
int fuelled_ship = -1;
|
|
struct nstr_item tender, ltender;
|
|
char prompt[128];
|
|
char buf[1024];
|
|
|
|
if (opt_FUEL == 0) {
|
|
pr("Option 'FUEL' not enabled\n");
|
|
return RET_SYN;
|
|
}
|
|
if ((p =
|
|
getstarg(player->argp[1], "Ship or land unit (s,l)? ", buf)) == 0)
|
|
return RET_SYN;
|
|
type = ef_byname_from(p, shp_or_lnd);
|
|
if (type < 0) {
|
|
pr("Ships or land units only! (s, l)\n");
|
|
return RET_SYN;
|
|
}
|
|
sprintf(prompt, "%s(s)? ", ef_nameof(type));
|
|
p = getstarg(player->argp[2], prompt, buf);
|
|
if (!snxtitem(&ni, type, p))
|
|
return RET_SYN;
|
|
if (isdigit(*p))
|
|
fuelled_ship = atoi(p);
|
|
p = getstarg(player->argp[3], "Amount: ", buf);
|
|
if (p == 0 || *p == 0)
|
|
return RET_SYN;
|
|
fuel_amt = atoi(p);
|
|
if (fuel_amt <= 0) {
|
|
pr("Fuel amount must be positive!\n");
|
|
return RET_FAIL;
|
|
}
|
|
|
|
while (nxtitem(&ni, &item)) {
|
|
fueled = 0;
|
|
if (type == EF_SHIP) {
|
|
if (item.ship.shp_own != player->cnum) {
|
|
int rel;
|
|
|
|
if (item.ship.shp_uid != fuelled_ship)
|
|
continue;
|
|
natp = getnatp(player->cnum);
|
|
rel = getrel(natp, item.ship.shp_own);
|
|
if (rel < FRIENDLY)
|
|
continue;
|
|
}
|
|
if (!getsect(item.ship.shp_x, item.ship.shp_y, §))
|
|
continue;
|
|
if (!item.ship.shp_own)
|
|
continue;
|
|
|
|
if (shp_check_nav(§, &item.ship) == CN_LANDLOCKED) {
|
|
pr("%s is landlocked and cannot be fueled.\n",
|
|
prship(&item.ship));
|
|
continue;
|
|
}
|
|
|
|
mp = &mchr[(int)item.ship.shp_type];
|
|
|
|
harbor = 0;
|
|
if (sect_has_dock(§)) {
|
|
harbor = 1;
|
|
oil_amt = sect.sct_item[I_OIL];
|
|
pet_amt = sect.sct_item[I_PETROL];
|
|
if ((oil_amt + pet_amt) == 0)
|
|
harbor = 0;
|
|
|
|
if (sect.sct_effic < 2) {
|
|
pr("The harbor at %s is not 2%% efficient yet.\n",
|
|
xyas(item.ship.shp_x, item.ship.shp_y,
|
|
player->cnum));
|
|
harbor = 0;
|
|
}
|
|
if ((sect.sct_own != player->cnum) && sect.sct_own)
|
|
harbor = 0;
|
|
}
|
|
|
|
if ((mp->m_fuelu == 0) && (item.ship.shp_own == player->cnum)) {
|
|
pr("%s does not use fuel!\n", prship(&item.ship));
|
|
continue;
|
|
}
|
|
|
|
if (harbor) {
|
|
ship_fuel = item.ship.shp_fuel;
|
|
oil_amt = sect.sct_item[I_OIL];
|
|
pet_amt = sect.sct_item[I_PETROL];
|
|
max_amt = mp->m_fuelc - ship_fuel;
|
|
|
|
if (max_amt == 0) {
|
|
pr("%s already has a full fuel load.\n",
|
|
prship(&item.ship));
|
|
continue;
|
|
}
|
|
tot_fuel = (oil_amt * 50 + pet_amt * 5);
|
|
if (tot_fuel == 0) {
|
|
pr("No fuel in the harbor at %s!\n",
|
|
xyas(sect.sct_x, sect.sct_y, player->cnum));
|
|
continue;
|
|
}
|
|
move_amt = MIN(tot_fuel, fuel_amt);
|
|
move_amt = MIN(move_amt, max_amt);
|
|
|
|
if (move_amt == 0)
|
|
continue;
|
|
|
|
item.ship.shp_fuel += move_amt;
|
|
|
|
fueled = 1;
|
|
if ((pet_amt * 5) >= move_amt) {
|
|
extra = move_amt / 5.0 - move_amt / 5;
|
|
if (extra > 0.0)
|
|
sect.sct_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5) - 1, 0);
|
|
else
|
|
sect.sct_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5), 0);
|
|
} else {
|
|
sect.sct_item[I_PETROL] = 0;
|
|
move_amt -= pet_amt * 5;
|
|
extra = move_amt / 50.0 - move_amt / 50;
|
|
sect.sct_item[I_OIL] = MAX(oil_amt - move_amt / 50, 0);
|
|
if (extra > 0.0)
|
|
sect.sct_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50) - 1, 0);
|
|
else
|
|
sect.sct_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50), 0);
|
|
}
|
|
|
|
/* load plague */
|
|
if (sect.sct_pstage == PLG_INFECT
|
|
&& item.ship.shp_pstage == PLG_HEALTHY)
|
|
item.ship.shp_pstage = PLG_EXPOSED;
|
|
|
|
putsect(§);
|
|
putship(item.ship.shp_uid, &item.ship);
|
|
} else { /* not in a harbor */
|
|
if (!player->argp[4])
|
|
pr("%s is not in a supplied, efficient harbor\n",
|
|
prship(&item.ship));
|
|
if (!snxtitem(&tender, EF_SHIP,
|
|
getstarg(player->argp[4], "Oiler? ", buf)))
|
|
continue;
|
|
|
|
if (!check_ship_ok(&item.ship))
|
|
continue;
|
|
|
|
if (!nxtitem(&tender, &item2))
|
|
continue;
|
|
|
|
if (!(mchr[(int)item2.ship.shp_type].m_flags & M_OILER)) {
|
|
pr("%s is not an oiler!\n", prship(&item2.ship));
|
|
continue;
|
|
}
|
|
if (item2.ship.shp_own != player->cnum) {
|
|
pr("You don't own that oiler!\n");
|
|
continue;
|
|
}
|
|
|
|
if ((item2.ship.shp_x != item.ship.shp_x) ||
|
|
(item2.ship.shp_y != item.ship.shp_y)) {
|
|
pr("Not in the same sector!\n");
|
|
continue;
|
|
}
|
|
ship_fuel = item.ship.shp_fuel;
|
|
oil_amt = item2.ship.shp_item[I_OIL];
|
|
pet_amt = item2.ship.shp_item[I_PETROL];
|
|
max_amt = mp->m_fuelc - ship_fuel;
|
|
|
|
if (max_amt == 0) {
|
|
pr("%s already has a full fuel load.\n",
|
|
prship(&item.ship));
|
|
continue;
|
|
}
|
|
tot_fuel = oil_amt * 50 + pet_amt * 5;
|
|
move_amt = MIN(tot_fuel, fuel_amt);
|
|
move_amt = MIN(move_amt, max_amt);
|
|
|
|
if (move_amt == 0)
|
|
continue;
|
|
|
|
item.ship.shp_fuel += move_amt;
|
|
|
|
fueled = 1;
|
|
if ((pet_amt * 5) >= move_amt) {
|
|
extra = move_amt / 5.0 - move_amt / 5;
|
|
if (extra > 0.0)
|
|
item2.ship.shp_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5) - 1, 0);
|
|
else
|
|
item2.ship.shp_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5), 0);
|
|
} else {
|
|
item2.ship.shp_item[I_PETROL] = 0;
|
|
move_amt -= pet_amt * 5;
|
|
extra = move_amt / 50.0 - move_amt / 50;
|
|
item2.ship.shp_item[I_OIL]
|
|
= MAX(oil_amt - (move_amt / 50), 0);
|
|
if (extra > 0.0)
|
|
item2.ship.shp_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50) - 1, 0);
|
|
else
|
|
item2.ship.shp_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50), 0);
|
|
}
|
|
|
|
/* load plague */
|
|
if (item2.ship.shp_pstage == PLG_INFECT
|
|
&& item.ship.shp_pstage == PLG_HEALTHY)
|
|
item.ship.shp_pstage = PLG_EXPOSED;
|
|
|
|
putship(item.ship.shp_uid, &item.ship);
|
|
/* quick hack -KHS */
|
|
if (item.ship.shp_uid == item2.ship.shp_uid)
|
|
item2.ship.shp_fuel = item.ship.shp_fuel;
|
|
putship(item2.ship.shp_uid, &item2.ship);
|
|
}
|
|
pr("%s", prship(&item.ship));
|
|
} else {
|
|
if (item.land.lnd_own != player->cnum)
|
|
continue;
|
|
|
|
if (!getsect(item.land.lnd_x, item.land.lnd_y, §))
|
|
continue;
|
|
|
|
if (!player->owner)
|
|
continue;
|
|
|
|
lcp = &lchr[(int)item.land.lnd_type];
|
|
|
|
sector = 1;
|
|
oil_amt = sect.sct_item[I_OIL];
|
|
pet_amt = sect.sct_item[I_PETROL];
|
|
|
|
if ((oil_amt + pet_amt) == 0)
|
|
sector = 0;
|
|
|
|
if (lcp->l_fuelu == 0
|
|
&& (item.land.lnd_own == player->cnum)) {
|
|
pr("%s does not use fuel!\n", prland(&item.land));
|
|
continue;
|
|
}
|
|
|
|
if (sector) {
|
|
land_fuel = item.land.lnd_fuel;
|
|
oil_amt = sect.sct_item[I_OIL];
|
|
pet_amt = sect.sct_item[I_PETROL];
|
|
max_amt = lcp->l_fuelc - land_fuel;
|
|
|
|
if (max_amt == 0) {
|
|
pr("%s already has a full fuel load.\n",
|
|
prland(&item.land));
|
|
continue;
|
|
}
|
|
tot_fuel = (oil_amt * 50 + pet_amt * 5);
|
|
if (tot_fuel == 0) {
|
|
pr("No fuel in the sector at %s!\n",
|
|
xyas(sect.sct_x, sect.sct_y, player->cnum));
|
|
continue;
|
|
}
|
|
move_amt = MIN(tot_fuel, fuel_amt);
|
|
move_amt = MIN(move_amt, max_amt);
|
|
|
|
if (move_amt == 0)
|
|
continue;
|
|
|
|
item.land.lnd_fuel += move_amt;
|
|
|
|
fueled = 1;
|
|
if ((pet_amt * 5) >= move_amt) {
|
|
extra = move_amt / 5.0 - move_amt / 5;
|
|
if (extra > 0.0)
|
|
sect.sct_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5) - 1, 0);
|
|
else
|
|
sect.sct_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5), 0);
|
|
} else {
|
|
sect.sct_item[I_PETROL] = 0;
|
|
move_amt -= pet_amt * 5;
|
|
extra = move_amt / 50.0 - move_amt / 50;
|
|
sect.sct_item[I_OIL] = MAX(oil_amt - move_amt / 50, 0);
|
|
if (extra > 0.0)
|
|
sect.sct_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50) - 1, 0);
|
|
else
|
|
sect.sct_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50), 0);
|
|
}
|
|
|
|
/* load plague */
|
|
if (sect.sct_pstage == PLG_INFECT
|
|
&& item.land.lnd_pstage == PLG_HEALTHY)
|
|
item.land.lnd_pstage = PLG_EXPOSED;
|
|
|
|
putsect(§);
|
|
putland(item.land.lnd_uid, &item.land);
|
|
} else { /* not in a sector */
|
|
if (!player->argp[4])
|
|
pr("%s is not in a supplied sector\n",
|
|
prland(&item.land));
|
|
if (!snxtitem(<ender, EF_LAND,
|
|
getstarg(player->argp[4], "Supply unit? ",
|
|
buf)))
|
|
continue;
|
|
|
|
if (!check_land_ok(&item.land))
|
|
continue;
|
|
|
|
if (!nxtitem(<ender, &item2))
|
|
continue;
|
|
|
|
if (!(lchr[(int)item2.land.lnd_type].l_flags & L_SUPPLY)) {
|
|
pr("%s is not a supply unit!\n", prland(&item2.land));
|
|
continue;
|
|
}
|
|
if (item2.land.lnd_own != player->cnum) {
|
|
pr("You don't own that unit!\n");
|
|
continue;
|
|
}
|
|
|
|
if ((item2.land.lnd_x != item.land.lnd_x) ||
|
|
(item2.land.lnd_y != item.land.lnd_y)) {
|
|
pr("Not in the same sector!\n");
|
|
continue;
|
|
}
|
|
land_fuel = item.land.lnd_fuel;
|
|
oil_amt = item2.land.lnd_item[I_OIL];
|
|
pet_amt = item2.land.lnd_item[I_PETROL];
|
|
max_amt = lcp->l_fuelc - land_fuel;
|
|
|
|
if (max_amt == 0) {
|
|
pr("%s already has a full fuel load.\n",
|
|
prland(&item.land));
|
|
continue;
|
|
}
|
|
tot_fuel = oil_amt * 50 + pet_amt * 5;
|
|
move_amt = MIN(tot_fuel, fuel_amt);
|
|
move_amt = MIN(move_amt, max_amt);
|
|
|
|
if (move_amt == 0)
|
|
continue;
|
|
|
|
item.land.lnd_fuel += move_amt;
|
|
|
|
fueled = 1;
|
|
if ((pet_amt * 5) >= move_amt) {
|
|
extra = move_amt / 5.0 - move_amt / 5;
|
|
if (extra > 0.0)
|
|
item2.land.lnd_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5) - 1, 0);
|
|
else
|
|
item2.land.lnd_item[I_PETROL]
|
|
= MAX((pet_amt - move_amt / 5), 0);
|
|
} else {
|
|
item2.land.lnd_item[I_PETROL] = 0;
|
|
move_amt -= pet_amt * 5;
|
|
extra = move_amt / 50.0 - move_amt / 50;
|
|
item2.land.lnd_item[I_OIL]
|
|
= MAX(oil_amt - move_amt / 50, 0);
|
|
if (extra > 0.0)
|
|
item2.land.lnd_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50) - 1, 0);
|
|
else
|
|
item2.land.lnd_item[I_OIL]
|
|
= MAX((oil_amt - move_amt / 50), 0);
|
|
}
|
|
|
|
/* load plague */
|
|
if (item2.land.lnd_pstage == PLG_INFECT
|
|
&& item.land.lnd_pstage == PLG_HEALTHY)
|
|
item.land.lnd_pstage = PLG_EXPOSED;
|
|
|
|
putland(item.land.lnd_uid, &item.land);
|
|
/* quick hack -KHS */
|
|
if (item2.land.lnd_uid == item.land.lnd_uid)
|
|
item2.land.lnd_fuel = item.land.lnd_fuel;
|
|
putland(item2.land.lnd_uid, &item2.land);
|
|
}
|
|
pr("%s", prland(&item.land));
|
|
}
|
|
if (fueled) {
|
|
pr(" takes on %d fuel in %s\n",
|
|
move_amt,
|
|
xyas(item.ship.shp_x, item.ship.shp_y, player->cnum));
|
|
if (player->cnum != item.ship.shp_own)
|
|
wu(0, item.ship.shp_own,
|
|
"%s takes on %d fuel in %s courtesy of %s\n",
|
|
prship(&item.ship),
|
|
move_amt,
|
|
xyas(item.ship.shp_x, item.ship.shp_y,
|
|
item.ship.shp_own), cname(player->cnum));
|
|
}
|
|
}
|
|
return RET_OK;
|
|
}
|