/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2008, Dave Pare, Jeff Bailey, Thomas Ruschak,
- * Ken Stevens, Steve McClure
+ * Copyright (C) 1986-2013, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Ken Stevens, Steve McClure, Markus Armbruster
*
- * This program is free software; you can redistribute it and/or modify
+ * Empire 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
+ * the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* 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
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* ---
*
* ---
*
* trad.c: Buy units/ships/planes/nukes from other nations.
- *
+ *
* Known contributors to this file:
* Dave Pare, 1986
* Pat Loney, 1992
* Steve McClure, 1996-2000
+ * Markus Armbruster, 2004-2013
*/
#include <config.h>
#include <ctype.h>
+#include "chance.h"
#include "commands.h"
#include "commodity.h"
#include "empobj.h"
#include "plane.h"
#include "ship.h"
#include "trade.h"
+#include "unit.h"
/*
* format: trade
int bid;
double tleft;
double tally;
- int q;
+ int i;
char buf[1024];
if (!opt_MARKET) {
TRADE_DELAY / 3600.0 - (now - trade.trd_markettime) / 3600.0;
if (tleft < 0.0)
tleft = 0.0;
- pr("$%7ld %2d %5.2f hrs ",
+ pr("$%7d %2d %5.2f hrs ",
trade.trd_price, trade.trd_maxbidder, tleft);
- (void)trade_desc(&trade, &tg); /* XXX */
+ trade_desc(&tg.gen); /* XXX */
pr("\n");
if (trade.trd_owner == player->cnum && !player->god)
pr(" (your own lot)\n");
pr("Nothing to buy at the moment...\n");
return RET_OK;
}
- if ((p = getstring("Which lot to buy: ", buf)) == 0 || *p == 0)
+ p = getstring("Which lot to buy: ", buf);
+ if (!p || !*p)
return RET_OK;
if (isdigit(*p) == 0)
return RET_OK;
}
if (!trade_getitem(&trade, &tg)) {
pr("Can't find trade #%d!\n", trade.trd_unitid);
+ trade.trd_owner = 0;
trade.trd_unitid = -1;
if (!puttrade(lotno, &trade)) {
logerror("trad: can't write trade");
return RET_OK;
}
tally = 0.0;
- for (q = 0; gettrade(q, &tmpt); q++) {
+ for (i = 0; gettrade(i, &tmpt); i++) {
if (tmpt.trd_maxbidder == player->cnum &&
tmpt.trd_unitid >= 0 && tmpt.trd_owner != player->cnum) {
tally += tmpt.trd_price * tradetax;
}
}
- for (q = 0; getcomm(q, &comt); q++) {
+ for (i = 0; getcomm(i, &comt); i++) {
if (comt.com_maxbidder == player->cnum &&
comt.com_owner != 0 && comt.com_owner != player->cnum) {
tally += (comt.com_price * comt.com_amount) * buytax;
}
}
canspend = natp->nat_money - tally;
- /*
- * Find the destination sector for the plane before the trade is
- * actually made, except for satellites in orbit. Must be owned
- * and must be a 60% airfield (except for VTOL planes).
- */
+
+ /* Find the destination sector for the trade */
if (((trade.trd_type == EF_PLANE) && !pln_is_in_orbit(&tg.plane))
|| (trade.trd_type == EF_NUKE)) {
while (1) {
p = getstring("Destination sector: ", buf);
- if (!trade_check_ok(&trade, &tg))
+ if (!trade_check_ok(&trade, &tg.gen))
return RET_FAIL;
- if (p == 0) {
+ if (!p) {
return RET_FAIL;
}
if (!sarg_xy(p, &sx, &sy) || !getsect(sx, sy, §)) {
}
break;
}
- }
- if (trade.trd_type == EF_LAND) {
+ } else if (trade.trd_type == EF_LAND) {
while (1) {
p = getstring("Destination sector: ", buf);
- if (!trade_check_ok(&trade, &tg))
+ if (!trade_check_ok(&trade, &tg.gen))
return RET_FAIL;
- if (p == 0) {
+ if (!p) {
return RET_FAIL;
}
if (!sarg_xy(p, &sx, &sy) || !getsect(sx, sy, §)) {
}
break;
}
+ } else {
+ /* This trade doesn't teleport; make destination invalid */
+ sx = 1;
+ sy = 0;
}
- if ((p = getstring("How much do you bid: ", buf)) == 0 || *p == 0)
+ p = getstring("How much do you bid: ", buf);
+ if (!p || !*p)
return RET_OK;
- if (!trade_check_ok(&trade, &tg))
+ if (!trade_check_ok(&trade, &tg.gen))
return RET_FAIL;
bid = atoi(p);
if (bid < price)
return RET_OK;
}
if (bid > trade.trd_price) {
- /* Add five minutes to the time if less than 5 minutes left. */
time(&now);
- if (((TRADE_DELAY - (now - trade.trd_markettime)) < 300) &&
+ if (trade.trd_markettime + TRADE_DELAY - now < minutes(5) &&
trade.trd_maxbidder != player->cnum)
- trade.trd_markettime += 300;
+ trade.trd_markettime = now + minutes(5) - TRADE_DELAY;
trade.trd_price = bid;
trade.trd_maxbidder = player->cnum;
trade.trd_x = sx;
check_trade(void)
{
int n;
- struct nstr_item ni;
- struct plnstr plane;
- struct lndstr land;
struct natstr *natp;
struct trdstr trade;
union empobj_storage tg;
time_t now;
double tleft;
- float price;
+ int price;
int saveid;
+ natid seller;
-/* logerror("Checking the trades.\n");*/
for (n = 0; gettrade(n, &trade); n++) {
if (trade.trd_unitid < 0)
continue;
if (!trade_getitem(&trade, &tg))
continue;
if (tg.gen.own == 0) {
+ trade.trd_owner = 0;
trade.trd_unitid = -1;
puttrade(n, &trade);
continue;
}
if (tg.gen.own != trade.trd_owner) {
logerror("Something weird, tg.gen.own != trade.trd_owner!\n");
+ trade.trd_owner = 0;
trade.trd_unitid = -1;
puttrade(n, &trade);
continue;
continue;
saveid = trade.trd_unitid;
+ seller = trade.trd_owner;
+ trade.trd_owner = 0;
trade.trd_unitid = -1;
if (!puttrade(n, &trade)) {
logerror("Couldn't save trade after purchase; get help!\n");
price = trade.trd_price;
natp = getnatp(trade.trd_maxbidder);
if (natp->nat_money < price) {
- nreport(trade.trd_maxbidder, N_WELCH_DEAL, trade.trd_owner, 1);
- wu(0, trade.trd_owner,
+ nreport(trade.trd_maxbidder, N_WELCH_DEAL, seller, 1);
+ wu(0, seller,
"%s tried to buy a %s #%d from you for $%.2f\n",
- cname(trade.trd_maxbidder), trade_nameof(&trade, &tg),
+ cname(trade.trd_maxbidder), trade_nameof(&trade, &tg.gen),
saveid, price * tradetax);
- wu(0, trade.trd_owner, " but couldn't afford it.\n");
- wu(0, trade.trd_owner,
+ wu(0, seller, " but couldn't afford it.\n");
+ wu(0, seller,
" Your item was taken off the market.\n");
wu(0, trade.trd_maxbidder,
- "You tried to buy %s #%d from %s for $%.2f\n",
- trade_nameof(&trade, &tg), saveid, cname(trade.trd_owner),
+ "You tried to buy %s #%d from %s for $%d\n",
+ trade_nameof(&trade, &tg.gen), saveid, cname(seller),
price);
wu(0, trade.trd_maxbidder, "but couldn't afford it.\n");
continue;
natp->nat_money -= price;
putnat(natp);
- natp = getnatp(trade.trd_owner);
+ natp = getnatp(seller);
natp->nat_money += roundavg(price * tradetax);
putnat(natp);
case EF_NUKE:
tg.nuke.nuk_x = trade.trd_x;
tg.nuke.nuk_y = trade.trd_y;
- tg.nuke.nuk_own = trade.trd_maxbidder;
+ tg.nuke.nuk_plane = -1;
break;
case EF_PLANE:
if (!pln_is_in_orbit(&tg.plane)) {
tg.plane.pln_x = trade.trd_x;
tg.plane.pln_y = trade.trd_y;
}
- tg.plane.pln_own = trade.trd_maxbidder;
- tg.plane.pln_wing = 0;
- /* no cheap version of fly */
if (opt_MOB_ACCESS) {
tg.plane.pln_mobil = -(etu_per_update / sect_mob_neg_factor);
game_tick_to_now(&tg.plane.pln_access);
} else {
tg.plane.pln_mobil = 0;
}
- tg.plane.pln_mission = 0;
tg.plane.pln_harden = 0;
tg.plane.pln_ship = -1;
tg.plane.pln_land = -1;
break;
case EF_SHIP:
- takeover_ship(&tg.ship, trade.trd_maxbidder, 0);
break;
case EF_LAND:
tg.land.lnd_x = trade.trd_x;
tg.land.lnd_y = trade.trd_y;
- tg.land.lnd_own = trade.trd_maxbidder;
- tg.land.lnd_army = 0;
- /* no cheap version of fly */
if (opt_MOB_ACCESS) {
tg.land.lnd_mobil = -(etu_per_update / sect_mob_neg_factor);
game_tick_to_now(&tg.land.lnd_access);
tg.land.lnd_mobil = 0;
}
tg.land.lnd_harden = 0;
- tg.land.lnd_mission = 0;
- /* Drop any land units this unit was carrying */
- snxtitem_xy(&ni, EF_LAND, tg.land.lnd_x, tg.land.lnd_y);
- while (nxtitem(&ni, &land)) {
- if (land.lnd_land != tg.land.lnd_uid)
- continue;
- land.lnd_land = -1;
- wu(0, land.lnd_own, "unit #%d dropped in %s\n",
- land.lnd_uid,
- xyas(land.lnd_x, land.lnd_y, land.lnd_own));
- putland(land.lnd_uid, &land);
- }
- /* Drop any planes this unit was carrying */
- snxtitem_xy(&ni, EF_PLANE, tg.land.lnd_x, tg.land.lnd_y);
- while (nxtitem(&ni, &plane)) {
- if (plane.pln_flags & PLN_LAUNCHED)
- continue;
- if (plane.pln_land != land.lnd_uid)
- continue;
- plane.pln_land = -1;
- wu(0, plane.pln_own, "plane #%d dropped in %s\n",
- plane.pln_uid,
- xyas(plane.pln_x, plane.pln_y, plane.pln_own));
- putplane(plane.pln_uid, &plane);
- }
+ unit_drop_cargo(&tg.gen, 0);
tg.land.lnd_ship = -1;
tg.land.lnd_land = -1;
break;
logerror("Bad trade type %d in trade\n", trade.trd_type);
break;
}
- if (!ef_write(trade.trd_type, saveid, &tg)) {
- logerror("Couldn't write unit to disk; seek help.\n");
- continue;
- }
- nreport(trade.trd_owner, N_MAKE_SALE, trade.trd_maxbidder, 1);
- wu(0, trade.trd_owner, "%s bought a %s #%d from you for $%.2f\n",
- cname(trade.trd_maxbidder), trade_nameof(&trade, &tg),
+ unit_give_away(&tg.gen, trade.trd_maxbidder, 0);
+ put_empobj(trade.trd_type, saveid, &tg.gen);
+
+ nreport(seller, N_MAKE_SALE, trade.trd_maxbidder, 1);
+ wu(0, seller, "%s bought %s #%d from you for $%.2f\n",
+ cname(trade.trd_maxbidder), trade_nameof(&trade, &tg.gen),
saveid, price * tradetax);
wu(0, trade.trd_maxbidder,
- "The bidding is over & you bought %s #%d from %s for $%.2f\n",
- trade_nameof(&trade, &tg), saveid, cname(trade.trd_owner),
+ "The bidding is over & you bought %s #%d from %s for $%d\n",
+ trade_nameof(&trade, &tg.gen), saveid, cname(seller),
price);
}
-/* logerror("Done checking the trades.\n");*/
return RET_OK;
}
projects / empserver / blobdiff