home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume06 / rndweat.her < prev    next >
Encoding:
Internet Message Format  |  1991-08-27  |  38.3 KB
  1. From decwrl!ucbvax!tut.cis.ohio-state.edu!unmvax!pprg.unm.edu!hc!lll-winken!uunet!allbery Sat Mar 25 19:44:38 PST 1989
  2. Article 849 of comp.sources.misc:
  3. Path: decwrl!ucbvax!tut.cis.ohio-state.edu!unmvax!pprg.unm.edu!hc!lll-winken!uunet!allbery
  4. From: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5. Newsgroups: comp.sources.misc
  6. Subject: v06i080: Random Weather Generator for RPGs
  7. Message-ID: <51485@uunet.UU.NET>
  8. Date: 25 Mar 89 17:03:53 GMT
  9. Sender: allbery@uunet.UU.NET
  10. Reply-To: slocum@hi-csc.UUCP
  11. Lines: 1334
  12. Approved: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  13.  
  14. Posting-number: Volume 6, Issue 80
  15. Submitted-by: slocum@hi-csc.UUCP
  16. Archive-name: rndweather
  17.  
  18. This is a random weather generator for use with roleplaying games.
  19. It is customizable, and contains several different climates and
  20. calendars.  See README file for for info.  See Makefile for
  21. instructions on making various versions.
  22.  
  23. Brett Slocum   UUCP: ...uunet!hi-csc!slocum
  24.                Arpa: hi-csc!slocum@uunet.uu.net
  25. "My name is Inigo Montoya. You killed my father. Prepare to die."
  26.  
  27. #--------------------------------CUT HERE-------------------------------------
  28.  
  29.  
  30. # This is a shell archive.  Remove anything before this line, then
  31. # unpack it by saving it in a file and typing "sh file".  (Files
  32. # unpacked will be owned by you and have default permissions.)
  33. #
  34. # This archive contains:
  35. # README Makefile weather.c gregorian.h gulf.h japan.h mid_atlantic.h middle_earth.h n_atlantic.h n_pacific.h s_atlantic.h weather.h
  36.  
  37. echo x - README
  38. cat > "README" << '//E*O*F README//'
  39. When playing roleplaying games (RPGs), it often adds some realism if the GM
  40. can determine what kind of weather is occuring.  This program generates random
  41. weather for a year that is tunable to various climates.  Several example
  42. climates are included: north, south, and mid atlantic, gulf, and north
  43. pacific.
  44.  
  45. In addition, several different calendars are included: Gregorian, medieval
  46. Japanese, and the Middle Earth calendar detailed in the appendices of
  47. Tolkien's The Lord of the Rings.
  48.  
  49. The details of these are provided so that the user can create his or her own
  50. climate profiles or calendars.
  51.  
  52. Please send any improvements, new climate profiles, new calendars, or
  53. better versions of the current climate profiles to one of the addresses below.
  54.  
  55. -----------------------------------------------------------------
  56. Brett Slocum   UUCP: ...uunet!hi-csc!slocum
  57.                Arpa: hi-csc!slocum@uunet.uu.net
  58. "My name is Inigo Montoya. You killed my father. Prepare to die."
  59. -----------------------------------------------------------------
  60.  
  61. //E*O*F README//
  62.  
  63. echo x - Makefile
  64. cat > "Makefile" << '//E*O*F Makefile//'
  65. # Makefile: makefile for weather.c
  66. # 
  67. # make <choice>
  68. # will create a specific climate program.
  69. #
  70. # make
  71. # will create 'england', an English climate program.
  72. #
  73. # make all
  74. # will create all climate programs.
  75. #
  76. # To make addition climate programs, just add the calendar
  77. # and climate choices as -D options.
  78. #
  79. # Calendar choices:
  80. # 
  81. # GREGORIAN - uses essentially modern calendar, without leap years.
  82. #
  83. # JAPAN     - uses medieval Japanese calendar.
  84. #
  85. # MIDDLE_EARTH - uses calendar described in appendices of Tolkien's
  86. #                'The Lord of the Rings'.
  87. #
  88. # Climate choices:
  89. #
  90. # N_ATLANTIC   - useful for Scandinavia coastal or interior continential US
  91. #                or Europe.
  92. # MID_ATLANTIC - useful for England, European coastal, New England, etc.
  93. # S_ATLANTIC   - useful for Spain, Southern coastal US
  94. # GULF         - useful for Gulf States, Mediterranean, etc.
  95. # N_PACIFIC    - useful for Japan, Korea, Southern Alaskan coast, etc.
  96.  
  97. england: weather.c weather.h gregorian.h mid_atlantic.h
  98.     cc -DGREGORIAN -DMID_ATLANTIC -o england -g weather.c
  99.  
  100. minnesota: weather.c weather.h gregorian.h n_atlantic.h
  101.     cc -DGREGORIAN -DN_ATLANTIC -o minnesota -g weather.c
  102.  
  103. japan: weather.c weather.h japan.h n_pacific.h
  104.     cc -DJAPAN -DN_PACIFIC -o japan -g weather.c
  105.  
  106. florida: weather.c weather.h gregorian.h gulf.h
  107.     cc -DGREGORIAN -DGULF -o florida -g weather.c
  108.  
  109. shire: weather.c weather.h middle_earth.h mid_atlantic.h
  110.     cc -DMIDDLE_EARTH -DMID_ATLANTIC -o shire -g weather.c
  111.  
  112. georgia: weather.c weather.h gregorian.h s_atlantic.h
  113.     cc -DGREGORIAN -DS_ATLANTIC -o georgia -g weather.c
  114.  
  115. all: england minnesota japan florida shire georgia
  116.  
  117. //E*O*F Makefile//
  118.  
  119. echo x - weather.c
  120. cat > "weather.c" << '//E*O*F weather.c//'
  121. /**************************************************************************
  122.  *  Weather - generates random weather                                    *
  123.  *                                                                        *
  124.  *  Copyright 1988 by Brett Slocum.  All rights reserved.                 *
  125.  *  Permission is granted to distribute or modify this program, or use    *
  126.  *  portions of this program in other programs, as long as this notice    *
  127.  *  remains intact.                                                       *
  128.  *  This program or its derivatives may not be sold for profit without    *
  129.  *  permission of the author.                                             *
  130.  *                                                                        *
  131.  *  Original UNIX Version: Brett Slocum UUCP: ...uunet!hi-csc!slocum      *
  132.  *                                      ARPA: hi-csc!slocum@uunet.uu.net  *
  133.  *                                                                        *
  134.  **************************************************************************/
  135.  
  136. #include "weather.h"
  137.  
  138. typedef UBYTE MONTH_T;
  139.  
  140. /* Calendar choices */
  141. #ifdef GREGORIAN
  142. #include "gregorian.h"
  143. #else
  144. #ifdef JAPAN
  145. #include "japan.h"
  146. #else
  147. #ifdef MIDDLE_EARTH
  148. #include "middle_earth.h"
  149. #endif
  150. #endif
  151. #endif
  152.  
  153. /* Climate choices */
  154. #ifdef N_ATLANTIC
  155. #include "n_atlantic.h"
  156. #else
  157. #ifdef MID_ATLANTIC
  158. #include "mid_atlantic.h"
  159. #else
  160. #ifdef S_ATLANTIC
  161. #include "s_atlantic.h"
  162. #else
  163. #ifdef GULF
  164. #include "gulf.h"
  165. #else
  166. #ifdef N_PACIFIC
  167. #include "n_pacific.h"
  168. #endif
  169. #endif
  170. #endif
  171. #endif
  172. #endif
  173.  
  174. UBYTE Stat_Table[N_MONTHS][N_STAT] = {
  175.     {200,0,0}, {200,0,0}, {200,0,0}, {200,0,0}, {200,0,0}, {200,0,0}, 
  176.     {200,0,0}, {200,0,0}, {200,0,0}, {200,0,0}, {200,0,0}, {200,0,0}
  177. };
  178.  
  179. WIND_T     Wind = CALM;          /* today's wind conditions */
  180. TEMP_T     Temp_Class = CHILLY;  /* today's temperature class */
  181. PRECIP_T   Precip_Class = NONE;  /* today's precipitation */
  182. WEATHER_T  Weather;              /* today's weather */
  183. OVERCAST_T Sky;                  /* today's sky conditions */
  184.  
  185. UBYTE Temperature = 0,           /* today's actual temperature */
  186.       Duration = 0;              /* today's precipitation duration */
  187.  
  188. BOOL Duration_Hours = TRUE,      /* flag that indicates whether precip lasted */
  189.                                  /* hours (TRUE) or minutes (FALSE) */
  190.      Catastrophe = FALSE,        /* flag that indicates whether a catastrophe */
  191.                                  /* occurred today */
  192.      Storm = FALSE,              /* flag that indicates whether precip was a storm */
  193.      Long_Storm = FALSE,         /* flag that indicates whether precip was a */
  194.                                  /* long storm lasting more than one day */
  195.      Snow = FALSE;               /* flag that indicates whether snow fell today */
  196.  
  197. float Rainfall = 0.0,            /* yearly total rainfall */
  198.       Snowfall = 0.0,            /* yearly total snowfall */
  199.       Snow_Depth = 0.0;          /* today's snow depth, including new accumulations */
  200.                                  /* and melting */
  201.  
  202. WEATHER_T 
  203. gen_weather(month, ptr_catastrophe)
  204.     MONTH_T month;
  205.     BOOL *ptr_catastrophe;
  206.     /* This routine generates the overall weather for the day. */
  207.     /* It also determines whether a catastrophe has occurred.  */
  208.     /* A catastrophe can be localized or wide-spread, natural  */
  209.     /* or man-made. Such things as fires, earthquakes, floods, */
  210.     /* etc. are possible.                                      */
  211. {
  212.      int       roll;
  213.      WEATHER_T i, 
  214.                return_val;
  215.  
  216.      /* get die-roll.  if catastrophe, set flag and roll again. */
  217.      do {  
  218.          roll = DIE(100);
  219.          if (roll == 100)
  220.              *ptr_catastrophe = TRUE;
  221.      }
  222.      while (roll == 100);
  223.  
  224.      /* if it rained more than a sprinkle yesterday, it more likely */
  225.      /* to be at least overcast, if not rainy today. */
  226.      if (Precip_Class > SPRINKLE) {
  227.          roll = roll - 10;
  228.          if (roll < 1)
  229.              roll = 1;
  230.      }
  231.  
  232.      /* find the type of weather from the die-roll */
  233.      return_val = CLEAR;
  234.      for (i = CLEAR; i >= PRECIPITATION; i--)
  235.          if (roll <= Weather_Table[month][i])
  236.              return_val = i;
  237.      return(return_val);
  238. }
  239.  
  240. TEMP_T 
  241. gen_temp(month)
  242.     MONTH_T month;
  243.     /* generates the day's temperature and set the temp type */
  244. {
  245.      int roll, data, i;
  246.      TEMP_T return_val;
  247.  
  248.      /* determine temperature variation from monthly average */
  249.      /*   +/- 20 degrees */
  250.      roll = DIE(100);
  251.      data = 8;
  252.      for (i = 8; i >= 0; i--)
  253.          if (roll <= Temp_Variation[i])
  254.              data = i;
  255.      Temperature = Ave_Temp[month] + ((data-4) * 5);
  256.  
  257.      /* classify the temperature class */
  258.      if (Temperature < 25) 
  259.          return_val = COLD;
  260.      else
  261.      if ((Temperature >= 25) AND (Temperature < 40)) 
  262.          return_val = CHILLY;
  263.      else
  264.      if ((Temperature >= 40) AND (Temperature < 65)) 
  265.          return_val = FAIR;
  266.      else
  267.      if ((Temperature >= 65) AND (Temperature < 80)) 
  268.          return_val = WARM;
  269.      else
  270.      if (Temperature >= 80) 
  271.          return_val = HOT;
  272.  
  273.      /* accumulate monthly statistics */
  274.      Stat_Table[month][HIGH] = MAX(Temperature, Stat_Table[month][HIGH]);
  275.      Stat_Table[month][LOW] = MIN(Temperature, Stat_Table[month][LOW]);
  276.      return(return_val);
  277. }
  278.  
  279. WIND_T
  280. gen_wind(month)
  281.     MONTH_T month;
  282.     /* generate the wind class */
  283. {
  284.      int roll;
  285.      WIND_T return_val, i;
  286.  
  287.      /* modify the roll for current weather.  Clear weather is less likely */
  288.      /* to be windy, and rainy weather is more likely. */
  289.      roll = DIE(100);
  290.      switch (Weather) {
  291.      case CLEAR : 
  292.          roll -= 20;
  293.          break;
  294.      case PRECIPITATION:
  295.          roll += 20;
  296.          break;
  297.      } /* switch */
  298.  
  299.      /* if yesterday was very windy, today will be windier */
  300.      if (Wind >= BLUSTERY) 
  301.          roll += 20;
  302.  
  303.      /* limit to boundaries 1-100 */
  304.      if (roll < 1) 
  305.          roll = 1;
  306.      if (roll > 100) 
  307.          roll = 100;
  308.  
  309.      /* find wind type */
  310.      return_val = GALE;
  311.      for (i = GALE; i >= CALM; i--)
  312.          if (roll <= Wind_Table[month][i]) 
  313.              return_val = i;
  314.      if (Weather == TAIFUN) 
  315.          return_val = GALE;
  316.      return(return_val);
  317.  }
  318.  
  319. PRECIP_T
  320. gen_precip(month)
  321.     MONTH_T month;
  322.     /* generate today's precipitation */
  323. {
  324.      int roll;
  325.      PRECIP_T return_val, i;
  326.  
  327.      return_val = NONE;
  328.      if (Weather == PRECIPITATION)
  329.      {
  330.          roll = DIE(100);
  331.          return_val = STEADY;
  332.          for (i = STEADY; i >= SPRINKLE; i--)
  333.              if (roll <= Precip_Table[month][i])
  334.                  return_val = i;
  335.      }
  336.  
  337.      /* if yesterday had steady precipitation, there is a 1/3 chance */ 
  338.      /* on the second day and 1/6 chance on succeeding days that today */
  339.      /* also has steady precipitation */
  340.      if ((Precip_Class == STEADY) AND (DIE(6) <= 2 - Long_Storm))
  341.      {
  342.          Weather = PRECIPITATION;
  343.          return_val = STEADY;
  344.      }
  345.  
  346.      return(return_val);
  347. }
  348.  
  349. void
  350. precip_statistics()
  351.      /* determines various flags including Snow, Storm and Long_Storm. */
  352.      /* Also determines precipitation duration and amount, updates */
  353.      /* yearly Rainfall and Snowfall statistics, daily Snow_Depth, */
  354.      /* and snow melting */
  355. {
  356.      float amount;
  357.  
  358.      if (Weather == PRECIPITATION)
  359.      {
  360.          /* set flags */
  361.          if (Precip_Class != STEADY) 
  362.              Long_Storm = FALSE;
  363.          if (Temperature < 35)
  364.              Snow = TRUE;
  365.          else
  366.              Snow = FALSE;
  367.          if ((Temp_Class >= WARM) AND ((Precip_Class == SHOWER) OR (Precip_Class == HEAVY)))
  368.              Storm = TRUE;
  369.          else
  370.              Storm = FALSE;
  371.          if (Snow AND (Precip_Class >= HEAVY) AND (Wind >= BLUSTERY))
  372.              Storm = TRUE;
  373.  
  374.          /* determine duration and amount of precipitation */
  375.          switch (Precip_Class) {
  376.          case SPRINKLE :
  377.              Duration = 5 * DIE(6);
  378.              Duration_Hours = FALSE;
  379.              amount = 0.1;
  380.              break;
  381.          case SHOWER :
  382.              Duration = 10 * (DIE(6) + DIE(6));
  383.              Duration_Hours = FALSE;
  384.              amount = Duration / 100;
  385.              break;
  386.          case HEAVY : 
  387.              Duration = 1 + DIE(6);
  388.              Duration_Hours = TRUE;
  389.              amount = (DIE(4) + (Storm * Duration));
  390.              break;
  391.          case STEADY :
  392.              Duration = 24;
  393.              Duration_Hours = TRUE;
  394.              amount = (DIE(6) + DIE(6)) + (Storm * (DIE(6) + DIE(6))); 
  395.              break;
  396.          }
  397.          if (Storm)
  398.              amount *= 2.0;
  399.  
  400.          /* update yearly and daily statistics */
  401.          Rainfall += (amount / 10);
  402.          if (Snow)
  403.              {
  404.                  Snow_Depth += amount;
  405.                  Snowfall += amount;
  406.              }
  407.          else
  408.              switch (Precip_Class) {
  409.              case SHOWER : 
  410.                  Snow_Depth -= Duration / 60;
  411.                  break;
  412.              case HEAVY : 
  413.                  Snow_Depth -= Duration;
  414.                  break;
  415.              case STEADY :
  416.                  Snow_Depth -= 12;
  417.                  break;
  418.              }
  419.      }
  420.  
  421.      /* melt snow in weather above freezing */
  422.      switch (Temp_Class) {
  423.      case CHILLY :
  424.          if (Temperature > 32) 
  425.              Snow_Depth -= 1.0;
  426.          break;
  427.      case FAIR :
  428.          Snow_Depth -= Temperature / 8;
  429.          break;
  430.      case WARM :
  431.          Snow_Depth -= Temperature - 40;
  432.          break;
  433.      case HOT : 
  434.          Snow_Depth -= Temperature - 20;
  435.          break;
  436.      }
  437.      if (Snow_Depth < 0.1)
  438.          Snow_Depth = 0.0;
  439. }
  440.  
  441. OVERCAST_T
  442. gen_overcast(weather)
  443.     WEATHER_T weather;
  444.     /* generate today's level of cloudiness */
  445. {
  446.      int roll;
  447.      OVERCAST_T return_val, i;
  448.  
  449.      return_val = CLOUDY;
  450.      switch (weather) {
  451.      case PRECIPITATION:
  452.      case OVERCAST :
  453.           roll = DIE(100);
  454.           return_val = CLOUDY;
  455.           for (i = CLOUDY; i >= HEAVY_FOG; i--)
  456.               if (roll <= Overcast_Table[i])
  457.                   return_val = i;
  458.           break;
  459.      case TAIFUN : return_val = CLOUDY;
  460.      }
  461.      return(return_val);
  462. }
  463.  
  464. void
  465. print_notes(day, month)
  466.     UBYTE day;
  467.     MONTH_T month;
  468.     /* print snow depth, precipitation type and duration, */
  469.     /* catastrophe, and holidays */
  470. {
  471.      char *precip,
  472.           *dur;
  473.  
  474.      if (Precip_Class != NONE) 
  475.      {
  476.          if (Snow) 
  477.              precip = (Storm ? "Blizzard" : "Snow");
  478.          else
  479.              precip = (Storm ? "Storm" : "Rain");
  480.          dur = (Duration_Hours ? "hours" : "minutes");
  481.          printf(" %s - %2d %s,", precip, Duration, dur);
  482.      }
  483.      if (Catastrophe)
  484.          printf(" Catastrophe,");
  485.      print_holiday(day, month);
  486. }
  487.  
  488. void
  489. print_weather(day, month)
  490.     UBYTE day;
  491.     MONTH_T month;
  492.     /* print today's weather */
  493. {
  494.      printf("%4d  %13s", day, Weather_Name[Weather]);
  495.      printf("%11s", ((Weather==CLEAR) ? "Clear" : Overcast_Name[Sky]));
  496.      printf("%8s (%3d)  %8s  %8s", Temp_Name[Temp_Class], Temperature, Precip_Name[Precip_Class], Wind_Name[Wind]);
  497.      if (Snow_Depth > 0.0) 
  498.          printf(" %5.1f\" ", Snow_Depth);
  499.      else
  500.          printf("%8c", ' ');
  501.      print_notes(day, month);
  502.      printf("\n");
  503.  }
  504.  
  505. void
  506. init_winter()
  507.      /* initialize last year's winter */
  508. {
  509.      UBYTE day;
  510.      MONTH_T month;
  511.  
  512.      /* calculate snow depth for Oct. thru Dec. */
  513.      for (month = LAST_MONTH-2; month <= LAST_MONTH; month++)
  514.          for (day = 1; day <= Day_Table[month]; day++)
  515.          {
  516.              Catastrophe = FALSE;
  517.              if (DIE(100) > 50) 
  518.                  Weather = gen_weather(month, &Catastrophe);
  519.              Wind = gen_wind(month);
  520.              Temp_Class = gen_temp(month);
  521.              Precip_Class = gen_precip(month);
  522.              precip_statistics();
  523.              Sky = gen_overcast(Weather);
  524.          }
  525. }
  526.  
  527. init_stat()
  528. {
  529.     MONTH_T month;
  530.     STAT_T stat;
  531.  
  532.     for (month = FIRST_MONTH; month <= LAST_MONTH; month++)
  533.     {
  534.         Stat_Table[month][LOW] = 200;
  535.         for (stat = AVERAGE; stat <= HIGH; stat++)
  536.             Stat_Table[month][stat] = 0;
  537.     }
  538. }
  539.  
  540. main(argc, argv)  
  541. int argc;
  542. char *argv[];
  543. {
  544.      int cum_temp;               /* cumulative temp used for calculating average temp */
  545.      unsigned int sunshine = 0;  /* number of days of sunshine */
  546.      MONTH_T month;              /* month counter */
  547.      UBYTE day,                  /* day counter */
  548.            year,                 /* year counter */
  549.            n_years = 1;          /* number of years */
  550.  
  551.      srandom((int)time(0));
  552.      if (argc > 1)
  553.          n_years = atoi(argv[1]);
  554.      init_winter();
  555.      for (year = 1; year <= n_years; year++)
  556.      {
  557.          Rainfall = 0.0;
  558.          Snowfall = 0.0;
  559.          sunshine = 0;
  560.          init_stat();
  561.          printf("%64c%6s\n", ' ',"Snow");
  562.          printf("Year %3d%11s%11s%14s%10s%10s%7s%7s\n", year, "Weather", "Sky", "Temperature", "Precip", "Wind", "Depth", "Notes");
  563.          for (month = FIRST_MONTH; month <= LAST_MONTH; month++)
  564.          {
  565.              cum_temp = 0;
  566.              printf("%-9s\n", Month_Name[month]);
  567.              for (day = 1; day <= Day_Table[month]; day++)
  568.              {
  569.                  Catastrophe = FALSE;
  570.     
  571.                  /* half the time, Weather is the same as yesterday */
  572.                  if (DIE(100) > 50) 
  573.                      Weather = gen_weather(month, &Catastrophe);
  574.                  Wind = gen_wind(month);
  575.                  Temp_Class = gen_temp(month);
  576.                  cum_temp += Temperature;
  577.                  Precip_Class = gen_precip(month);
  578.                  precip_statistics();
  579.                  Sky = gen_overcast(Weather);
  580.     
  581.                  /* count sunny days */
  582.                  if (Weather == CLEAR) 
  583.                      sunshine++;
  584.                  print_weather(day, month);
  585.              }
  586.              Stat_Table[month][AVERAGE] = (cum_temp / Day_Table[month]);
  587.              printf("High Temp = %3d, Low Temp = %3d, Average Temp = %3d\n\n", Stat_Table[month][HIGH], Stat_Table[month][LOW], Stat_Table[month][AVERAGE]);
  588.          }
  589.          /* print yearly statistics */
  590.          printf("Sunshine = %3d days\n", sunshine);
  591.          printf("Rainfall = %4.1f\"\n", Rainfall);
  592.          printf("Snowfall = %4.1f\"\n\n", Snowfall);
  593.      }
  594. }
  595.  
  596. //E*O*F weather.c//
  597.  
  598. echo x - gregorian.h
  599. cat > "gregorian.h" << '//E*O*F gregorian.h//'
  600. /* Copyright 1988 by Brett D. Slocum - 12/12/88 */
  601. /* All rights reserved */
  602. /* This is the calendar include file is for weather generation */
  603. /* It includes calendar and holiday information */
  604.  
  605. /* To create a new calendar file, 
  606.        1) define month names for use by MONTH_T type,
  607.        2) define FIRST_MONTH and LAST_MONTH,
  608.        3) define string array Month_Name with printable version of month,
  609.        4) define number of days per month array Day_Table,
  610.        5) add printf statements in print_holidays for holidays
  611. */
  612.  
  613. /* Month types */
  614. #define JANUARY   0
  615. #define FEBRUARY  1
  616. #define MARCH     2
  617. #define APRIL     3
  618. #define MAY       4
  619. #define JUNE      5
  620. #define JULY      6
  621. #define AUGUST    7
  622. #define SEPTEMBER 8
  623. #define OCTOBER   9
  624. #define NOVEMBER  10
  625. #define DECEMBER  11
  626.  
  627. #define FIRST_MONTH JANUARY
  628. #define LAST_MONTH  DECEMBER
  629.  
  630. #define N_MONTHS (LAST_MONTH - FIRST_MONTH) + 1
  631.  
  632. char *Month_Name[N_MONTHS] = {
  633.     "January", 
  634.     "February",
  635.     "March",
  636.     "April",
  637.     "May",
  638.     "June",
  639.     "July",
  640.     "August",
  641.     "September",
  642.     "October",
  643.     "November",
  644.     "December"
  645. };
  646.  
  647. UBYTE Day_Table[N_MONTHS] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
  648.  
  649. void
  650. print_holiday(day, month)
  651.     UBYTE day;
  652.     MONTH_T month;
  653. {
  654.      switch (month) {
  655.      case JANUARY : 
  656.          if (day == 1) 
  657.              printf(" New Years (s)");
  658.          if (day == 6) 
  659.              printf(" Twelfth Night");
  660.          break;
  661.      case FEBRUARY : 
  662.          if (day == 2) 
  663.              printf(" Candlemas");
  664.          if (day == 14) 
  665.              printf(" St. Valentine's Day");
  666.          break;
  667.      case MARCH : 
  668.          if (day == 21) 
  669.              printf(" Spring Equinox");
  670.          break;
  671.      case APRIL : 
  672.          break;
  673.      case MAY : 
  674.          if (day == 1) 
  675.              printf(" May Day");
  676.          break;
  677.      case JUNE : 
  678.          if (day == 21) 
  679.              printf(" Midsummer Day");
  680.          break;
  681.      case JULY : 
  682.          break;
  683.      case AUGUST : 
  684.          if (day == 2) 
  685.              printf(" Lammas");
  686.          break;
  687.      case SEPTEMBER : 
  688.          if (day == 21) 
  689.              printf(" Fall Equinox");
  690.          break;
  691.      case OCTOBER : 
  692.          if (day == 31) 
  693.              printf(" Halloween");
  694.          break;
  695.      case NOVEMBER : 
  696.          break;
  697.      case DECEMBER : 
  698.          if (day == 21) 
  699.              printf(" Winter Solstice");
  700.          if (day == 25) 
  701.              printf(" Christmas");
  702.          break;
  703.      }
  704. }
  705.  
  706. //E*O*F gregorian.h//
  707.  
  708. echo x - gulf.h
  709. cat > "gulf.h" << '//E*O*F gulf.h//'
  710. /* Most of the info provided in this file could be found in an almanac. */
  711.  
  712. /* Ave_Temp       - the average temperature for each month */
  713. /* Weather_Table  - each entry in the table is the weather profile for each month */
  714. /*                  for a random 1-100 die roll. */
  715. /*  month profile - {precipitation, overcast, taifun/hurricane, clear} */        
  716. /*        example - {30,35,0,100} means that in this month a roll of : */
  717. /*                  1-30  = precipitation        */
  718. /*                 31-35  = overcast             */
  719. /*                 no chance of taifun/hurricane */
  720. /*                 36-100 = clear                */
  721.  
  722. /* Wind_Table     - is structured like the Weather_Table. */
  723. /*  month profile - {Calm, Light, Brisk, Blustery, Gale}  */
  724.  
  725. /* Precip_Table   - as above */
  726. /*  month profile - {None, Sprinkle, Shower, Heavy, Steady} */
  727.  
  728. /* Overcast_Table - {Heavy Fog, Light Fog, Mist, Cloudy} */
  729.  
  730. UBYTE Ave_Temp[N_MONTHS] = {65, 70, 75, 80, 85, 95, 95, 90, 85, 75, 70, 65};
  731.  
  732. UBYTE Weather_Table[N_MONTHS][N_WEATHER] = {
  733.     {30,35,0,100}, {25,35,0,100}, {20,30,0,100}, {35,50,0,100}, {25,40,0,100}, {15,25,0,100}, 
  734.     {10,15,0,100}, {10,15,0,100}, {15,25,0,100}, {25,35,0,100}, {25,40,0,100}, {30,45,0,100}
  735. };
  736.  
  737. UBYTE Wind_Table[N_MONTHS][N_WIND] = {
  738.     {60,80,90,100,0}, {50,70,85,100,0}, {40,60,75,99,100}, {60,85,95,100,0}, {70,90,100,0,0}, {80,90,100,0,0}, 
  739.     {80,100,0,0,0}, {80,100,0,0,0}, {60,80,95,100,0}, {40,65,85,97,100}, {40,60,80,95,100}, {60,80,90,100,0}
  740. };
  741.  
  742. UBYTE Precip_Table[N_MONTHS][N_PRECIP] = {
  743.     {0,40,70,80,100},
  744.     {0,50,80,95,100},
  745.     {0,60,80,100,0},
  746.     {0,40,70,90,100},
  747.     {0,50,80,100,0},
  748.     {0,60,90,100,0},
  749.     {0,80,95,100,0},
  750.     {0,80,95,100,0},
  751.     {0,60,80,90,100},
  752.     {0,50,80,90,100},
  753.     {0,40,70,85,100},
  754.     {0,40,70,80,100}
  755. };
  756.  
  757. UBYTE Overcast_Table[N_OVERCAST] = {10,20,70,100};
  758.  
  759.  
  760. //E*O*F gulf.h//
  761.  
  762. echo x - japan.h
  763. cat > "japan.h" << '//E*O*F japan.h//'
  764. /* Copyright 1988 by Brett D. Slocum - 12/12/88 */
  765. /* All rights reserved */
  766. /* This is the calendar include file is for weather generation */
  767. /* It includes calendar and holiday information */
  768.  
  769. /* To create a new calendar file, 
  770.        1) define month names for use by MONTH_T type,
  771.        2) define FIRST_MONTH and LAST_MONTH,
  772.        3) define string array Month_Name with printable version of month,
  773.        4) define number of days per month array Day_Table,
  774.        5) add printf statements in print_holidays for holidays
  775. */
  776.  
  777. /* Month types */
  778. #define RAT    0
  779. #define BULL   1
  780. #define TIGER  2
  781. #define HARE   3
  782. #define DRAGON 4
  783. #define SNAKE  5
  784. #define HORSE  6
  785. #define SHEEP  7
  786. #define MONKEY 8
  787. #define BIRD   9
  788. #define DOG    10
  789. #define BOAR   11
  790.  
  791. #define FIRST_MONTH RAT
  792. #define LAST_MONTH  BOAR
  793.  
  794. #define N_MONTHS (LAST_MONTH - FIRST_MONTH) + 1
  795.  
  796. /* text version of month names */
  797. char *Month_Name[N_MONTHS] = {
  798.     "Rat",
  799.     "Bull",
  800.     "Tiger",
  801.     "Hare",
  802.     "Dragon",
  803.     "Snake",
  804.     "Horse",
  805.     "Sheep",
  806.     "Monkey",
  807.     "Bird",
  808.     "Dog",
  809.     "Boar"
  810. };
  811.  
  812. /* table of days per month */
  813. UBYTE Day_Table[N_MONTHS] = {29, 30, 29, 30, 29, 30, 29, 30, 29, 30, 29, 30};
  814.  
  815. void
  816. print_holiday(day,month)
  817.     UBYTE day;
  818.     MONTH_T month;
  819.     /* prints holidays that fall on a given day */
  820. {
  821.      if (day == 15)
  822.          printf(" Full Moon,");
  823.      if (day == Day_Table[month])
  824.          printf(" New Moon,");
  825.      switch (day) { 
  826.      case 1:
  827.      case 15 : printf(" Shinto,");
  828.           break;
  829.      case 8:
  830.      case 18 : printf(" Buddhist,");
  831.           break;
  832.      case 28 : printf(" Buddhist, Shinto,");
  833.           break;
  834.      }
  835.      switch (month) {
  836.      case RAT : 
  837.          if ((day >= 1) AND (day <= 6))
  838.              printf(" New Years (s)");
  839.          break;
  840.      case BULL :
  841.          switch (day) { 
  842.          case 1: case 2: case 4: case 5: case 6: case 7:
  843.              printf(" Equinox (b)");
  844.              break;
  845.          case 3: 
  846.              printf(" Setsuban (1st Day of Spring) (s)");
  847.              break;
  848.          }
  849.          break;
  850.      case TIGER :
  851.          if (day == 3) 
  852.              printf(" Doll Festival (c)");
  853.          break;
  854.      case HARE :
  855.          if (day == 8)
  856.              printf(" Buddha's Birthday (b)");
  857.          break;
  858.      case DRAGON :
  859.          if (day == 5) 
  860.              printf(" Boy's Day (c)");
  861.          break;
  862.      case SNAKE :
  863.          switch (day) {
  864.          case 1: case 2: case 3: case 4: case 5: case 6: case 7: 
  865.              printf(" Rice Planting Festival (p)");
  866.              break;
  867.          case 30 : 
  868.              printf(" All debts paid (p)");
  869.          }
  870.          break;
  871.      case HORSE :
  872.          switch (day) {
  873.          case 1 : 
  874.              printf(" Midyear (p)");
  875.              break;
  876.          case 7 : 
  877.              printf(" Tanabata (Star Festival) (c)");
  878.              break;
  879.          case 13: case 14: case 15: 
  880.              printf(" Bon Festival (for the dead) (b)");
  881.          }
  882.          break;
  883.      case SHEEP :
  884.          if ((day >= 1) AND (day <= 7)) 
  885.              printf(" Equinox (b)");
  886.          break;
  887.      case BIRD :
  888.          switch (day) { 
  889.          case 15 : 
  890.               printf(" Rice Harvest Festival (p)");
  891.               break;
  892.          case 20 : 
  893.               printf(" Festival of Ebishu (s)");
  894.          } 
  895.          break;
  896.      case DOG :
  897.          if (day == 8) 
  898.              printf(" Feast of the Bellows (s)");
  899.          break;
  900.      case BOAR :
  901.          if (day == 30) 
  902.              printf(" All debts paid (p)");
  903.      }
  904. }
  905.  
  906. //E*O*F japan.h//
  907.  
  908. echo x - mid_atlantic.h
  909. cat > "mid_atlantic.h" << '//E*O*F mid_atlantic.h//'
  910. /* Most of the info provided in this file could be found in an almanac. */
  911.  
  912. /* Ave_Temp       - the average temperature for each month */
  913. /* Weather_Table  - each entry in the table is the weather profile for each month */
  914. /*                  for a random 1-100 die roll. */
  915. /*  month profile - {precipitation, overcast, taifun/hurricane, clear} */        
  916. /*        example - {30,35,0,100} means that in this month a roll of : */
  917. /*                  1-30  = precipitation        */
  918. /*                 31-35  = overcast             */
  919. /*                 no chance of taifun/hurricane */
  920. /*                 36-100 = clear                */
  921.  
  922. /* Wind_Table     - is structured like the Weather_Table. */
  923. /*  month profile - {Calm, Light, Brisk, Blustery, Gale}  */
  924.  
  925. /* Precip_Table   - as above */
  926. /*  month profile - {None, Sprinkle, Shower, Heavy, Steady} */
  927.  
  928. /* Overcast_Table - {Heavy Fog, Light Fog, Mist, Cloudy} */
  929.  
  930. UBYTE Ave_Temp[N_MONTHS] = {20, 35, 45, 55, 65, 75, 85, 80, 65, 50, 35, 25};
  931.  
  932. UBYTE Weather_Table[N_MONTHS][N_WEATHER] = {
  933.     {30,35,0,100}, {25,35,0,100}, {20,30,0,100}, {35,50,0,100}, {25,40,0,100}, {15,25,0,100}, 
  934.     {10,15,0,100}, {10,15,0,100}, {15,25,0,100}, {25,35,0,100}, {25,40,0,100}, {30,45,0,100}
  935. };
  936.  
  937. UBYTE Wind_Table[N_MONTHS][N_WIND] = {
  938.     {60,80,90,100,0}, {50,70,85,100,0}, {40,60,75,95,100}, {60,85,95,100,0}, {70,90,100,0,0}, {80,90,100,0,0}, 
  939.     {80,100,0,0,0}, {80,100,0,0,0}, {60,80,95,100,0}, {40,65,85,95,100}, {40,60,80,90,100}, {60,80,90,95,100}
  940. };
  941.  
  942. UBYTE Precip_Table[N_MONTHS][N_PRECIP] = {
  943.     {0,40,70,80,100},
  944.     {0,50,80,95,100},
  945.     {0,60,80,100,0},
  946.     {0,40,70,90,100},
  947.     {0,50,80,100,0},
  948.     {0,60,90,100,0},
  949.     {0,80,95,100,0},
  950.     {0,80,95,100,0},
  951.     {0,60,80,90,100},
  952.     {0,50,80,90,100},
  953.     {0,40,70,85,100},
  954.     {0,40,70,80,100}
  955. };
  956.  
  957. UBYTE Overcast_Table[N_OVERCAST] = {10,20,70,100};
  958.  
  959.  
  960. //E*O*F mid_atlantic.h//
  961.  
  962. echo x - middle_earth.h
  963. cat > "middle_earth.h" << '//E*O*F middle_earth.h//'
  964. /* Copyright 1988 by Brett D. Slocum - 12/12/88 */
  965. /* All rights reserved */
  966. /* This is the calendar include file is for weather generation */
  967. /* It includes calendar and holiday information */
  968.  
  969. /* To create a new calendar file, 
  970.        1) define month names for use by MONTH_T type,
  971.        2) define FIRST_MONTH and LAST_MONTH,
  972.        3) define string array Month_Name with printable version of month,
  973.        4) define number of days per month array Day_Table,
  974.        5) add printf statements in print_holidays for holidays
  975. */
  976.  
  977. /* Month types */
  978. #define AFTERYULE   0
  979. #define SOLMATH     1
  980. #define RETHE       2
  981. #define ASTRON      3
  982. #define THRIMIDGE   4
  983. #define FORELITHE   5
  984. #define AFTERLITHE  6
  985. #define WEDMATH     7
  986. #define HALIMATH    8
  987. #define WINTERFILTH 9
  988. #define BLOTMATH    10
  989. #define FOREYULE    11
  990.  
  991. #define FIRST_MONTH AFTERYULE
  992. #define LAST_MONTH  FOREYULE
  993.  
  994. #define N_MONTHS (LAST_MONTH - FIRST_MONTH) + 1
  995.  
  996. char *Month_Name[N_MONTHS] = {
  997.     "Afteryule",
  998.     "Solmath",
  999.     "Rethe",
  1000.     "Astron",
  1001.     "Thrimidge",
  1002.     "Forelithe",
  1003.     "Afterlithe",
  1004.     "Wedmath",
  1005.     "Halimath",
  1006.     "Winterfilth",
  1007.     "Blotmath",
  1008.     "Foreyule",
  1009. };
  1010.  
  1011. UBYTE Day_Table[N_MONTHS] = {30, 30, 30, 30, 30, 31, 30, 30, 30, 30, 30, 34};
  1012.  
  1013. void
  1014. print_holiday(day, month)
  1015.     UBYTE day;
  1016.     MONTH_T month;
  1017. {
  1018.      switch (month) {
  1019.      case AFTERYULE:
  1020.          break;
  1021.      case SOLMATH:
  1022.          break;
  1023.      case RETHE:
  1024.          break;
  1025.      case ASTRON:
  1026.          break;
  1027.      case THRIMIDGE:
  1028.          break;
  1029.      case FORELITHE:
  1030.          if (day == 31) 
  1031.              printf(" Midsummer Day");
  1032.          break;
  1033.      case AFTERLITHE:
  1034.          break;
  1035.      case WEDMATH:
  1036.          break;
  1037.      case HALIMATH:
  1038.          break;
  1039.      case WINTERFILTH:
  1040.          break;
  1041.      case BLOTMATH:
  1042.          break;
  1043.      case FOREYULE:
  1044.          if ((day >= 31) AND (day <= 34))
  1045.              printf(" Yule");
  1046.          break;
  1047.      }
  1048. }
  1049.  
  1050. //E*O*F middle_earth.h//
  1051.  
  1052. echo x - n_atlantic.h
  1053. cat > "n_atlantic.h" << '//E*O*F n_atlantic.h//'
  1054. /* Most of the info provided in this file could be found in an almanac. */
  1055.  
  1056. /* Ave_Temp       - the average temperature for each month */
  1057. /* Weather_Table  - each entry in the table is the weather profile for each month */
  1058. /*                  for a random 1-100 die roll. */
  1059. /*  month profile - {precipitation, overcast, taifun/hurricane, clear} */        
  1060. /*        example - {30,35,0,100} means that in this month a roll of : */
  1061. /*                  1-30  = precipitation        */
  1062. /*                 31-35  = overcast             */
  1063. /*                 no chance of taifun/hurricane */
  1064. /*                 36-100 = clear                */
  1065.  
  1066. /* Wind_Table     - is structured like the Weather_Table. */
  1067. /*  month profile - {Calm, Light, Brisk, Blustery, Gale}  */
  1068.  
  1069. /* Precip_Table   - as above */
  1070. /*  month profile - {None, Sprinkle, Shower, Heavy, Steady} */
  1071.  
  1072. /* Overcast_Table - {Heavy Fog, Light Fog, Mist, Cloudy} */
  1073.  
  1074. UBYTE Ave_Temp[N_MONTHS] = {10, 15, 25, 40, 55, 70, 85, 80, 60, 35, 20, 15};
  1075.  
  1076. UBYTE Weather_Table[N_MONTHS][N_WEATHER] = {
  1077.     {30,40,0,100}, /* January or the first month in non-Gregorian calendar */
  1078.     {25,35,0,100}, /* February */
  1079.     {20,30,0,100}, /* March */
  1080.     {35,50,0,100}, /* April */
  1081.     {25,40,0,100}, /* May */
  1082.     {15,25,0,100}, /* June */
  1083.     {10,15,0,100}, /* July */
  1084.     {10,15,0,100}, /* August */
  1085.     {15,30,0,100}, /* September */
  1086.     {25,40,0,100}, /* October */
  1087.     {25,40,0,100}, /* November */
  1088.     {30,45,0,100}  /* December */
  1089. };
  1090.  
  1091. UBYTE Wind_Table[N_MONTHS][N_WIND] = {
  1092.     {60,80,90,100,0},    /* January */
  1093.     {50,70,85,100,0},    /* February */  
  1094.     {40,60,75,95,100},   /* March */     
  1095.     {60,85,95,100,0},    /* April */     
  1096.     {70,90,100,0,0},     /* May */       
  1097.     {80,90,100,0,0},     /* June */      
  1098.     {80,100,0,0,0},      /* July */      
  1099.     {80,100,0,0,0},      /* August */    
  1100.     {60,80,95,100,0},    /* September */ 
  1101.     {40,65,85,95,100},   /* October */   
  1102.     {40,60,80,90,100},   /* November */  
  1103.     {60,80,90,95,100}    /* December */  
  1104. };
  1105.  
  1106. UBYTE Precip_Table[N_MONTHS][N_PRECIP] = {
  1107.     {0,40,70,80,100},   /* January */  
  1108.     {0,50,80,95,100},   /* February */ 
  1109.     {0,60,80,100,0},    /* March */    
  1110.     {0,40,70,90,100},   /* April */    
  1111.     {0,50,80,100,0},    /* May */      
  1112.     {0,60,90,100,0},    /* June */     
  1113.     {0,80,95,100,0},    /* July */     
  1114.     {0,80,95,100,0},    /* August */   
  1115.     {0,60,80,90,100},   /* September */
  1116.     {0,50,80,90,100},   /* October */  
  1117.     {0,40,70,85,100},   /* November */ 
  1118.     {0,40,70,80,100}    /* December */ 
  1119. };
  1120.  
  1121. UBYTE Overcast_Table[N_OVERCAST] = {10,20,70,100};
  1122.  
  1123.  
  1124. //E*O*F n_atlantic.h//
  1125.  
  1126. echo x - n_pacific.h
  1127. cat > "n_pacific.h" << '//E*O*F n_pacific.h//'
  1128. /* Most of the info provided in this file could be found in an almanac. */
  1129.  
  1130. /* Ave_Temp       - the average temperature for each month */
  1131. /* Weather_Table  - each entry in the table is the weather profile for each month */
  1132. /*                  for a random 1-100 die roll. */
  1133. /*  month profile - {precipitation, overcast, taifun/hurricane, clear} */        
  1134. /*        example - {30,35,0,100} means that in this month a roll of : */
  1135. /*                  1-30  = precipitation        */
  1136. /*                 31-35  = overcast             */
  1137. /*                 no chance of taifun/hurricane */
  1138. /*                 36-100 = clear                */
  1139.  
  1140. /* Wind_Table     - is structured like the Weather_Table. */
  1141. /*  month profile - {Calm, Light, Brisk, Blustery, Gale}  */
  1142.  
  1143. /* Precip_Table   - as above */
  1144. /*  month profile - {None, Sprinkle, Shower, Heavy, Steady} */
  1145.  
  1146. /* Overcast_Table - {Heavy Fog, Light Fog, Mist, Cloudy} */
  1147.  
  1148. UBYTE Ave_Temp[N_MONTHS] = {40, 50, 60, 65, 70, 80, 85, 75, 65, 50, 40, 35};
  1149.  
  1150. UBYTE Weather_Table[N_MONTHS][N_WEATHER] = {
  1151.     {10,15,0,100}, {35,45,0,100}, {50,70,0,100}, {50,70,0,100}, {50,60,0,100}, {50,60,0,100}, 
  1152.     {35,40,0,100}, {40,45,55,100}, {40,45,55,100}, {10,15,17,100}, {10,15,0,100}, {10,15,0,100}
  1153. };
  1154.  
  1155. UBYTE Wind_Table[N_MONTHS][N_WIND] = {
  1156.     {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}, 
  1157.     {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}, {40,70,90,100,0}
  1158. };
  1159.  
  1160. UBYTE Precip_Table[N_MONTHS][N_PRECIP] = {
  1161.     {0,40,70,80,100},
  1162.     {0,50,80,95,100},
  1163.     {0,60,80,100,0},
  1164.     {0,40,70,90,100},
  1165.     {0,50,80,100,0},
  1166.     {0,60,90,100,0},
  1167.     {0,80,95,100,0},
  1168.     {0,80,95,100,0},
  1169.     {0,60,80,90,100},
  1170.     {0,50,80,90,100},
  1171.     {0,40,70,85,100},
  1172.     {0,40,70,80,100}
  1173. };
  1174.  
  1175. UBYTE Overcast_Table[N_OVERCAST] = {10,20,70,100};
  1176.  
  1177.  
  1178. //E*O*F n_pacific.h//
  1179.  
  1180. echo x - s_atlantic.h
  1181. cat > "s_atlantic.h" << '//E*O*F s_atlantic.h//'
  1182. /* Most of the info provided in this file could be found in an almanac. */
  1183.  
  1184. /* Ave_Temp       - the average temperature for each month */
  1185. /* Weather_Table  - each entry in the table is the weather profile for each month */
  1186. /*                  for a random 1-100 die roll. */
  1187. /*  month profile - {precipitation, overcast, taifun/hurricane, clear} */        
  1188. /*        example - {30,35,0,100} means that in this month a roll of : */
  1189. /*                  1-30  = precipitation        */
  1190. /*                 31-35  = overcast             */
  1191. /*                 no chance of taifun/hurricane */
  1192. /*                 36-100 = clear                */
  1193.  
  1194. /* Wind_Table     - is structured like the Weather_Table. */
  1195. /*  month profile - {Calm, Light, Brisk, Blustery, Gale}  */
  1196.  
  1197. /* Precip_Table   - as above */
  1198. /*  month profile - {None, Sprinkle, Shower, Heavy, Steady} */
  1199.  
  1200. /* Overcast_Table - {Heavy Fog, Light Fog, Mist, Cloudy} */
  1201.  
  1202. UBYTE Ave_Temp[N_MONTHS] = {50, 60, 65, 70, 75, 80, 85, 80, 75, 65, 55, 50};
  1203.  
  1204. UBYTE Weather_Table[N_MONTHS][N_WEATHER] = {
  1205.     {30,35,0,100}, {25,35,0,100}, {20,30,0,100}, {35,50,0,100}, {25,40,0,100}, {15,25,0,100}, 
  1206.     {10,15,0,100}, {10,15,0,100}, {15,25,0,100}, {25,35,0,100}, {25,40,0,100}, {30,45,0,100}
  1207. };
  1208.  
  1209. UBYTE Wind_Table[N_MONTHS][N_WIND] = {
  1210.     {60,80,90,100,0}, {50,70,85,100,0}, {40,60,75,99,100}, {60,85,95,100,0}, {70,90,100,0,0}, {80,90,100,0,0}, 
  1211.     {80,100,0,0,0}, {80,100,0,0,0}, {60,80,95,100,0}, {40,65,85,97,100}, {40,60,80,95,100}, {60,80,90,100,0}
  1212. };
  1213.  
  1214. UBYTE Precip_Table[N_MONTHS][N_PRECIP] = {
  1215.     {0,40,70,80,100},
  1216.     {0,50,80,95,100},
  1217.     {0,60,80,100,0},
  1218.     {0,40,70,90,100},
  1219.     {0,50,80,100,0},
  1220.     {0,60,90,100,0},
  1221.     {0,80,95,100,0},
  1222.     {0,80,95,100,0},
  1223.     {0,60,80,90,100},
  1224.     {0,50,80,90,100},
  1225.     {0,40,70,85,100},
  1226.     {0,40,70,80,100}
  1227. };
  1228.  
  1229. UBYTE Overcast_Table[N_OVERCAST] = {10,20,70,100};
  1230.  
  1231.  
  1232. //E*O*F s_atlantic.h//
  1233.  
  1234. echo x - weather.h
  1235. cat > "weather.h" << '//E*O*F weather.h//'
  1236. #ifdef SYSV
  1237. #define srandom srand48
  1238. #define random lrand48
  1239. #endif
  1240.  
  1241. #define DIE(n) ((int)(random() % (unsigned)n)+1)
  1242. #define MIN(a,b) ((a<b) ? a : b)
  1243. #define MAX(a,b) ((a>b) ? a : b)
  1244.  
  1245. #define AND &&
  1246. #define OR  ||
  1247.  
  1248. typedef unsigned char UBYTE;
  1249. typedef UBYTE BOOL;
  1250.  
  1251. typedef short STAT_T;
  1252. typedef short WEATHER_T;
  1253. typedef short OVERCAST_T;
  1254. typedef short WIND_T;
  1255. typedef short TEMP_T;
  1256. typedef short PRECIP_T;
  1257.  
  1258. /* Boolean types */
  1259. #define FALSE 0
  1260. #define TRUE  1
  1261.  
  1262. /* Statistics types */
  1263. #define N_STAT  3
  1264. #define LOW     0
  1265. #define AVERAGE 1
  1266. #define HIGH    2
  1267.  
  1268. /* Weather types */
  1269. #define N_WEATHER     4
  1270. #define PRECIPITATION 0
  1271. #define OVERCAST      1
  1272. #define TAIFUN        2
  1273. #define CLEAR         3
  1274.  
  1275. char *Weather_Name[N_WEATHER] = {
  1276.     "Precipitation",
  1277.     "Overcast",
  1278.     "Typhoon",
  1279.     "Clear"
  1280. };
  1281.  
  1282. /* Overcast types */
  1283. #define N_OVERCAST 4
  1284. #define HEAVY_FOG  0
  1285. #define LIGHT_FOG  1
  1286. #define MIST       2
  1287. #define CLOUDY     3
  1288.  
  1289. char *Overcast_Name[N_OVERCAST] = {
  1290.     "Heavy Fog",
  1291.     "Light Fog",
  1292.     "Mist",
  1293.     "Cloudy",
  1294. };
  1295.  
  1296. /* Wind types */
  1297. #define N_WIND   5
  1298. #define CALM     0
  1299. #define LIGHT    1
  1300. #define BRISK    2
  1301. #define BLUSTERY 3
  1302. #define GALE     4
  1303.  
  1304. char *Wind_Name[N_WIND] = {
  1305.     "Calm",
  1306.     "Light",
  1307.     "Brisk",
  1308.     "Blustery",
  1309.     "Gale",
  1310. };
  1311.  
  1312. /* Temperature types */
  1313. #define N_TEMP 5
  1314. #define COLD   0
  1315. #define CHILLY 1
  1316. #define FAIR   2
  1317. #define WARM   3
  1318. #define HOT    4
  1319.  
  1320. char *Temp_Name[N_TEMP] = {
  1321.     "Cold",
  1322.     "Chilly",
  1323.     "Fair",
  1324.     "Warm",
  1325.     "Hot",
  1326. };
  1327.  
  1328. /* Precipitation types */
  1329. #define N_PRECIP 5
  1330. #define NONE     0
  1331. #define SPRINKLE 1
  1332. #define SHOWER   2
  1333. #define HEAVY    3
  1334. #define STEADY   4
  1335.  
  1336. char *Precip_Name[N_PRECIP] = {
  1337.     "None",
  1338.     "Sprinkle",
  1339.     "Shower",
  1340.     "Heavy",
  1341.     "Steady",
  1342. };
  1343.  
  1344. UBYTE Temp_Variation[9] = {1, 5, 13, 25, 75, 87, 95, 99, 100};
  1345. //E*O*F weather.h//
  1346.  
  1347. exit 0
  1348.  
  1349.  
  1350.