Update copyright notice

[empserver] / src / lib / commands / grin.c

diff --git a/src/lib/commands/grin.c b/src/lib/commands/grin.c
index eb7b293c10b78e71a619528454df03631bb17c5c..2f311d212b5a39a80dde986bc0dcd4554c0ddee8 100644 (file)
--- a/src/lib/commands/grin.c
+++ b/src/lib/commands/grin.c
@@ -1,6 +1,6 @@
 /*
  *  Empire - A multi-player, client/server Internet based war game.
- *  Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ *  Copyright (C) 1986-2009, Dave Pare, Jeff Bailey, Thomas Ruschak,
  *                           Ken Stevens, Steve McClure
  *
  *  This program is free software; you can redistribute it and/or modify
@@ -19,40 +19,42 @@
  *
  *  ---
  *
- *  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.
  *
  *  ---
  *
  *  grin.c: Grind gold bars into dust
- * 
+ *
  *  Known contributors to this file:
- *     
+ *     Markus Armbruster, 2004-2006
  */
 
-#include "misc.h"
-#include "player.h"
-#include "var.h"
-#include "xy.h"
-#include "sect.h"
-#include "nat.h"
-#include "nsc.h"
-#include "deity.h"
-#include "file.h"
-#include "product.h"
+#include <config.h>
+
 #include "commands.h"
+#include "product.h"
 
 int
 grin(void)
 {
     struct nstr_sect nstr;
-    int vec[I_MAX + 1];
     struct sctstr sect;
-    s_char *p;
-    int i, n, qty;
-    int avail;
-    s_char buf[1024];
+    char *p;
+    int prd, i, n, qty;
+    char buf[1024];
+    double grind_eff = 0.8;
+    struct pchrstr *pp;
+    i_type ctype;
+    unsigned camt;
+
+    prd = dchr[SCT_BANK].d_prd;
+    if (prd < 0 || pchr[prd].p_type < 0) {
+       pr("Grinding is disabled.\n");
+       return RET_FAIL;
+    }
+    pp = &pchr[prd];
 
     if ((p = getstarg(player->argp[1], "Sectors? ", buf)) == 0)
        return RET_SYN;
@@ -63,33 +65,44 @@ grin(void)
     qty = atoi(p);
     if (qty < 0)
        return RET_SYN;
+
     while (nxtsct(&nstr, &sect)) {
        if (!player->owner)
            continue;
-/*             getsect(item.sct_x, item.sct_y, &sect); */
        if (sect.sct_effic < 60 || sect.sct_own != player->cnum)
            continue;
-       getvec(VT_ITEM, vec, (s_char *)&sect, EF_SECTOR);
-       n = (vec[I_BAR] >= qty) ? qty : vec[I_BAR];
-       avail = n * 5.0;
-       if (avail > sect.sct_avail) {
-           n = sect.sct_avail / 5;
-           avail = sect.sct_avail;
-           if (n == 0)
+
+       /* materials limit */
+       n = MIN(qty, sect.sct_item[pp->p_type]);
+       /* work limit */
+       n = MIN(n, sect.sct_avail / 5);
+       /* space limit */
+       for (i = 0; i < MAXPRCON; i++) {
+           ctype = pp->p_ctype[i];
+           camt = pp->p_camt[i];
+           if (!camt)
                continue;
+           if (CANT_HAPPEN(ctype <= I_NONE || ctype > I_MAX))
+               continue;
+           n = MIN(n,
+                   (double)(ITEM_MAX - sect.sct_item[ctype])
+                   / (camt * grind_eff));
        }
-       if (n) {
-           vec[I_BAR] -= n;
+
+       if (n > 0) {
            pr("%d bars ground up in %s\n", n,
               xyas(sect.sct_x, sect.sct_y, player->cnum));
-           for (i = 0; i < pchr[P_BAR].p_nv; i++) {
-               vec[unitem(pchr[P_BAR].p_vtype[i])] += (int)((n *
-                                                             pchr[P_BAR].
-                                                             p_vamt[i]) *
-                                                            0.8);
+           sect.sct_item[I_BAR] -= n;
+           for (i = 0; i < MAXPRCON; i++) {
+               ctype = pp->p_ctype[i];
+               camt = pp->p_camt[i];
+               if (!camt)
+                   continue;
+               if (CANT_HAPPEN(ctype <= I_NONE || ctype > I_MAX))
+                   continue;
+               sect.sct_item[ctype] += n * camt * grind_eff;
            }
-           putvec(VT_ITEM, vec, (s_char *)&sect, EF_SECTOR);
-           sect.sct_avail -= avail;
+           sect.sct_avail -= n * 5;
            putsect(&sect);
        }
     }