// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", 0 people starved.");


   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushels:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");


   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");


   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();

   System.writeLine("You entered "+input);

   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToSell: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;


   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToSell = int(input);



   System.writeLine("You entered "+acresToSell+" acres to sell");


   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToSell: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToSell = int(input);


   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to sell "+acresToSell+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");


   System.writeLine("");
}

C:\Projects\tamarin\redtamarin>java -jar l/asc.jar -AS3 -import l/builtin.abc -import l/toplevel.abc hammurabi.as

hammurabi.abc, 1751 bytes written

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
0
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
1000
Yes master. Here is what you told me:
You want to sell 0 acres.
You want to use 2000 bushels to feed your people.
You want to plant 1000 acres with seed.

Hammurabi: I beg to report to you,
In Year 2, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to buy "+acresToBuy+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

   cityAcres = cityAcres + acresToBuy;


   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to buy "+acresToBuy+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

   // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
   cityAcres = cityAcres + acresToBuy;
   bushelsInStorage = bushelsInStorage - acresToBuy * priceOfLandPerAcre;

   // Subtract bushels for feeding of the people
   bushelsInStorage = bushelsInStorage - bushelsToFeed;

   // Subtract bushels used for planting
   bushelsInStorage = bushelsInStorage - 1 * acresToPlant;

   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to buy "+acresToBuy+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

   // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
   cityAcres = cityAcres + acresToBuy;
   bushelsInStorage = bushelsInStorage - acresToBuy * priceOfLandPerAcre;

   // Subtract bushels for feeding of the people
   bushelsInStorage = bushelsInStorage - bushelsToFeed;

   // Subtract bushels used for planting
   bushelsInStorage = bushelsInStorage - 1 * acresToPlant;


   // Calculate the population change
   starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

   peopleWhoCameToCity = 10;

   cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

   // Calculate the harvest
   harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

   bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * cityAcres;



   System.writeLine("");
}

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to buy "+acresToBuy+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

   // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
   cityAcres = cityAcres + acresToBuy;
   bushelsInStorage = bushelsInStorage - acresToBuy * priceOfLandPerAcre;

   // Subtract bushels for feeding of the people
   bushelsInStorage = bushelsInStorage - bushelsToFeed;

   // Subtract bushels used for planting
   bushelsInStorage = bushelsInStorage - 1 * acresToPlant;


   // Calculate the population change
   starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

   peopleWhoCameToCity = 10;

   cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

   // Calculate the harvest
   harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

   bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * cityAcres;

   // Calculate how much the hungry rats ate

   ratsAteBushels = 100 * (System.getTimer() % 6 );

   bushelsInStorage = bushelsInStorage = ratsAteBushels;

   // Calculate new selling price for land
   price OfLandPerAcre = 17 + (System.getTimer() % 10);


   System.writeLine("");
}

C:\Projects\tamarin\redtamarin>java -jar l/asc.jar -AS3 -import l/builtin.abc -import l/toplevel.abc hammurabi.as

[Compiler] Error #1071: Syntax error: expected a definition keyword (such as function) after attribute price, not OfLandPerAcre.
   hammurabi.as, Ln 96, Col 24:
      price OfLandPerAcre = 17 + (System.getTimer() % 10);
   .......................^

[Compiler] Error #1084: Syntax error: expecting rightbrace before semicolon.
   hammurabi.as, Ln 96, Col 55:
      price OfLandPerAcre = 17 + (System.getTimer() % 10);
   ......................................................^

2 errors found

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to buy "+acresToBuy+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

   // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
   cityAcres = cityAcres + acresToBuy;
   bushelsInStorage = bushelsInStorage - acresToBuy * priceOfLandPerAcre;

   // Subtract bushels for feeding of the people
   bushelsInStorage = bushelsInStorage - bushelsToFeed;

   // Subtract bushels used for planting
   bushelsInStorage = bushelsInStorage - 1 * acresToPlant;


   // Calculate the population change
   starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

   peopleWhoCameToCity = 10;

   cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

   // Calculate the harvest
   harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

   bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * cityAcres;

   // Calculate how much the hungry rats ate

   ratsAteBushels = 100 * (System.getTimer() % 6 );

   bushelsInStorage = bushelsInStorage = ratsAteBushels;

   // Calculate new selling price for land
   priceOfLandPerAcre = 17 + (System.getTimer() % 10);


   System.writeLine("");
}

C:\Projects\tamarin\redtamarin>java -jar l/asc.jar -AS3 -import l/builtin.abc -import l/toplevel.abc hammurabi.as

hammurabi.abc, 2005 bytes written

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
0
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800
Yes master. Here is what you told me:
You want to buy 0 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.

Hammurabi: I beg to report to you,
In Year 2, 0 people starved.
10 people came to the city.
The city population is now 110.
The city now owns 1000 acres.
You harvested 4 bushels per acre.
Rats ate 100 bushels.
You now have 100 bushels in store.
Land is trading at 18 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

   bushelsInStorage = bushelsInStorage = ratsAteBushels;

   bushelsInStorage = bushelsInStorage - ratsAteBushels;

Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
10
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800
Yes master. Here is what you told me:
You want to buy 10 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.

Hammurabi: I beg to report to you,
In Year 2, 0 people starved.
10 people came to the city.
The city population is now 110.
The city now owns 1010 acres.
You harvested 1 bushels per acre.
Rats ate 400 bushels.
You now have 360 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;


var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to buy "+acresToBuy+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

   // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
   {
     cityAcres = cityAcres + acresToBuy;
     bushelsInStorage = bushelsInStorage - acresToBuy * priceOfLandPerAcre;

     // Subtract bushels for feeding of the people
     bushelsInStorage = bushelsInStorage - bushelsToFeed;

     // Subtract bushels used for planting
     bushelsInStorage = bushelsInStorage - 1 * acresToPlant;
   }

   // Calculate changes in the kingdom during the year
   {
     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     peopleWhoCameToCity = 10;

     cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

     // Calculate the harvest
     harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * cityAcres;

     // Calculate how much the hungry rats ate

     ratsAteBushels = 100 * (System.getTimer() % 6 );

     bushelsInStorage = bushelsInStorage - ratsAteBushels;

     // Calculate new selling price for land
     priceOfLandPerAcre = 17 + (System.getTimer() % 10);
   }

   System.writeLine("");
}

   System.writeLine("After buying acres, feeding your population, and planting, you have "+ bushelsInStorage + " bushels.");

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;

var bushelsSpentBuyingAcres = 0;

var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);


   System.writeLine("Yes master. Here is what you told me:");
   System.writeLine("You want to buy "+acresToBuy+" acres.");
   System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
   System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

   // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
   {
     cityAcres = cityAcres + acresToBuy;

     bushelsSpentBuyingAcres = acresToBuy * priceOfLandPerAcre;
     bushelsInStorage = bushelsInStorage - bushelsSpentBuyingAcres;

     // Subtract bushels for feeding of the people
     bushelsInStorage = bushelsInStorage - bushelsToFeed;

     // Subtract bushels used for planting
     bushelsInStorage = bushelsInStorage - 1 * acresToPlant;
   }

   System.writeLine("After spending " + bushelsSpentBuyingAcres +  " bushels buying acres, feeding your population, and planting, you have "+ bushelsInStorage + " bushels.");

   // Calculate changes in the kingdom during the year
   {
     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     peopleWhoCameToCity = 10;

     cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

     // Calculate the harvest
     harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * cityAcres;

     // Calculate how much the hungry rats ate

     ratsAteBushels = 100 * (System.getTimer() % 6 );

     bushelsInStorage = bushelsInStorage - ratsAteBushels;

     // Calculate new selling price for land
     priceOfLandPerAcre = 17 + (System.getTimer() % 10);
   }

   System.writeLine("");
}

Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
10
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800
Yes master. Here is what you told me:
You want to buy 10 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
After spending 250 bushels buying acres, feeding your population, and planting, you have -250 bushels.

Hammurabi: I beg to report to you,
In Year 2, 0 people starved.
10 people came to the city.
The city population is now 110.
The city now owns 1010 acres.
You harvested 2 bushels per acre.
Rats ate 100 bushels.
You now have 1670 bushels in store.
Land is trading at 22 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * cityAcres;

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * acresToPlant;

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
20
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
After spending 500 bushels buying acres, feeding your population, and planting, you have -500 bushels.

Hammurabi: I beg to report to you,
In Year 2, 0 people starved.
10 people came to the city.
The city population is now 110.
The city now owns 1020 acres.
You harvested 4 bushels per acre.
Rats ate 300 bushels.
You now have 2400 bushels in store.
Land is trading at 24 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;

var bushelsSpentBuyingAcres = 0;

var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
   input = System.readLine();
   acresToBuy = int(input);

   System.writeLine("How many bushels do you wish to feed your people?");
   input = System.readLine();
   bushelsToFeed = int(input);

   System.writeLine("How many acres do you wish to plant with seed?");
   input = System.readLine();
   acresToPlant = int(input);

   // Keep asking for input, until we get legal (or valid) inputs
   var choicesAreLegal = 0;

   while (choicesAreLegal == 0)
   {

     System.writeLine("Yes master. Here is what you told me:");
     System.writeLine("You want to buy "+acresToBuy+" acres.");
     System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
     System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

     // Create a temporary variable, and calculate if the users choices use less bushels than are available.
     var bushelValidation;

     // Start with how many bushels we have
     bushelValidation = bushelsInStorage;

     // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
     {
       cityAcres = cityAcres + acresToBuy;

       bushelsSpentBuyingAcres = acresToBuy * priceOfLandPerAcre;
       bushelValidation = bushelValidation - bushelsSpentBuyingAcres;

       // Subtract bushels for feeding of the people
       bushelValidation = bushelValidation - bushelsToFeed;

       // Subtract bushels used for planting
       bushelValidation = bushelValidation - 1 * acresToPlant;
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeln("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
     }

   }

   bushelsInStorage = bushelValidation;

   System.writeLine("After spending " + bushelsSpentBuyingAcres +  " bushels buying acres, feeding your population, and planting, you have "+ bushelsInStorage + " bushels.");

   // Calculate changes in the kingdom during the year
   {
     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     peopleWhoCameToCity = 10;

     cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

     // Calculate the harvest
     harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * acresToPlant;

     // Calculate how much the hungry rats ate

     ratsAteBushels = 100 * (System.getTimer() % 6 );

     bushelsInStorage = bushelsInStorage - ratsAteBushels;

     // Calculate new selling price for land
     priceOfLandPerAcre = 17 + (System.getTimer() % 10);
   }

   System.writeLine("");
}

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
20
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.

TypeError: Error #1006: writeln is not a function.
        at global$init()

Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;

var bushelsSpentBuyingAcres = 0;

var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   // Keep asking for input, until we get legal (or valid) inputs
   var choicesAreLegal = 0;

   while (choicesAreLegal == 0)
   {

     System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
     input = System.readLine();
     acresToBuy = int(input);

     System.writeLine("How many bushels do you wish to feed your people?");
     input = System.readLine();
     bushelsToFeed = int(input);

     System.writeLine("How many acres do you wish to plant with seed?");
     input = System.readLine();
     acresToPlant = int(input);


     System.writeLine("Yes master. Here is what you told me:");
     System.writeLine("You want to buy "+acresToBuy+" acres.");
     System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
     System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

     // Create a temporary variable, and calculate if the users choices use less bushels than are available.
     var bushelValidation;

     // Start with how many bushels we have
     bushelValidation = bushelsInStorage;

     // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
     {
       cityAcres = cityAcres + acresToBuy;

       bushelsSpentBuyingAcres = acresToBuy * priceOfLandPerAcre;
       bushelValidation = bushelValidation - bushelsSpentBuyingAcres;

       // Subtract bushels for feeding of the people
       bushelValidation = bushelValidation - bushelsToFeed;

       // Subtract bushels used for planting
       bushelValidation = bushelValidation - 1 * acresToPlant;
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
     }

   }

   bushelsInStorage = bushelValidation;

   System.writeLine("After spending " + bushelsSpentBuyingAcres +  " bushels buying acres, feeding your population, and planting, you have "+ bushelsInStorage + " bushels.");

   // Calculate changes in the kingdom during the year
   {
     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     peopleWhoCameToCity = 10;

     cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

     // Calculate the harvest
     harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * acresToPlant;

     // Calculate how much the hungry rats ate

     ratsAteBushels = 100 * (System.getTimer() % 6 );

     bushelsInStorage = bushelsInStorage - ratsAteBushels;

     // Calculate new selling price for land
     priceOfLandPerAcre = 17 + (System.getTimer() % 10);
   }

   System.writeLine("");
}

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
20
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800
Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
1
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
775
Yes master. Here is what you told me:
You want to buy 1 acres.
You want to use 2000 bushels to feed your people.
You want to plant 775 acres with seed.
After spending 25 bushels buying acres, feeding your population, and planting, you have 0 bushels.

Hammurabi: I beg to report to you,
In Year 2, 0 people starved.
10 people came to the city.
The city population is now 110.
The city now owns 1021 acres.
You harvested 1 bushels per acre.
Rats ate 400 bushels.
You now have 375 bushels in store.
Land is trading at 19 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;

var bushelsSpentBuyingAcres = 0;

var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   // Keep asking for input, until we get legal (or valid) inputs
   var choicesAreLegal = 0;

   while (choicesAreLegal == 0)
   {

     System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
     input = System.readLine();
     acresToBuy = int(input);

     System.writeLine("How many bushels do you wish to feed your people?");
     input = System.readLine();
     bushelsToFeed = int(input);

     System.writeLine("How many acres do you wish to plant with seed?");
     input = System.readLine();
     acresToPlant = int(input);

     System.writeLine("");

     System.writeLine("Yes master. Here is what you told me:");
     System.writeLine("You want to buy "+acresToBuy+" acres.");
     System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
     System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

     // Create a temporary variable, and calculate if the users choices use less bushels than are available.
     var bushelValidation;

     // Start with how many bushels we have
     bushelValidation = bushelsInStorage;

     // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
     {
       bushelsSpentBuyingAcres = acresToBuy * priceOfLandPerAcre;
       bushelValidation = bushelValidation - bushelsSpentBuyingAcres;

       // Subtract bushels for feeding of the people
       bushelValidation = bushelValidation - bushelsToFeed;

       // Subtract bushels used for planting
       bushelValidation = bushelValidation - 1 * acresToPlant;
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
     }

     System.writeLine(" ");

   }

   // We have finished our validation, now lets make the user's choices affect our variables

   cityAcres = cityAcres + acresToBuy;
   bushelsInStorage = bushelValidation;


   System.writeLine("After spending " + bushelsSpentBuyingAcres +  " bushels buying acres, feeding your population, and planting, you have "+ bushelsInStorage + " bushels.");

   // Calculate changes in the kingdom during the year
   {
     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     peopleWhoCameToCity = 10;

     cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

     // Calculate the harvest
     harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * acresToPlant;

     // Calculate how much the hungry rats ate

     ratsAteBushels = 100 * (System.getTimer() % 6 );

     bushelsInStorage = bushelsInStorage - ratsAteBushels;

     // Calculate new selling price for land
     priceOfLandPerAcre = 17 + (System.getTimer() % 10);
   }

   System.writeLine("");
}

C:\Projects\tamarin\redtamarin>java -jar l/asc.jar -AS3 -import l/builtin.abc -import l/toplevel.abc hammurabi.as

hammurabi.abc, 2427 bytes written

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
1
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800

Yes master. Here is what you told me:
You want to buy 1 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -25 bushels!

How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
20
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
800

Yes master. Here is what you told me:
You want to buy 20 acres.
You want to use 2000 bushels to feed your people.
You want to plant 800 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -500 bushels!

How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
1
How many bushels do you wish to feed your people?
2000
How many acres do you wish to plant with seed?
775

Yes master. Here is what you told me:
You want to buy 1 acres.
You want to use 2000 bushels to feed your people.
You want to plant 775 acres with seed.

After spending 25 bushels buying acres, feeding your population, and planting, you have 0 bushels.

Hammurabi: I beg to report to you,
In Year 2, 0 people starved.
10 people came to the city.
The city population is now 110.
The city now owns 1001 acres.
You harvested 2 bushels per acre.
Rats ate 300 bushels.
You now have 1250 bushels in store.
Land is trading at 20 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
2200
How many bushels do you wish to feed your people?
1000
How many acres do you wish to plant with seed?
1000

Yes master. Here is what you told me:
You want to buy 2200 acres.
You want to use 1000 bushels to feed your people.
You want to plant 1000 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -44750 bushels!

How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
0
How many bushels do you wish to feed your people?
2200
How many acres do you wish to plant with seed?
1000

Yes master. Here is what you told me:
You want to buy 0 acres.
You want to use 2200 bushels to feed your people.
You want to plant 1000 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -1950 bushels!

How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
-50
How many bushels do you wish to feed your people?
2200
How many acres do you wish to plant with seed?
1000

Yes master. Here is what you told me:
You want to buy -50 acres.
You want to use 2200 bushels to feed your people.
You want to plant 1000 acres with seed.
I'm sorry master, but those choices would use too many bushels. You would end up with -950 bushels!

How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
-100
How many bushels do you wish to feed your people?
2200
How many acres do you wish to plant with seed?
1000

Yes master. Here is what you told me:
You want to buy -100 acres.
You want to use 2200 bushels to feed your people.
You want to plant 1000 acres with seed.

After spending -2000 bushels buying acres, feeding your population, and planting, you have 50 bushels.

Hammurabi: I beg to report to you,
In Year 3, 0 people starved.
10 people came to the city.
The city population is now 120.
The city now owns 901 acres.
You harvested 4 bushels per acre.
Rats ate 300 bushels.
You now have 3750 bushels in store.
Land is trading at 24 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

     // This is our decision if the inputs are valid
     if ( (bushelValidation >= 0) &&
          (acresToPlant <= (cityAcres + acresToBuy))
        )

     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
       choicesAreLegal = 0;
     }

     // This is our decision if the inputs are valid
     if (acresToPlant <= (cityAcres + acresToBuy))
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but you dont have "+ acresToPlant + " acres, that is more acres than you own! ");
       choicesAreLegal = 0;
     }

if (acresToBuy > cityAcres)

     if (-acresToBuy > cityAcres)
     {
       System.writeLine("I'm sorry master, but that is more acres than you have!");
       choicesAreLegal = 0;
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
       choicesAreLegal = 0;
     }

     // This is our decision if the inputs are valid
     if (acresToPlant <= (cityAcres + acresToBuy))
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but you dont have "+ acresToPlant + " acres, that is more acres than you own! ");
       choicesAreLegal = 0;
     }

     if (-acresToBuy > cityAcres)
     {
       System.writeLine("I'm sorry master, but that is more acres than you have!");
       choicesAreLegal = 0;
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
       choicesAreLegal = 0;
     }

     // This is our decision if the inputs are valid
     if (acresToPlant > (cityAcres + acresToBuy))
     {
       System.writeLine("I'm sorry master, but you dont have "+ acresToPlant + " acres, that is more acres than you own! ");
       choicesAreLegal = 0;
     }

     if (-acresToBuy > cityAcres)
     {
       System.writeLine("I'm sorry master, but that is more acres than you have!");
       choicesAreLegal = 0;
     }

     // validate bushels to feed the people is a positive number (outside the loop, we'll figure out how many people starved!
     if (bushelsToFeed >= 0)
     {
       System.writeLine("I'm sorry master, but you can't feed the people less than nothing!");
       choicesAreLegal = 0;
     }

     if (acresToPlant < 0)
     {
       System.writeLine("I'm sorry master, but you can't plant less than nothing!");
       choicsAreLegal = 0;
     }

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;

var bushelsSpentBuyingAcres = 0;

var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   // Keep asking for input, until we get legal (or valid) inputs
   var choicesAreLegal = 0;

   while (choicesAreLegal == 0)
   {

     System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
     input = System.readLine();
     acresToBuy = int(input);

     System.writeLine("How many bushels do you wish to feed your people?");
     input = System.readLine();
     bushelsToFeed = int(input);

     System.writeLine("How many acres do you wish to plant with seed?");
     input = System.readLine();
     acresToPlant = int(input);

     System.writeLine("");

     System.writeLine("Yes master. Here is what you told me:");
     System.writeLine("You want to buy "+acresToBuy+" acres.");
     System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
     System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

     // Create a temporary variable, and calculate if the users choices use less bushels than are available.
     var bushelValidation;

     // Start with how many bushels we have
     bushelValidation = bushelsInStorage;

     // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
     {
       bushelsSpentBuyingAcres = acresToBuy * priceOfLandPerAcre;
       bushelValidation = bushelValidation - bushelsSpentBuyingAcres;

       // Subtract bushels for feeding of the people
       bushelValidation = bushelValidation - bushelsToFeed;

       // Subtract bushels used for planting
       bushelValidation = bushelValidation - 1 * acresToPlant;
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
       choicesAreLegal = 0;
     }

     // This is our decision if the inputs are valid
     if (acresToPlant > (cityAcres + acresToBuy))
     {
       System.writeLine("I'm sorry master, but you dont have "+ acresToPlant + " acres, that is more acres than you own! ");
       choicesAreLegal = 0;
     }

     if (-acresToBuy > cityAcres)
     {
       System.writeLine("I'm sorry master, but that is more acres than you have!");
       choicesAreLegal = 0;
     }

     // validate bushels to feed the people is a positive number (outside the loop, we'll figure out how many people starved!
     if (bushelsToFeed >= 0)
     {
       System.writeLine("I'm sorry master, but you can't feed the people less than nothing!");
       choicesAreLegal = 0;
     }

     if (acresToPlant < 0)
     {
       System.writeLine("I'm sorry master, but you can't plant less than nothing!");
       choicsAreLegal = 0;
     }

     System.writeLine(" ");

   }

   // We have finished our validation, now lets make the user's choices affect our variables

   cityAcres = cityAcres + acresToBuy;
   bushelsInStorage = bushelValidation;


   System.writeLine("After spending " + bushelsSpentBuyingAcres +  " bushels buying acres, feeding your population, and planting, you have "+ bushelsInStorage + " bushels.");

   // Calculate changes in the kingdom during the year
   {
     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     peopleWhoCameToCity = 10;

     cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

     // Calculate the harvest
     harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * acresToPlant;

     // Calculate how much the hungry rats ate

     ratsAteBushels = 100 * (System.getTimer() % 6 );

     bushelsInStorage = bushelsInStorage - ratsAteBushels;

     // Calculate new selling price for land
     priceOfLandPerAcre = 17 + (System.getTimer() % 10);
   }

   System.writeLine("");
}

     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     var plagueIsHappening:int = 0;

     var foodNeeded:int = cityPopulation * 20;
     if (foodNeeded > bushelsToFeed)
     {  // This is a problem, not enough food!
        if  ((System.getTimer() % 3) == 0)
            { plagueIsHappening = 1;
            }
     }
     else
     {  // Food sufficient for the population
        if  ((System.getTimer() % 6) == 0)
            { plagueIsHappening = 1;
            }
     }

     if (plagueIsHappening == 1)
     { cityPopulation = cityPopulation / 2;

       // Recalculate the food needs based on who is left
       foodNeeded = cityPopulation * 20;
     }

     if (foodNeeded > bushelsToFeed)
     {
        peopleWhoCanBeFed = (bushelsToFeed / 20);
        starved = cityPopulation - peopleWhoCanBeFed;
        cityPopulation = peopleWhoCanBeFed;
     }

     if (starved > cityPopulation * 1 / 10)
     {  System.writeLine("Bad news Hammurabi! More than 10% of your population has starved, and the remaining people have revolted against your rule! You are no longer in office!");
        
        // No more years. Break out of the loop
        break;  
     }

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
0
How many bushels do you wish to feed your people?
100
How many acres do you wish to plant with seed?
2000

Yes master. Here is what you told me:
You want to buy 0 acres.
You want to use 100 bushels to feed your people.
You want to plant 2000 acres with seed.
I'm sorry master, but you dont have 2000 acres, that is more acres than you own!
I'm sorry master, but you can't feed the people less than nothing!

How many acres do you wish to buy or sell? (Enter a negative number to sell acres)

     // validate bushels to feed the people is a positive number (outside the loop, we'll figure out how many people starved!
     if (bushelsToFeed >= 0)
     {
       System.writeLine("I'm sorry master, but you can't feed the people less than nothing!");
       choicesAreLegal = 0;
     }

C:\Projects\tamarin\redtamarin>l\redshell_d hammurabi.abc
Welcome to Hammurabi, the classic game of strategy and resource allocation
Hammurabi: I beg to report to you,
In Year 1, 0 people starved.
0 people came to the city.
The city population is now 100.
The city now owns 1000 acres.
You harvested 3 bushels per acre.
Rats ate 200 bushels.
You now have 2800 bushels in store.
Land is trading at 25 bushels per acre.
Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.
How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
0
How many bushels do you wish to feed your people?
100
How many acres do you wish to plant with seed?
2000

Yes master. Here is what you told me:
You want to buy 0 acres.
You want to use 100 bushels to feed your people.
You want to plant 2000 acres with seed.
I'm sorry master, but you dont have 2000 acres, that is more acres than you own!

How many acres do you wish to buy or sell? (Enter a negative number to sell acres)
100
How many bushels do you wish to feed your people?
200
How many acres do you wish to plant with seed?
10

Yes master. Here is what you told me:
You want to buy 100 acres.
You want to use 200 bushels to feed your people.
You want to plant 10 acres with seed.

After spending 2500 bushels buying acres, feeding your population, and planting, you have 90 bushels.
Bad news Hammurabi! More than 10% of your population has starved, and the remaining people have revolted against your rule! You are no longer in office!

// Program: hammurabi.as
// Authors: Garnet R. Chaney, Jonathan Chaney
// Date: 2011/07/17

// Requirements:
//    Runs with redtamarin

import avmplus.System;

System.writeLine("Welcome to Hammurabi, the classic game of strategy and resource allocation");


var year:int;

var starved:int = 0;
var peopleWhoCameToCity:int = 0;
var cityPopulation:int      = 100;
var cityAcres:int           = 1000;
var harvestBushelsPerAcre:int      = 3;
var ratsAteBushels:int      = 200;
var bushelsInStorage:int    = 2800;
var priceOfLandPerAcre:int  = 25;

var bushelsSpentBuyingAcres = 0;

var input:String;


// Main program loop, play for 10 years
for (year = 1; year <= 10 ; year=year +1)
{
   System.writeLine("Hammurabi: I beg to report to you,");
   System.writeLine("In Year " + year + ", " + starved + " people starved.");
   System.writeLine(peopleWhoCameToCity + " people came to the city.");
   System.writeLine("The city population is now " + cityPopulation + ".");
   System.writeLine("The city now owns " + cityAcres +" acres.");
   System.writeLine("You harvested " + harvestBushelsPerAcre + " bushels per acre.");
   System.writeLine("Rats ate " + ratsAteBushels + " bushels.");
   System.writeLine("You now have " + bushelsInStorage + " bushels in store.");
   System.writeLine("Land is trading at " + priceOfLandPerAcre + " bushels per acre.");

   System.writeLine("Please decide how many acres do you wish to buy or sell, how many bushels do you want to feed your people, how many acres do you wish to plant with seed.");

   var acresToBuy: int = 0;
   var bushelsToFeed : int = 0;
   var acresToPlant : int = 0;

   // Keep asking for input, until we get legal (or valid) inputs
   var choicesAreLegal = 0;

   while (choicesAreLegal == 0)
   {

     System.writeLine("How many acres do you wish to buy or sell? (Enter a negative number to sell acres)");
     input = System.readLine();
     acresToBuy = int(input);

     System.writeLine("How many bushels do you wish to feed your people?");
     input = System.readLine();
     bushelsToFeed = int(input);

     System.writeLine("How many acres do you wish to plant with seed?");
     input = System.readLine();
     acresToPlant = int(input);

     System.writeLine("");

     System.writeLine("Yes master. Here is what you told me:");
     System.writeLine("You want to buy "+acresToBuy+" acres.");
     System.writeLine("You want to use "+bushelsToFeed + " bushels to feed your people.");
     System.writeLine("You want to plant "+acresToPlant + " acres with seed.");

     // Create a temporary variable, and calculate if the users choices use less bushels than are available.
     var bushelValidation;

     // Start with how many bushels we have
     bushelValidation = bushelsInStorage;

     // Calculate change to city acres, and bushels in storage, according to number of acres to buy or sell
     {
       bushelsSpentBuyingAcres = acresToBuy * priceOfLandPerAcre;
       bushelValidation = bushelValidation - bushelsSpentBuyingAcres;

       // Subtract bushels for feeding of the people
       bushelValidation = bushelValidation - bushelsToFeed;

       // Subtract bushels used for planting
       bushelValidation = bushelValidation - 1 * acresToPlant;
     }

     // This is our decision if the inputs are valid
     if (bushelValidation >= 0)
     {
       choicesAreLegal = 1;
     }
     else
     {
       System.writeLine("I'm sorry master, but those choices would use too many bushels. You would end up with "+bushelValidation+" bushels!");
       choicesAreLegal = 0;
     }

     // This is our decision if the inputs are valid
     if (acresToPlant > (cityAcres + acresToBuy))
     {
       System.writeLine("I'm sorry master, but you dont have "+ acresToPlant + " acres, that is more acres than you own! ");
       choicesAreLegal = 0;
     }
     if (acresToPlant > 10*cityPopulation)
     {
       System.writeLine("I'm sorry master, but you dont have enough people to plan "+ acresToPlant + " acres! ");
       choicesAreLegal = 0;
     }


     if (-acresToBuy > cityAcres)
     {
       System.writeLine("I'm sorry master, but that is more acres than you have!");
       choicesAreLegal = 0;
     }

     // validate bushels to feed the people is a positive number (outside the loop, we'll figure out how many people starved!
     if (bushelsToFeed < 0)
     {
       System.writeLine("I'm sorry master, but you can't feed the people less than nothing!");
       choicesAreLegal = 0;
     }

     if (acresToPlant < 0)
     {
       System.writeLine("I'm sorry master, but you can't plant less than nothing!");
       choicsAreLegal = 0;
     }

     System.writeLine(" ");

   }

   // We have finished our validation, now lets make the user's choices affect our variables

   cityAcres = cityAcres + acresToBuy;
   bushelsInStorage = bushelValidation;


   System.writeLine("After spending " + bushelsSpentBuyingAcres +  " bushels buying acres, feeding your population, and planting, you have "+ bushelsInStorage + " bushels.");

   // Calculate changes in the kingdom during the year
   {
     // Calculate the population change
     starved = 0; //TODO: What if they aren't fed enough? We need to figure this out.
                // People can starve from plague, or from not being fed enough.

     var plagueIsHappening:int = 0;

     var foodNeeded:int = cityPopulation * 20;
     if (foodNeeded > bushelsToFeed)
     {  // This is a problem, not enough food!
        if  ((System.getTimer() % 3) == 0)
            { plagueIsHappening = 1;
            }
     }
     else
     {  // Food sufficient for the population
        if  ((System.getTimer() % 6) == 0)
            { plagueIsHappening = 1;
            }
     }

     if (plagueIsHappening == 1)
     { cityPopulation = cityPopulation / 2;

       // Recalculate the food needs based on who is left
       foodNeeded = cityPopulation * 20;
     }

     var peopleWhoCanBeFed:int = (bushelsToFeed / 20);
     if (foodNeeded > bushelsToFeed)
     {
        starved = cityPopulation - peopleWhoCanBeFed;
     }

     if (starved > cityPopulation * 1 / 10)
     {  System.writeLine("Bad news Hammurabi! You only fed "+peopleWhoCanBeFed+" people! More than 10% of your population has starved, and the remaining people have revolted against your rule! You are no longer in office!");

        // No more years. Break out of the loop
        break;
     }


     peopleWhoCameToCity = 10;

     cityPopulation = cityPopulation - starved + peopleWhoCameToCity;

     // Calculate the harvest
     harvestBushelsPerAcre = 1  + ( System.getTimer() %  4 );  // Use getTimer() % 4  to provide random number between 0 and 3

     bushelsInStorage = bushelsInStorage + harvestBushelsPerAcre * acresToPlant;

     // Calculate how much the hungry rats ate

     ratsAteBushels = 100 * (System.getTimer() % 6 );

     bushelsInStorage = bushelsInStorage - ratsAteBushels;

     // Calculate new selling price for land
     priceOfLandPerAcre = 17 + (System.getTimer() % 10);
   }

   System.writeLine("");
}