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

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1986-2004, 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  *  vers.c: Print out the Empire version
  29  *
  30  *  Known contributors to this file:
  31  *     Dave Pare
  32  *     Jeff Bailey
  33  *     Thomas Ruschak
  34  *     Ken Stevens
  35  *     Steve McClure
  36  */
  37
  38 #include <stdio.h>
  39 #include <time.h>
  40 #include "gamesdef.h"
  41 #include "misc.h"
  42 #include "player.h"
  43 #include "nat.h"
  44 #include "version.h"
  45 #include "ship.h"
  46 #include "optlist.h"
  47 #include "commands.h"
  48
  49 int
  50 vers(void)
  51 {
  52     struct option_list *op;
  53
  54     time_t now;
  55     int j;
  56
  57     (void)time(&now);
  58     pr("Empire %d.%d.%d\n(KSU distribution %2.2f, Chainsaw version %2.2f, Wolfpack version %2.2f)\n\n", EMP_VERS_MAJOR, EMP_VERS_MINOR, EMP_VERS_PATCH, (float)KSU_DIST, (float)CHAINSAW_DIST, (float)WOLFPACK_DIST);
  59     pr("The following parameters have been set for this game:\n");
  60     pr("World size is %d by %d.\n", WORLD_X, WORLD_Y);
  61     pr("There can be up to %d countries.\n", MAXNOC);
  62     pr("By default, countries use %s coordinate system.\n",
  63        (players_at_00) ? "the deity's" : "their own");
  64     pr("\n");
  65     pr("An Empire time unit is %d second%s long.\n",
  66        s_p_etu, s_p_etu != 1 ? "s" : "");
  67     pr("Use the 'update' command to find out the time of the next update.\n");
  68     pr("The current time is %19.19s.\n", ctime(&now));
  69     pr("An update consists of %d empire time units.\n", etu_per_update);
  70     pr("Each country is allowed to be logged in %d minutes a day.\n",
  71        m_m_p_d);
  72     pr("It takes %.2f civilians to produce a BTU in one time unit.\n",
  73        (1.0 / (btu_build_rate * 100.0)));
  74     pr("\n");
  75
  76     pr("A non-aggi, 100 fertility sector can grow %.2f food per etu.\n",
  77        100.0 * fgrate);
  78     pr("1000 civilians will harvest %.1f food per etu.\n",
  79        1000.0 * fcrate);
  80     pr("1000 civilians will give birth to %.1f babies per etu.\n",
  81        1000.0 * obrate);
  82     pr("1000 uncompensated workers will give birth to %.1f babies.\n",
  83        1000.0 * uwbrate);
  84     pr("In one time unit, 1000 people eat %.1f units of food.\n",
  85        1000.0 * eatrate);
  86     pr("1000 babies eat %.1f units of food becoming adults.\n",
  87        1000.0 * babyeat);
  88     if (opt_NOFOOD)
  89         pr("No food is needed!!\n");
  90
  91     pr("\n");
  92
  93     pr("Banks pay $%.2f in interest per 1000 gold bars per etu.\n",
  94        bankint * 1000.0);
  95     pr("1000 civilians generate $%.2f, uncompensated workers $%.2f each time unit.\n", 1000.0 * money_civ, 1000.0 * money_uw);
  96     pr("1000 active military cost $%.2f, reserves cost $%.2f.\n",
  97        -money_mil * 1000.0, -money_res * 1000.0);
  98     if (rollover_avail_max)
  99         pr("Up to %d avail can roll over an update.\n", rollover_avail_max);
 100     if (opt_SLOW_WAR)
 101         pr("Declaring war will cost you $%i\n\n", War_Cost);
 102     pr("Happiness p.e. requires 1 happy stroller per %d civ.\n",
 103        (int)hap_cons / etu_per_update);
 104     pr("Education p.e. requires 1 class of graduates per %d civ.\n",
 105        (int)edu_cons / etu_per_update);
 106     pr("Happiness is averaged over %d time units.\n", (int)hap_avg);
 107     pr("Education is averaged over %d time units.\n", (int)edu_avg);
 108     if (opt_ALL_BLEED == 0)
 109         pr("The technology/research boost you get from your allies is %.2f%%.\n", 100.0 / ally_factor);
 110     else                        /* ! ALL_BLEED */
 111         pr("The technology/research boost you get from the world is %.2f%%.\n", 100.0 / ally_factor);
 112
 113     pr("Nation levels (tech etc.) decline 1%% every %d time units.\n",
 114        (int)(level_age_rate));
 115
 116     pr("Tech Buildup is ");
 117     if (tech_log_base <= 1.0) {
 118         pr("not limited\n");
 119     }
 120     if (tech_log_base > 1.0) {
 121         pr("limited to logarithmic growth (base %.2f)", tech_log_base);
 122         if (easy_tech == 0.0)
 123             pr(".\n");
 124         else
 125             pr(" after %0.2f.\n", easy_tech);
 126     }
 127     pr("\n");
 128     pr("\t\t\t\tSectors\tShips\tPlanes\tUnits\n");
 129     pr("Maximum mobility\t\t%d\t%d\t%d\t%d\n", sect_mob_max,
 130        ship_mob_max, plane_mob_max, land_mob_max);
 131     pr("Max mob gain per update\t\t%d\t%d\t%d\t%d\n",
 132        (int)(sect_mob_scale * (float)etu_per_update),
 133        (int)(ship_mob_scale * (float)etu_per_update),
 134        (int)(plane_mob_scale * (float)etu_per_update),
 135        (int)(land_mob_scale * (float)etu_per_update));
 136     pr("Max eff gain per update\t\t--\t%d\t%d\t%d\n",
 137        min(ship_grow_scale * etu_per_update, 100),
 138        min(plane_grow_scale * etu_per_update, 100),
 139        min(land_grow_scale * etu_per_update, 100));
 140     pr("\n");
 141     pr("Ships on autonavigation may use %i cargo holds per ship.\n", TMAX);
 142     if (opt_TRADESHIPS) {
 143         pr("Trade-ships that go at least %d sectors get a return of %.1f%% per sector.\n", trade_1_dist, (float)(trade_1 * 100.0));
 144         pr("Trade-ships that go at least %d sectors get a return of %.1f%% per sector.\n", trade_2_dist, (float)(trade_2 * 100.0));
 145         pr("Trade-ships that go at least %d sectors get a return of %.1f%% per sector.\n", trade_3_dist, (float)(trade_3 * 100.0));
 146         pr("Cashing in trade-ships with an ally nets you a %.1f%% bonus.\n", trade_ally_bonus * 100.0);
 147         pr("Cashing in trade-ships with an ally nets your ally a %.1f%% bonus.\n\n", trade_ally_cut * 100.0);
 148     }
 149     if (opt_MARKET) {
 150         pr("The tax you pay on selling things on the trading block is %.1f%%\n", (1.00 - tradetax) * 100.0);
 151         pr("The tax you pay on buying commodities on the market is %.1f%%\n\n", (buytax - 1.00) * 100.0);
 152     }
 153
 154     if (opt_NONUKES)
 155         pr("Nukes are disabled.\n");
 156     else if (opt_DRNUKE) {      /* NUKES && DRNUKE enabled */
 157         pr("In order to build a nuke, you need %1.2f times the tech level in research\n", drnuke_const);
 158         pr("\tExample: In order to build a 300 tech nuke, you need %d research\n\n", (int)(300.0 * drnuke_const));
 159     }
 160
 161     pr("Fire ranges are scaled by %.2f\n", fire_range_factor);
 162
 163     pr("\nOptions enabled in this game:\n        ");
 164     for (j = 0, op = Options; op->opt_key; op++) {
 165         if (*op->opt_valuep == 0)
 166             continue;
 167
 168         j += strlen(op->opt_key) + 2;
 169         if (j > 70) {
 170             pr("\n        ");
 171             j = strlen(op->opt_key) + 2;
 172         }
 173         pr("%s%s", op->opt_key, op[1].opt_key == NULL ? "" : ", ");
 174     }
 175     pr("\n\nOptions disabled in this game:\n        ");
 176     for (j = 0, op = Options; op->opt_key; op++) {
 177         if (!(*op->opt_valuep == 0))
 178             continue;
 179
 180         j += strlen(op->opt_key) + 2;
 181         if (j > 70) {
 182             pr("\n        ");
 183             j = strlen(op->opt_key) + 2;
 184         }
 185         pr("%s%s", op->opt_key, op[1].opt_key == NULL ? "" : ", ");
 186     }
 187     pr("\n\n\"info Options\" for a detailed list of options and descriptions");
 188     pr("\n\n");
 189     pr("The person to annoy if something goes wrong is:\n\t%s\n\t(%s).\n",
 190        privname, privlog);
 191     pr("You can get your own copy of the source %s\n", GET_SOURCE);
 192     return RET_OK;
 193 }