void next_turn(World *world, Bum *bum) {
if (world->A != NULL && world->B != NULL) {
buy_food(bum);
scavenge(bum);
if (rand() % 100 > 70) {
bum->health -= (rand() % 8) + 25;
}
buy_booze(bum);
heal_wounds(bum);
cure_addiction(bum);
bum->hunger += rand() % 10 + 10;
if (bum->hunger > 100 || bum->health < 0 || bum->addiction > 100) {
bury_bum(world, bum, bum->id);
}
if (bum->next != NULL) {
next_turn(world, bum->next);
}
}
}
/* Trade with a transport.
* Port is at x/y, transport at u/v. */
static void
trade_connection( const int x, const int y, const int u, const int v, int* ic_ptr, int* et_ptr )
{
if (u >= 0 && v>=0 && (MP_INFO( u, v).flags
& FLAG_IS_TRANSPORT) != 0)
{
//printf("Port %i/%i trading with transport %i/%i\n", x,y,u,v);
int i, flags;
int ic = 0;
int et = 0;
flags = MP_INFO(x,y).flags;
if ((flags & FLAG_MB_FOOD) != 0)
{
i = buy_food ( u, v);
ic += i;
MP_INFO(x + 1,y).int_3 += i;
}
if ((flags & FLAG_MS_FOOD) != 0)
{
i = sell_food ( u, v);
et += i;
MP_INFO(x + 2,y).int_3 += i;
}
if ((flags & FLAG_MB_COAL) != 0)
{
i = buy_coal ( u, v);
ic += i;
MP_INFO(x + 1,y).int_4 += i;
}
if ((flags & FLAG_MS_COAL) != 0)
{
i = sell_coal ( u, v);
et += i;
MP_INFO(x + 2,y).int_4 += i;
}
if ((flags & FLAG_MB_ORE) != 0)
{
i = buy_ore ( u, v);
ic += i;
MP_INFO(x + 1,y).int_5 += i;
}
if ((flags & FLAG_MS_ORE) != 0)
{
i = sell_ore ( u, v);
et += i;
MP_INFO(x + 2,y).int_5 += i;
}
if ((flags & FLAG_MB_GOODS) != 0)
{
i = buy_goods ( u, v);
ic += i;
MP_INFO(x + 1,y).int_6 += i;
}
if ((flags & FLAG_MS_GOODS) != 0)
{
i = sell_goods ( u, v);
et += i;
MP_INFO(x + 2,y).int_6 += i;
}
if ((flags & FLAG_MB_STEEL) != 0)
{
i = buy_steel ( u, v);
ic += i;
MP_INFO(x + 1,y).int_7 += i;
}
if ((flags & FLAG_MS_STEEL) != 0)
{
i = sell_steel ( u, v);
et += i;
MP_INFO(x + 2,y).int_7 += i;
}
*ic_ptr += ic;
*et_ptr += et;
}
}
void
do_port (int x, int y)
{
/*
// int_1 is the money made so far this month
// int_2 is the money made last month
// int_3 holds the 'pence/pennies/bits' to add next time round.
// int_4 is the import costs so far this month
// int_5 is the import costs for last month
// Use int_3 to int_7 of (x+1,y) to hold the individual buy values
// (x,y+1) is last month's
// Use int_3 to int_7 of (x+2,y) to hold the individual sell values
// (x,y+2) is last month's
*/
int i, et = 0, ic = 0, flags, *b1, *b2, *s1, *s2;
/* left connection first */
flags = MP_INFO(x,y).flags;
if (x > 0 && (MP_INFO(x - 1,y).flags
& FLAG_IS_TRANSPORT) != 0)
{
if ((flags & FLAG_MB_FOOD) != 0)
{
i = buy_food (x - 1, y);
ic += i;
MP_INFO(x + 1,y).int_3 += i;
}
if ((flags & FLAG_MS_FOOD) != 0)
{
i = sell_food (x - 1, y);
et += i;
MP_INFO(x + 2,y).int_3 += i;
}
if ((flags & FLAG_MB_COAL) != 0)
{
i = buy_coal (x - 1, y);
ic += i;
MP_INFO(x + 1,y).int_4 += i;
}
if ((flags & FLAG_MS_COAL) != 0)
{
i = sell_coal (x - 1, y);
et += i;
MP_INFO(x + 2,y).int_4 += i;
}
if ((flags & FLAG_MB_ORE) != 0)
{
i = buy_ore (x - 1, y);
ic += i;
MP_INFO(x + 1,y).int_5 += i;
}
if ((flags & FLAG_MS_ORE) != 0)
{
i = sell_ore (x - 1, y);
et += i;
MP_INFO(x + 2,y).int_5 += i;
}
if ((flags & FLAG_MB_GOODS) != 0)
{
i = buy_goods (x - 1, y);
ic += i;
MP_INFO(x + 1,y).int_6 += i;
}
if ((flags & FLAG_MS_GOODS) != 0)
{
i = sell_goods (x - 1, y);
et += i;
MP_INFO(x + 2,y).int_6 += i;
}
if ((flags & FLAG_MB_STEEL) != 0)
{
i = buy_steel (x - 1, y);
ic += i;
MP_INFO(x + 1,y).int_7 += i;
}
if ((flags & FLAG_MS_STEEL) != 0)
{
i = sell_steel (x - 1, y);
et += i;
MP_INFO(x + 2,y).int_7 += i;
}
}
/* upper gate next */
if (y > 0 && (MP_INFO(x,y - 1).flags
& FLAG_IS_TRANSPORT) != 0)
{
if ((flags & FLAG_MB_FOOD) != 0)
{
i = buy_food (x, y - 1);
ic += i;
MP_INFO(x + 1,y).int_3 += i;
}
if ((flags & FLAG_MS_FOOD) != 0)
{
i = sell_food (x, y - 1);
et += i;
MP_INFO(x + 2,y).int_3 += i;
}
if ((flags & FLAG_MB_COAL) != 0)
{
i = buy_coal (x, y - 1);
ic += i;
MP_INFO(x + 1,y).int_4 += i;
}
if ((flags & FLAG_MS_COAL) != 0)
{
i = sell_coal (x, y - 1);
et += i;
MP_INFO(x + 2,y).int_4 += i;
}
if ((flags & FLAG_MB_ORE) != 0)
{
i = buy_ore (x, y - 1);
ic += i;
MP_INFO(x + 1,y).int_5 += i;
}
if ((flags & FLAG_MS_ORE) != 0)
{
i = sell_ore (x, y - 1);
et += i;
MP_INFO(x + 2,y).int_5 += i;
}
if ((flags & FLAG_MB_GOODS) != 0)
{
i = buy_goods (x, y - 1);
ic += i;
MP_INFO(x + 1,y).int_6 += i;
}
if ((flags & FLAG_MS_GOODS) != 0)
{
i = sell_goods (x, y - 1);
et += i;
MP_INFO(x + 2,y).int_6 += i;
}
if ((flags & FLAG_MB_STEEL) != 0)
{
i = buy_steel (x, y - 1);
ic += i;
MP_INFO(x + 1,y).int_7 += i;
}
if ((flags & FLAG_MS_STEEL) != 0)
{
i = sell_steel (x, y - 1);
et += i;
MP_INFO(x + 2,y).int_7 += i;
}
}
MP_INFO(x,y).int_1 += et;
MP_INFO(x,y).int_4 += ic;
if (total_time % 100 == 0)
{
MP_INFO(x,y).int_2 = MP_INFO(x,y).int_1;
MP_INFO(x,y).int_1 = 0;
MP_INFO(x,y).int_5 = MP_INFO(x,y).int_4;
MP_INFO(x,y).int_4 = 0;
b1 = &(MP_INFO(x + 1,y).int_3);
s1 = &(MP_INFO(x + 2,y).int_3);
b2 = &(MP_INFO(x,y + 1).int_3);
s2 = &(MP_INFO(x,y + 2).int_3);
/* GCS FIX -- This obfuscation is unnecessary. */
for (i = 0; i < 5; i++)
{
*(b2++) = *b1;
*(s2++) = *s1;
*(b1++) = 0;
*(s1++) = 0;
}
}
if (et > 0)
{
sust_port_flag = 0;
tech_level++;
}
if (ic > 0)
{
sust_port_flag = 0;
tech_level++;
}
et += MP_INFO(x,y).int_3; /* int_3 holds the 'pence' */
export_tax += et / 100;
MP_INFO(x,y).int_3 = et % 100;
import_cost += ic;
}
