papa
/
hammurabi-p9
2
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Work through 7/13

This commit is contained in:
David Meyer 2020-07-13 23:55:18 +09:00
parent 5519fadc1c
commit b5c64002cd
1 changed files with 207 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

311
hammurabi.c
View File

@ -109,21 +109,34 @@ char *HONORIFIC[] = {"Great", "Mighty", "Wise", "Benevolent", "Merciful", "Just"
/* Function prototypes */ /* Function prototypes */
void completedterm(void); void completedterm(void);
int evtbrthimm(void);
int evtlandpr(void);
int evtplague(void);
int evtratseat(void);
int evtstarve(void);
int evtyield(void);
int grainafterplan(void);
int grainafterlandsp(void);
int grainharvest(void);
int graintoplant(void);
int inputbuy(void); int inputbuy(void);
int inputfood(void); int inputfood(void);
int inputiexpr(void); int inputiexpr(void);
int inputplant(void); int inputplant(void);
int inputsell(void); int inputsell(void);
int landafterplan(void);
void microcalc(void); void microcalc(void);
int peoplefed(void);
Plancmd planmenu(void); Plancmd planmenu(void);
Boolean planyear(void); Boolean planyear(void);
int popnet(void);
void printdeposed(void); void printdeposed(void);
void printgreeting(void); void printgreeting(void);
void printlandprice(void); void printEvtLandPr(void);
void printstatus(void); void printstatus(void);
void printyearrept(void); void printyearrept(void);
int salegrain(void);
Boolean scanyes(char *prompt); Boolean scanyes(char *prompt);
void setlandprice(void);
/* Constant variables */ /* Constant variables */
int CONSCTL; int CONSCTL;
@ -133,20 +146,29 @@ int Year = 0;
int Pop = INITPOP; int Pop = INITPOP;
int Grain = INITGRAIN; int Grain = INITGRAIN;
int Land = INITLAND; int Land = INITLAND;
int StarvedTot = 0;
int StarvedPctTot = 0; /* Total statistics */
int TotStarved = 0;
int TotStarvePct = 0;
/* Annual plan */ /* Annual plan */
int foodgrain, landsale, plantland; int PlanFood, PlanSale, PlanPlant;
/* Annual events */ /* Annual events */
int harvyield, landprice, newpop, plaguedeath, popfed, ratgrain, starvedeath, starvepct; int EvtYield, EvtLandPr, EvtBrthImm, EvtPlague, EvtRatsEat, EvtStarve;
Boolean terminated = FALSE; /* Beginning of year stats */
int PrevPop, PrevGrain, PrevLand;
/* Derived values */
int GrainAfterPlan, LandAfterPlan, GrainHarvest;
void void
main(void) main(void)
{ {
int popfed, starvepct;
Boolean gameover = FALSE;
CONSCTL = open("/dev/consctl", OWRITE); CONSCTL = open("/dev/consctl", OWRITE);
if(CONSCTL == -1) exits("can't open CONSCTL: %r\n"); if(CONSCTL == -1) exits("can't open CONSCTL: %r\n");
srand(time(0)); srand(time(0));
@ -156,53 +178,41 @@ main(void)
printgreeting(); printgreeting();
printstatus(); printstatus();
setlandprice(); EvtLandPr = evtlandpr();
printlandprice(); printEvtLandPr();
do do
{ {
++ Year; ++ Year;
if(planyear() == FALSE) terminated = TRUE; if(planyear() == FALSE) gameover = TRUE;
else else
{ {
Grain = Grain + (landsale * landprice) - (plantland / 2) - foodgrain; PrevPop = Pop;
Land = Land - landsale; PrevGrain = Grain; Grain = GrainAfterPlan;
PrevLand = Land; Land = LandAfterPlan;
EvtYield = evtyield();
EvtRatsEat = evtratseat();
GrainHarvest = grainharvest();
Grain = Grain + GrainHarvest - EvtRatsEat;
harvyield = nrand(5) + 1; EvtBrthImm = evtbrthimm();
switch(nrand(5)+1) popfed = peoplefed();
{ EvtStarve = evtstarve();
case 1: TotStarved = TotStarved + EvtStarve;
ratgrain = Grain; starvepct = 100 * EvtStarve / Pop;
break;
case 3:
ratgrain = Grain / 3;
break;
case 5:
ratgrain = Grain / 5;
break;
default:
ratgrain = 0;
}
Grain = Grain + (plantland * harvyield) - ratgrain;
newpop = (nrand(5) + 1) * (20 * Land + Grain) / Pop / 100 + 1;
popfed = foodgrain / 20;
starvedeath = ((popfed < Pop) ? (Pop - popfed) : 0);
StarvedTot = StarvedTot + starvedeath;
starvepct = 100 * starvedeath / Pop;
if(starvepct > 45) if(starvepct > 45)
{ {
printgreeting(); printgreeting();
print("You have starved %d of your subjects in one year!\n", starvedeath); print("You have starved %d of your subjects in one year!\n", EvtStarve);
printdeposed(); printdeposed();
terminated = TRUE; gameover = TRUE;
} }
else else
{ {
StarvedPctTot = StarvedPctTot + starvepct; TotStarvePct = TotStarvePct + starvepct;
Pop = Pop + newpop - starvedeath; Pop = Pop + EvtBrthImm - EvtStarve;
plaguedeath = ((nrand(100) < 15) ? (Pop / 2) : 0); EvtPlague = evtplague();
Pop = Pop - plaguedeath; Pop = Pop - EvtPlague;
printgreeting(); printgreeting();
printyearrept(); printyearrept();
@ -211,12 +221,12 @@ main(void)
if(Year == MAXYEARS) completedterm(); if(Year == MAXYEARS) completedterm();
else else
{ {
setlandprice(); EvtLandPr = evtlandpr();
printlandprice(); printEvtLandPr();
} }
} }
} }
} while(Year < MAXYEARS && terminated == FALSE); } while(Year < MAXYEARS && gameover == FALSE);
print(MSGDIV); print(MSGDIV);
exits(0); exits(0);
} }
@ -224,11 +234,11 @@ main(void)
void void
completedterm(void) completedterm(void)
{ {
int avgstarvepct = StarvedPctTot / MAXYEARS; int avgstarvepct = TotStarvePct / MAXYEARS;
int landperperson = Land / Pop; int landperperson = Land / Pop;
int likeassassination = Pop * 0.8 * frand(); int likeassassination = Pop * 0.8 * frand();
printgreeting(); printgreeting();
print("In your %d-year reign, %d people died of starvation, an average of %d people per year.\n", MAXYEARS, StarvedTot, avgstarvepct); print("In your %d-year reign, %d people died of starvation, an average of %d people per year.\n", MAXYEARS, TotStarved, avgstarvepct);
print("You started with %d acres per person and ended with %d acres per person.\n", INITLAND / INITPOP, landperperson); print("You started with %d acres per person and ended with %d acres per person.\n", INITLAND / INITPOP, landperperson);
if(avgstarvepct > 33 || landperperson < 7) printdeposed(); if(avgstarvepct > 33 || landperperson < 7) printdeposed();
else if(avgstarvepct > 10 || landperperson < 9) print("Your heavy-handed performance smacks of Nero and Ivan IV. Your (surviving) people find you an unpleasant ruler, and, frankly, hate your guts!\n"); else if(avgstarvepct > 10 || landperperson < 9) print("Your heavy-handed performance smacks of Nero and Ivan IV. Your (surviving) people find you an unpleasant ruler, and, frankly, hate your guts!\n");
@ -240,19 +250,95 @@ completedterm(void)
else print("A fantastic performance! Charlemagne, Disraeli, and Jefferson combined could not have done better!\n"); else print("A fantastic performance! Charlemagne, Disraeli, and Jefferson combined could not have done better!\n");
} }
int
evtbrthimm(void)
{
return ((nrand(5) + 1) * (20 * Land + Grain) / Pop / 100 + 1);
}
int
evtlandpr(void)
{
return (nrand(10) + 17);
}
int
evtplague(void)
{
return ((nrand(100) < 15) ? (Pop / 2) : 0);
}
int
evtratseat(void)
{
int eat;
switch(nrand(5)+1)
{
case 1:
eat = Grain;
break;
case 3:
eat = Grain / 3;
break;
case 5:
eat = Grain / 5;
break;
default:
eat = 0;
}
return eat;
}
int
evtstarve(void)
{
int popfed = peoplefed();
return ((popfed < Pop) ? (Pop - popfed) : 0);
}
int
evtyield(void)
{
return (nrand(5) + 1);
}
int
grainafterplan(void)
{
return (grainafterlandsp() - graintoplant() - PlanFood);
}
int
grainafterlandsp(void)
{
return (Grain + (PlanSale * EvtLandPr));
}
int
grainharvest(void)
{
return (PlanPlant * EvtYield);
}
int
graintoplant(void)
{
return (PlanPlant / 2);
}
int int
inputbuy(void) inputbuy(void)
{ {
int buy, grainbal, price; int buy, grainbal, price;
Boolean valid = FALSE; Boolean valid = FALSE;
grainbal = Grain - foodgrain - (plantland / 2); grainbal = Grain - PlanFood - (PlanPlant / 2);
do do
{ {
print("\nThe price of land is %d bushels per acre.\n", landprice); print("\nThe price of land is %d bushels per acre.\n", EvtLandPr);
print("How many acres do you wish to buy? "); print("How many acres do you wish to buy? ");
buy = inputiexpr(); buy = inputiexpr();
price = buy * landprice; price = buy * EvtLandPr;
if(buy < 0) if(buy < 0)
print("Sire, it is impossible to buy a negative amount of land.\nIf you wish to sell land, enter \"0\", then select (S)ell from the menu.\n"); print("Sire, it is impossible to buy a negative amount of land.\nIf you wish to sell land, enter \"0\", then select (S)ell from the menu.\n");
else if(price > grainbal) else if(price > grainbal)
@ -269,7 +355,7 @@ inputfood(void)
int food, grainbal; int food, grainbal;
Boolean valid = FALSE; Boolean valid = FALSE;
grainbal = Grain + (landsale * landprice) - (plantland / 2); grainbal = Grain + (PlanSale * EvtLandPr) - (PlanPlant / 2);
do do
{ {
print("\nHow much grain do you wish to give your people for food? "); print("\nHow much grain do you wish to give your people for food? ");
@ -343,8 +429,8 @@ inputplant(void)
int grainbal, landbal, plant; int grainbal, landbal, plant;
Boolean valid = FALSE; Boolean valid = FALSE;
grainbal = Grain - foodgrain + (landsale * landprice); grainbal = Grain - PlanFood + (PlanSale * EvtLandPr);
landbal = Land - landsale; landbal = Land - PlanSale;
do do
{ {
print("\nHow many acres do you wish to plant? "); print("\nHow many acres do you wish to plant? ");
@ -366,10 +452,10 @@ inputsell(void)
int landbal, sell, price; int landbal, sell, price;
Boolean valid = FALSE; Boolean valid = FALSE;
landbal = Land - plantland; landbal = Land - PlanPlant;
do do
{ {
print("\nThe price of land is %d bushels per acre.\n", landprice); print("\nThe price of land is %d bushels per acre.\n", EvtLandPr);
print("How many acres do you wish to sell? "); print("How many acres do you wish to sell? ");
sell = inputiexpr(); sell = inputiexpr();
if(sell < 0) if(sell < 0)
@ -380,12 +466,24 @@ inputsell(void)
return sell; return sell;
} }
int
landafterplan(void)
{
return (Land - PlanSale);
}
void void
microcalc(void) microcalc(void)
{ {
} }
int
peoplefed(void)
{
return (PlanFood / 20);
}
Plancmd Plancmd
planmenu(void) planmenu(void)
{ {
@ -393,20 +491,19 @@ planmenu(void)
Plancmd cmd; Plancmd cmd;
print("\n Plan for Year %d\n", Year); print("\n Plan for Year %d\n", Year);
print(" Grain in storage %7d | Land (price %2d) %7d\n", Grain, landprice, Land); print(" Grain in storage %7d | Land (price %2d) %7d\n", Grain, EvtLandPr, Land);
if(landsale > 0) if(PlanSale > 0)
print(" From land sale %7d | Sell %7d\n", landsale * landprice, landsale); print(" From land sale %7d | Sell %7d\n", salegrain(), PlanSale);
if(landsale < 0) if(PlanSale < 0)
print(" For land purchase%7d | Purchase %7d\n", landsale * landprice * -1, landsale * -1); print(" For land purchase%7d | Purchase %7d\n", salegrain() * -1, PlanSale * -1);
if(landsale != 0) if(PlanSale != 0)
print("%s Net %7d | Net %7d\n", MSGPLTOT, Grain + (landsale * landprice), Land - landsale); print("%s Net %7d | Net %7d\n", MSGPLTOT, grainafterlandsp(), LandAfterPlan);
if(foodgrain > 0) print(" Provide for food %7d |\n", foodgrain); if(PlanFood > 0) print(" Provide for food %7d |\n", PlanFood);
if(plantland > 0) if(PlanPlant > 0)
print(" Provide for seed %7d | Plant %7d\n", plantland / 2, plantland); print(" Provide for seed %7d | Plant %7d\n", graintoplant(), PlanPlant);
if(foodgrain > 0 || plantland > 0) if(PlanFood > 0 || PlanPlant > 0)
print("%s Balance %7d | Fallow acres %7d\n", MSGPLTOT, print("%s Balance %7d | Fallow acres %7d\n", MSGPLTOT, GrainAfterPlan,
Grain + (landsale * landprice) - foodgrain - (plantland / 2), Land - PlanSale - PlanPlant);
Land - landsale - plantland);
print("\n Population: %d (need food: %d; can farm: %d)\n", Pop, Pop * 20, Pop * 10); print("\n Population: %d (need food: %d; can farm: %d)\n", Pop, Pop * 20, Pop * 10);
print(MSGMENU); print(MSGMENU);
@ -454,26 +551,26 @@ planyear(void)
Boolean play = TRUE; Boolean play = TRUE;
Plancmd cmd; Plancmd cmd;
foodgrain = landsale = plantland = 0; PlanFood = PlanSale = PlanPlant = 0;
do do
{ {
cmd = planmenu(); cmd = planmenu();
switch(cmd) switch(cmd)
{ {
case BUY: case BUY:
landsale = -1 * inputbuy(); PlanSale = -1 * inputbuy();
break; break;
case SELL: case SELL:
landsale = inputsell(); PlanSale = inputsell();
break; break;
case FEED: case FEED:
foodgrain = inputfood(); PlanFood = inputfood();
break; break;
case PLANT: case PLANT:
plantland = inputplant(); PlanPlant = inputplant();
break; break;
case RESET: case RESET:
foodgrain = landsale = plantland = 0; PlanFood = PlanSale = PlanPlant = 0;
break; break;
case EXEC: case EXEC:
print("\nSo it shall be written, so it shall be done.\n"); print("\nSo it shall be written, so it shall be done.\n");
@ -485,10 +582,21 @@ planyear(void)
play = FALSE; play = FALSE;
break; break;
} }
if(cmd != QUIT)
{
GrainAfterPlan = grainafterplan();
LandAfterPlan = landafterplan();
}
} while(cmd != EXEC && cmd != QUIT); } while(cmd != EXEC && cmd != QUIT);
return play; return play;
} }
int
popnet(void)
{
return (Pop + EvtBrthImm - EvtStarve);
}
void void
printdeposed(void) printdeposed(void)
{ {
@ -503,9 +611,9 @@ printgreeting(void)
} }
void void
printlandprice(void) printEvtLandPr(void)
{ {
print("The price of land is %d bushels of grain per acre.\n", landprice); print("The price of land is %d bushels of grain per acre.\n", EvtLandPr);
} }
void void
@ -519,29 +627,30 @@ printstatus(void)
void void
printyearrept(void) printyearrept(void)
{ {
print(" ____________________________________________________________________\n"); print(" ______________________________________________________________________\n");
print(" ( YEAR %2d @\n", Year); print(" ( YEAR %2d @\n", Year);
print(" | Harvest yield %1d bushels per acre | (Land price %2d bushels per acre) |\n", harvyield, landprice); print(" | Harvest yield %1d bushels per acre | Population last year %6d |\n", EvtYield, PrevPop);
print(" /}_ _ | In Year %d\n", Year); print(" (}_ _ | Grain reserve %6d | Births and immigrants %6d |\n", PrevGrain, EvtBrthImm);
print(" \\/\\/ | %d bushels were harvested per acre, for a total harvest of %d bushels\n", print(" \\/\\/ | Harvest %6d | ", GrainHarvest);
harvyield, plantland * harvyield); if(EvtStarve > 0) print("Starvation deaths %6d |\n", EvtStarve);
print(" |\\ |"); else print(" |\n");
if(ratgrain > 0) print(" Rats ate %d bushels of grain.", ratgrain); print(" |\\ | ");
print("\n |\\ |"); if(EvtRatsEat > 0) print("Eaten by rats %6d | ", EvtRatsEat);
if(newpop > 0) print(" The population increased by %d.", newpop); else print(" | ");
print("\n |_\\_ |"); if(EvtPlague > 0) print("Plague deaths %6d |\n", EvtPlague);
if(starvedeath > 0) print(" %d people starved!", starvedeath); else print(" |\n");
print("\n |"); print(" |\\ | -------------------------------- | -------------------------------- |\n");
if(plaguedeath > 0) print(" A horrible plague struck! %d people have died!", plaguedeath); print(" |_\\_ | Balance %6d | Current population %6d |\n", Grain, Pop);
print("\n |________________________________________________50\n"); print(" | |\n");
print(" (________________________________________________50\n"); print(" | Land %6d Land price %2d |\n", Land, EvtLandPr);
print("In Year %d,\n", Year); print(" |_____________________________________________________________________|\n");
print("%d bushels were harvested per acre, for a total harvest of %d bushels.\n", print(" (_____________________________________________________________________@\n");
harvyield, plantland * harvyield); }
if(ratgrain > 0) print("Rats ate %d bushels of grain.\n", ratgrain);
if(newpop > 0) print("The population increased by %d.\n", newpop); int
if(starvedeath > 0) print("%d people starved!\n", starvedeath); salegrain(void)
if(plaguedeath > 0) print("A horrible plague struck! %d people have died!\n", plaguedeath); {
return (PlanSale * EvtLandPr);
} }
Boolean Boolean
@ -562,9 +671,3 @@ scanyes(char *prompt)
return (in == 'y' ? TRUE : FALSE); return (in == 'y' ? TRUE : FALSE);
} }
void
setlandprice(void)
{
landprice = nrand(10) + 17;
}