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-2000, 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 the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
  23  *  related information and legal notices. It is expected that any future
  24  *  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 <stdio.h>
  36 #include <ctype.h>
  37 #include "misc.h"
  38 #include "player.h"
  39 #include "var.h"
  40 #include "xy.h"
  41 #include "sect.h"
  42 #include "nat.h"
  43 #include "news.h"
  44 #include "nsc.h"
  45 #include "item.h"
  46 #include "file.h"
  47 #include "commands.h"
  48 #include "optlist.h"
  49
  50
  51 /*
  52  * format: setres thing <sect> <#>
  53  */
  54 int
  55 setsector(void)
  56 {
  57         struct  sctstr sect;
  58         s_char  *what;
  59         int     amt,current;
  60         s_char  *p;
  61         struct  nstr_sect nstr;
  62         s_char  buf[1024];
  63         s_char  char0, char1;
  64
  65         if ((what = getstarg(player->argp[1],
  66                 "Give What (iron, gold, oil, uranium, fertility, owner, eff., Mob., Work, Avail., oldown, mines)? ", buf)) == 0)
  67                 return RET_SYN;
  68         char0 = what[0];
  69         char1 = what[1];
  70
  71         switch (char0) {
  72         case 'i':
  73                 if (!snxtsct(&nstr, player->argp[2]))
  74                         return RET_SYN;
  75                 while (nxtsct(&nstr,&sect) > 0) {
  76                         if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
  77                             (*p == '\0'))
  78                                 return RET_SYN;
  79                         amt = atoi(p);
  80                         current = sect.sct_min;
  81                         current += amt;
  82                         if (current < 0)
  83                             current = 0;
  84                         if (current > 100)
  85                             current = 100;
  86                         if (sect.sct_own != 0)
  87                                 resnoise(&sect,1,"Iron ore content",
  88                                          (int) sect.sct_min, current);
  89                         sect.sct_min = (u_char) current;
  90                         putsect(&sect);
  91                         }
  92                 break;
  93         case 'g':
  94                 if (!snxtsct(&nstr, player->argp[2]))
  95                         return RET_SYN;
  96                 while (nxtsct(&nstr,&sect) > 0) {
  97                         if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
  98                             (*p == '\0'))
  99                                 return RET_SYN;
 100                         amt = atoi(p);
 101                         current = sect.sct_gmin;
 102                         current += amt;
 103                         if (current < 0)
 104                             current = 0;
 105                         if (current > 100)
 106                             current = 100;
 107                         if (sect.sct_own != 0)
 108                                 resnoise(&sect,1,"Gold content",
 109                                         (int) sect.sct_gmin, current);
 110                         sect.sct_gmin = (u_char) current;
 111                         putsect(&sect);
 112                         }
 113                 break;
 114         case 'o':
 115                 switch(char1) {
 116                 case 'i':
 117                     if (!snxtsct(&nstr, player->argp[2]))
 118                         return RET_SYN;
 119                     while (nxtsct(&nstr,&sect) > 0) {
 120                         if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 121                            (*p == '\0'))
 122                             return RET_SYN;
 123                         amt = atoi(p);
 124                         current = sect.sct_oil;
 125                         current += amt;
 126                         if (current < 0)
 127                             current = 0;
 128                         if (current > 100)
 129                             current = 100;
 130                         if (sect.sct_own != 0)
 131                             resnoise(&sect,1,"Oil content",
 132                                      (int) sect.sct_oil, current);
 133                         sect.sct_oil = (u_char) current;
 134                         putsect(&sect);
 135                     }
 136                     break;
 137                 case 'w':
 138                     if (!snxtsct(&nstr, player->argp[2]))
 139                         return RET_SYN;
 140                     while (nxtsct(&nstr,&sect) > 0) {
 141                         if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 142                            (*p == '\0'))
 143                             return RET_SYN;
 144                         amt = atoi(p);
 145                         if ((amt < 0) || (amt > MAXNOC-1))
 146                             return RET_SYN;
 147                         pr("Owner of %s changed from %s (#%d) to %s (#%d).\n",
 148                            xyas(sect.sct_x, sect.sct_y, player->cnum),
 149                            cname(sect.sct_own),
 150                            sect.sct_own, cname(amt), amt);
 151                         if (sect.sct_own) {
 152                             wu(player->cnum, sect.sct_own,
 153                                "Sector %s lost to deity intervention\n",
 154                                    xyas(sect.sct_x, sect.sct_y,
 155                                         sect.sct_own));
 156                         }
 157                         if (amt)
 158                             wu(player->cnum, amt,
 159                                "Sector %s gained from deity intervention\n",
 160                                    xyas(sect.sct_x, sect.sct_y,
 161                                         amt));
 162                         makelost(EF_SECTOR, sect.sct_own, 0, sect.sct_x, sect.sct_y);
 163                         makenotlost(EF_SECTOR, amt, 0, sect.sct_x, sect.sct_y);
 164
 165                         sect.sct_own = (natid) amt;
 166                         putsect(&sect);
 167                     }
 168                     break;
 169                 case 'l':
 170                     if (!snxtsct(&nstr, player->argp[2]))
 171                         return RET_SYN;
 172                     while (nxtsct(&nstr,&sect) > 0) {
 173                         if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 174                            (*p == '\0'))
 175                             return RET_SYN;
 176                         amt = atoi(p);
 177                         if ((amt < 0) || (amt > MAXNOC-1))
 178                             return RET_SYN;
 179                         pr("Old owner of %s changed from %s (#%d) to %s (#%d).\n",
 180                            xyas(sect.sct_x, sect.sct_y, player->cnum),
 181                            cname(sect.sct_oldown),
 182                            sect.sct_oldown, cname(amt), amt);
 183                         sect.sct_oldown = (natid) amt;
 184                         putsect(&sect);
 185                     }
 186                         break;
 187                 default:
 188                     pr("huh?\n");
 189                     return RET_SYN;
 190                 }
 191                 break;
 192         case 'e':
 193                 if (!snxtsct(&nstr, player->argp[2]))
 194                     return RET_SYN;
 195                 while (nxtsct(&nstr,&sect) > 0) {
 196                     if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 197                        (*p == '\0'))
 198                         return RET_SYN;
 199                     amt = atoi(p);
 200                     current = sect.sct_effic;
 201                     current += amt;
 202                     if (current < 0)
 203                         current = 0;
 204                     if (current > 100)
 205                         current = 100;
 206                     pr("Efficiency in %s changed to %d.\n",
 207                            xyas(sect.sct_x, sect.sct_y, player->cnum),
 208                            current);
 209                     sect.sct_effic = (u_char) current;
 210                     putsect(&sect);
 211                 }
 212                 break;
 213         case 'm':
 214                         switch(char1) {
 215                         case 'i':
 216                                 if (!snxtsct(&nstr, player->argp[2]))
 217                                         return RET_SYN;
 218                                 while (nxtsct(&nstr,&sect) > 0) {
 219                                         int     mines;
 220
 221                                         if(!(p = getstarg(player->argp[3], "What value : ", buf)) ||
 222                                            (*p == '\0'))
 223                                                 return RET_SYN;
 224                                         amt = atoi(p);
 225                                         mines=getvar(V_MINE, (s_char *)&sect,EF_SECTOR);
 226                                         current = mines;
 227                                         current += amt;
 228                                         if (current < 0)
 229                                         current = 0;
 230                                         if (sect.sct_own != 0)
 231                                                 resnoise(&sect,1,"Mines",
 232                                                                  (int) mines, current);
 233                                         putvar(V_MINE,current,(s_char *)&sect,
 234                                                    EF_SECTOR);
 235                                         putsect(&sect);
 236                                 }
 237                                 break;
 238                         case 'o':
 239                                 if (!snxtsct(&nstr, player->argp[2]))
 240                                         return RET_SYN;
 241                                 while (nxtsct(&nstr,&sect) > 0) {
 242                                         if(!(p = getstarg(player->argp[3],"What value : ",buf)) ||
 243                                                 (*p == '\0'))
 244                                                 return RET_SYN;
 245                                         amt = atoi(p);
 246                                         current = sect.sct_mobil;
 247                                         current += amt;
 248                                         if (current < -127)
 249                                                 current = -127;
 250                                         if (current > 127)
 251                                                 current = 127;
 252                                         pr("Mobility in %s changed to %d.\n",
 253                                            xyas(sect.sct_x, sect.sct_y, player->cnum),
 254                                            current);
 255                                         sect.sct_mobil = (short) current;
 256                                         putsect(&sect);
 257                                 }
 258                                 break;
 259                         default:
 260                                 pr("huh?\n");
 261                                 return RET_SYN;
 262                 }
 263                 break;
 264         case 'a':
 265                 if (!snxtsct(&nstr, player->argp[2]))
 266                     return RET_SYN;
 267                 while (nxtsct(&nstr,&sect) > 0) {
 268                     if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 269                        (*p == '\0'))
 270                         return RET_SYN;
 271                     amt = atoi(p);
 272                     current = sect.sct_avail;
 273                     current += amt;
 274                     if (current < 0)
 275                         current = 0;
 276                     if (current > 9999)
 277                         current = 9999;
 278                     pr("Available in %s changed to %d.\n",
 279                            xyas(sect.sct_x, sect.sct_y, player->cnum),
 280                            current);
 281                     sect.sct_avail = (short) current;
 282                     putsect(&sect);
 283                 }
 284                 break;
 285         case 'w':
 286                 if (!snxtsct(&nstr, player->argp[2]))
 287                     return RET_SYN;
 288                 while (nxtsct(&nstr,&sect) > 0) {
 289                     if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 290                        (*p == '\0'))
 291                         return RET_SYN;
 292                     amt = atoi(p);
 293                     current = sect.sct_work;
 294                     current += amt;
 295                     if (current < 0)
 296                         current = 0;
 297                     if (current > 100)
 298                         current = 100;
 299                     pr("Work in %s changed to %d.\n",
 300                            xyas(sect.sct_x, sect.sct_y, player->cnum),
 301                            current);
 302                     sect.sct_work = (u_char) current;
 303                     putsect(&sect);
 304                 }
 305                 break;
 306         case 'f':
 307                 if (!snxtsct(&nstr, player->argp[2]))
 308                         return RET_SYN;
 309                 while (nxtsct(&nstr,&sect) > 0) {
 310                         if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 311                             (*p == '\0'))
 312                                 return RET_SYN;
 313                         amt = atoi(p);
 314                         current = sect.sct_fertil;
 315                         current += amt;
 316                         if (current < 0)
 317                             current = 0;
 318                         if (current > 120)
 319                             current = 120;
 320                         if (sect.sct_own != 0)
 321                                 resnoise(&sect,1,"Fertility content",
 322                                         (int) sect.sct_fertil, current);
 323                         sect.sct_fertil = (u_char) current;
 324                         putsect(&sect);
 325                         }
 326                 break;
 327         case 'u':
 328                 if (!snxtsct(&nstr, player->argp[2]))
 329                         return RET_SYN;
 330                 while (nxtsct(&nstr,&sect) > 0) {
 331                         if( !(p = getstarg(player->argp[3], "What value : ", buf)) ||
 332                             (*p == '\0'))
 333                                 return RET_SYN;
 334                         amt = atoi(p);
 335                         current = sect.sct_uran;
 336                         current += amt;
 337                         if (current < 0)
 338                             current = 0;
 339                         if (current > 100)
 340                             current = 100;
 341                         if (sect.sct_own != 0)
 342                                 resnoise(&sect,1,"Uranium content",
 343                                         (int) sect.sct_uran, current);
 344                         sect.sct_uran = (u_char) current;
 345                         putsect(&sect);
 346                         }
 347                 break;
 348         default:
 349                 pr("huh?\n");
 350                 return RET_SYN;
 351         }
 352         return RET_OK;
 353 }
 354
 355 static void
 356 resbenefit(natid who, int good)
 357 {
 358         if (!opt_GODNEWS)
 359             return;
 360
 361         if (good) {
 362                 if (who)
 363                         nreport(player->cnum, N_AIDS, who, 1);
 364         } else {
 365                 if (who)
 366                         nreport(player->cnum, N_HURTS, who, 1);
 367         }
 368 }
 369
 370 extern void
 371 resnoise(struct sctstr *sptr, int public_amt, s_char *name, int old, int new)
 372 {
 373         s_char p[100];
 374
 375         pr("%s of %s changed from %d to %d%%\n",
 376                 name, xyas(sptr->sct_x, sptr->sct_y, player->cnum), old, new);
 377         if (public_amt)
 378                 (void) sprintf(p, "changed from %d to %d", old, new);
 379         else
 380                 (void) sprintf(p, "%s", old<new ? "increased":"decreased");
 381         if (sptr->sct_own)
 382                 wu(0, sptr->sct_own,
 383                         "%s in %s was %s by an act of %s\n",
 384                             name, xyas(sptr->sct_x, sptr->sct_y, sptr->sct_own),
 385                             p, cname(player->cnum));
 386         resbenefit(sptr->sct_own, (old < new));
 387 }
 388