/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Copyright (C) 1986-2010, Dave Pare, Jeff Bailey, Thomas Ruschak,
* Ken Stevens, Steve McClure
*
* This program is free software; you can redistribute it and/or modify
*
* ---
*
- * See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- * related information and legal notices. It is expected that any future
- * projects/authors will amend these files as needed.
+ * 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.
*
* ---
*
* distribute.c: Do distribution to sectors
- *
+ *
* Known contributors to this file:
* Dave Pare, 1986
* Steve McClure, 1998
*/
-#include <stdlib.h>
-#include "misc.h"
-#include "var.h"
-#include "nat.h"
-#include "sect.h"
+#include <config.h>
+
+#include "distribute.h"
#include "item.h"
-#include "xy.h"
#include "path.h"
-#include "file.h"
-#include "distribute.h"
+#include "plague.h"
+#include "prototypes.h"
#include "update.h"
-#include "subs.h"
-#include "common.h"
+
+#ifdef DISTRIBUTE_DEBUG
+#define DPRINTF(fmt, ...) ((void)printf(fmt , ## __VA_ARGS__))
+#else
+#define DPRINTF(fmt, ...) ((void)0)
+#endif
+
+#define EXPORT_BONUS 10.0
+#define IMPORT_BONUS 10.0
int
-dodistribute(struct sctstr *sp, int imex, s_char *path, double dist_i_cost, double dist_e_cost)
- /* import or export? */
+dodistribute(struct sctstr *sp, int imex,
+ double dist_i_cost, double dist_e_cost)
{
- struct sctstr *getdistsp();
- float distpathcost();
- struct ichrstr *ip;
- struct sctstr *dist;
- int amt;
- int thresh;
- int amt_dist;
- int amt_sect;
- int packing;
- float imcost;
- float excost;
- int dist_packing;
- int diff;
- int item;
- int dists[I_MAX+1];
- int remote[I_MAX+1];
- int local[I_MAX+1];
- int changed;
- int rplague;
- int lplague;
-
- getvec(VT_ITEM, local, (s_char *)sp, EF_SECTOR);
- if ((sp->sct_dist_x == sp->sct_x) && (sp->sct_dist_y == sp->sct_y))
- return 0;
-
- if (getvec(VT_DIST, dists, (s_char *)sp, EF_SECTOR) <= 0)
- return 0;
-
- if (path == (s_char *)0){
- if (sp->sct_own != 0) {
- if (imex == EXPORT) /* only want this once */
- wu(0,sp->sct_own,"No path to dist sector for %s\n",
- ownxy(sp));
- }
- return 0;
+ struct ichrstr *ip;
+ struct sctstr *dist;
+ int amt;
+ int thresh;
+ int amt_dist;
+ int amt_sect;
+ enum i_packing sect_packing, dist_packing;
+ int pack;
+ double mcost;
+ int diff;
+ i_type item;
+ int changed;
+ int rplague;
+ int lplague;
+
+ if ((sp->sct_dist_x == sp->sct_x) && (sp->sct_dist_y == sp->sct_y))
+ return 0;
+
+ if (dist_e_cost < 0.0) {
+ if (sp->sct_own != 0) {
+ if (imex == EXPORT) /* only want this once */
+ wu(0, sp->sct_own, "No path to dist sector for %s\n",
+ ownxy(sp));
}
-
- dist = getsectp(sp->sct_dist_x,sp->sct_dist_y);
- if (dist->sct_effic >= 60)
- dist_packing = dchr[dist->sct_type].d_pkg;
- else
- dist_packing = NPKG; /* No packing */
-
- if (sp->sct_effic >= 60)
- packing = dchr[sp->sct_type].d_pkg;
- else
- packing = NPKG; /* No packing */
-
- if ((dist->sct_effic >= 60) && dchr[dist->sct_type].d_pkg == WPKG)
- packing = dchr[dist->sct_type].d_pkg;
-
- getvec(VT_ITEM, remote, (s_char *)dist, EF_SECTOR);
- lplague = rplague = changed = 0;
- for (item = 1; item < I_MAX+1; item++) {
- if (dists[item] == 0)
- continue;
- ip = &ichr[item];
- thresh = dists[item];
- /*
- * calculate costs for importing and exporting.
- * the div 10.0 is because delivering straight through
- * to the dist sect is cheaper than stopping at each
- * sector along the way (processor-timewise)
- */
- excost = (dist_e_cost/ip->i_pkg[packing] * ip->i_lbs) / 10.0;
- imcost = (dist_i_cost/ip->i_pkg[dist_packing] *ip->i_lbs)/10.0;
- amt_sect = local[item];
- amt_dist = remote[item];
- diff = amt_sect - thresh;
- if (item == I_CIVIL)
- if (sp->sct_own != sp->sct_oldown)
- continue;
- if (item == I_CIVIL)
- if (dist->sct_own != dist->sct_oldown)
- continue;
- if (diff < 0){
- if (imex != IMPORT)
- continue;
-
- if (!military_control(dist))
- continue;
-
- diff = -diff;
- /*
- * import.
- * don't import if no mobility.
- * check to make sure have enough mobility in the
- * dist sector to import what we need.
- */
- if (dist->sct_mobil <= 0) {
- /*logerror(" dist mobil < 0");*/
- continue;
- }
- amt = diff;
- if (item == I_CIVIL)
- amt_dist--; /* Don't send your last civ */
-
- if (amt_dist < amt) {
- amt = amt_dist;
- if (amt_dist == 0)
- continue;
- }
- if (dist->sct_mobil < imcost * amt)
- amt = dist->sct_mobil / imcost;
-
- lplague++;
- /* XXX replace with vector assign and putvec() */
- remote[item] -= amt;
- changed++;
- dist->sct_mobil -= (int) (imcost * amt);
- local[item] += amt;
- } else {
- if (imex != EXPORT)
- continue;
- if (!military_control(sp))
- continue;
- if ((item == I_CIVIL)&&(sp->sct_work < 100))
- continue;
- if ((item == I_CIVIL)&&(sp->sct_own != sp->sct_oldown))
- continue;
- /*
- * export.
- * don't export if no mobility. check to make sure we
- * have mobility enough to do the right thing.
- * also make sure that there's enough space in the
- * target sector to hold the required amt.
- */
- if (sp->sct_mobil <= 0) {
- /*logerror(" sp mob is zero");*/
- continue;
- }
- amt = diff;
- if (amt > amt_sect)
- amt = amt_sect;
- if (sp->sct_mobil < excost * amt)
- amt = sp->sct_mobil / excost;
- if (amt + amt_dist > 9999)
- amt = 9999 - amt_dist;
- if (amt == 0)
- continue;
- /* XXX replace with vector assign and putvec() */
-
- rplague++;
- local[item] -= amt;
- changed++;
- sp->sct_mobil -= (int) (excost * amt);
- remote[item] += amt;
- }
- }
- putvec(VT_ITEM, remote, (s_char *)dist, EF_SECTOR);
- putvec(VT_ITEM, local, (s_char *)sp, EF_SECTOR);
-
- if (lplague) {
- lplague = getvar(V_PSTAGE, (s_char *)dist, EF_SECTOR);
- if (lplague == PLG_INFECT &&
- getvar(V_PSTAGE, (s_char *)sp, EF_SECTOR) == PLG_HEALTHY) {
- putvar(V_PSTAGE, PLG_EXPOSED, (s_char *)sp, EF_SECTOR);
- }
+ return 0;
+ }
+
+ dist = getsectp(sp->sct_dist_x, sp->sct_dist_y);
+ dist_packing = dist->sct_effic >= 60 ? dchr[dist->sct_type].d_pkg : IPKG;
+ sect_packing = sp->sct_effic >= 60 ? dchr[sp->sct_type].d_pkg : IPKG;
+
+ DPRINTF("distribute: %d,%d to %d,%d pathcost %g\n",
+ sp->sct_x, sp->sct_y, sp->sct_dist_x, sp->sct_dist_y,
+ imex == IMPORT ? dist_i_cost : dist_e_cost);
+
+ lplague = rplague = changed = 0;
+ for (item = I_NONE + 1; item <= I_MAX; item++) {
+ if (sp->sct_dist[item] == 0)
+ continue;
+ ip = &ichr[item];
+ thresh = sp->sct_dist[item];
+ /*
+ * calculate costs for importing and exporting.
+ * the mob bonus is because delivering straight through
+ * to the dist sect is cheaper than stopping at each
+ * sector along the way (processor-timewise)
+ */
+ amt_sect = sp->sct_item[item];
+ amt_dist = dist->sct_item[item];
+ diff = amt_sect - thresh;
+ if (item == I_CIVIL)
+ if (sp->sct_own != sp->sct_oldown)
+ continue;
+ if (item == I_CIVIL)
+ if (dist->sct_own != dist->sct_oldown)
+ continue;
+ if (diff < 0) {
+ if (imex != IMPORT)
+ continue;
+
+ if (!military_control(dist))
+ continue;
+
+ diff = -diff;
+ /*
+ * import.
+ * don't import if no mobility.
+ * check to make sure have enough mobility in the
+ * dist sector to import what we need.
+ */
+ if (dist->sct_mobil <= 0)
+ continue;
+ amt = diff;
+ /* make sure not to abandon the sector */
+ if (item == I_CIVIL ||
+ (item == I_MILIT && dist->sct_item[I_CIVIL] == 0))
+ amt_dist--;
+
+ if (amt_dist < amt) {
+ amt = amt_dist;
+ if (amt_dist <= 0)
+ continue;
+ }
+ pack = ip->i_pkg[dist_packing];
+ mcost = dist_i_cost / pack * ip->i_lbs / IMPORT_BONUS;
+ if (dist->sct_mobil < mcost * amt)
+ amt = dist->sct_mobil / mcost;
+
+ lplague++;
+ dist->sct_item[item] -= amt;
+ changed++;
+ dist->sct_mobil -= (int)(mcost * amt);
+ sp->sct_item[item] += amt;
+ } else {
+ if (imex != EXPORT)
+ continue;
+ if (!military_control(sp))
+ continue;
+ if ((item == I_CIVIL) && (sp->sct_work < 100))
+ continue;
+ if ((item == I_CIVIL) && (sp->sct_own != sp->sct_oldown))
+ continue;
+ /*
+ * export.
+ * don't export if no mobility. check to make sure we
+ * have mobility enough to do the right thing.
+ * also make sure that there's enough space in the
+ * target sector to hold the required amt.
+ */
+ if (sp->sct_mobil <= 0)
+ continue;
+ amt = diff;
+ if (amt > amt_sect)
+ amt = amt_sect;
+ pack = MAX(ip->i_pkg[sect_packing], ip->i_pkg[dist_packing]);
+ mcost = dist_e_cost / pack * ip->i_lbs / EXPORT_BONUS;
+ if (sp->sct_mobil < mcost * amt)
+ amt = sp->sct_mobil / mcost;
+ if (amt > ITEM_MAX - amt_dist)
+ amt = ITEM_MAX - amt_dist;
+ if (amt == 0)
+ continue;
+
+ rplague++;
+ sp->sct_item[item] -= amt;
+ changed++;
+ sp->sct_mobil -= (int)(mcost * amt);
+ dist->sct_item[item] += amt;
}
+ }
- if (rplague) {
- rplague = getvar(V_PSTAGE, (s_char *)sp, EF_SECTOR);
- if (rplague == PLG_INFECT &&
- getvar(V_PSTAGE, (s_char *)dist, EF_SECTOR) == PLG_HEALTHY) {
- putvar(V_PSTAGE, PLG_EXPOSED, (s_char *)dist, EF_SECTOR);
- }
- }
+ if (lplague) {
+ lplague = dist->sct_pstage;
+ if (lplague == PLG_INFECT && sp->sct_pstage == PLG_HEALTHY)
+ sp->sct_pstage = PLG_EXPOSED;
+ }
- return changed;
-}
+ if (rplague) {
+ rplague = sp->sct_pstage;
+ if (rplague == PLG_INFECT && dist->sct_pstage == PLG_HEALTHY)
+ dist->sct_pstage = PLG_EXPOSED;
+ }
+ return changed;
+}