FS.LIFE (ex. FS.TO; ex. BDB.TO; ex. FS.UA)

[PavelN65]

Подкаст на ресурс FS.LIFE (ex. FS.TO; ex. BDB.TO; ex. FS.UA).

Краткая инструкция по пользованию подкастом!!
После загрузки данного подкаста он практически готов к использованию.
Для того чтобы в подкасте работали пункты с "01_В процессе" по "04_Избранное" необходимо:
1) быть зарегистрированным на сайте FS.TO (ex. BDB.TO, ex. FS.UA);
2) открыть подкаст (правая кнопка мышки - пункт "Изменить название/настройки") и в закладке "Подключение" вбить свой логин и пароль. После этого обновить подкаст - должно показать то что у вас в Избранном.

Весь подкаст можете переделать по своему вкусу.
Удаляете все ненужные пункты и добавляете то что вам нужно Например:
Создаете папку "Жанры". (ПКМ по подкасту - и пункт "Добавить папку")
Внутри папки создаете подкаст например "Ужасы" (ПКМ по созданной папке - и пункт "Добавить подкаст").
В открывшейся форме вводите заголовок: Ужасы.
На сайте FS.TO ищете то что вам нужно и копируете ссылку http://fs.to/video/films/film_genre/uzhasy/
и вставляете в поле "Ссылка" подкаста.
Жмете "Ок". И обновляете подкаст.
Аналогично со всеми фильтрами что есть на сайте.

Добавить пункт "Новые (фильмы, мультфильмы, сериалы)" можно по этой ссылке типа http://fs.to/films/?sort=new&view=list
Создаете подкаст и вставляете нужную ссылку с сортировкой по дате обновления.

Вот коротко по использованию.
Приятного просмотра!!

Данный сайт расчитан на просмотр на территории Украины.

UPDATE 08.05.2016
Исправлено обновление подкастов после изменений на сайте благодаря t.babich!!!
Поправлена ссылка в папке "Зарубежные сериалы" - там вместо fs.to было написано fa.to

UPDATE 09.07.2016
Внесены изменения в скрипт получения ссылок на ресурс. На сайте что-то изменили и теперь если зарегистрирован на сайте то стают доступны некоторые фильмы и сериалы для просмотра, а если не залогинится то пишет что файлы заблокированы, например тут попробуйте с логином и без и заметите разницу: http://fs.to/video/serials/i4u7BjvXSbTf ... aroda.html

UPDATE 02.04.2017
Ресурс после длительного перерыва начинает подниматься здесь!!!
Восстановлена работа подкаста.

[PavelN65]

Немного изменил обновление подкастов. Добавляет все ссылки на фильм с разным качеством, звуком и т.д., что есть в пункте "Скачать" на сайте и к имени файла добавляет качество.

[mch]

Немного изменил обновление подкастов. Добавляет все ссылки на фильм с разным качеством, звуком и т.д., что есть в пункте "Скачать" на сайте и к имени файла добавляет качество.

Спасибо за подкаст. Возможно ли каждое качество распихивать по разным папкам внутри одного ресурса (фильм-сериал), в пункте "Скачать" на сайте лежат разные озвучки и разное качество мои женщины теряются когда видят так много ссылок))

[PavelN65]

Теперь качество распихивает по разным папкам внутри одного ресурса (фильм-сериал).
Для транскодирования использую профиль "Фильмы - Molodejj.tv (HMSMPEG)", брал тут

[mch]

PavelN65, дико извиняюсь, но реально ли сделать сортировку сперва по озвучке, а затем уж по качеству. Стало намного удобней, но все же зайдя в папку HD КАЧЕСТВО (720) первых серий и т.д. от 3 до 5 штук... Возможно ли сделать сортировку как у них на сайте с пункта "скачать": 01 сезон - Проф. (NewStudio) HD 1080, Проф. (LostFilm) HD 720 и т.д.?

[PavelN65]

Mch, спасибо за подсказку. Я как-то этого момента не учел, что переводы разные, а качество одинаковое и оно в одну папку сваливало. Переделал.

[mch]

Большое спасибо!

[PavelN65]

Большое спасибо!

Если примерно так как нужно то пожалуйста!!!
После твоей подсказки, самому понравилось.

[serj190]

в скрипте чтения интернет ресурсов надо поменять процедуру FileList (изменения выделено жирным)
//---------------- Íà÷àëî ïðîöåäóðû Filelist -----------------------------------
// Åñëè ìåäèà - ýòî ñåðèàë òî ïðîöåäóðà âûáèðàåò ññûëêè íà ñåçîíû

procedure Filelist(const aItemDescr: string);
var
Qval_Films: TRegExpr;
id,a,playlist: String;
dop_str,F_q,F_i,F_s,F_e: Integer;
Film_qualiti: array[1..20] of String;

begin
a := aItemDescr;F_q := 0;
if sss then
begin
HmsRegExMatch(' rel="{parent_id: (.*?)}"', aItemDescr, id);
if (id = '') then id:='0';
id := total_id + '?ajax&folder=' + id;
a := ''; a := HmsDownloadURL(id); a := HmsUtf8Decode(a); a := HmsRemoveLineBreaks(a);
end;
id := '';
Qval_Films := TRegExpr.Create('class="link-subtype(.*?)class="material-date',PCRE_SINGLELINE);
try
if Qval_Films.Search(a) then
repeat //èñêàòü îáúåêò è ïîâòîðÿòü
inc(F_q);
Film_qualiti[F_q]:= Qval_Films.Match;
until not Qval_Films.SearchAgain; //
finally
Qval_Films.Free //îñâîáîäèòü îáúåêò
end;
for F_i := 1 to F_q do begin
playlist := '';Dop_Name := '';Dop_Trans:='';
HmsRegExMatch('">(.*?)</a>', Film_qualiti[F_i], Dop_Trans);
HmsRegExMatch('span class="material-size">(.*?)</span>', Film_qualiti[F_i], Dop_Name);
Dop_Name := Edit_Str(Dop_Name); Dop_Trans:= Edit_Str(Dop_Trans);
F_s := pos('(',Dop_Name);F_e := pos(')',Dop_Name);F_e := (F_e-F_s)+2;
Dop_Name := Copy(Dop_Name,F_s-1,F_e); Dop_Name := Format('%.2d', [F_i])+'_'+Dop_Trans+Dop_Name;
dop_str := pos('>Ñïèñîê ôàéëîâ<', Film_qualiti[F_i]);
if dop_str >0 then playlist := Copy(Film_qualiti[F_i],dop_str-75,70)
else exit;
HmsRegExMatch('href="(.*?)"', playlist, id);
id := total_id + id;
Films_Link(id);
id := '';
end;
end;
//---------------- Êîíåö ïðîöåäóðû Filelist -------------------------------

[PavelN65]

Обновил подкаст, небыло возможности обновлять сериалы. На сайте сменили немного структуру.
Спасибо Serj190 за подсказку.

UPDATE 21.01.2013