}

/**

 * The gameloop for AIs.

 *  Handles one tick for all the AIs.

 */

void AI_RunGameLoop(void)

{

	/* Don't do anything if ai is disabled */

	if (!_ai.enabled) return;

	/* New tick */

	_ai.tick++;

	/* Make sure the AI follows the difficulty rule.. */

	assert(_opt.diff.competitor_speed <= 4);

	if ((_ai.tick & ((1 << (4 - _opt.diff.competitor_speed)) - 1)) != 0) return;

	/* Check for AI-client (so joining a network with an AI) */

		/* Check if we want to run AIs (server or SP only) */

		const Player* p;

		FOR_ALL_PLAYERS(p) {

			if (p->is_active && p->is_ai) {

				/* This should always be true, else something went wrong... */

				assert(_ai_player[p->index].active);

				/* Run the script */

				AI_DequeueCommands(p->index);

				AI_RunTick(p->index);

			}

{

	assert(IsValidPlayer(player));

	/* Called if a new AI is booted */

	_ai_player[player].active = true;

}

/**

 * This AI player died. Give it some chance to make a final puf.

 */

void AI_PlayerDied(PlayerID player)

{

	/* Called if this AI died */

	_ai_player[player].active = false;

}

/**

 * Initialize some AI-related stuff.

 */

void AI_Initialize(void)

{

	/* First, make sure all AIs are DEAD! */

	AI_Uninitialize();

	memset(&_ai, 0, sizeof(_ai));

	memset(&_ai_player, 0, sizeof(_ai_player));

	_ai.enabled = true;

}

/**

 * Deinitializer for AI-related stuff.

 */

void AI_Uninitialize(void)

{

	const Player* p;

	FOR_ALL_PLAYERS(p) {

		if (p->is_active && p->is_ai) AI_PlayerDied(p->index);

/* The struct for an AIScript Player */

typedef struct AIPlayer {

	bool active;            ///< Is this AI active?

	AICommand *queue;       ///< The commands that he has in his queue

	AICommand *queue_tail;  ///< The tail of this queue

} AIPlayer;

/* The struct to keep some data about the AI in general */

typedef struct AIStruct {

	/* General */

	bool enabled;           ///< Is AI enabled?

	uint tick;              ///< The current tick (something like _frame_counter, only for AIs)

} AIStruct;

VARDEF AIStruct _ai;

VARDEF AIPlayer _ai_player[MAX_PLAYERS];

// ai.c

void AI_StartNewAI(PlayerID player);

void AI_PlayerDied(PlayerID player);

void AI_RunGameLoop(void);

void AI_Initialize(void);

void AI_Uninitialize(void);

int32 AI_DoCommand(TileIndex tile, uint32 p1, uint32 p2, uint32 flags, uint procc);

#include "../ai.h"

// This function is called after StartUp. It is the init of an AI

static void AiNew_State_FirstTime(Player *p)

{

	// This assert is used to protect those function from misuse

	//   You have quickly a small mistake in the state-array

	//   With that, everything would go wrong. Finding that, is almost impossible

	//   With this assert, that problem can never happen.

	assert(p->ainew.state == AI_STATE_FIRST_TIME);

	// We first have to init some things

	// The PathFinder (AyStar)

	// TODO: Maybe when an AI goes bankrupt, this is de-init

	//  or when coming from a savegame.. should be checked out!

	p->ainew.path_info.start_tile_tl = 0;

	p->ainew.path_info.start_tile_br = 0;

	p->ainew.path_info.end_tile_tl = 0;

	p->ainew.path_info.end_tile_br = 0;

	p->ainew.pathfinder = new_AyStar_AiPathFinder(12, &p->ainew.path_info);

	p->ainew.idle = 0;

	p->ainew.last_vehiclecheck_date = _date;

					// Switch the player to spectator..

					_local_player = PLAYER_SPECTATOR;

				}

#endif /* ENABLE_NETWORK */

				/* Remove the player */

				ChangeOwnershipOfPlayerItems(owner, PLAYER_SPECTATOR);

				// Register the player as not-active

				p->is_active = false;

				if (!IsHumanPlayer(owner) && (!_networking || _network_server) && _ai.enabled)

					AI_PlayerDied(owner);

			}

		}

	}

}

void DrawNewsBankrupcy(Window *w)

{

	Player *p;

	DrawNewsBorder(w);

	p = GetPlayer(WP(w,news_d).ni->string_id & 15);

	char unique_id[NETWORK_NAME_LENGTH];

	NetworkRecv_string(MY_CLIENT, p, name, sizeof(name));

	NetworkRecv_string(MY_CLIENT, p, unique_id, sizeof(unique_id));

	if (MY_CLIENT->quited)

		return NETWORK_RECV_STATUS_CONN_LOST;

	/* Do we receive a change of data? Most likely we changed playas */

	if (index == _network_own_client_index) {

		_network_playas = playas;

	}

	ci = NetworkFindClientInfoFromIndex(index);

	if (ci != NULL) {

		if (playas == ci->client_playas && strcmp(name, ci->client_name) != 0) {

			// Client name changed, display the change

			NetworkTextMessage(NETWORK_ACTION_NAME_CHANGE, 1, false, ci->client_name, "%s", name);

		} else if (playas != ci->client_playas) {

			// The player changed from client-player..

			// Do not display that for now

		}

				_local_player = 0;

				NetworkSend_Command(0, 0, 0, CMD_PLAYER_CTRL, NULL);

				_local_player = PLAYER_SPECTATOR;

			}

		} else {

			// take control over an existing company

			_local_player = _network_playas - 1;

			_patches.autorenew = GetPlayer(_local_player)->engine_renew;

			_patches.autorenew_months = GetPlayer(_local_player)->engine_renew_months;

			_patches.autorenew_money = GetPlayer(_local_player)->engine_renew_money;

			DeleteWindowById(WC_NETWORK_STATUS_WINDOW, 0);

		}

	}

	return NETWORK_RECV_STATUS_OKAY;

}

DEF_CLIENT_RECEIVE_COMMAND(PACKET_SERVER_FRAME)

{

	_frame_counter_server = NetworkRecv_uint32(MY_CLIENT, p);

	_frame_counter_max = NetworkRecv_uint32(MY_CLIENT, p);

#ifdef ENABLE_NETWORK_SYNC_EVERY_FRAME

	// Test if the server supports this option

	//  and if we are at the frame the server is

	musicdriver[0] = sounddriver[0] = videodriver[0] = 0;

	_game_mode = GM_MENU;

	_switch_mode = SM_MENU;

	_switch_mode_errorstr = INVALID_STRING_ID;

	_dedicated_forks = false;

	_config_file = NULL;

	// The last param of the following function means this:

	//   a letter means: it accepts that param (e.g.: -h)

	//   a ':' behind it means: it need a param (e.g.: -m<driver>)

	//   a '::' behind it means: it can optional have a param (e.g.: -d<debug>)

#if !defined(__MORPHOS__) && !defined(__AMIGA__) && !defined(WIN32)

		"f"

#endif

	;

	MyGetOptInit(&mgo, argc-1, argv+1, optformat);

	while ((i = MyGetOpt(&mgo)) != -1) {

		switch (i) {

		case 'm': ttd_strlcpy(musicdriver, mgo.opt, sizeof(musicdriver)); break;

		case 's': ttd_strlcpy(sounddriver, mgo.opt, sizeof(sounddriver)); break;

		case 'v': ttd_strlcpy(videodriver, mgo.opt, sizeof(videodriver)); break;

		case 'D':

			strcpy(musicdriver, "null");

			strcpy(sounddriver, "null");

			strcpy(videodriver, "dedicated");

			dedicated = true;

			break;

		case 'f': _dedicated_forks = true; break;

		case 'n':

			network = true;

			network_conn = mgo.opt; // optional IP parameter, NULL if unset

			break;

		case 'r': ParseResolution(resolution, mgo.opt); break;

		case 't': startyear = atoi(mgo.opt); break;

		case 'd': {

#if defined(WIN32)

				CreateConsole();

#endif

				if (mgo.opt != NULL) SetDebugString(mgo.opt);

			} break;

		case 'e': _switch_mode = SM_EDITOR; break;

		case 'i': _use_dos_palette = true; break;

		case 'g':

			if (mgo.opt != NULL) {

				_switch_mode = SM_NEWGAME;

			}

			break;

		case 'G': generation_seed = atoi(mgo.opt); break;

		case 'c': _config_file = strdup(mgo.opt); break;

		case -2:

		case 'h':

			showhelp();

			return 0;

		}

	}

	DeterminePaths();

	CheckExternalFiles();

#if defined(UNIX) && !defined(__MORPHOS__)

	// We must fork here, or we'll end up without some resources we need (like sockets)

	if (_dedicated_forks)

		DedicatedFork();

#endif

	LoadFromConfig();

	CheckConfig();

	LoadFromHighScore();

		if (!(flags & DC_EXEC) || !IsValidPlayer(pid)) return 0;

		p = DoStartupNewPlayer(false);

#ifdef ENABLE_NETWORK

		if (_networking && !_network_server && _local_player == PLAYER_SPECTATOR) {

			/* In case we are a client joining a server... */

			DeleteWindowById(WC_NETWORK_STATUS_WINDOW, 0);

		}

#endif /* ENABLE_NETWORK */

		if (p != NULL) {

				/* Check if we do not want to be a spectator in network */

				if (!_networking ||

						(_network_server && !_network_dedicated) ||

						_local_player = p->index;

					MarkWholeScreenDirty();

				}

			} else if (p->index == _local_player) {

				DoCommandP(0, (_patches.autorenew << 15 ) | (_patches.autorenew_months << 16) | 4, _patches.autorenew_money, NULL, CMD_SET_AUTOREPLACE);

			}

#ifdef ENABLE_NETWORK

			if (_network_server) {

				/* XXX - UGLY! p2 (pid) is mis-used to fetch the client-id, done at

				 * server-side in network_server.c:838, function

				 * DEF_SERVER_RECEIVE_COMMAND(PACKET_CLIENT_COMMAND) */

				NetworkClientInfo *ci = &_network_client_info[pid];

				ci->client_playas = p->index + 1;