Скрипт на коллекцию/playlist

///////////////////////////////////////////////////////////////////////////////
//                     Г Л А В Н А Я   П Р О Ц Е Д У Р А                     //
{
  THmsScriptMediaItem Folder, Item; int i; // Определяем переменные
  
  // Проверяем, выводится ли сейчас текущий элемент и этот элемент в коллекции?
  if (CurrentMediaItem!=nil) {
    Randomize();
    // Папка, в которой выводится список фильмов
    Folder = CurrentMediaItem.ItemParent; 
    // Если родительская папка папки, в которой сейчас выводятся названия файлов - это раздел "Коллекции"
    if (Folder.ItemParent.ItemID==mfVideoCollectionsItemID) {
      // Проверяем время последней обработки этой папки
      i = DateTimeToTimeStamp1970(Now, false);       // Получаем Timestamp
      if (i - StrToIntDef(Folder[100232], 0) > 5) {  // Если с последней обработки прошло более 5 сек
        Folder[100232] = IntToStr(i);                // Запоминаем Timestamp в пользовательском параметре
        // Получаем случайный файл
        i = Int(Random * (Folder.ChildCount-1));
        Item = Folder.ChildItems[i];
        // Устанавливаем случайное значение времени начала воспроизведения
        Item[mpiTimeStart] = HmsTimeFormat(Int(Random * HmsTimeConvert(Item[mpiTimeLength])));
        // Отправляем его на воспроизведение
        HmsPlayToGroup(Item, 'CollectionsAutoPlay', false); // Запуск воспроизведения очередного видео из папки
      }
    }
  }

  // Результат сформированного имени для медиа-плеера заносится в ProcessMediaResult
  ProcessMediaResult = CurrentMediaItem[mpiTitle]; // реальное имя из параметров
}