int AIObject::GetCallbackVariable(int index)

{

	return GetStorage()->callback_value[index];

}

bool AIObject::DoCommand(TileIndex tile, uint32 p1, uint32 p2, uint cmd, const char *text, AISuspendCallbackProc *callback)

{

	if (AIObject::GetAllowDoCommand() == false) {

		AILog::Error("You are not allowed to execute any DoCommand (even indirect) in your constructor, Save(), and Load().\n");

		return false;

	}

	CommandCost res;

	/* Set the default callback to return a true/false result of the DoCommand */

	if (callback == NULL) callback = &AIInstance::DoCommandReturn;

	/* Make sure the last error is reset, so we don't give faulty warnings */

	SetLastError(AIError::ERR_NONE);

	/* First, do a test-run to see if we can do this */

	res = ::DoCommand(tile, p1, p2, CommandFlagsToDCFlags(GetCommandFlags(cmd)), cmd, text);

	/* The command failed, so return */

	if (::CmdFailed(res)) {

	/* Check what the callback wants us to do */

	if (GetDoCommandMode() != NULL && !GetDoCommandMode()(tile, p1, p2, cmd, res)) {

		IncreaseDoCommandCosts(res.GetCost());

		return true;

	}

#ifdef ENABLE_NETWORK

	/* Send the command */

	if (_networking) {

		/* NetworkSend_Command needs _local_company to be set correctly, so

		 * adjust it, and put it back right after the function */

		_local_company = _current_company;

		::NetworkSend_Command(tile, p1, p2, cmd, CcAI, text);

		_local_company = old_company;

		SetLastCost(res.GetCost());

		/* Suspend the AI till the command is really executed */

		throw AI_VMSuspend(-(int)GetDoCommandDelay(), callback);

	} else {

#else

	{

#endif

		/* For SinglePlayer we execute the command immediatly */