home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Hamurabi 1.1.1 / Hamurabi.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-06  |  10.7 KB  |  395 lines  |  [TEXT/R*ch]
  1. /* ----------------------------------------------------------------------
  2.  
  3.     Hamurabi
  4.     version 1.1.1
  5.     
  6.     Original author: David Ahl
  7.     Converted to C by: Dave Menconi
  8.     Converted to CW by: Paul Celestin
  9.     
  10.     940630 - 1.0.0 - first version ported to CW6
  11.     951215 - 1.1.0 - updated for CW7
  12.     960704 - 1.1.1 - updated for CW9, fixed calculation bug
  13.  
  14. ---------------------------------------------------------------------- */
  15.  
  16. #include "Stdio.h"
  17. #include "stdlib.h"
  18. #include "Hamurabi.h"
  19.  
  20. #define AO 0 /* if set, use artificial opponent instead of player */
  21.  
  22. /* Global Variables */
  23. int Year, /* position in the 10 year cycle */
  24.     People, /* number of people in country */
  25.     StoredGrain, /* Grain in storage */
  26.     Impeached = 0, /* was player impeached for starving his people? */ 
  27.     TotalDeath = 0, /* total death from all causes */
  28.     AvgStarve = 0, /* avg number of people who starved per year */
  29.     Land;/* land owned */
  30. int quit = False,
  31.     starved, /* number of people starved */
  32.     newbies, /* number of new people */
  33.     yield, /* bushels of grain per acre */
  34.     lostgrain, /* bushels eaten by rats */
  35.     landcost, /* cost of land */
  36.     peoplefed, /* people fed */
  37.     farmers, /* people needed to tend land */
  38.     landtraded, /* amount of land traded */
  39.     harvest, /* bushels harvested */
  40.     feedgrain, /* amount of grain fed to the people */
  41.     plantacre,
  42.     plantgrain;/* amount of grain used for seed */
  43.  
  44. /* Support Routines */
  45. void InitMac(void)
  46. {
  47. /*    InitGraf(&thePort);
  48.     InitFonts();
  49.     InitWindows();*/
  50.     /*InitDialogs(-1);*/
  51. /*    OpenPort(&MyPort);
  52.     SetPort(&MyPort);
  53.  
  54.     InitCursor();
  55. */
  56. }
  57. void InitGame(void)
  58. {
  59.     People = INITPEOPLE;
  60.     Land = INITLAND;
  61.     StoredGrain = INITSTORED;
  62.     starved = INITSTARVED;
  63.     newbies = INITNEWBIES;
  64.     yield = INITYIELD;
  65.     lostgrain = INITRATS;
  66.  
  67. }/* Initialize */
  68. /* ============= */
  69. int CalcStarved(int grain)
  70. /* Calculate and return the number of people who will starve 
  71.  given the number of people (a global) and the amount of grain.*/
  72. { 
  73.  int starved = 0;
  74.  
  75.  if ((starved = People - grain / GRAINperMAN) > 0)
  76.   return starved;
  77.  else
  78.   return 0;
  79. }
  80. /* ============= */
  81. int CalcHarvest(int seed, int yield, int farmers)
  82. /* Calculate and return the amount of food havested given the 
  83.     amount of land, the amount of seed and the number of people */
  84. {
  85.     int landseeded,landfarmed,Growing;
  86.  
  87.     landseeded = seed*ACREperGRAIN;
  88.     landfarmed = farmers*ACREperFARMER;
  89. /* now we need to find the smallest of land, landseeded, and landfarmed */
  90.     Growing = min(min(landseeded,landfarmed),Land);
  91. /* now we simply return the amount of grain */
  92.     return yield * Growing;
  93. }/* CalcHarvest */
  94. /* ============= */
  95. int CalcLostGrain(void)
  96. /* determine amount of spoilage from all causes */
  97. {
  98.     int rnd;
  99.     
  100.     rnd = RandRng(RNGLOST);
  101.     if ((rnd == 2) || (rnd == 4)) /* following original Ham*/
  102.         return StoredGrain/rnd;
  103.     else
  104.         return 0;
  105. }/* CalcLostGrain */
  106. /* ============= */
  107. int CalcLandPrice(void)
  108. /* this routine calculates the price of land */
  109. {
  110.     return RandRng(RNGLANDPRICE)+ADDLANDPRICE;
  111. }/* CalcLandPrice */
  112. /* ============= */
  113. int CalcYield(void)
  114. /* this routine calculates the amount of grain that you get for one acre of land
  115.  */
  116. {
  117.     return RandRng(RNGYIELD)+ADDYIELD;
  118. }/* CalcYield */
  119. /* ============= */
  120. int CalcNewbies(void)
  121. /* this routine calcs the amount of population growth */
  122. {
  123. long temp,temp1,temp2,Rand;
  124.  
  125.     Rand = RandRng(RNGNEWBIE)  ;
  126.     temp1 = (long) Land * LANDATTRACT;
  127.     temp2 = (long) StoredGrain * GRAINATTRACT;
  128.     temp = ((temp1+temp2)*Rand)/People/100 +1;
  129.     return temp;
  130. }/* CalcNewbie */
  131. /* ============= */
  132. void RandomEvent(void)
  133. /* this routine determines what, if any random events happen this 
  134.     turn and adjusts the global values appropriately */
  135. {
  136.         lostgrain = CalcLostGrain();
  137.         StoredGrain -= lostgrain;
  138.         if (RandRng(100)<=PLAGUECHANCE)
  139.         {
  140.             printf("\nA horrible plague struck!! Half the people died!\n");
  141.             People  /= 2;
  142.         }
  143. }
  144. /* ============= */
  145. int GetInt(char * prompt)
  146. {
  147.     char s[132];
  148.     int result,done,status;
  149.     done = False;
  150.     while (!done) 
  151.     {
  152.         printf("%s ",prompt);
  153.         gets(s);
  154.         printf("\n");
  155.         status = sscanf(s,"%d",&result);
  156.         if ((status != 1) || (result < 0))
  157.                 printf("Please enter a valid positive integer.\n");
  158.         else
  159.             done = True;
  160.     }/* while */
  161.     return result;
  162. }
  163. /* ============= */
  164.  
  165. int GetFeedGrain(void)
  166. /* Asks the user how much grain she wants to feed her people, 
  167.     verifies that this is a legal value and returns with it. */
  168. {
  169.     int grain,done;
  170.     
  171. #if AO
  172. grain = People *GRAINperMAN;
  173. if (grain> StoredGrain) 
  174.     grain = StoredGrain /2;
  175. printf("Feeding people %i bushels (%i per man).\n",grain,grain/People);
  176. #else
  177.  
  178.     done = False;
  179.     while (!done)
  180.     {
  181.         printf("\nYou have %i people and %i bushels of grain.\n",
  182.                         People,StoredGrain);
  183.  
  184.  
  185.         grain = GetInt("How many bushels do you wish to feed your people? ");
  186.         printf("\n");
  187.         if (grain>StoredGrain) 
  188.             printf("You don't have enough grain to do that!");
  189.         else
  190.             done=True;
  191.     }/* while */
  192. #endif
  193.     return grain;
  194. }
  195. /* ============= */
  196. int GetPlantAcres(void)
  197. /* Asks the user how many acres she wants to plant, 
  198.     verifies that it's a valid number and returns with it. */
  199. {
  200.     int plantland,done;
  201.     
  202. /* The pertinent equations for harvest are:
  203.     L = S * ACREperGRAIN (acres planted related to bushels of seed)
  204.     L = P * ACREperFARMER; (acres planted related to population)
  205.  
  206. Where L is land planted, P is the population and S is the bushels of seed.
  207. */
  208. #if AO
  209. plantland = Land;
  210. if (plantland > People * ACREperFARMER) 
  211.     plantland = People * ACREperFARMER;
  212. if (plantland > StoredGrain * ACREperGRAIN) 
  213.     plantland = StoredGrain * ACREperGRAIN;
  214. done=True;
  215. printf("Planting %i acres.\n",plantland);
  216. #else
  217.     done = False;
  218.     while (!done)
  219.     {
  220.         printf("\nYou have %i acres, %i bushels in storage and %i farmers.\n ",
  221.                         Land, StoredGrain,People);
  222.         plantland =GetInt("How much land would you like to plant?");
  223.         printf("\n");
  224.         if (plantland > Land) /* not enough land */
  225.             printf("You don't have enough land!\n");
  226.         else if (plantland / ACREperGRAIN > StoredGrain) /* not enough grain */
  227.             printf("That would take %i bushels and you don't have that much.\n",
  228.                             plantland/ACREperGRAIN);
  229.         else if (plantland / ACREperFARMER  > People) /* not enough farmers */
  230.             printf("That would take %i farmers and you don't have that many.\n",
  231.                         plantland/ACREperFARMER);
  232.         else
  233.             done = True; /* whew! a legal number! */
  234.     }/* while */
  235. #endif
  236.     return plantland;
  237. } /* GetPlantAcres */
  238. /* ============= */
  239. int GetTradeLand(int price)
  240. /* Asks the user how much land she wants to trade, verifies that 
  241.     this is a legal value and returns with it. A negaive return value 
  242.     indicates the amount of land  sold. */
  243. {
  244.     int tradeland,done,result,surplus;
  245. #if AO
  246. surplus = StoredGrain - ((GRAINperMAN + ACREperFARMER/ACREperGRAIN)*People);
  247. tradeland = surplus/price;
  248. if (tradeland>=0) 
  249.     printf("Bought %i acres.\n",tradeland);
  250. else
  251.     printf("Sold %i acres.\n",-tradeland);
  252. #else
  253.     done = False;
  254.     while (!done)
  255.     {
  256.         printf("\nLand is selling for %i bushels per acre and you have %i ",
  257.                     price,StoredGrain);
  258.         printf("bushels in storage.\n");
  259.         tradeland = GetInt("How many acres do you wish to buy? ");
  260.  
  261.  
  262.         printf("\n");
  263.         if (tradeland == 0)
  264.         {
  265.                 tradeland = GetInt("How many acres do you wish to sell? ");
  266.                 if (tradeland > Land)
  267.                     printf("You don't have that much land!\n");
  268.                 else
  269.                 {
  270.                     done = True;
  271.                     tradeland = -tradeland;
  272.                 }
  273.         }/* not buying land */
  274.         else if (tradeland > StoredGrain/price) 
  275.             printf("You don't have enough grain for that!\n");
  276.         else 
  277.             done = True;
  278.  
  279.     }/* while */
  280. #endif
  281.     return tradeland;
  282. } /* GetTradeLand() */
  283. /* ============= */
  284. void Report(void)
  285. /* this routine tells the player her status at the beginning of 
  286.     the turn.  This information includes:
  287. Year, starved, newbies, People, Land, yield, StoredGrain, lostgrain */
  288. {
  289.     printf("\nHamurabi:  I beg to report to you, \n");
  290.     printf("in year %i, %i people starved, %i came to the city,\n",
  291.             Year,starved,newbies);
  292.     printf("the population is now %i.\n",People);
  293.     printf("The city now owns %i acres.\n",Land);
  294.     printf("You harvested %i bushels per acre.\n",yield);
  295.     printf("Rats ate %i bushels.\n",lostgrain);
  296.     printf("You now have %i bushels in store.\n",StoredGrain);
  297. }
  298. /* ============= */
  299. void Impeach(void)
  300. /* */
  301. {
  302.     printf("\n\n");
  303.     printf("You starved %i people in one year!!!\n",starved);
  304.     printf("Due to this extreme mismanagement you have not only\n");
  305.     printf("been impeached and thrown out of office but you have");
  306.     printf("also been declared national FINK!!!");
  307.     quit = True;
  308. }
  309. /* ============= */
  310. int RandRng(int Range)
  311. {
  312.     #define MaxRandom 0X7FFF
  313.     long Rand,Temp;
  314.     int Return;
  315.     Rand = (long)Random() & MaxRandom;
  316.     Return = (int)((Rand*Range)/MaxRandom)+1; /* convert it to the range */
  317.     if (Return>Range) Return = Range;
  318.     return Return;
  319. }    
  320. /* ============= */
  321. main(void)
  322. {
  323. int i,rnd,PerCap,TotScore;
  324. long count [101];
  325. long tot;
  326.     InitGame();
  327.  
  328.     printf("THE GAME OF HAMURABI \n");
  329.     printf("Creative Computing   Morristown, New Jersey\n");
  330.     printf("from Basic Computer Games by David Ahl\n");
  331.     printf("Converted to 'C' by Dave Menconi\n");
  332.     printf("Ported to CodeWarrior by Paul Celestin\n\n");
  333.     printf("\nTry your hand at running ancient Sumeria for a 10 year\n");
  334.     printf("term.  Maybe you will get lucky and live in history forever.\n");
  335.     printf("Then again, maybe not.\n\n");
  336.  
  337.     for (Year = 1; Year <= 10 && !quit; Year++)
  338.     {
  339.         Report();
  340.  
  341.         landcost = CalcLandPrice();
  342.         landtraded = GetTradeLand(landcost);
  343.         Land += landtraded;
  344.         StoredGrain -= landtraded*landcost;
  345.  
  346.         feedgrain = GetFeedGrain();
  347.         StoredGrain -= feedgrain;
  348.  
  349.         plantacre = GetPlantAcres();
  350.         plantgrain = plantacre/ACREperGRAIN;
  351.         StoredGrain -= plantgrain;
  352.         
  353.         starved = CalcStarved(feedgrain);
  354.         if (starved>People*STARVELIMIT/100)
  355.         {
  356.             Impeach();
  357.             break;
  358.         }
  359.         TotalDeath += starved;
  360.         /* avg # people who starve per year as a percentage */
  361.         AvgStarve = ((Year - 1) * AvgStarve + starved * 100/People)/Year;
  362.         
  363.         yield = CalcYield();
  364.         harvest = CalcHarvest(plantgrain,yield,People);
  365.         StoredGrain += harvest;
  366.         RandomEvent();
  367.         
  368.         newbies = CalcNewbies();
  369.         People = People - starved + newbies;
  370.     }/* for */
  371.     
  372.     PerCap = Land/People;
  373.  
  374.     printf("\n\nIn your 10 year term of office %i percent\n",AvgStarve);
  375.     printf("of the population starved per year on the averag. A total\n");
  376.     printf("of %i people starved during your tenure.\n",TotalDeath);
  377.     printf("You started with %i acres per person and ended with\n",
  378.                     INITLAND/INITPEOPLE);
  379.     printf("%i acres per person.\n",PerCap);
  380.     printf("\n\n");
  381.     TotScore = (PerCap-AvgStarve);
  382.     printf("Overall I would give you a %i.\n\n",TotScore);
  383.     if (TotScore<-20)
  384.         printf("You are a despicable despot! You killed off your people right and left!\n");
  385.     else if (TotScore<0)
  386.         printf("You did a poor job.  A change of career is in order!\n");
  387.     else if (TotScore<10)
  388.         printf("Not a bad score, altogether! Apply for president...\n");
  389.     else if (TotScore>10)
  390.     {
  391.         printf("This is incredible! Your mother should be very proud!\n");
  392.         printf("I recommend a career in hotel/motel management!\n");
  393.     }
  394. }/* main */
  395.