antp.be forum

Posted: **2014-02-11 16:48:51**

u mnie też padł

Posted: **2014-02-13 10:18:13**

wysyłałem nowy skrypt

Posted: **2014-02-13 13:11:31**

Dziwne, teraz działa poprzedni skrypt, Filmweb (PL) (alpha 18). Jest to starszy skrypt, dlatego trzeba wprowadzić parę zmian. Chodzi o scenariusz, muzykę i plakat;. Należy wpisać poprawki, które podał almas (dotyczy wersji programu 4.2).

Code: Select all

// Scenariusz (2013-05-10 by MaAd)
Value := GetMaterials(Page, 'role-screenwriter');
if (Length(Value) > 0) then
SetField(fieldWriter, Trim(Value));

// Muzyka (2013-05-10 by MaAd)
Value := GetMaterials(Page, 'role-music');
if (Length(Value) > 0) then
SetField(fieldComposer, Trim(Value));

oraz dotyczącą plakatu, podaną przeze mnie;

Code: Select all

  // Plakat
  Line := TextBetween(Page.Text, '<div class=posterLightbox>', '</div>');
   case GetOption('Plakat') of
      1:   begin
         Szukane := TextBetween(Line, 'href="', '"');
      //   Szukane := TextBefore(Szukane, '?', '');
        GetPicture(Szukane);
            end;
      2:   begin
           Szukane := TextBetween(Line, 'src="', '"');
      //   Szukane := TextBefore(Szukane, '?', '');
        GetPicture(Szukane);
            end;
   end;

i wszystko będzie ok. Pozdrawiam

Posted: **2014-02-14 17:51:00**

wojteos, dzięki za update

Mam pytanko, jak zrobić czy co poprawić w skrypcie żeby:

UkladAktorow=Układ typu '<Aktor> (jako <grana postać>)' każdy w osobnej linii

a nie jak jest teraz, po przecinkach w linii ciągłej?

Dzięki i pozdrawiam

Posted: **2014-02-15 05:00:18**

F6 + zaznaczony skrypt filmweb.pl + po prawej Parametry skryptu wybrać UkladAktorow + w okienku Wartość dla opcji wybrać opcję 1 + OK
uruchomić skrypt

Posted: **2014-02-15 09:37:26**

Hej,

nie wiecie może czy jest w ogóle taka możliwość by skryptem, niekoniecznie z AMC, ściągnąć wszystkie oceny filmów danego usera z Filmweb? Chciałbym zrobić kopię/backup swojego profilu (nie wiem, na wypadek jakby Filmweb poszedł do piachu). Byłoby to możliwe?

Posted: **2014-02-15 12:35:48**

Marbug czytałem Twojego priva; da się zrobić, ale za kilka dni;
uściślijmy dla linku http://www.filmweb.pl/user/xxxxxxxxx/films
1. który panel: Ocenione, Chcę zobaczyć, Nie interesuje mnie czy do wyboru?
2. import do AMC tylko to co jest na panelu: tytuł polski + tytuł oryginalny + kraj + gatunek + ocena

Posted: **2014-02-15 12:48:36**

wojteos - nie ma sprawy, nie śpieszy mi się, tylko chciałem wiedzieć czy to jest wykonalne.

Mi zależy na panelu "Ocenione".

Filmów mam prawie 2700 (widok: 20/str = 135 podstron) dlatego ręczne spisywanie tego odpada - aż tak mi się nie nudzi w wolnych chwilach.

Jeszcze lepiej właśnie żeby to poszło do AMC, dodałem ostatnio kilka template'ów (mam nadzieję, że już zostały dodane do AMC) - to się przy okazji zrobi fajna lista.

Dzięki!

Posted: **2014-02-15 16:36:13**

Witam Was!

Wprowadzilem zmiany podane wyzej ale skrypt nadal mi nie dziala. Wywala w trakcie pobierania rozne bledy.

Czy moze ktos z Was wprowadzic zmiany i wrzucic caly skrypt do pobrania?

Posted: **2014-02-17 09:52:23**

Przyłączam się do prośby

Posted: **2014-02-18 19:03:10**

wojteos wrote:wysyłałem nowy skrypt

Ten skrypt ze stycznia nie działa na mojej wersji programu (4.2). Działa tylko ten starszy, po odpowiednich przeróbkach. Nie wiem jak wrzucić tu na stronę plik tekstowy ze starym skryptem (alfa 18), ten na pewno działa poprawnie, używam go bez problemów.

Posted: **2014-03-08 19:41:46**

Tak tylko chciałem przypomnieć o skrypcie do ściągania ocen z profilu - da się go wykonać?

Posted: **2014-03-13 19:00:17**

Skrypt jest gotowy, chciaż nie działa tak jak bym oczekiwał. Nie jest możliwe z poziomu skryptu AMC pobranie danych z jednoczesnym wysłaniem loginu użytkownika i hasła (cookie, ssl itp.); ludzie z filmwebu nie raczyli odpowiedzieć jak to zrobić [tajne/poufne].

Przygotowany skrypt wymaga nasrępujących kroków:

1. Logujemy się do filmwebu + Twoje filmy + ocenione i ustawiamy Filmów na stronie 100; w twoim przypadku to będzie chyba 37;
2. Zapisujemy po koleji wszystkie strony (w Firefoxie Ctrl+S ; Zapisz jako typ: strona WWW, kompletna), numerując je kolejno (np. 1-szy plik: wojteos - filmy - Filmweb [1]1.htm, 2-gi plik: wojteos - filmy - Filmweb [1]2.htm, itd; albo po prostu e1.htm, e2.htm itd; u ciebie ostatni plik nnnnnnn37.htm);
3. Startujemy AMC, dodajemy 1 pusty film i uruchamiamy skrypt fillmwebUser.ifs (F6 + Edytor + Ctrl+O i wgrywamy fillmwebUser.ifs + F9);
podajemy nazwę 1-szego pliku z pkt.2 z pełną ścieżką, np. c:\testAMC\wojteos - filmy - Filmweb [1]1.htm , dlatego dla wygody dobrze jest utworzyć na dysku C katalog testAMC i tam zapisać pliki;
4. Wyrzucamy pierwszy film; zaznaczamy kilka filmów (bezpieczniej niż wszystkie na raz), F6, zaznaczmy skrypt filmweb.pl i :
a) po prawej stronie na dole Pola do modyfikacji odfajczamy Ocena (chcemy zachować swoją)
b) w opcjach skryptu powyłączać ewentualnie potzrebę decyzji np. Opis filmu ustawić na 1 = Pobtać pierwszy;
c) po prawej stronie na górze Opcej wykonania odfajczamy Pokaż okno reultatów (nie będzie okna z zapisz)

i Klikamy i czekamy 3700 razy lub coś koło tego.

Jeśli niestraszna ci taka mordęga (dałoby się usunąć potwiedzanie kolejnych tytułów filmów, przecież pole Strona WWW mamy wypełnione) do dzieła.

treść skryptu

Code: Select all

(*********************************************************
 *                                                       *
 *  VERSION HISTORY                                      *
 *                                                       *
 *  2.0.0.3  (13.03.2014) by wojteos                     *
 *  - edycja pierwsza                                    *
 *                                                       *
 *********************************************************)

program filmwebUser;

uses
	StringUtils7552;
type
  TFilmUzytkownika = record
    Tytul, Rok, AdresHTM, Ocena: String;
  end;

var
	MovieName, MAddress : String;
	StrSep : String;
	FilmyUzytkownika : TStringList;

	// nowe zmienne
	PlikUzytkownika : String;

function Czysc(napis: String): String;
begin
  Result := StringReplace(napis, #9, '');
  Result := StringReplace(Result, #10, '');
  Result := StringReplace(Result, #13, '');
end;

procedure AnalizujFilmyUzytkownika (Nazwa1PlikuUzytkownika : String);
// przy załóżeniu że mamy pełny dostęp ustalenie limitu na stronie oraz ilości stron
// ilość filmów na ostatniej ????????????
var
  Strona : TStringList;
  NazwaPlik1, NazwaPlik2, strExtPlik, strNrPlik : String;
  NrPlik, m : Integer;
begin  // =================================== procedure AnalizujFilmyUzytkownika
  Strona := TStringList.Create;          // utworzenie kolekcji
  strExtPlik :=  ExtractFileExt(Nazwa1PlikuUzytkownika);
	NazwaPlik1 := Copy(Nazwa1PlikuUzytkownika, 1, Pos(strExtPlik, Nazwa1PlikuUzytkownika)-1);
  //  pobranie numeru pierwszego pliku
  m := Length(NazwaPlik1);
  while  (StrGet(NazwaPlik1, m) >= '0') and (StrGet(NazwaPlik1, m) <= '9') do
   begin
     strNrPlik := StrGet(NazwaPlik1, m) + strNrPlik;
     m := m-1;
   end;  // while  (StrGet(NazwaPlik1, m) >= '0') and (StrGet(NazwaPlik1, m) <= '9')
  NrPlik := StrToInt(strNrPlik, 0);
  NazwaPlik1 := Copy(NazwaPlik1, 1, Pos(strNrPlik, NazwaPlik1)-1);
  NazwaPlik2 := NazwaPlik1 + IntToStr(NrPlik) + strExtPlik;

  while FileExists(NazwaPlik2) do
  begin
    Strona.LoadFromFile(NazwaPlik2);
    PobierzDaneFilmow(Strona.Text);
    NrPlik := NrPlik + 1;
    NazwaPlik2 := NazwaPlik1 + IntToStr(NrPlik) + strExtPlik;
  end;
  Strona.Free;
end;   // =================================== procedure AnalizujFilmyUzytkownika


procedure PobierzDaneFilmow(StronaHTM : String);
var
  Strona : TStringList;
  Linia : String;
  NrLinia : Integer;
  FilmId, FilmTytul, FilmAdres, FilmRok : String;
  FilmUzytkownika : TFilmUzytkownika;
begin // ========================================= procedure PobierzDaneFilmow
  Strona := TStringList.Create;
  Strona.Text := UTF8Decode(StronaHTM);
  //Jeden film w jednej linii
  Strona.Text := StringReplace(Strona.Text, '<div class="voteFilmTitle', #13#10 + '<div class="voteFilmTitle');
  linia:=Strona.Text;
  NrLinia := FindLine('<div class=' + StrSep + 'voteFilmTitle' + StrSep + '><a href=' + StrSep + 'http://www.filmweb.pl', Strona, 0);
  while NrLinia > -1 do
  begin        //Pobieranie tytułu i URL
    Linia := Czysc(Strona.GetString(NrLinia));

    FilmId := TextBetween(Linia, 'entityName=film&id=', StrSep+' target='+StrSep+'_blank');
    if (Pos('<br>', Linia) > 0)
    then
      FilmTytul := TextBetween(Linia, 'target='+StrSep+'_blank'+StrSep+' title='+StrSep, '<br>')
    else
      FilmTytul := TextBetween(Linia, 'target='+StrSep+'_blank'+StrSep+' title='+StrSep, ' <div class='+StrSep+'countryLabel'+StrSep+'>');

    FilmRok := TextBetween(FilmTytul, '(',')');                                 //Pobierania roku produkcji
    FilmTytul := TextBetween(FilmTytul, '>','</a>');
    FilmAdres := 'http://www.filmweb.pl/film/' + FilmTytul + '-' + FilmRok + '-' + FilmId;

    FilmUzytkownika.Tytul := FilmTytul;
    FilmUzytkownika.Rok := FilmRok;
    FilmUzytkownika.AdresHTM := FilmAdres;
    FilmUzytkownika.Ocena := TextBetween(Linia, '<div class='+StrSep+'rateText'+StrSep+'><span style='+StrSep+'font-color:#8D000;font-weight:bold'+StrSep+'>', '</span>/10</div>');
    FilmTytul := FilmTytul + ' (' + FilmRok + ')';
    { Dodanie do drzewka }
    if (FindLine(FilmAdres, FilmyUzytkownika, 0) < 0) then
    begin
      PickTreeAdd(FilmTytul, FilmAdres);
      FilmyUzytkownika.Add(FilmUzytkownika.Tytul+'|'+FilmUzytkownika.Rok+'|'+FilmUzytkownika.AdresHTM+'|'+FilmUzytkownika.Ocena);
      AddNewMovieToQueue;
    end;
    NrLinia := FindLine('<div class=' + StrSep + 'voteFilmTitle' + StrSep + '><a href=' + StrSep + 'http://www.filmweb.pl', Strona, NrLinia + 1);
  end;  // while NrLinia > -1
  Strona.Free;
end;  // ========================================= procedure PobierzDaneFilmow

function GetStringDelim(Delimiter: char; var s: string): string;
var tym_str: string; poz_sp: integer;
begin {======= function GetString =======}
  poz_sp:=Pos(Delimiter,s);
  if poz_sp=0 then begin
    tym_str:=s;    s:='';  GetStringDelim:=tym_str
  end
  else begin
    tym_str:=Copy(s,1,poz_sp-1);
    Delete(s,1,poz_sp);
    s:=Trim(s);
    GetStringDelim:=tym_str
  end
end; {======= function GetString =======}

var
  iloscNowychFilmow, nowyFilmStart, i : Integer;
  strT : string;
begin
	if CheckVersion(4,1,0) then	begin
	  i:=GetIteration;
    if GetIteration = 0 then begin  // iteracja pierwsza
      FilmyUzytkownika := TStringList.Create;
      PickTreeClear;
      case GetOption('StringSep') of
        0: StrSep := '';
        1: StrSep := '"';
      end;
      StrSep := '"';
      PlikUzytkownika := 'y:\testamc\test1.htm';
	  	if Input('Import filmów ocenianych na filmweb.pl', 'Podaj nazwę 1-ego pliku użytkownika: ', PlikUzytkownika) then
        AnalizujFilmyUzytkownika(PlikUzytkownika);
        
      iloscNowychFilmow := FilmyUzytkownika.Count;
    end else begin//if GetIteration = 0
      i:=GetIteration;
      strT:=FilmyUzytkownika.GetString(i-1);

      SetField(fieldTranslatedTitle, GetStringDelim('|', strT));
      SetField(fieldYear, GetStringDelim('|', strT));
      SetField(fieldURL, GetStringDelim('|', strT));
    	SetField(fieldRating, Trim(strT));
    end;
	end else
		ShowMessage('Skrypt wymaga programu Ant Movie Catalog w wersji 4.1.0.0 lub nowszej');
end.

Posted: **2014-03-13 19:05:33**

Wow!

Gdzie Ci piwo posłać? :-)

Dziś chyba tego nie zdążę wypróbować, chociaż spróbuję jeszcze wygospodarować chwilę, ale należy się browar za kawał roboty! Mam nadzieję, że to się nie tylko mnie przyda - program/skrypt się przyjmie i może zyskasz zasłużoną chwałę!

nawiasem - w międzyczasie próbowałem coś na własną rękę i znalazłem programy typu scraper/harvester - ale też nie miałem jeszcze czasu usiąść do nich i ich odpowiednio skonfigurować.

Jak tylko uda mi się to wykonać to dam znać. Dzięki raz jeszcze.

---

Z ciekawości nie wytrzymałem i sprawdziłem od razu.

Coś nie za bardzo mi zatrybiło.

Do momentu odpalenia skryptu wszystko ok. Odpalam - ukazuje mi się okno "wyniki skryptu filmwebUser.ifs dla filmu 1 - gdzie wybierać możemy numer, etykietę, tytuł, itp. Wszystko jest wyszarzone, brak treści - nie ma żadnych danych prócz: Numer: 1, Zaznaczone: True, Data dodania: dzisiejsza, kolor oznaczenia: 0.

Może nie kontaktuje po długim dniu, ale nie wiem czy coś źle robię?

Co bym nie kliknął to wraca mi do AMC/listy (z jednym pustym filmem).

Ścieżkę dobrze podaje (np. C:\filmweb\a01.htm). Na razie jedną stronę ze 100 filmami pobrałem - tak dla spróbowania.
Strona pobrana prawidłowo.
Skrypt skopiowałem z postu i wkleiłem do pliku, nazwałem prawidłowo, nie wiem co jeszcze...

Posted: **2014-03-13 20:26:50**

pierwszy plik w nazwie bez zera; czyli a1.htm; sprawdziłem, że z zerem nie działa; nie bardzo mam czas poprawiać

Posted: **2014-03-14 07:01:38**

zmiany:
1. zapisujemy w katalogu skryptów AMC; wywołujemy przez Shift+F6
2. baza może być pusta
3. podajemy tylko katalog np. d:\testamc\ (backslash na końcu)

Code: Select all

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=wojteos
Title=fillmweb_User.ifs
Description=filmy z filmweb oceniane przez użytkownika zapisane lokalnie
Site=
Language=PL
Version=2.0.0.5
Requires=4.1.2
Comments=baza AMC może być pusta, nie tworzy duplikatów
License=
GetInfo=0
RequiresMovies=0

[Options]

[Parameters]

***************************************************)

(*********************************************************
 *                                                       *
 *  VERSION HISTORY                                      *
 *                                                       *
 *  2.0.0.4  (14.03.2014) by wojteos                     *
 *  - edycja pierwsza                                    *
 *                                                       *
 *********************************************************)

program filmwebUser;

uses
   StringUtils7552;
type
  TFilmUzytkownika = record
    Tytul, Rok, AdresHTM, Ocena: String;
  end;

var
   MovieName, MAddress : String;
   StrSep : String;
   FilmyUzytkownika : TStringList;

   // nowe zmienne
   PlikUzytkownika : String;

function Czysc(napis: String): String;
begin
  Result := StringReplace(napis, #9, '');
  Result := StringReplace(Result, #10, '');
  Result := StringReplace(Result, #13, '');
end;

procedure AnalizujFilmyUzytkownika (NazwaKataloguUzytkownika : String);
// przegląda katalog użytkownika i analizuje zapisane strony filmweb w plikach htm
var
  Katalog, Strona : TStringList;
  NazwaPliku : String;
  NrPlik, m : Integer;
  strKatalog: string;
begin  // =================================== procedure AnalizujFilmyUzytkownika
  if not DirectoryExists(NazwaKataloguUzytkownika) then begin
    ShowMessage('Brak katalogu!');
    Exit;
  end // brak taalogu
  else begin
    Katalog := TStringList.Create;          // utworzenie kolekcji katalogu
    Katalog.Text := ListDirectory(NazwaKataloguUzytkownika,'*.htm');
    m := Katalog.Count;
    if Katalog.Count=0 then begin
      ShowMessage('Katalog: '+NazwaKataloguUzytkownika+' nie zawiera plików htm!');
      Exit;
    end // katalog nie zawiera htm
    else begin
      Strona := TStringList.Create;          // utworzenie kolekcji strony htm
      for m:=0 to Katalog.Count-1 do begin
        NazwaPliku := Copy(Katalog.GetString(m), 1, Pos(#9, Katalog.GetString(m))-1) ;
        Strona.LoadFromFile(NazwaPliku);
        PobierzDaneFilmow(Strona.Text);
      end;
      Strona.Free;
      Katalog.Free;
    end; // są w katalogu  htm
  end;  // jest katalog
end;   // =================================== procedure AnalizujFilmyUzytkownika


procedure PobierzDaneFilmow(StronaHTM : String);
var
  Strona : TStringList;
  Linia : String;
  NrLinia : Integer;
  FilmId, FilmTytul, FilmAdres, FilmRok : String;
  FilmUzytkownika : TFilmUzytkownika;
begin // ========================================= procedure PobierzDaneFilmow
  Strona := TStringList.Create;
  Strona.Text := UTF8Decode(StronaHTM);
  //Jeden film w jednej linii
  Strona.Text := StringReplace(Strona.Text, '<div class="voteFilmTitle', #13#10 + '<div class="voteFilmTitle');
  linia:=Strona.Text;
  NrLinia := FindLine('<div class=' + StrSep + 'voteFilmTitle' + StrSep + '><a href=' + StrSep + 'http://www.filmweb.pl', Strona, 0);
  while NrLinia > -1 do
  begin        //Pobieranie tytułu i URL
    Linia := Czysc(Strona.GetString(NrLinia));

    FilmId := TextBetween(Linia, 'entityName=film&id=', StrSep+' target='+StrSep+'_blank');
    if (Pos('<br>', Linia) > 0)
    then
      FilmTytul := TextBetween(Linia, 'target='+StrSep+'_blank'+StrSep+' title='+StrSep, '<br>')
    else
      FilmTytul := TextBetween(Linia, 'target='+StrSep+'_blank'+StrSep+' title='+StrSep, ' <div class='+StrSep+'countryLabel'+StrSep+'>');

    FilmRok := TextBetween(FilmTytul, '(',')');                                 //Pobierania roku produkcji
    FilmTytul := TextBetween(FilmTytul, '>','</a>');
    FilmAdres := 'http://www.filmweb.pl/film/' + FilmTytul + '-' + FilmRok + '-' + FilmId;

    FilmUzytkownika.Tytul := FilmTytul;
    FilmUzytkownika.Rok := FilmRok;
    FilmUzytkownika.AdresHTM := FilmAdres;
    FilmUzytkownika.Ocena := TextBetween(Linia, '<div class='+StrSep+'rateText'+StrSep+'><span style='+StrSep+'font-color:#8D000;font-weight:bold'+StrSep+'>', '</span>/10</div>');
    FilmTytul := FilmTytul + ' (' + FilmRok + ')';
    { Dodanie do drzewka }
    if (FindLine(FilmAdres, FilmyUzytkownika, 0) < 0) then
    begin
      PickTreeAdd(FilmTytul, FilmAdres);
      FilmyUzytkownika.Add(FilmUzytkownika.Tytul+'|'+FilmUzytkownika.Rok+'|'+FilmUzytkownika.AdresHTM+'|'+FilmUzytkownika.Ocena);
      AddNewMovieToQueue;
    end;
    NrLinia := FindLine('<div class=' + StrSep + 'voteFilmTitle' + StrSep + '><a href=' + StrSep + 'http://www.filmweb.pl', Strona, NrLinia + 1);
  end;  // while NrLinia > -1
  Strona.Free;
end;  // ========================================= procedure PobierzDaneFilmow

function GetStringDelim(Delimiter: char; var s: string): string;
var tym_str: string; poz_sp: integer;
begin {======= function GetString =======}
  poz_sp:=Pos(Delimiter,s);
  if poz_sp=0 then begin
    tym_str:=s;    s:='';  GetStringDelim:=tym_str
  end
  else begin
    tym_str:=Copy(s,1,poz_sp-1);
    Delete(s,1,poz_sp);
    s:=Trim(s);
    GetStringDelim:=tym_str
  end
end; {======= function GetString =======}

var
  iloscNowychFilmow, nowyFilmStart, i : Integer;
  strT : string;
begin
   if CheckVersion(4,1,0) then   begin
     i:=GetIteration;
    if GetIteration = 0 then begin  // iteracja pierwsza
      FilmyUzytkownika := TStringList.Create;
      PickTreeClear;
      case GetOption('StringSep') of
        0: StrSep := '';
        1: StrSep := '"';
      end;
      StrSep := '"';
      PlikUzytkownika := 'D:\testamc\';
        if Input('Import filmów ocenianych na filmweb.pl', 'Podaj nazwę katalogu z zapisanymi plikami stron: ', PlikUzytkownika) then
        AnalizujFilmyUzytkownika(PlikUzytkownika);
       
      iloscNowychFilmow := FilmyUzytkownika.Count;
    end else begin//if GetIteration = 0
      i:=GetIteration;
      strT:=FilmyUzytkownika.GetString(i-1);

      SetField(fieldTranslatedTitle, GetStringDelim('|', strT));
      SetField(fieldYear, GetStringDelim('|', strT));
      SetField(fieldURL, GetStringDelim('|', strT));
      SetField(fieldRating, Trim(strT));
    end;
   end else
      ShowMessage('Skrypt wymaga programu Ant Movie Catalog w wersji 4.1.0.0 lub nowszej');
end.

Posted: **2014-03-16 14:04:21**

Wszystko super, tylko i tak żeby to zadziałało musiałem skopiować wszystkie 27 stron - oprócz C:\filmweb\ - także do C:\ścieżka-do-AMC\catalogs bo inaczej wywalał się błąd.

Teraz mam pytanie - czy da się zrobić by skrypt FilmWeb nie pytał o tytuł każdego filmu. Szczególnie przy tej operacji wydaje się to bez sensu, skoro to są tytuły z FW.

Puściłbym z IMDb, bo tam jest batch mode, ale znowu tytułu mam tylko po PL...

Posted: **2014-03-31 09:59:49**

Wszystko działa, dzięki!

Posted: **2014-06-07 15:35:45**

Witam,. Czy powyższy sposób jest obecnie jedynym żeby automatycznie uzupełniać dane filmów z Filmweb czy istnieje jakiś działający skrypt?

Posted: **2014-08-21 14:07:55**

Poprawiona i dzialajaca (!chyba!) wersja skryptu.

https://galnospoke.opendrive.com/files?89843997_VjOIZ

PS
Jesli ktos zauwazy tam swoj kawalek kodu, prosze o kontakt - dopisze go do "listy plac" w skrypcie.

Wazne: jest maly problem z komentarzami po zmianach na FW. Co prawa je importuje, ale niezbyt elegancko. Nie znam jezyka skryptowego AMC, wiec nie wiem jak wyciac zbedny tekst w trakcie importu.

antp.be forum

POLAND site SCRIPTs

nowy

problemy z filmweb

układ aktorów

Re: nowy

odp. dla Marburga

nowy import ocenianych na filmweb

Version=2.0.2.0alpha (2014_08_14)