git.pond.sub.org Git - empserver/blob - src/lib/common/nsc.c

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1986-2016, Dave Pare, Jeff Bailey, Thomas Ruschak,
   4  *                Ken Stevens, Steve McClure, Markus Armbruster
   5  *
   6  *  Empire 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 3 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, see <http://www.gnu.org/licenses/>.
  18  *
  19  *  ---
  20  *
  21  *  See files README, COPYING and CREDITS in the root of the source
  22  *  tree for related information and legal notices.  It is expected
  23  *  that future projects/authors will amend these files as needed.
  24  *
  25  *  ---
  26  *
  27  *  nsc.c: Empire selection global structures
  28  *
  29  *  Known contributors to this file:
  30  *     Markus Armbruster, 2004-2016
  31  */
  32
  33 /*
  34  * Convention: uid selector comes first.  Table TYPE has an uid
  35  * selector if empfile[TYPE].cadef[0].ca_table == TYPE.
  36  */
  37
  38 #include <config.h>
  39
  40 #include <stdlib.h>
  41 #include "empobj.h"
  42 #include "file.h"
  43 #include "optlist.h"
  44 #include "news.h"
  45 #include "nsc.h"
  46 #include "product.h"
  47 #include "unit.h"
  48
  49 static void *nsc_ver(struct valstr *, struct natstr *, void *);
  50 static void *nsc_ver_maxnoc(struct valstr *, struct natstr *, void *);
  51 static void *nsc_sct_terr(struct valstr *, struct natstr *, void *);
  52 static void *nsc_sct_track(struct valstr *, struct natstr *, void *);
  53 static void *nsc_cargo_nplane(struct valstr *, struct natstr *, void *);
  54 static void *nsc_cargo_nchopper(struct valstr *, struct natstr *, void *);
  55 static void *nsc_cargo_nxlight(struct valstr *, struct natstr *, void *);
  56 static void *nsc_cargo_nland(struct valstr *, struct natstr *, void *);
  57 static void *nsc_pln_att(struct valstr *, struct natstr *, void *);
  58 static void *nsc_pln_def(struct valstr *, struct natstr *, void *);
  59 static void *nsc_pln_nuketype(struct valstr *, struct natstr *, void *);
  60 static void *nsc_lnd_att(struct valstr *, struct natstr *, void *);
  61 static void *nsc_lnd_def(struct valstr *, struct natstr *, void *);
  62 static void *nsc_lnd_vul(struct valstr *, struct natstr *, void *);
  63 static void *nsc_lnd_spd(struct valstr *, struct natstr *, void *);
  64 static void *nsc_lnd_vis(struct valstr *, struct natstr *, void *);
  65 static void *nsc_lnd_frg(struct valstr *, struct natstr *, void *);
  66 static void *nsc_lnd_acc(struct valstr *, struct natstr *, void *);
  67 static void *nsc_lnd_dam(struct valstr *, struct natstr *, void *);
  68 static void *nsc_lnd_aaf(struct valstr *, struct natstr *, void *);
  69 static void *nsc_lchr(struct valstr *, struct natstr *, void *);
  70 static void *nsc_nws_timestamp(struct valstr *, struct natstr *, void *);
  71
  72 /* Ugly hacks to avoid illegibly long lines */
  73 #define fldoff(fld) offsetof(CURSTR, fld)
  74 #define empobjoff(fld) offsetof(struct empobj, fld)
  75
  76 #define NSC_IELT(name, pfx, sfx, base, itype)   \
  77     {sizeof(sfx) == 1 ? name : pfx sfx,         \
  78      ((base) + (itype)*sizeof(short)),          \
  79      NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP}
  80
  81 #define NSC_IVEC(base, sfx)                     \
  82 NSC_IELT("civil", "c", sfx, base, I_CIVIL),     \
  83 NSC_IELT("milit", "m", sfx, base, I_MILIT),     \
  84 NSC_IELT("shell", "s", sfx, base, I_SHELL),     \
  85 NSC_IELT("gun", "g", sfx, base, I_GUN),         \
  86 NSC_IELT("petrol", "p", sfx, base, I_PETROL),   \
  87 NSC_IELT("iron", "i", sfx, base, I_IRON),       \
  88 NSC_IELT("dust", "d", sfx, base, I_DUST),       \
  89 NSC_IELT("bar", "b", sfx, base, I_BAR),         \
  90 NSC_IELT("food", "f", sfx, base, I_FOOD),       \
  91 NSC_IELT("oil", "o", sfx, base, I_OIL),         \
  92 NSC_IELT("lcm", "l", sfx, base, I_LCM),         \
  93 NSC_IELT("hcm", "h", sfx, base, I_HCM),         \
  94 NSC_IELT("uw", "u", sfx, base, I_UW),           \
  95 NSC_IELT("rad", "r", sfx, base, I_RAD)
  96
  97 struct castr ichr_ca[] = {
  98 #define CURSTR struct ichrstr
  99     {"uid", fldoff(i_uid), NSC_SITYPE(i_type), 0, NULL, EF_ITEM, 0,
 100      CA_DUMP},
 101     {"name", fldoff(i_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 102     {"mnem", fldoff(i_mnem), NSC_STRINGY, 1, NULL, EF_BAD, 0,
 103      CA_DUMP_CONST},
 104     {"power", fldoff(i_power), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 105     {"value", fldoff(i_value), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 106     {"sell", fldoff(i_sell), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 107     {"lbs", fldoff(i_lbs), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 108     {"pkg", fldoff(i_pkg), NSC_INT, NUMPKG, NULL, EF_BAD, 0, CA_DUMP},
 109     {"melt_denom", fldoff(i_melt_denom), NSC_INT, 0, NULL, EF_BAD, 0,
 110      CA_DUMP},
 111     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 112 #undef CURSTR
 113 };
 114
 115 struct castr pchr_ca[] = {
 116 #define CURSTR struct pchrstr
 117     {"uid", fldoff(p_uid), NSC_INT, 0, NULL, EF_PRODUCT, 0, CA_DUMP},
 118     {"name", fldoff(p_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 119     {"sname", fldoff(p_sname), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 120     {"ctype", fldoff(p_ctype), NSC_SITYPE(i_type), MAXPRCON, NULL,
 121      EF_ITEM, 0, CA_DUMP},
 122     {"camt", fldoff(p_camt), NSC_USHORT, MAXPRCON, NULL, EF_BAD, 0,
 123      CA_DUMP},
 124     {"type", fldoff(p_type), NSC_SITYPE(i_type), 0, NULL, EF_ITEM, 0,
 125      CA_DUMP},
 126     {"level", fldoff(p_level), NSC_INT, 0, NULL, EF_LEVEL, 0, CA_DUMP},
 127     {"cost", fldoff(p_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 128     {"nrndx", fldoff(p_nrndx), NSC_INT, 0, NULL, EF_RESOURCES, 0, CA_DUMP},
 129     {"nrdep", fldoff(p_nrdep), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 130     {"nlndx", fldoff(p_nlndx), NSC_INT, 0, NULL, EF_LEVEL, 0, CA_DUMP},
 131     {"nlmin", fldoff(p_nlmin), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 132     {"nllag", fldoff(p_nllag), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 133     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 134 #undef CURSTR
 135 };
 136
 137 struct castr sect_ca[] = {
 138 #define CURSTR struct sctstr
 139     /* uid needs to be NSC_DEITY because it discloses true origin */
 140     {"uid", fldoff(sct_uid), NSC_INT, 0, NULL,
 141      EF_SECTOR, NSC_DEITY, CA_DUMP_NONE},
 142     {"timestamp", fldoff(sct_timestamp), NSC_TIME, 0, NULL,
 143      EF_BAD, 0, CA_DUMP_NONE},
 144     {"owner", fldoff(sct_own), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
 145     {"xloc", fldoff(sct_x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 146     {"yloc", fldoff(sct_y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 147     {"des", fldoff(sct_type), NSC_CHAR, 0, NULL, EF_SECTOR_CHR, 0,
 148      CA_DUMP},
 149     {"effic", fldoff(sct_effic), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 150     {"mobil", fldoff(sct_mobil), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 151     {"off", fldoff(sct_off), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 152     {"loyal", fldoff(sct_loyal), NSC_UCHAR, 0, NULL, EF_BAD, NSC_DEITY,
 153      CA_DUMP},
 154     {"terr", 0, NSC_UCHAR, 0, nsc_sct_terr, EF_BAD, 0, CA_DUMP_NONE},
 155     {"terr0", fldoff(sct_terr), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 156     {"terr1", fldoff(sct_terr1), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 157     {"terr2", fldoff(sct_terr2), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 158     {"terr3", fldoff(sct_terr3), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 159     {"dterr", fldoff(sct_dterr), NSC_UCHAR, 0, NULL, EF_BAD, NSC_DEITY,
 160      CA_DUMP},
 161     {"xdist", fldoff(sct_dist_x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 162     {"ydist", fldoff(sct_dist_y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 163     {"avail", fldoff(sct_avail), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 164     {"elev", fldoff(sct_elev), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
 165      CA_DUMP},
 166     {"work", fldoff(sct_work), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 167     {"coastal", fldoff(sct_coastal), NSC_UCHAR, 0, NULL, EF_BAD, 0,
 168      CA_DUMP},
 169     {"newdes", fldoff(sct_newtype), NSC_CHAR, 0, NULL, EF_SECTOR_CHR, 0,
 170      CA_DUMP},
 171     {"min", fldoff(sct_min), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 172     {"gold", fldoff(sct_gmin), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 173     {"fert", fldoff(sct_fertil), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 174     {"ocontent", fldoff(sct_oil), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 175     {"uran", fldoff(sct_uran), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 176     {"oldown", fldoff(sct_oldown), NSC_NATID, 0, NULL, EF_NATION, 0,
 177      CA_DUMP},
 178     {"track", 0, NSC_LONG, 0, nsc_sct_track, EF_BAD, 0, CA_DUMP_NONE},
 179     NSC_IVEC(fldoff(sct_item), ""),
 180     NSC_IVEC(fldoff(sct_dist), "_dist"),
 181     NSC_IVEC(fldoff(sct_del), "_del"),
 182     /* should let old owner access mines, but can't express that: */
 183     {"mines", fldoff(sct_mines), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
 184      CA_DUMP},
 185     {"pstage", fldoff(sct_pstage), NSC_SHORT, 0, NULL,
 186      EF_PLAGUE_STAGES, NSC_DEITY, CA_DUMP},
 187     {"ptime", fldoff(sct_ptime), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
 188      CA_DUMP},
 189     {"che", fldoff(sct_che), NSC_UCHAR, 0, NULL, EF_BAD, NSC_DEITY,
 190      CA_DUMP},
 191     {"che_target", fldoff(sct_che_target), NSC_NATID, 0, NULL,
 192      EF_NATION, NSC_DEITY, CA_DUMP},
 193     {"fallout", fldoff(sct_fallout), NSC_USHORT, 0, NULL, EF_BAD, 0,
 194      CA_DUMP},
 195     {"access", fldoff(sct_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 196     {"road", fldoff(sct_road), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 197     {"rail", fldoff(sct_rail), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 198     {"dfense", fldoff(sct_defense), NSC_UCHAR, 0, NULL, EF_BAD, 0,
 199      CA_DUMP},
 200     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 201 #undef CURSTR
 202 };
 203
 204 struct castr dchr_ca[] = {
 205 #define CURSTR struct dchrstr
 206     {"uid", fldoff(d_uid), NSC_UCHAR, 0, NULL, EF_SECTOR_CHR, 0, CA_DUMP},
 207     {"name", fldoff(d_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 208     {"mnem", fldoff(d_mnem), NSC_STRINGY, 1, NULL, EF_BAD, 0,
 209      CA_DUMP_CONST},
 210     {"terrain", fldoff(d_terrain), NSC_UCHAR, 0, NULL, EF_SECTOR_CHR, 0,
 211      CA_DUMP},
 212     {"prd", fldoff(d_prd), NSC_INT, 0, NULL, EF_PRODUCT, 0, CA_DUMP},
 213     {"peffic", fldoff(d_peffic), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 214     {"mob0", fldoff(d_mob0), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 215     {"mob1", fldoff(d_mob1), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 216     {"nav", fldoff(d_nav), NSC_SITYPE(enum d_navigation), 0, NULL,
 217      EF_SECTOR_NAVIGATION, 0, CA_DUMP},
 218     {"pkg", fldoff(d_pkg), NSC_SITYPE(enum i_packing), 0, NULL,
 219      EF_PACKING, 0, CA_DUMP},
 220     {"ostr", fldoff(d_ostr), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 221     {"dstr", fldoff(d_dstr), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 222     {"value", fldoff(d_value), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 223     {"cost", fldoff(d_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 224     {"build", fldoff(d_build), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 225     {"lcms", fldoff(d_lcms), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 226     {"hcms", fldoff(d_hcms), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 227     {"maint", fldoff(d_maint), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 228     {"maxpop", fldoff(d_maxpop), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 229     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 230 #undef CURSTR
 231 };
 232
 233 #define NSC_GENITEM(ef_type, ef_chr)                                    \
 234     {"uid", empobjoff(uid), NSC_INT, 0, NULL, ef_type, 0, CA_DUMP},     \
 235     {"timestamp", empobjoff(timestamp), NSC_TIME, 0, NULL, EF_BAD, 0,   \
 236      CA_DUMP_NONE},                                                     \
 237     {"owner", empobjoff(own), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP}, \
 238     {"xloc", empobjoff(x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},    \
 239     {"yloc", empobjoff(y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},    \
 240     {"type", empobjoff(type), NSC_CHAR, 0, NULL, ef_chr, 0, CA_DUMP},   \
 241     {"effic", empobjoff(effic), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP}, \
 242     {"mobil", empobjoff(mobil), NSC_CHAR , 0, NULL, EF_BAD, 0, CA_DUMP}, \
 243     {"off", empobjoff(off), NSC_UCHAR , 0, NULL, EF_BAD, 0, CA_DUMP},   \
 244     {"tech", empobjoff(tech), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},  \
 245     {"group", empobjoff(group), NSC_STRINGY, 1, NULL, EF_BAD, 0,        \
 246      CA_DUMP_NONE},                                                     \
 247     {"opx", empobjoff(opx), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},   \
 248     {"opy", empobjoff(opy), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},   \
 249     {"mission", empobjoff(mission), NSC_SHORT, 0, NULL, EF_MISSIONS, 0, \
 250      CA_DUMP},                                                          \
 251     {"radius", empobjoff(radius), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP}
 252
 253 struct castr ship_ca[] = {
 254 #define CURSTR struct shpstr
 255     NSC_GENITEM(EF_SHIP, EF_SHIP_CHR),
 256     {"fleet", fldoff(shp_fleet), NSC_STRINGY, 1, NULL, EF_BAD, 0, CA_DUMP},
 257     NSC_IVEC(fldoff(shp_item), ""),
 258     {"pstage", fldoff(shp_pstage), NSC_SHORT, 0, NULL,
 259      EF_PLAGUE_STAGES, NSC_DEITY, CA_DUMP},
 260     {"ptime", fldoff(shp_ptime), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
 261      CA_DUMP},
 262     {"access", fldoff(shp_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 263     {"name", fldoff(shp_name), NSC_STRINGY, MAXSHPNAMLEN, NULL,
 264      EF_BAD, 0, CA_DUMP},
 265     /* should let builder access xbuilt, ybuilt, but can't express that: */
 266     {"xbuilt", fldoff(shp_orig_x), NSC_XCOORD, 0, NULL,
 267      EF_BAD, NSC_DEITY, CA_DUMP},
 268     {"ybuilt", fldoff(shp_orig_y), NSC_YCOORD, 0, NULL,
 269      EF_BAD, NSC_DEITY, CA_DUMP},
 270     {"builder", fldoff(shp_orig_own), NSC_NATID, 0, NULL,
 271      EF_NATION, NSC_DEITY, CA_DUMP},
 272     {"rflags", fldoff(shp_rflags), NSC_INT, 0, NULL,
 273      EF_RETREAT_FLAGS, NSC_BITS, CA_DUMP},
 274     {"rpath", fldoff(shp_rpath), NSC_STRINGY, RET_LEN, NULL, EF_BAD, 0,
 275      CA_DUMP},
 276     {"nplane", 0, NSC_LONG, 0, nsc_cargo_nplane, EF_BAD, 0, CA_DUMP_NONE},
 277     {"nchoppers", 0, NSC_LONG, 0, nsc_cargo_nchopper, EF_BAD, 0,
 278      CA_DUMP_NONE},
 279     {"nxlight", 0, NSC_LONG, 0, nsc_cargo_nxlight, EF_BAD, 0,
 280      CA_DUMP_NONE},
 281     {"nland", 0, NSC_LONG, 0, nsc_cargo_nland, EF_BAD, 0, CA_DUMP_NONE},
 282     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 283 #undef CURSTR
 284 };
 285
 286 struct castr mchr_ca[] = {
 287 #define CURSTR struct mchrstr
 288     {"type", fldoff(m_type), NSC_CHAR, 0, NULL, EF_SHIP_CHR, 0, CA_DUMP},
 289     {"name", fldoff(m_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 290     NSC_IVEC(fldoff(m_item), ""),
 291     {"l_build", fldoff(m_mat[I_LCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 292      CA_DUMP},
 293     {"h_build", fldoff(m_mat[I_HCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 294      CA_DUMP},
 295     {"armor", fldoff(m_armor), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 296     {"speed", fldoff(m_speed), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 297     {"visib", fldoff(m_visib), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 298     {"vrnge", fldoff(m_vrnge), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 299     {"frnge", fldoff(m_frnge), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 300     {"glim", fldoff(m_glim), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 301     {"nxlight", fldoff(m_nxlight), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 302     {"nchoppers", fldoff(m_nchoppers), NSC_UCHAR, 0, NULL, EF_BAD, 0,
 303      CA_DUMP},
 304     {"bwork", fldoff(m_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 305     {"tech", fldoff(m_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 306     {"cost", fldoff(m_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 307     {"flags", fldoff(m_flags), NSC_INT, 0, NULL,
 308      EF_SHIP_CHR_FLAGS, NSC_BITS, CA_DUMP},
 309     {"nplanes", fldoff(m_nplanes), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 310     {"nland", fldoff(m_nland), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 311     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 312 #undef CURSTR
 313 };
 314
 315 struct castr plane_ca[] = {
 316 #define CURSTR struct plnstr
 317     NSC_GENITEM(EF_PLANE, EF_PLANE_CHR),
 318     {"wing", fldoff(pln_wing), NSC_STRINGY, 1, NULL, EF_BAD, 0, CA_DUMP},
 319     {"range", fldoff(pln_range), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 320     {"harden", fldoff(pln_harden), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 321     {"ship", fldoff(pln_ship), NSC_INT, 0, NULL, EF_SHIP, 0, CA_DUMP},
 322     {"land", fldoff(pln_land), NSC_INT, 0, NULL, EF_LAND, 0, CA_DUMP},
 323     {"flags", fldoff(pln_flags), NSC_INT, 0, NULL,
 324      EF_PLANE_FLAGS, NSC_BITS, CA_DUMP},
 325     {"access", fldoff(pln_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 326     {"theta", fldoff(pln_theta), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 327     {"att", 0, NSC_LONG, 0, nsc_pln_att, EF_BAD, 0, CA_DUMP_NONE},
 328     {"def", 0, NSC_LONG, 0, nsc_pln_def, EF_BAD, 0, CA_DUMP_NONE},
 329     {"nuketype", 0, NSC_LONG, 0, nsc_pln_nuketype, EF_BAD, 0,
 330      CA_DUMP_NONE},
 331     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 332 #undef CURSTR
 333 };
 334
 335 struct castr plchr_ca[] = {
 336 #define CURSTR struct plchrstr
 337     {"type", fldoff(pl_type), NSC_CHAR, 0, NULL, EF_PLANE_CHR, 0, CA_DUMP},
 338     {"name", fldoff(pl_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 339     {"l_build", fldoff(pl_mat[I_LCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 340      CA_DUMP},
 341     {"h_build", fldoff(pl_mat[I_HCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 342      CA_DUMP},
 343     {"bwork", fldoff(pl_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 344     {"tech", fldoff(pl_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 345     {"cost", fldoff(pl_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 346     {"acc", fldoff(pl_acc), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 347     {"load", fldoff(pl_load), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 348     {"att", fldoff(pl_att), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 349     {"def", fldoff(pl_def), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 350     {"range", fldoff(pl_range), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 351     {"crew", fldoff(pl_mat[I_MILIT]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 352      CA_DUMP},
 353     {"fuel", fldoff(pl_fuel), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 354     {"stealth", fldoff(pl_stealth), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 355     {"flags", fldoff(pl_flags), NSC_INT, 0, NULL,
 356      EF_PLANE_CHR_FLAGS, NSC_BITS, CA_DUMP},
 357     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 358 #undef CURSTR
 359 };
 360
 361 struct castr land_ca[] = {
 362 #define CURSTR struct lndstr
 363     NSC_GENITEM(EF_LAND, EF_LAND_CHR),
 364     {"army", fldoff(lnd_army), NSC_STRINGY, 1, NULL, EF_BAD, 0, CA_DUMP},
 365     {"ship", fldoff(lnd_ship), NSC_INT, 0, NULL, EF_SHIP, 0, CA_DUMP},
 366     {"harden", fldoff(lnd_harden), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 367     {"retreat", fldoff(lnd_retreat), NSC_SHORT, 0, NULL, EF_BAD, 0,
 368      CA_DUMP},
 369     {"rflags", fldoff(lnd_rflags), NSC_INT, 0, NULL,
 370      EF_RETREAT_FLAGS, NSC_BITS, CA_DUMP},
 371     {"rpath", fldoff(lnd_rpath), NSC_STRINGY, RET_LEN, NULL, EF_BAD, 0,
 372      CA_DUMP},
 373     NSC_IVEC(fldoff(lnd_item), ""),
 374     {"pstage", fldoff(lnd_pstage), NSC_SHORT, 0, NULL,
 375      EF_PLAGUE_STAGES, NSC_DEITY, CA_DUMP},
 376     {"ptime", fldoff(lnd_ptime), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
 377      CA_DUMP},
 378     {"land", fldoff(lnd_land), NSC_INT, 0, NULL, EF_LAND, 0, CA_DUMP},
 379     {"access", fldoff(lnd_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 380     {"att", 0, NSC_DOUBLE, 0, nsc_lnd_att, EF_BAD, 0, CA_DUMP_NONE},
 381     {"def", 0, NSC_DOUBLE, 0, nsc_lnd_def, EF_BAD, 0, CA_DUMP_NONE},
 382     {"vul", 0, NSC_LONG, 0, nsc_lnd_vul, EF_BAD, 0, CA_DUMP_NONE},
 383     {"spd", 0, NSC_LONG, 0, nsc_lnd_spd, EF_BAD, 0, CA_DUMP_NONE},
 384     {"vis", 0, NSC_LONG, 0, nsc_lnd_vis, EF_BAD, 0, CA_DUMP_NONE},
 385     {"frg", 0, NSC_LONG, 0, nsc_lnd_frg, EF_BAD, 0, CA_DUMP_NONE},
 386     {"acc", 0, NSC_LONG, 0, nsc_lnd_acc, EF_BAD, 0, CA_DUMP_NONE},
 387     {"dam", 0, NSC_LONG, 0, nsc_lnd_dam, EF_BAD, 0, CA_DUMP_NONE},
 388     {"aaf", 0, NSC_LONG, 0, nsc_lnd_aaf, EF_BAD, 0, CA_DUMP_NONE},
 389     {"nland", 0, NSC_LONG, 0, nsc_cargo_nland, EF_BAD, 0, CA_DUMP_NONE},
 390     {"nxlight", 0, NSC_LONG, 0, nsc_cargo_nxlight, EF_BAD, 0,
 391      CA_DUMP_NONE},
 392 #undef CURSTR
 393 #define CURSTR struct lchrstr
 394     {"spy", fldoff(l_spy), NSC_INT, 0, nsc_lchr, EF_BAD, 0, CA_DUMP_NONE},
 395     {"rmax", fldoff(l_rad), NSC_INT, 0, nsc_lchr, EF_BAD, 0, CA_DUMP_NONE},
 396     {"ammo", fldoff(l_ammo), NSC_INT, 0, nsc_lchr, EF_BAD, 0,
 397      CA_DUMP_NONE},
 398     {"maxlight", fldoff(l_nxlight), NSC_UCHAR, 0, nsc_lchr,
 399      EF_BAD, 0, CA_DUMP_NONE},
 400     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 401 #undef CURSTR
 402 };
 403
 404 struct castr lchr_ca[] = {
 405 #define CURSTR struct lchrstr
 406     {"type", fldoff(l_type), NSC_CHAR, 0, NULL, EF_LAND_CHR, 0, CA_DUMP},
 407     {"name", fldoff(l_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 408     NSC_IVEC(fldoff(l_item), ""),
 409     {"l_build", fldoff(l_mat[I_LCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 410      CA_DUMP},
 411     {"h_build", fldoff(l_mat[I_HCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 412      CA_DUMP},
 413     {"bwork", fldoff(l_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 414     {"tech", fldoff(l_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 415     {"cost", fldoff(l_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 416     {"att", fldoff(l_att), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 417     {"def", fldoff(l_def), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 418     {"vul", fldoff(l_vul), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 419     {"spd", fldoff(l_spd), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 420     {"vis", fldoff(l_vis), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 421     {"spy", fldoff(l_spy), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 422     {"rmax", fldoff(l_rad), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 423     {"frg", fldoff(l_frg), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 424     {"acc", fldoff(l_acc), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 425     {"dam", fldoff(l_dam), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 426     {"ammo", fldoff(l_ammo), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 427     {"aaf", fldoff(l_aaf), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 428     {"flags", fldoff(l_flags), NSC_INT, 0, NULL,
 429      EF_LAND_CHR_FLAGS, NSC_BITS, CA_DUMP},
 430     {"nxlight", fldoff(l_nxlight), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 431     {"nland", fldoff(l_nland), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 432     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 433 #undef CURSTR
 434 };
 435
 436 struct castr nuke_ca[] = {
 437 #define CURSTR struct nukstr
 438     NSC_GENITEM(EF_NUKE, EF_NUKE_CHR),
 439     {"stockpile", fldoff(nuk_stockpile), NSC_STRINGY, 1, NULL, EF_BAD, 0,
 440      CA_DUMP},
 441     {"plane", fldoff(nuk_plane), NSC_INT, 0, NULL, EF_PLANE, 0, CA_DUMP},
 442     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 443 #undef CURSTR
 444 };
 445
 446 struct castr nchr_ca[] = {
 447 #define CURSTR struct nchrstr
 448     {"type", fldoff(n_type), NSC_CHAR, 0, NULL, EF_NUKE_CHR, 0, CA_DUMP},
 449     {"name", fldoff(n_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
 450     {"l_build", fldoff(n_mat[I_LCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 451      CA_DUMP},
 452     {"h_build", fldoff(n_mat[I_HCM]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 453      CA_DUMP},
 454     {"o_build", fldoff(n_mat[I_OIL]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 455      CA_DUMP},
 456     {"r_build", fldoff(n_mat[I_RAD]), NSC_SHORT, 0, NULL, EF_BAD, 0,
 457      CA_DUMP},
 458     {"blast", fldoff(n_blast), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 459     {"dam", fldoff(n_dam), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 460     {"bwork", fldoff(n_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 461     {"tech", fldoff(n_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 462     {"cost", fldoff(n_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 463     {"weight", fldoff(n_weight), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 464     {"flags", fldoff(n_flags), NSC_INT, 0, NULL,
 465      EF_NUKE_CHR_FLAGS, NSC_BITS, CA_DUMP},
 466     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 467 #undef CURSTR
 468 };
 469
 470 struct castr loan_ca[] = {
 471 #define CURSTR struct lonstr
 472     {"uid", fldoff(l_uid), NSC_INT, 0, NULL, EF_LOAN, 0, CA_DUMP},
 473     {"timestamp", fldoff(l_timestamp), NSC_TIME, 0, NULL,
 474      EF_BAD, 0, CA_DUMP_NONE},
 475     {"loaner", fldoff(l_loner), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
 476     {"loanee", fldoff(l_lonee), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
 477     {"status", fldoff(l_status), NSC_CHAR, 0, NULL,
 478      EF_AGREEMENT_STATUS, 0, CA_DUMP},
 479     {"irate", fldoff(l_irate), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 480     {"ldur", fldoff(l_ldur), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 481     {"amtpaid", fldoff(l_amtpaid), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 482     {"amtdue", fldoff(l_amtdue), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 483     {"lastpay", fldoff(l_lastpay), NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
 484     {"duedate", fldoff(l_duedate), NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
 485     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 486 #undef CURSTR
 487 };
 488
 489 struct castr news_ca[] = {
 490 #define CURSTR struct nwsstr
 491     {"timestamp", 0, NSC_LONG, 0, nsc_nws_timestamp, EF_BAD, 0,
 492      CA_DUMP_NONE},
 493     {"actor", fldoff(nws_ano), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
 494     {"action", fldoff(nws_vrb), NSC_UCHAR, 0, NULL, EF_NEWS_CHR, 0,
 495      CA_DUMP},
 496     {"victim", fldoff(nws_vno), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
 497     {"times", fldoff(nws_ntm), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 498     {"duration", fldoff(nws_duration), NSC_SHORT, 0, NULL, EF_BAD, 0,
 499      CA_DUMP},
 500     {"time", fldoff(nws_when), NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
 501     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 502 #undef CURSTR
 503 };
 504
 505 struct castr lost_ca[] = {
 506 #define CURSTR struct loststr
 507     /* no need for uid as long as it's not referenced from other tables */
 508     {"timestamp", fldoff(lost_timestamp), NSC_TIME, 0, NULL,
 509      EF_BAD, 0, CA_DUMP},
 510     {"owner", fldoff(lost_owner), NSC_NATID, 0, NULL, EF_NATION, 0,
 511      CA_DUMP},
 512     {"type", fldoff(lost_type), NSC_SHORT, 0, NULL, EF_TABLE, 0, CA_DUMP},
 513     /* id's ca_table given by type, but can't express that: */
 514     {"id", fldoff(lost_id), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 515     {"x", fldoff(lost_x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 516     {"y", fldoff(lost_y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 517     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 518 #undef CURSTR
 519 };
 520
 521 struct castr commodity_ca[] = {
 522 #define CURSTR struct comstr
 523     {"uid", fldoff(com_uid), NSC_INT, 0, NULL, EF_COMM, 0, CA_DUMP},
 524     {"timestamp", fldoff(com_timestamp), NSC_TIME, 0, NULL,
 525      EF_BAD, 0, CA_DUMP_NONE},
 526     {"owner", fldoff(com_owner), NSC_NATID, 0, NULL, EF_NATION, 0,
 527      CA_DUMP},
 528     {"type", fldoff(com_type), NSC_SITYPE(i_type), 0, NULL, EF_ITEM, 0,
 529      CA_DUMP},
 530     {"amount", fldoff(com_amount), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 531     {"price", fldoff(com_price), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
 532     {"maxbidder", fldoff(com_maxbidder), NSC_INT, 0, NULL, EF_NATION, 0,
 533      CA_DUMP},
 534     {"markettime", fldoff(com_markettime), NSC_TIME, 0, NULL, EF_BAD, 0,
 535      CA_DUMP},
 536     /* should let maxbidder access xbuy, ybuy, but can't express that: */
 537     {"xbuy", fldoff(com_x), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
 538      CA_DUMP},
 539     {"ybuy", fldoff(com_y), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
 540      CA_DUMP},
 541     /* should let owner access xsell, ysell, but can't express that: */
 542     {"xsell", fldoff(sell_x), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
 543      CA_DUMP},
 544     {"ysell", fldoff(sell_y), NSC_YCOORD, 0, NULL, EF_BAD, NSC_DEITY,
 545      CA_DUMP},
 546     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 547 #undef CURSTR
 548 };
 549
 550 struct castr trade_ca[] = {
 551 #define CURSTR struct trdstr
 552     {"uid", fldoff(trd_uid), NSC_INT, 0, NULL, EF_TRADE, 0, CA_DUMP},
 553     {"timestamp", fldoff(trd_timestamp), NSC_TIME, 0, NULL,
 554      EF_BAD, 0, CA_DUMP_NONE},
 555     {"owner", fldoff(trd_owner), NSC_NATID, 0, NULL, EF_NATION, 0,
 556      CA_DUMP},
 557     {"type", fldoff(trd_type), NSC_SHORT, 0, NULL, EF_TABLE, 0, CA_DUMP},
 558     /* unitid's ca_table given by type, but can't express that: */
 559     {"unitid", fldoff(trd_unitid), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 560     {"price", fldoff(trd_price), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 561     {"maxbidder", fldoff(trd_maxbidder), NSC_INT, 0, NULL, EF_NATION, 0,
 562      CA_DUMP},
 563     {"markettime", fldoff(trd_markettime), NSC_TIME, 0, NULL, EF_BAD, 0,
 564      CA_DUMP},
 565     /* should let maxbidder access xloc, yloc, but can't express that: */
 566     {"xloc", fldoff(trd_x), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
 567      CA_DUMP},
 568     {"yloc", fldoff(trd_y), NSC_YCOORD, 0, NULL, EF_BAD, NSC_DEITY,
 569      CA_DUMP},
 570     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 571 #undef CURSTR
 572 };
 573
 574 struct castr cou_ca[] = {
 575 #define CURSTR struct natstr
 576     /*
 577      * This is the owner's view, i.e. it applies only to the own
 578      * nation.  The public view nat_ca[], which applies to all
 579      * nations, has the same selectors with different flags: NSC_DEITY
 580      * is set except for cnum (which must come first) and all
 581      * CA_DUMP_NONE selectors; these become CA_DUMP except for
 582      * timestamp (which must come second).
 583      * nat_ca[] should also make tech, research, education and
 584      * happiness available, but we can't express the obfuscation
 585      * necessary for foreign levels.
 586      */
 587     {"cnum", fldoff(nat_cnum), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
 588     {"timestamp", fldoff(nat_timestamp), NSC_TIME, 0, NULL,
 589      EF_BAD, 0, CA_DUMP_NONE},
 590     {"stat", fldoff(nat_stat), NSC_SITYPE(enum nat_status), 0, NULL,
 591      EF_NATION_STATUS, 0, CA_DUMP_NONE},
 592     {"flags", fldoff(nat_flags), NSC_INT, 0, NULL,
 593      EF_NATION_FLAGS, NSC_BITS, CA_DUMP},
 594     {"cname", fldoff(nat_cnam), NSC_STRINGY, 20, NULL, EF_BAD, 0,
 595      CA_DUMP_NONE},
 596     {"passwd", fldoff(nat_pnam), NSC_STRINGY, 20, NULL,
 597      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
 598     {"ip", fldoff(nat_hostaddr), NSC_STRINGY, 46, NULL, EF_BAD, 0,
 599      CA_DUMP},
 600     {"hostname", 0, NSC_STRINGY, 0, NULL, EF_BAD, 0, CA_DUMP},  /* deprecated */
 601     {"userid", fldoff(nat_userid), NSC_STRINGY, 32, NULL, EF_BAD, 0,
 602      CA_DUMP},
 603     {"xcap", fldoff(nat_xcap), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 604     {"ycap", fldoff(nat_ycap), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 605     {"xorg", fldoff(nat_xorg), NSC_XCOORD, 0, NULL,
 606      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
 607     {"yorg", fldoff(nat_yorg), NSC_YCOORD, 0, NULL,
 608      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
 609     {"update", fldoff(nat_update), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 610     {"tgms", fldoff(nat_tgms), NSC_USHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 611     {"ann", fldoff(nat_ann), NSC_USHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 612     {"timeused", fldoff(nat_timeused), NSC_INT, 0, NULL, EF_BAD, 0,
 613      CA_DUMP},
 614     {"btu", fldoff(nat_btu), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 615     {"access", fldoff(nat_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 616     {"milreserve", fldoff(nat_reserve), NSC_INT, 0, NULL, EF_BAD, 0,
 617      CA_DUMP},
 618     {"money", fldoff(nat_money), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 619     {"login", fldoff(nat_last_login), NSC_TIME, 0, NULL, EF_BAD, 0,
 620      CA_DUMP},
 621     {"logout", fldoff(nat_last_logout), NSC_TIME, 0, NULL, EF_BAD, 0,
 622      CA_DUMP},
 623     {"newstim", fldoff(nat_newstim), NSC_TIME, 0, NULL, EF_BAD, 0,
 624      CA_DUMP},
 625     {"annotim", fldoff(nat_annotim), NSC_TIME, 0, NULL, EF_BAD, 0,
 626      CA_DUMP},
 627     {"tech", fldoff(nat_level[NAT_TLEV]), NSC_FLOAT, 0, NULL, EF_BAD, 0,
 628      CA_DUMP},
 629     {"research", fldoff(nat_level[NAT_RLEV]), NSC_FLOAT, 0, NULL,
 630      EF_BAD, 0, CA_DUMP},
 631     {"education", fldoff(nat_level[NAT_ELEV]), NSC_FLOAT, 0, NULL,
 632      EF_BAD, 0, CA_DUMP},
 633     {"happiness", fldoff(nat_level[NAT_HLEV]), NSC_FLOAT, 0, NULL,
 634      EF_BAD, 0, CA_DUMP},
 635     {"relations", fldoff(nat_relate), NSC_UCHAR, MAXNOC, NULL,
 636      EF_NATION_RELATIONS, NSC_HIDDEN, CA_DUMP_NONE},
 637     /* mortals know there's contact (relations show), but not how strong */
 638     {"contacts", fldoff(nat_contact), NSC_UCHAR, MAXNOC, NULL,
 639      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
 640     {"rejects", fldoff(nat_rejects), NSC_UCHAR, MAXNOC, NULL,
 641      EF_NATION_REJECTS, NSC_BITS, CA_DUMP_NONE},
 642     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 643 #undef CURSTR
 644 };
 645
 646 struct castr nat_ca[sizeof(cou_ca) / sizeof(*cou_ca)];
 647 /* initialized by nsc_init() */
 648
 649 struct castr realm_ca[] = {
 650 #define CURSTR struct realmstr
 651     /* uid is encoded in cnum, realm */
 652     {"timestamp", fldoff(r_timestamp), NSC_TIME, 0, NULL,
 653      EF_BAD, 0, CA_DUMP_NONE},
 654     {"cnum", fldoff(r_cnum), NSC_NATID, 0, NULL, EF_NATION, 0,
 655      CA_DUMP_CONST},
 656     {"realm", fldoff(r_realm), NSC_USHORT, 0, NULL, EF_BAD, 0,
 657      CA_DUMP_CONST},
 658     {"xl", fldoff(r_xl), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 659     {"xh", fldoff(r_xh), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 660     {"yl", fldoff(r_yl), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 661     {"yh", fldoff(r_yh), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 662     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 663 #undef CURSTR
 664 };
 665
 666 struct castr game_ca[] = {
 667 #define CURSTR struct gamestr
 668     /* no need for uid */
 669     {"timestamp", fldoff(game_timestamp), NSC_TIME, 0, NULL,
 670      EF_BAD, 0, CA_DUMP_NONE},
 671     {"upd_disable", fldoff(game_upd_disable), NSC_CHAR, 0, NULL,
 672      EF_BAD, 0, CA_DUMP},
 673     {"down", fldoff(game_down), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 674     {"turn", fldoff(game_turn), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 675     {"tick", fldoff(game_tick), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
 676      CA_DUMP},
 677     {"rt", fldoff(game_rt), NSC_TIME, 0, NULL, EF_BAD, NSC_DEITY, CA_DUMP},
 678     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 679 #undef CURSTR
 680 };
 681
 682 struct castr intrchr_ca[] = {
 683 #define CURSTR struct sctintrins
 684     /* no need for uid as long as it's not referenced from other tables */
 685     {"name", fldoff(in_name), NSC_STRING, 0, NULL, EF_BAD, 0,
 686      CA_DUMP_CONST},
 687     {"lcms", fldoff(in_lcms), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 688     {"hcms", fldoff(in_hcms), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 689     {"dcost", fldoff(in_dcost), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 690     {"mcost", fldoff(in_mcost), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 691     {"enable", fldoff(in_enable), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 692     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 693 #undef CURSTR
 694 };
 695
 696 struct castr rpt_ca[] = {
 697 #define CURSTR struct rptstr
 698     {"uid", fldoff(r_uid), NSC_CHAR, 0, NULL, EF_NEWS_CHR, 0, CA_DUMP},
 699     {"newstory", fldoff(r_newstory), NSC_STRING, NUM_RPTS, NULL,
 700      EF_BAD, 0, CA_DUMP},
 701     {"good_will", fldoff(r_good_will), NSC_INT, 0, NULL, EF_BAD, 0,
 702      CA_DUMP},
 703     {"newspage", fldoff(r_newspage), NSC_INT, 0, NULL,
 704      EF_PAGE_HEADINGS, 0, CA_DUMP},
 705     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 706 #undef CURSTR
 707 };
 708
 709 struct castr update_ca[] = {
 710     {"time", 0, NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
 711     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 712 };
 713
 714 struct castr empfile_ca[] = {
 715 #define CURSTR struct empfile
 716     {"uid", fldoff(uid), NSC_INT, 0, NULL, EF_TABLE, 0, CA_DUMP},
 717     {"name", fldoff(name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 718     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 719 #undef CURSTR
 720 };
 721
 722 struct castr symbol_ca[] = {
 723 #define CURSTR struct symbol
 724     /*
 725      * value is is const because it has to match what is compiled into
 726      * the server.  name is const because clients key on it.
 727      */
 728     {"value", fldoff(value), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 729     {"name", fldoff(name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 730     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 731 #undef CURSTR
 732 };
 733
 734 struct castr mdchr_ca[] = {
 735 #define CURSTR struct castr
 736     /* no need for uid */
 737     /* name must come first, clients may rely on it */
 738     {"name", fldoff(ca_name), NSC_STRING, 0, NULL, EF_BAD, 0,
 739      CA_DUMP_CONST},
 740     {"type", fldoff(ca_type), NSC_SITYPE(enum nsc_type), 0, NULL,
 741      EF_META_TYPE, 0, CA_DUMP_CONST},
 742     {"flags", fldoff(ca_flags), NSC_INT, 0, NULL,
 743      EF_META_FLAGS, NSC_BITS, CA_DUMP_CONST},
 744     {"len", fldoff(ca_len), NSC_USHORT, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 745     {"table", fldoff(ca_table), NSC_INT, 0, NULL, EF_TABLE, 0,
 746      CA_DUMP_CONST},
 747     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 748 #undef CURSTR
 749 };
 750
 751 void
 752 nsc_init(void)
 753 {
 754     static struct castr version_ca0 = {
 755         "version", 0, NSC_STRINGY, sizeof(PACKAGE_STRING), NULL, EF_BAD, 0,
 756             CA_DUMP
 757     };
 758     static struct castr version_ca1 = {
 759         "maxnoc", 0, NSC_LONG, 0, nsc_ver_maxnoc, EF_BAD, 0, CA_DUMP
 760     };
 761     static struct castr *ca;
 762     struct keymatch *kp;
 763     int n, i;
 764
 765     /* derive empfile[EF_VERSION].cadef from configkeys[] */
 766     n = 0;
 767     for (kp = configkeys; kp->km_key; ++kp) {
 768         if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL))
 769             n++;
 770     }
 771     ca = calloc(2 + n + 1, sizeof(*ca));
 772     ca[0] = version_ca0;
 773     ca[1] = version_ca1;
 774     i = 2;
 775     for (kp = configkeys; kp->km_key; ++kp) {
 776         if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL)) {
 777             ca[i].ca_type = kp->km_type;
 778             ca[i].ca_off = kp - configkeys;
 779             ca[i].ca_name = kp->km_key;
 780             ca[i].ca_table = EF_BAD;
 781             ca[i].ca_get = nsc_ver;
 782             i++;
 783         }
 784     }
 785     empfile[EF_VERSION].cadef = ca;
 786
 787     /* derive nat_ca[] from cou_ca[] */
 788     nat_ca[0] = cou_ca[0];      /* cnum */
 789     nat_ca[1] = cou_ca[1];      /* timestamp */
 790     for (i = 2; cou_ca[i].ca_name; i++) {
 791         nat_ca[i] = cou_ca[i];
 792         if (nat_ca[i].ca_dump == CA_DUMP_NONE)
 793             nat_ca[i].ca_dump = CA_DUMP;
 794         else
 795             nat_ca[i].ca_flags |= NSC_DEITY;
 796     }
 797     nat_ca[i] = cou_ca[i];      /* sentinel */
 798 }
 799
 800 /*
 801  * Virtual selectors
 802  */
 803
 804 static void *
 805 nsc_ver(struct valstr *val, struct natstr *np, void *ptr)
 806 {
 807     struct keymatch *kp = &configkeys[val->val_as.sym.off];
 808     val->val_as.sym.off = 0;
 809     val->val_as.sym.get = NULL;
 810     return kp->km_data;
 811 }
 812
 813 static void *
 814 nsc_ver_maxnoc(struct valstr *val, struct natstr *np, void *ptr)
 815 {
 816     val->val_as.lng = MAXNOC;
 817     return NULL;
 818 }
 819
 820 static void *
 821 nsc_sct_terr(struct valstr *val, struct natstr *np, void *ptr)
 822 {
 823     if (!np || np->nat_stat == STAT_GOD)
 824         val->val_as.sym.off = offsetof(struct sctstr, sct_dterr);
 825     else
 826         val->val_as.sym.off = offsetof(struct sctstr, sct_terr);
 827     val->val_as.sym.get = NULL;
 828     return ptr;
 829 }
 830
 831 static void *
 832 nsc_sct_track(struct valstr *val, struct natstr *np, void *ptr)
 833 {
 834     val->val_as.lng = sct_rail_track(ptr);
 835     return NULL;
 836 }
 837
 838 static void *
 839 nsc_cargo_nplane(struct valstr *val, struct natstr *np, void *ptr)
 840 {
 841     struct empobj *obj = ptr;
 842     int n, nch, nxl;
 843
 844     n = unit_nplane(obj->ef_type, obj->uid, &nch, &nxl, NULL);
 845     val->val_as.lng = n - nch - nxl;
 846     return NULL;
 847 }
 848
 849 static void *
 850 nsc_cargo_nchopper(struct valstr *val, struct natstr *np, void *ptr)
 851 {
 852     struct empobj *obj = ptr;
 853     int n;
 854
 855     unit_nplane(obj->ef_type, obj->uid, &n, NULL, NULL);
 856     val->val_as.lng = n;
 857     return NULL;
 858 }
 859
 860 static void *
 861 nsc_cargo_nxlight(struct valstr *val, struct natstr *np, void *ptr)
 862 {
 863     struct empobj *obj = ptr;
 864     int n;
 865
 866     unit_nplane(obj->ef_type, obj->uid, NULL, &n, NULL);
 867     val->val_as.lng = n;
 868     return NULL;
 869 }
 870
 871 static void *
 872 nsc_cargo_nland(struct valstr *val, struct natstr *np, void *ptr)
 873 {
 874     struct empobj *obj = ptr;
 875
 876     val->val_as.lng = unit_cargo_count(obj->ef_type, obj->uid, EF_LAND);
 877     return NULL;
 878 }
 879
 880 static void *
 881 nsc_pln_def(struct valstr *val, struct natstr *np, void *ptr)
 882 {
 883     val->val_as.lng = pln_def(ptr);;
 884     return NULL;
 885 }
 886
 887 static void *
 888 nsc_pln_att(struct valstr *val, struct natstr *np, void *ptr)
 889 {
 890     val->val_as.lng = pln_att(ptr);
 891     return NULL;
 892 }
 893
 894 static void *
 895 nsc_pln_nuketype(struct valstr *val, struct natstr *np, void *ptr)
 896 {
 897     struct nukstr *nukp = getnukep(nuk_on_plane(ptr));
 898     val->val_as.lng = nukp ? nukp->nuk_type : -1;
 899     return NULL;
 900 }
 901
 902 static void *
 903 nsc_lnd_att(struct valstr *val, struct natstr *np, void *ptr)
 904 {
 905     val->val_as.dbl = lnd_att(ptr);
 906     return NULL;
 907 }
 908
 909 static void *
 910 nsc_lnd_def(struct valstr *val, struct natstr *np, void *ptr)
 911 {
 912     val->val_as.dbl = lnd_def(ptr);
 913     return NULL;
 914 }
 915
 916 static void *
 917 nsc_lnd_vul(struct valstr *val, struct natstr *np, void *ptr)
 918 {
 919     val->val_as.lng = lnd_vul(ptr);
 920     return NULL;
 921 }
 922
 923 static void *
 924 nsc_lnd_spd(struct valstr *val, struct natstr *np, void *ptr)
 925 {
 926     val->val_as.lng = lnd_spd(ptr);
 927     return NULL;
 928 }
 929
 930 static void *
 931 nsc_lnd_vis(struct valstr *val, struct natstr *np, void *ptr)
 932 {
 933     val->val_as.lng = lnd_vis(ptr);
 934     return NULL;
 935 }
 936
 937 static void *
 938 nsc_lnd_frg(struct valstr *val, struct natstr *np, void *ptr)
 939 {
 940     val->val_as.lng = lnd_frg(ptr);
 941     return NULL;
 942 }
 943
 944 static void *
 945 nsc_lnd_acc(struct valstr *val, struct natstr *np, void *ptr)
 946 {
 947     val->val_as.lng = lnd_acc(ptr);
 948     return NULL;
 949 }
 950
 951 static void *
 952 nsc_lnd_dam(struct valstr *val, struct natstr *np, void *ptr)
 953 {
 954     val->val_as.lng = lnd_dam(ptr);
 955     return NULL;
 956 }
 957
 958 static void *
 959 nsc_lnd_aaf(struct valstr *val, struct natstr *np, void *ptr)
 960 {
 961     val->val_as.lng = lnd_aaf(ptr);
 962     return NULL;
 963 }
 964
 965 static void *
 966 nsc_lchr(struct valstr *val, struct natstr *np, void *ptr)
 967 {
 968     val->val_as.sym.get = NULL;
 969     return lchr + ((struct lndstr *)ptr)->lnd_type;
 970 }
 971
 972 static void *
 973 nsc_nws_timestamp(struct valstr *val, struct natstr *natp, void *ptr)
 974 {
 975     struct nwsstr *np = ptr;
 976
 977     val->val_as.lng = np->nws_when + np->nws_duration;
 978     return NULL;
 979 }