*/

CommandCost CmdScrollViewport(TileIndex tile, DoCommandFlag flags, uint32 p1, uint32 p2, const char *text)

{

	if (_current_company != OWNER_DEITY) return CMD_ERROR;

	ViewportScrollTarget target = (ViewportScrollTarget)p1;

	switch (target) {

		case VST_EVERYONE:

			break;

		case VST_COMPANY:

			if (_local_company != (CompanyID)p2) return CommandCost();

			break;

		case VST_CLIENT:

			if (_network_own_client_id != (ClientID)p2) return CommandCost();

			break;

		default:

			return CMD_ERROR;

	}

	if (flags & DC_EXEC) {

		ResetObjectToPlace();

		ScrollMainWindowToTile(tile);

	}

	return CommandCost();

}