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