git.pond.sub.org Git - empserver/blob - src/lib/commands/dump.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  *  dump.c: Dump sector information
  29  *
  30  *  Known contributors to this file:
  31  *     Jeff Wallace, 1989
  32  *     Steve McClure, 1997 (added timestamping)
  33  */
  34
  35 #include "misc.h"
  36 #include "player.h"
  37 #include "var.h"
  38 #include "xy.h"
  39 #include "sect.h"
  40 #include "nsc.h"
  41 #include "nat.h"
  42 #include "deity.h"
  43 #include "path.h"
  44 #include "file.h"
  45 #include "commands.h"
  46 #include "optlist.h"
  47
  48 int
  49 dump(void)
  50 {
  51         struct  sctstr sect;
  52         s_char  dirstr[20];
  53         int     nsect;
  54         int     n,i;
  55         struct  nstr_sect nstr;
  56         int     del[I_MAX+1];
  57         int     dist[I_MAX+1];
  58         int     item[I_MAX+1];
  59         int     cond[I_MAX+1];
  60         int     field[128];
  61         struct  natstr *np;
  62         time_t  now;
  63
  64         if (!snxtsct(&nstr, player->argp[1]))
  65                 return RET_SYN;
  66         prdate();
  67         (void) strcpy(dirstr, ".      $");
  68         n = 1;
  69         for (n = 1; n <= 6; n++)
  70                 dirstr[n] = dirch[n];
  71         nsect = 0;
  72         np = getnatp(player->cnum);
  73
  74         if (!player->argp[2]) {
  75                 for (n = 1; n <= 80; n++) field[n-1] = n;
  76                 field[n-1] = 0;
  77         } else {
  78                 n = 2;
  79                 i = 0;
  80                 while (player->argp[n]) {
  81                         if (!strcmp("des",player->argp[n])) {
  82                                 field[i++] = 1;
  83                         } else if (!strcmp("sdes",player->argp[n])) {
  84                                 field[i++] = 2;
  85                         } else if (!strcmp("eff",player->argp[n])) {
  86                                 field[i++] = 3;
  87                         } else if (!strcmp("mob",player->argp[n])) {
  88                                 field[i++] = 4;
  89                         } else if (!strcmp("*",player->argp[n])) {
  90                                 field[i++] = 5;
  91                         } else if (!strcmp("off",player->argp[n])) {
  92                                 field[i++] = 6;
  93                         } else if (!strcmp("min",player->argp[n])) {
  94                                 field[i++] = 7;
  95                         } else if (!strcmp("gold",player->argp[n])) {
  96                                 field[i++] = 8;
  97                         } else if (!strcmp("fert",player->argp[n])) {
  98                                 field[i++] = 9;
  99                         } else if (!strcmp("ocontent",player->argp[n])) {
 100                                 field[i++] = 10;
 101                         } else if (!strcmp("uran",player->argp[n])) {
 102                                 field[i++] = 11;
 103                         } else if (!strcmp("work",player->argp[n])) {
 104                                 field[i++] = 12;
 105                         } else if (!strcmp("avail",player->argp[n])) {
 106                                 field[i++] = 13;
 107                         } else if (!strcmp("terr",player->argp[n])) {
 108                                 field[i++] = 14;
 109                         } else if (!strcmp("civ",player->argp[n])) {
 110                                 field[i++] = 15;
 111                         } else if (!strcmp("mil",player->argp[n])) {
 112                                 field[i++] = 16;
 113                         } else if (!strcmp("uw",player->argp[n])) {
 114                                 field[i++] = 17;
 115                         } else if (!strcmp("food",player->argp[n])) {
 116                                 field[i++] = 18;
 117                         } else if (!strcmp("shell",player->argp[n])) {
 118                                 field[i++] = 19;
 119                         } else if (!strcmp("gun",player->argp[n])) {
 120                                 field[i++] = 20;
 121                         } else if (!strcmp("pet",player->argp[n])) {
 122                                 field[i++] = 21;
 123                         } else if (!strcmp("iron",player->argp[n])) {
 124                                 field[i++] = 22;
 125                         } else if (!strcmp("dust",player->argp[n])) {
 126                                 field[i++] = 23;
 127                         } else if (!strcmp("bar",player->argp[n])) {
 128                                 field[i++] = 24;
 129                         } else if (!strcmp("oil",player->argp[n])) {
 130                                 field[i++] = 25;
 131                         } else if (!strcmp("lcm",player->argp[n])) {
 132                                 field[i++] = 26;
 133                         } else if (!strcmp("hcm",player->argp[n])) {
 134                                 field[i++] = 27;
 135                         } else if (!strcmp("rad",player->argp[n])) {
 136                                 field[i++] = 28;
 137                         } else if (!strcmp("u_del",player->argp[n])) {
 138                                 field[i++] = 29;
 139                         } else if (!strcmp("f_del",player->argp[n])) {
 140                                 field[i++] = 30;
 141                         } else if (!strcmp("s_del",player->argp[n])) {
 142                                 field[i++] = 31;
 143                         } else if (!strcmp("g_del",player->argp[n])) {
 144                                 field[i++] = 32;
 145                         } else if (!strcmp("p_del",player->argp[n])) {
 146                                 field[i++] = 33;
 147                         } else if (!strcmp("i_del",player->argp[n])) {
 148                                 field[i++] = 34;
 149                         } else if (!strcmp("d_del",player->argp[n])) {
 150                                 field[i++] = 35;
 151                         } else if (!strcmp("b_del",player->argp[n])) {
 152                                 field[i++] = 36;
 153                         } else if (!strcmp("o_del",player->argp[n])) {
 154                                 field[i++] = 37;
 155                         } else if (!strcmp("l_del",player->argp[n])) {
 156                                 field[i++] = 38;
 157                         } else if (!strcmp("h_del",player->argp[n])) {
 158                                 field[i++] = 39;
 159                         } else if (!strcmp("r_del",player->argp[n])) {
 160                                 field[i++] = 40;
 161                         } else if (!strcmp("u_cut",player->argp[n])) {
 162                                 field[i++] = 41;
 163                         } else if (!strcmp("f_cut",player->argp[n])) {
 164                                 field[i++] = 42;
 165                         } else if (!strcmp("s_cut",player->argp[n])) {
 166                                 field[i++] = 43;
 167                         } else if (!strcmp("g_cut",player->argp[n])) {
 168                                 field[i++] = 44;
 169                         } else if (!strcmp("p_cut",player->argp[n])) {
 170                                 field[i++] = 45;
 171                         } else if (!strcmp("i_cut",player->argp[n])) {
 172                                 field[i++] = 46;
 173                         } else if (!strcmp("d_cut",player->argp[n])) {
 174                                 field[i++] = 47;
 175                         } else if (!strcmp("b_cut",player->argp[n])) {
 176                                 field[i++] = 48;
 177                         } else if (!strcmp("o_cut",player->argp[n])) {
 178                                 field[i++] = 49;
 179                         } else if (!strcmp("l_cut",player->argp[n])) {
 180                                 field[i++] = 50;
 181                         } else if (!strcmp("h_cut",player->argp[n])) {
 182                                 field[i++] = 51;
 183                         } else if (!strcmp("r_cut",player->argp[n])) {
 184                                 field[i++] = 52;
 185                         } else if (!strcmp("dist_x",player->argp[n])) {
 186                                 field[i++] = 53;
 187                         } else if (!strcmp("dist_y",player->argp[n])) {
 188                                 field[i++] = 54;
 189                         } else if (!strcmp("c_dist",player->argp[n])) {
 190                                 field[i++] = 55;
 191                         } else if (!strcmp("m_dist",player->argp[n])) {
 192                                 field[i++] = 56;
 193                         } else if (!strcmp("u_dist",player->argp[n])) {
 194                                 field[i++] = 57;
 195                         } else if (!strcmp("f_dist",player->argp[n])) {
 196                                 field[i++] = 58;
 197                         } else if (!strcmp("s_dist",player->argp[n])) {
 198                                 field[i++] = 59;
 199                         } else if (!strcmp("g_dist",player->argp[n])) {
 200                                 field[i++] = 60;
 201                         } else if (!strcmp("p_dist",player->argp[n])) {
 202                                 field[i++] = 61;
 203                         } else if (!strcmp("i_dist",player->argp[n])) {
 204                                 field[i++] = 62;
 205                         } else if (!strcmp("d_dist",player->argp[n])) {
 206                                 field[i++] = 63;
 207                         } else if (!strcmp("b_dist",player->argp[n])) {
 208                                 field[i++] = 64;
 209                         } else if (!strcmp("o_dist",player->argp[n])) {
 210                                 field[i++] = 65;
 211                         } else if (!strcmp("l_dist",player->argp[n])) {
 212                                 field[i++] = 66;
 213                         } else if (!strcmp("h_dist",player->argp[n])) {
 214                                 field[i++] = 67;
 215                         } else if (!strcmp("r_dist",player->argp[n])) {
 216                                 field[i++] = 68;
 217                         } else if (!strcmp("road",player->argp[n])) {
 218                                 field[i++] = 69;
 219                         } else if (!strcmp("rail",player->argp[n])) {
 220                                 field[i++] = 70;
 221                         } else if (!strcmp("defense",player->argp[n])) {
 222                                 field[i++] = 71;
 223                         } else if (!strcmp("fallout",player->argp[n])) {
 224                                 field[i++] = 72;
 225                         } else if (!strcmp("coast",player->argp[n])) {
 226                                 field[i++] = 73;
 227                         } else if (!strcmp("c_del",player->argp[n])) {
 228                                 field[i++] = 74;
 229                         } else if (!strcmp("m_del",player->argp[n])) {
 230                                 field[i++] = 75;
 231                         } else if (!strcmp("c_cut",player->argp[n])) {
 232                                 field[i++] = 76;
 233                         } else if (!strcmp("m_cut",player->argp[n])) {
 234                                 field[i++] = 77;
 235                         } else if (!strcmp("terr1",player->argp[n])) {
 236                                 field[i++] = 78;
 237                         } else if (!strcmp("terr2",player->argp[n])) {
 238                                 field[i++] = 79;
 239                         } else if (!strcmp("terr3",player->argp[n])) {
 240                                 field[i++] = 80;
 241                         } else {
 242                                 pr("Unrecognized field %s\n",player->argp[n]);
 243                         }
 244                         if (n++ > 100) {
 245                                 pr("Too many fields\n");
 246                                 return RET_FAIL;
 247                         }
 248                 }
 249                 field[i] = 0;
 250         }
 251
 252         if (player->god)
 253                 pr("   ");
 254         time(&now);
 255         pr("DUMP SECTOR %d\n", now);
 256         if (player->god)
 257                 pr("own ");
 258         pr("x y");
 259         n = 0;
 260         while (field[n]) {
 261                 pr(" ");
 262                 switch (field[n]) {
 263                 case 1: pr("des"); break;
 264                 case 2: pr("sdes"); break;
 265                 case 3: pr("eff"); break;
 266                 case 4: pr("mob"); break;
 267                 case 5: pr("*"); break;
 268                 case 6: pr("off"); break;
 269                 case 7: pr("min"); break;
 270                 case 8: pr("gold"); break;
 271                 case 9: pr("fert"); break;
 272                 case 10: pr("ocontent"); break;
 273                 case 11: pr("uran"); break;
 274                 case 12: pr("work"); break;
 275                 case 13: pr("avail"); break;
 276                 case 14: pr("terr"); break;
 277                 case 15: pr("civ"); break;
 278                 case 16: pr("mil"); break;
 279                 case 17: pr("uw"); break;
 280                 case 18: pr("food"); break;
 281                 case 19: pr("shell"); break;
 282                 case 20: pr("gun"); break;
 283                 case 21: pr("pet"); break;
 284                 case 22: pr("iron"); break;
 285                 case 23: pr("dust"); break;
 286                 case 24: pr("bar"); break;
 287                 case 25: pr("oil"); break;
 288                 case 26: pr("lcm"); break;
 289                 case 27: pr("hcm"); break;
 290                 case 28: pr("rad"); break;
 291                 case 29: pr("u_del"); break;
 292                 case 30: pr("f_del"); break;
 293                 case 31: pr("s_del"); break;
 294                 case 32: pr("g_del"); break;
 295                 case 33: pr("p_del"); break;
 296                 case 34: pr("i_del"); break;
 297                 case 35: pr("d_del"); break;
 298                 case 36: pr("b_del"); break;
 299                 case 37: pr("o_del"); break;
 300                 case 38: pr("l_del"); break;
 301                 case 39: pr("h_del"); break;
 302                 case 40: pr("r_del"); break;
 303                 case 41: pr("u_cut"); break;
 304                 case 42: pr("f_cut"); break;
 305                 case 43: pr("s_cut"); break;
 306                 case 44: pr("g_cut"); break;
 307                 case 45: pr("p_cut"); break;
 308                 case 46: pr("i_cut"); break;
 309                 case 47: pr("d_cut"); break;
 310                 case 48: pr("b_cut"); break;
 311                 case 49: pr("o_cut"); break;
 312                 case 50: pr("l_cut"); break;
 313                 case 51: pr("h_cut"); break;
 314                 case 52: pr("r_cut"); break;
 315                 case 53: pr("dist_x"); break;
 316                 case 54: pr("dist_y"); break;
 317                 case 55: pr("c_dist"); break;
 318                 case 56: pr("m_dist"); break;
 319                 case 57: pr("u_dist"); break;
 320                 case 58: pr("f_dist"); break;
 321                 case 59: pr("s_dist"); break;
 322                 case 60: pr("g_dist"); break;
 323                 case 61: pr("p_dist"); break;
 324                 case 62: pr("i_dist"); break;
 325                 case 63: pr("d_dist"); break;
 326                 case 64: pr("b_dist"); break;
 327                 case 65: pr("o_dist"); break;
 328                 case 66: pr("l_dist"); break;
 329                 case 67: pr("h_dist"); break;
 330                 case 68: pr("r_dist"); break;
 331                 case 69: pr("road"); break;
 332                 case 70: pr("rail"); break;
 333                 case 71: pr("defense"); break;
 334                 case 72: pr("fallout"); break;
 335                 case 73: pr("coast"); break;
 336                 case 74: pr("c_del"); break;
 337                 case 75: pr("m_del"); break;
 338                 case 76: pr("c_cut"); break;
 339                 case 77: pr("m_cut"); break;
 340                 case 78: pr("terr1"); break;
 341                 case 79: pr("terr2"); break;
 342                 case 80: pr("terr3"); break;
 343                 }
 344                 n++;
 345         }
 346         pr("\n");
 347
 348         while (nxtsct(&nstr, &sect)) {
 349                 if (!player->owner)
 350                         continue;
 351                 nsect++;
 352
 353 /* census */
 354                 if (player->god)
 355                         pr("%d ", sect.sct_own);
 356                 getvec(VT_DEL, del, (s_char *)&sect, EF_SECTOR);
 357                 getvec(VT_DIST, dist, (s_char *)&sect, EF_SECTOR);
 358                 getvec(VT_ITEM, item, (s_char *)&sect, EF_SECTOR);
 359                 getvec(VT_COND, cond, (s_char *)&sect, EF_SECTOR);
 360                 pr("%d %d", xrel(np,nstr.x), yrel(np,nstr.y));
 361
 362                 set_coastal(&sect);
 363                 n = 0;
 364                 while (field[n]) {
 365                         pr(" ");
 366                         switch (field[n++]) {
 367                         case 1: pr("%c", dchr[sect.sct_type].d_mnem); break;
 368                         case 2: if (sect.sct_newtype != sect.sct_type)
 369                                         pr("%c", dchr[sect.sct_newtype].d_mnem);
 370                                 else
 371                                         pr("_");
 372                                 break;
 373                         case 3: pr("%d", sect.sct_effic); break;
 374                         case 4: pr("%d", sect.sct_mobil); break;
 375                         case 5: pr("%c", sect.sct_own != sect.sct_oldown ? '*' : '.');
 376                                 break;
 377                         case 6: pr("%d", sect.sct_off); break;
 378                         case 7: pr("%d", sect.sct_min); break;
 379                         case 8: pr("%d", sect.sct_gmin); break;
 380                         case 9: pr("%d", sect.sct_fertil); break;
 381                         case 10: pr("%d", sect.sct_oil); break;
 382                         case 11: pr("%d", sect.sct_uran); break;
 383                         case 12: pr("%d", sect.sct_work); break;
 384                         case 13: pr("%d", sect.sct_avail); break;
 385                         case 14: pr("%d", sect.sct_terr); break;
 386                         case 15: pr("%d", item[I_CIVIL]); break;
 387                         case 16: pr("%d", item[I_MILIT]); break;
 388                         case 17: pr("%d", item[I_UW]); break;
 389                         case 18: pr("%d", item[I_FOOD]); break;
 390 /* commodity */
 391                         case 19: pr("%d", item[I_SHELL]); break;
 392                         case 20: pr("%d", item[I_GUN]); break;
 393                         case 21: pr("%d", item[I_PETROL]); break;
 394                         case 22: pr("%d", item[I_IRON]); break;
 395                         case 23: pr("%d", item[I_DUST]); break;
 396                         case 24: pr("%d", item[I_BAR]); break;
 397                         case 25: pr("%d", item[I_OIL]); break;
 398                         case 26: pr("%d", item[I_LCM]); break;
 399                         case 27: pr("%d", item[I_HCM]); break;
 400                         case 28: pr("%d", item[I_RAD]); break;
 401 /* cutoff */
 402                         case 29: pr("%c", dirstr[del[I_UW] & 0x7]); break;
 403                         case 30: pr("%c", dirstr[del[I_FOOD] & 0x7]); break;
 404                         case 31: pr("%c", dirstr[del[I_SHELL] & 0x7]); break;
 405                         case 32: pr("%c", dirstr[del[I_GUN] & 0x7]); break;
 406                         case 33: pr("%c", dirstr[del[I_PETROL] & 0x7]); break;
 407                         case 34: pr("%c", dirstr[del[I_IRON] & 0x7]); break;
 408                         case 35: pr("%c", dirstr[del[I_DUST] & 0x7]); break;
 409                         case 36: pr("%c", dirstr[del[I_BAR] & 0x7]); break;
 410                         case 37: pr("%c", dirstr[del[I_OIL] & 0x7]); break;
 411                         case 38: pr("%c", dirstr[del[I_LCM] & 0x7]); break;
 412                         case 39: pr("%c", dirstr[del[I_HCM] & 0x7]); break;
 413                         case 40: pr("%c", dirstr[del[I_RAD] & 0x7]); break;
 414                         case 41: pr("%d", del[I_UW] & ~0x7); break;
 415                         case 42: pr("%d", del[I_FOOD] & ~0x7); break;
 416                         case 43: pr("%d", del[I_SHELL] & ~0x7); break;
 417                         case 44: pr("%d", del[I_GUN] & ~0x7); break;
 418                         case 45: pr("%d", del[I_PETROL] & ~0x7); break;
 419                         case 46: pr("%d", del[I_IRON] & ~0x7); break;
 420                         case 47: pr("%d", del[I_DUST] & ~0x7); break;
 421                         case 48: pr("%d", del[I_BAR] & ~0x7); break;
 422                         case 49: pr("%d", del[I_OIL] & ~0x7); break;
 423                         case 50: pr("%d", del[I_LCM] & ~0x7); break;
 424                         case 51: pr("%d", del[I_HCM] & ~0x7); break;
 425                         case 52: pr("%d", del[I_RAD] & ~0x7); break;
 426 /* level */
 427                         case 53: pr("%d", xrel(getnatp(player->cnum),sect.sct_dist_x)); break;
 428                         case 54: pr("%d", yrel(getnatp(player->cnum),sect.sct_dist_y)); break;
 429                         case 55: pr("%d", dist[I_CIVIL]); break;
 430                         case 56: pr("%d", dist[I_MILIT]); break;
 431                         case 57: pr("%d", dist[I_UW]); break;
 432                         case 58: pr("%d", dist[I_FOOD]); break;
 433                         case 59: pr("%d", dist[I_SHELL]); break;
 434                         case 60: pr("%d", dist[I_GUN]); break;
 435                         case 61: pr("%d", dist[I_PETROL]); break;
 436                         case 62: pr("%d", dist[I_IRON]); break;
 437                         case 63: pr("%d", dist[I_DUST]); break;
 438                         case 64: pr("%d", dist[I_BAR]); break;
 439                         case 65: pr("%d", dist[I_OIL]); break;
 440                         case 66: pr("%d", dist[I_LCM]); break;
 441                         case 67: pr("%d", dist[I_HCM]); break;
 442                         case 68: pr("%d", dist[I_RAD]); break;
 443                         case 69: pr("%d", sect.sct_road); break;
 444                         case 70: pr("%d", sect.sct_rail); break;
 445                         case 71: pr("%d", sect.sct_defense); break;
 446                         case 72:
 447                           if (opt_FALLOUT)
 448                             pr("%d", cond[C_FALLOUT]);
 449                           else
 450                             pr("0");
 451                           break;
 452                         case 73: pr("%d", sect.sct_coastal); break;
 453                         case 74: pr("%c", dirstr[del[I_CIVIL] & 0x7]); break;
 454                         case 75: pr("%c", dirstr[del[I_MILIT] & 0x7]); break;
 455                         case 76: pr("%d", del[I_CIVIL] & ~0x7); break;
 456                         case 77: pr("%d", del[I_MILIT] & ~0x7); break;
 457                         case 78: pr("%d", sect.sct_terr1); break;
 458                         case 79: pr("%d", sect.sct_terr2); break;
 459                         case 80: pr("%d", sect.sct_terr3); break;
 460                         }
 461                 }
 462                 pr("\n");
 463         }
 464         if (nsect == 0) {
 465                 if (player->argp[1])
 466                         pr("%s: No sector(s)\n", player->argp[1]);
 467                 else
 468                         pr("%s: No sector(s)\n", "");
 469                 return RET_FAIL;
 470         }else
 471                 pr("%d sector%s\n", nsect, splur(nsect));
 472         return RET_OK;
 473 }
 474