git.pond.sub.org Git - empserver/blob - src/util/perfect.c

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
   4  *                           Ken Stevens, Steve McClure
   5  *
   6  *  This program is free software; you can redistribute it and/or modify
   7  *  it under the terms of the GNU General Public License as published by
   8  *  the Free Software Foundation; either version 2 of the License, or
   9  *  (at your option) any later version.
  10  *
  11  *  This program is distributed in the hope that it will be useful,
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  *  GNU General Public License for more details.
  15  *
  16  *  You should have received a copy of the GNU General Public License
  17  *  along with this program; if not, write to the Free Software
  18  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  *
  20  *  ---
  21  *
  22  *  See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
  23  *  related information and legal notices. It is expected that any future
  24  *  projects/authors will amend these files as needed.
  25  *
  26  *  ---
  27  *
  28  *  perfect.c: Create a perfect world
  29  *
  30  *  Known contributors to this file:
  31  *     James Anderson, 1986
  32  *     Dave Pare, 1986
  33  */
  34
  35 #if defined(aix) || defined(linux) || defined(solaris)
  36 #include <unistd.h>
  37 #endif /* aix or linux */
  38
  39 #include <stdio.h>
  40 #include <fcntl.h>
  41 #include "misc.h"
  42 #include "var.h"
  43 #include "sect.h"
  44 #include "gamesdef.h"
  45 #include "file.h"
  46 #include "path.h"
  47 #include "xy.h"
  48 #include "prototypes.h"
  49
  50 #define XPLATES         (WORLD_X / 2)
  51 #define YPLATES         WORLD_Y
  52 #define YbyX            (YPLATES*XPLATES/8)
  53
  54 struct  sctstr sects[YPLATES*XPLATES];
  55 u_char  s[YPLATES][XPLATES];
  56 short   c[YPLATES][XPLATES];
  57 short   e[YPLATES][XPLATES];
  58 int     size[YbyX];
  59 int     goldchance[YbyX];
  60 int     ironchance[YbyX];
  61 int     oilchance[YbyX];
  62 int     fertchance[YbyX];
  63 int     urchance[YbyX];
  64
  65 void    makec();
  66 void    makeore();
  67 int     nearelev();
  68
  69 int
  70 main(argc, argp)
  71         int     argc;
  72         s_char  **argp;
  73 {
  74         register struct sctstr *sp;
  75         register int y;
  76         register int x;
  77         int     sectf;
  78         int     i;
  79         time_t  now;
  80         s_char  *sectfil = NULL;
  81         extern char *optarg;
  82         int opt;
  83         char *config_file = NULL;
  84
  85
  86         while ((opt = getopt (argc, argp, "e:s:")) != EOF) {
  87                 switch (opt) {
  88                     case 'e':
  89                         config_file = optarg;
  90                         break;
  91                     case 's':
  92                         sectfil = optarg;
  93                         break;
  94                 }
  95         }
  96
  97         emp_config (config_file);
  98
  99         if (sectfil == NULL)
 100                 sectfil = empfile[EF_SECTOR].file;
 101
 102         time(&now);
 103         srandom((unsigned int)now);
 104         sectf = open(sectfil, O_RDWR, 0);
 105         if (sectf < 0) {
 106                 perror(sectfil);
 107                 exit(1);
 108         }
 109         read(sectf, sects, sizeof(sects));
 110         sp = sects;
 111         for (y = 0; y < WORLD_Y; y++) {
 112                 for (x = 0; x < WORLD_X; x++) {
 113                         if (((x ^ y) & 1))
 114                                 continue;
 115                         c[y][x/2] = 0;
 116                         s[y][x/2] = sp->sct_type;
 117                         e[y][x/2] = sp->sct_elev;
 118                         sp++;
 119                 }
 120         }
 121         for (y = 0; y < WORLD_Y; y++) {
 122                 for (x = 0; x < WORLD_X; x++) {
 123                         if (((x ^ y) & 1))
 124                                 continue;
 125                         if (c[y][x/2] != 0)
 126                                 continue;
 127                         makec(x, y, 0);
 128                 }
 129         }
 130         printf("size  oil  gold fert iron\n");
 131         for (i=1; i<YbyX && size[i]; i++) {
 132                 oilchance[i] =  5 + roll(75) - min(size[i] / 15, 10);
 133 /*              goldchance[i] = 3 + roll(45) -  */
 134                 goldchance[i] = 3 + roll(55) -
 135                         (oilchance[i] + min(size[i] / 15, 10));
 136 /*              urchance[i] = roll(40) - goldchance[i]; */
 137                 urchance[i] = roll(30) - goldchance[i];
 138                 fertchance[i] = roll(40) - (goldchance[i] + oilchance[i]);
 139                 ironchance[i] = roll(45) - (goldchance[i] + oilchance[i]/2);
 140                 if (size[i] > 10) {
 141                         printf("%3d   %3d  %3d  %3d  %3d\n",
 142                                 size[i], oilchance[i], goldchance[i],
 143                                 fertchance[i], ironchance[i]);
 144                 }
 145         }
 146         if (i == YbyX)
 147                 printf("Oops.  YbyX not big enough\n");
 148         sp = sects;
 149         for (y = 0; y < WORLD_Y; y++) {
 150                 for (x = 0; x < WORLD_X; x++) {
 151                         if (((x ^ y) & 1))
 152                                 continue;
 153                         makeore(sp++);
 154                 }
 155         }
 156         lseek(sectf, 0L, 0);
 157         write(sectf, sects, sizeof(sects));
 158         close(sectf);
 159         exit(0);
 160 }
 161
 162 int     cont = 0;
 163
 164 #define max(a,b) (a < b ? b : a)
 165
 166 void
 167 makec(x, y, n)
 168         int     x;
 169         int     y;
 170         int     n;
 171 {
 172         register int dy;
 173         register int dx;
 174         register int dir;
 175         register short *cp;
 176
 177         if (s[y][x/2] == SCT_WATER)
 178                 return;
 179         cp = &c[y][x/2];
 180         if (*cp != 0)
 181                 return;
 182         if (n == 0)
 183                 n = ++cont;
 184         *cp = n;
 185         size[n]++;
 186         for (dir = 1; dir <= 6; dir++) {
 187                 dx = (diroff[dir][0] + x + WORLD_X) % WORLD_X;
 188                 dy = (diroff[dir][1] + y + WORLD_Y) % WORLD_Y;
 189                 makec(dx, dy, n);
 190         }
 191 }
 192
 193 void
 194 makeore(sp)
 195         register struct sctstr *sp;
 196 {
 197         int     elev;
 198         int     oil, gmin, iron, fertil, ur;
 199         int     lev;
 200         int     i;
 201         int     x,y;
 202
 203         y = sp->sct_y;
 204         x = sp->sct_x;
 205         elev = e[y][x/2];
 206         lev = (elev*12 + nearelev(x, y))/18;
 207         i = c[y][x/2];
 208         oil = 0;
 209         iron = 0;
 210         gmin = 0;
 211         fertil = 0;
 212         ur = 0;
 213         if (lev < 20 && lev > -15 && roll(100) < 30+oilchance[i]+lev) {
 214                 oil = (45 - lev) + roll(50);
 215                 if (oil > 100)
 216                         oil = 100;
 217                 if (oil < 10)
 218                         oil = 0;
 219         }
 220         if (lev > 15 && roll(20+lev) < lev+ironchance[i]) {
 221                 iron = lev + roll(55);
 222                 if (iron > 100)
 223                         iron = 100;
 224                 if (iron < 10)
 225                         iron = 0;
 226         }
 227         if (lev > 16 && roll(35+lev) < lev+goldchance[i]) {
 228                 gmin = (lev - 5) + roll(45);
 229                 if (gmin > 100)
 230                         gmin = 100;
 231                 if (gmin < 10)
 232                         gmin = 0;
 233         }
 234         if (lev > 14 && roll(35+lev) < lev+urchance[i]) {
 235                 ur = (lev - 5) + roll(45);
 236                 if (ur > 100)
 237                         ur = 100;
 238                 if (ur < 10)
 239                         ur = 0;
 240         }
 241         fertil = (85 + fertchance[i] - lev) - (((iron + gmin)/2) - oil/3);
 242         if (fertil > 120)
 243                 fertil = 120;
 244         if (fertil < 0)
 245                 fertil = 0;
 246         sp->sct_oil = 100;
 247         sp->sct_min = 100;
 248         sp->sct_gmin = 100;
 249         sp->sct_fertil = 100;
 250         sp->sct_uran = 100;
 251 }
 252
 253 int
 254 nearelev(x, y)
 255         int     x;
 256         int     y;
 257 {
 258         int     dir;
 259         int     dx;
 260         int     dy;
 261         int     level;
 262
 263         level = 0;
 264         for (dir = 1; dir <= 6; dir++) {
 265                 dx = (diroff[dir][0] + x + WORLD_X) % WORLD_X;
 266                 dy = (diroff[dir][1] + y + WORLD_Y) % WORLD_Y;
 267                 level += e[dy][dx/2];
 268         }
 269         return level;
 270 }
 271
 272 /*              Already in libgen.a
 273 roll(n)
 274         int     n;
 275 {
 276         return random() % n;
 277 }
 278 */
 279
 280 int
 281 min(a, b)
 282         int     a;
 283         int     b;
 284 {
 285         if (a < b)
 286                 return a;
 287         return b;
 288 }