git.pond.sub.org Git - empserver/blob - src/lib/commands/setsect.c

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1986-2009, Dave Pare, Jeff Bailey, Thomas Ruschak,
   4  *                           Ken Stevens, Steve McClure
   5  *
   6  *  This program is free software; you can redistribute it and/or modify
   7  *  it under the terms of the GNU General Public License as published by
   8  *  the Free Software Foundation; either version 2 of the License, or
   9  *  (at your option) any later version.
  10  *
  11  *  This program is distributed in the hope that it will be useful,
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  *  GNU General Public License for more details.
  15  *
  16  *  You should have received a copy of the GNU General Public License
  17  *  along with this program; if not, write to the Free Software
  18  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  *
  20  *  ---
  21  *
  22  *  See files README, COPYING and CREDITS in the root of the source
  23  *  tree for related information and legal notices.  It is expected
  24  *  that future projects/authors will amend these files as needed.
  25  *
  26  *  ---
  27  *
  28  *  setsect.c: Give resources to a country
  29  *
  30  *  Known contributors to this file:
  31  *     David Muir Sharnoff
  32  *     Steve McClure, 1998
  33  */
  34
  35 #include <config.h>
  36
  37 #include "commands.h"
  38 #include "lost.h"
  39 #include "news.h"
  40 #include "optlist.h"
  41
  42
  43 /*
  44  * format: setres thing <sect> <#>
  45  */
  46 int
  47 setsector(void)
  48 {
  49     struct sctstr sect;
  50     char *what;
  51     int amt, current;
  52     char *p;
  53     struct nstr_sect nstr;
  54     char buf[1024];
  55     char char0, char1;
  56
  57     what = getstarg(player->argp[1],
  58                     "Give What (iron, gold, oil, uranium, fertility, owner, eff., mob., work, avail., oldown, mines)? ",
  59                     buf);
  60     if (!what)
  61         return RET_SYN;
  62     char0 = what[0];
  63     char1 = what[1];
  64
  65     switch (char0) {
  66     case 'i':
  67         if (!snxtsct(&nstr, player->argp[2]))
  68             return RET_SYN;
  69         while (nxtsct(&nstr, &sect) > 0) {
  70             p = getstarg(player->argp[3], "What value : ", buf);
  71             if (!p || !*p)
  72                 return RET_SYN;
  73             amt = atoi(p);
  74             current = sect.sct_min;
  75             current += amt;
  76             if (current < 0)
  77                 current = 0;
  78             if (current > 100)
  79                 current = 100;
  80             if (sect.sct_own != 0)
  81                 resnoise(&sect, 1, "Iron ore content",
  82                          (int)sect.sct_min, current);
  83             sect.sct_min = (unsigned char)current;
  84             putsect(&sect);
  85         }
  86         break;
  87     case 'g':
  88         if (!snxtsct(&nstr, player->argp[2]))
  89             return RET_SYN;
  90         while (nxtsct(&nstr, &sect) > 0) {
  91             p = getstarg(player->argp[3], "What value : ", buf);
  92             if (!p || !*p)
  93                 return RET_SYN;
  94             amt = atoi(p);
  95             current = sect.sct_gmin;
  96             current += amt;
  97             if (current < 0)
  98                 current = 0;
  99             if (current > 100)
 100                 current = 100;
 101             if (sect.sct_own != 0)
 102                 resnoise(&sect, 1, "Gold content",
 103                          (int)sect.sct_gmin, current);
 104             sect.sct_gmin = (unsigned char)current;
 105             putsect(&sect);
 106         }
 107         break;
 108     case 'o':
 109         switch (char1) {
 110         case 'i':
 111             if (!snxtsct(&nstr, player->argp[2]))
 112                 return RET_SYN;
 113             while (nxtsct(&nstr, &sect) > 0) {
 114                 p = getstarg(player->argp[3], "What value : ", buf);
 115                 if (!p || !*p)
 116                     return RET_SYN;
 117                 amt = atoi(p);
 118                 current = sect.sct_oil;
 119                 current += amt;
 120                 if (current < 0)
 121                     current = 0;
 122                 if (current > 100)
 123                     current = 100;
 124                 if (sect.sct_own != 0)
 125                     resnoise(&sect, 1, "Oil content",
 126                              (int)sect.sct_oil, current);
 127                 sect.sct_oil = (unsigned char)current;
 128                 putsect(&sect);
 129             }
 130             break;
 131         case 'w':
 132             if (!snxtsct(&nstr, player->argp[2]))
 133                 return RET_SYN;
 134             while (nxtsct(&nstr, &sect) > 0) {
 135                 p = getstarg(player->argp[3], "What value : ", buf);
 136                 if (!p || !*p)
 137                     return RET_SYN;
 138                 amt = atoi(p);
 139                 if ((amt < 0) || (amt > MAXNOC - 1))
 140                     return RET_SYN;
 141                 pr("Owner of %s changed from %s (#%d) to %s (#%d).\n",
 142                    xyas(sect.sct_x, sect.sct_y, player->cnum),
 143                    cname(sect.sct_own), sect.sct_own, cname(amt), amt);
 144                 if (sect.sct_own) {
 145                     wu(player->cnum, sect.sct_own,
 146                        "Sector %s lost to deity intervention\n",
 147                        xyas(sect.sct_x, sect.sct_y, sect.sct_own));
 148                 }
 149                 if (amt)
 150                     wu(player->cnum, amt,
 151                        "Sector %s gained from deity intervention\n",
 152                        xyas(sect.sct_x, sect.sct_y, amt));
 153                 sect.sct_own = (natid)amt;
 154                 putsect(&sect);
 155             }
 156             break;
 157         case 'l':
 158             if (!snxtsct(&nstr, player->argp[2]))
 159                 return RET_SYN;
 160             while (nxtsct(&nstr, &sect) > 0) {
 161                 p = getstarg(player->argp[3], "What value : ", buf);
 162                 if (!p || !*p)
 163                     return RET_SYN;
 164                 amt = atoi(p);
 165                 if ((amt < 0) || (amt > MAXNOC - 1))
 166                     return RET_SYN;
 167                 pr("Old owner of %s changed from %s (#%d) to %s (#%d).\n",
 168                    xyas(sect.sct_x, sect.sct_y, player->cnum),
 169                    cname(sect.sct_oldown),
 170                    sect.sct_oldown, cname(amt), amt);
 171                 sect.sct_oldown = (natid)amt;
 172                 putsect(&sect);
 173             }
 174             break;
 175         default:
 176             pr("huh?\n");
 177             return RET_SYN;
 178         }
 179         break;
 180     case 'e':
 181         if (!snxtsct(&nstr, player->argp[2]))
 182             return RET_SYN;
 183         while (nxtsct(&nstr, &sect) > 0) {
 184             p = getstarg(player->argp[3], "What value : ", buf);
 185             if (!p || !*p)
 186                 return RET_SYN;
 187             amt = atoi(p);
 188             current = sect.sct_effic;
 189             current += amt;
 190             if (current < 0)
 191                 current = 0;
 192             if (current > 100)
 193                 current = 100;
 194             pr("Efficiency in %s changed to %d.\n",
 195                xyas(sect.sct_x, sect.sct_y, player->cnum), current);
 196             sect.sct_effic = (unsigned char)current;
 197             putsect(&sect);
 198         }
 199         break;
 200     case 'm':
 201         switch (char1) {
 202         case 'i':
 203             if (!snxtsct(&nstr, player->argp[2]))
 204                 return RET_SYN;
 205             while (nxtsct(&nstr, &sect) > 0) {
 206                 p = getstarg(player->argp[3], "What value : ", buf);
 207                 if (!p || !*p)
 208                     return RET_SYN;
 209                 amt = atoi(p);
 210                 current = sect.sct_mines;
 211                 current += amt;
 212                 if (current < 0)
 213                     current = 0;
 214                 if (current > MINES_MAX)
 215                     current = MINES_MAX;
 216                 if (sect.sct_own != 0)
 217                     resnoise(&sect, 1, "Mines", sect.sct_mines, current);
 218                 sect.sct_mines = current;
 219                 putsect(&sect);
 220             }
 221             break;
 222         case 'o':
 223             if (!snxtsct(&nstr, player->argp[2]))
 224                 return RET_SYN;
 225             while (nxtsct(&nstr, &sect) > 0) {
 226                 p = getstarg(player->argp[3], "What value : ", buf);
 227                 if (!p || !*p)
 228                     return RET_SYN;
 229                 amt = atoi(p);
 230                 current = sect.sct_mobil;
 231                 current += amt;
 232                 if (current < -127)
 233                     current = -127;
 234                 if (current > 127)
 235                     current = 127;
 236                 pr("Mobility in %s changed to %d.\n",
 237                    xyas(sect.sct_x, sect.sct_y, player->cnum), current);
 238                 sect.sct_mobil = (short)current;
 239                 putsect(&sect);
 240             }
 241             break;
 242         default:
 243             pr("huh?\n");
 244             return RET_SYN;
 245         }
 246         break;
 247     case 'a':
 248         if (!snxtsct(&nstr, player->argp[2]))
 249             return RET_SYN;
 250         while (nxtsct(&nstr, &sect) > 0) {
 251             p = getstarg(player->argp[3], "What value : ", buf);
 252             if (!p || !*p)
 253                 return RET_SYN;
 254             amt = atoi(p);
 255             current = sect.sct_avail;
 256             current += amt;
 257             if (current < 0)
 258                 current = 0;
 259             if (current > 9999)
 260                 current = 9999;
 261             pr("Available in %s changed to %d.\n",
 262                xyas(sect.sct_x, sect.sct_y, player->cnum), current);
 263             sect.sct_avail = (short)current;
 264             putsect(&sect);
 265         }
 266         break;
 267     case 'w':
 268         if (!snxtsct(&nstr, player->argp[2]))
 269             return RET_SYN;
 270         while (nxtsct(&nstr, &sect) > 0) {
 271             p = getstarg(player->argp[3], "What value : ", buf);
 272             if (!p || !*p)
 273                 return RET_SYN;
 274             amt = atoi(p);
 275             current = sect.sct_work;
 276             current += amt;
 277             if (current < 0)
 278                 current = 0;
 279             if (current > 100)
 280                 current = 100;
 281             pr("Work in %s changed to %d.\n",
 282                xyas(sect.sct_x, sect.sct_y, player->cnum), current);
 283             sect.sct_work = (unsigned char)current;
 284             putsect(&sect);
 285         }
 286         break;
 287     case 'f':
 288         if (!snxtsct(&nstr, player->argp[2]))
 289             return RET_SYN;
 290         while (nxtsct(&nstr, &sect) > 0) {
 291             p = getstarg(player->argp[3], "What value : ", buf);
 292             if (!p || !*p)
 293                 return RET_SYN;
 294             amt = atoi(p);
 295             current = sect.sct_fertil;
 296             current += amt;
 297             if (current < 0)
 298                 current = 0;
 299             if (current > 100)
 300                 current = 100;
 301             if (sect.sct_own != 0)
 302                 resnoise(&sect, 1, "Fertility content",
 303                          (int)sect.sct_fertil, current);
 304             sect.sct_fertil = (unsigned char)current;
 305             putsect(&sect);
 306         }
 307         break;
 308     case 'u':
 309         if (!snxtsct(&nstr, player->argp[2]))
 310             return RET_SYN;
 311         while (nxtsct(&nstr, &sect) > 0) {
 312             p = getstarg(player->argp[3], "What value : ", buf);
 313             if (!p || !*p)
 314                 return RET_SYN;
 315             amt = atoi(p);
 316             current = sect.sct_uran;
 317             current += amt;
 318             if (current < 0)
 319                 current = 0;
 320             if (current > 100)
 321                 current = 100;
 322             if (sect.sct_own != 0)
 323                 resnoise(&sect, 1, "Uranium content",
 324                          (int)sect.sct_uran, current);
 325             sect.sct_uran = (unsigned char)current;
 326             putsect(&sect);
 327         }
 328         break;
 329     default:
 330         pr("huh?\n");
 331         return RET_SYN;
 332     }
 333     return RET_OK;
 334 }
 335
 336 static void
 337 resbenefit(natid who, int good)
 338 {
 339     if (!opt_GODNEWS)
 340         return;
 341
 342     if (good) {
 343         if (who)
 344             nreport(player->cnum, N_AIDS, who, 1);
 345     } else {
 346         if (who)
 347             nreport(player->cnum, N_HURTS, who, 1);
 348     }
 349 }
 350
 351 void
 352 resnoise(struct sctstr *sptr, int public_amt, char *name, int old,
 353          int new)
 354 {
 355     char p[100];
 356
 357     pr("%s of %s changed from %d to %d\n",
 358        name, xyas(sptr->sct_x, sptr->sct_y, player->cnum), old, new);
 359     if (public_amt)
 360         (void)sprintf(p, "changed from %d to %d", old, new);
 361     else
 362         (void)sprintf(p, "%s", old < new ? "increased" : "decreased");
 363     if (sptr->sct_own)
 364         wu(0, sptr->sct_own,
 365            "%s in %s was %s by an act of %s\n",
 366            name, xyas(sptr->sct_x, sptr->sct_y, sptr->sct_own),
 367            p, cname(player->cnum));
 368     resbenefit(sptr->sct_own, (old < new));
 369 }