#include <xolatile/xtandard.c>

enum { wheat,              gold,               wood,               stone,              resources            };
enum { granary,            mine,               storehouse,         quarry,             constructions        };

enum {
	reply_quit,         reply_help,         reply_report,       reply_status,       reply_build,        reply_train,        reply_trade,        reply_plant,
	reply_turn,
	replies
};

static int population          = 0;
static int reputation          = 0;
static int monthly_immigration = 0;
static int monthly_emigration  = 0;

static int resource     [resources]     = { 0 };
static int construction [constructions] = { 0 };

static char * resource_name     [] = { "wheat",            "gold",             "wood",             "stone"              };
static char * construction_name [] = { "granary",          "mine",             "storehouse",       "quarry"             };

static char * reply_name [] = {
	"quit",             "help",             "report",           "status",           "build",            "train",            "trade",            "plant",
	"turn"
};

static char * reply_text [] = {
	"Quit game.",
	"Print reply strings and their explanation, like this one.",
	"Request a report from your court advisors about the state of your fortress.",
	"Request a meeting with lords and merchants about affairs in your fiefdom.",
	"Propose what kind of construction should be built this month to your architect.",
	"Spend more time training with your warriors this entire month.",
	"Discuss what goods should be sold or bought this month  with merchant guild.",
	"Order what kind of plants should your peasants harvest this month.",
	"Submit your monthly strategy to the council and wait until next month."
};

static int construction_price [constructions] [resources] = {
	{   0,  10,  60,  30 },
	{   0, 120,  60,  10 },
	{   0,  30,  10,  60 },
	{   0,  60,  30,  10 }
};

static void separate (void) {
	print ("/0------------------------------------------------------------------------------------------/-\n");
}

static int query (char * names [], int count) {
	char input [1024] = "";
	int  index        = reply_help;

	requery: for (index = 0; index < 1024; ++index) {
		in (& input [index], 1);

		if (input [index] == '\n') {
			break;
		}
	}

	input [index] = '\0';

	for (index = 0; index < count; ++index) {
		if (string_compare (input, names [index]) == true) {
			return (index);
		}
	}

	print ("Incorrect /1reply/-, type '/4help/-' to list replies or look at message above.\n");

	goto requery;
}

static void print_help (void) {
	int index;

	for (index = 0; index < replies; ++index) {
		print ("/4%s/- /0<>/- %s\n", reply_name [index], reply_text [index]);
	}

	separate ();
}

static void print_resources (void) {
	int index;

	for (index = 0; index < resources; ++index) {
		if (resource [index] == 0) {
			print ("You don't have any /1%s/-.\n", resource_name [index]);
		} else if (resource [index] == 1) {
			print ("You have /41/- unit of /4%s/-.\n", resource_name [index]);
		} else {
			print ("You have /4%i/- units of type /4%s/-.\n", resource [index], resource_name [index]);
		}
	}

	separate ();
}

static void print_constructions (void) {
	int index;

	for (index = 0; index < constructions; ++index) {
		if (construction [index] == 0) {
			print ("You don't have any construction of type /1%s/-.\n", construction_name [index]);
		} else if (construction [index] == 1) {
			print ("You have /41/- construction of type /4%s/-.\n", construction_name [index]);
		} else {
			print ("You have /4%i/- constructions of type /4%s/-.\n", construction [index], construction_name [index]);
		}
	}

	separate ();
}

static void print_statistics (void) {
	print ("Reputation          = %i\n", reputation);
	print ("Monthly immigration = %i\n", monthly_immigration);
	print ("Monthly emigration  = %i\n", monthly_emigration);
	print ("Population          = %i\n", population);

	separate ();
}

static void build_construction (void) {
	int index;
	int reply;

	for (index = 0; index < constructions; ++index) {
		int price;

		print ("/0->/- build /4%s/- (", construction_name [index]);

		for (price = 0; price < resources; ++price) {
			if (construction_price [index] [price] > 0) {
				print ("%s ", resource_name [price]);
				print ((resource [price] < construction_price [index] [price]) ? "/1" : "/2");
				print ("%i/-", construction_price [index] [price]);
			}

			if ((price > 0) && (price < resources - 1)) {
				print (", ");
			}
		}

		print (");\n");
	}

	separate ();

	reply = query (construction_name, constructions);

	separate ();

	for (index = 0; index < resources; ++index) {
		if (resource [index] < construction_price [reply] [index]) {
			print ("You don't have enough /1%s/-, need /1%i/- more.\n", resource_name [index], construction_price [reply] [index] - resource [index]);
			print ("Your architect humbly refused to build /1%s/-.\n", construction_name [reply]);
			separate ();
			return;
		}
	}

	for (index = 0; index < resources; ++index) {
		resource [index] -= construction_price [reply] [index];
	}

	construction [reply] += 1;

	print ("Construction of /2%s/- was completed successfully.\n", construction_name [reply]);

	separate ();
}

static void compute_turn (void) {
	char * problem [] = { "rats",             "thieves",          "rotting",          "cracking"           };

	int index;

	for (index = 0; index < resources; ++index) {
		int gained = construction [index] * 20;
		int lost   = random (1, 10);

		resource [index] += gained - lost;

		print ("Your fortress gained /2%i/- units of %s, but lost /1%i/- due to %s.\n", gained, resource_name [index], lost, problem [index]);
	}

	print ("Your strategy has been submitted to the council, now you can only wait...\n");

	separate ();
}

int main (void) {
	int index;
	int reply;

	reputation          = random (0, 10);
	monthly_immigration = random (0, 10);
	monthly_emigration  = random (0, 10);
	population          = random (6, 12) * 20 + monthly_immigration - monthly_emigration;

	for (index = 0; index < resources; ++index) {
		resource [index] = random (6, 12) * 20;
	}

	for (index = 0; index < constructions; ++index) {
		construction [index] = random (1, 2);
	}

	separate ();

	print ("/0-- Xerbia is clone of /7Sumerian Game/0, made for fun in readable and formatted ANSI C./-\n");
	print ("/0-- Original game was designed by /7Mabel Addis/0 and programmed by /7William McKay/0 in 1964./-\n");
	print ("/0-- /-\n");
	print ("/0-- /4Ognjen 'xolatile' Milan Robovic/-\n");

	for (reply = reply_help; reply != reply_quit; reply = query (reply_name, replies)) {
		separate ();

		switch (reply) {
			case reply_help:   print_help ();         break;
			case reply_report: print_resources ();    break;
			case reply_status: print_statistics ();   break;
			case reply_build:  build_construction (); break;
			case reply_turn:   compute_turn ();       break;
			default:                                  break;
		}
	}

	separate ();

	print_constructions ();

	print ("/0The end!/-\n");

	separate ();

	return (log_success);
}