(*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=Fulvio53s03 & MrObama Title=ComingSoon Description=Get movie and series info from ComingSoon Site=http://www.comingsoon.it Language=IT Version=3.0.3 30.04.2022 Requires=4.2.2 Comments=Based on original ComingSoon script, this program uses an external unit ComingSoonPas.pas. This is a common unit used by ItalianMultisite (IT).ifs, so if you want to contribute and improve the unit please check it still work when included in ItalianMultisite (IT).ifs.|How to use: you can grab info from google (ComingSoonMode=0) or from comingsoon.it (ComingSoonMode=1) if you set the wanted comingsoon url in the URL field. License=* The source code of the script can be used in |* another program only if full credits to Fulvio53s03* GetInfo=1 RequiresMovies=1 [Options] Ricerca con Regista e Anno=1|1|0=Ricerca solo per titolo|1=Ricerca mirata utilizzando anche i valori "Regista" e "Anno", se disponibili (default) Ricerca da URL=0|0|0=Ricerca per titolo (default)|1=Ricerca utilizzando il campo "URL", se valorizzato (ha la priorita' sull'opzione "Ricerca con Regista e Anno") Sovrascrivi campi=1|1|0=Non sovrascrivere i campi se giĆ  valorizzati|1=Sovrascrivi il valore dei campi (default) [Parameters] ***************************************************) program ComingSoonIT; uses ComingSoonPas; // ---------------------------------------------------------------------------------------------------------------------------------------------------------- // DEBUG UNIT START: (HOW TO START DEBUG) COMMENT "uses FilmTvPas;" AND COPY & PASTE ALL UNIT CODE HERE, EXCEPT THE FIRST AND THE LAST LINE // DEBUG UNIT END: (HOW TO FINISH DEBUG) REMOVE THE CODE WHEN DONE AND REMOVE COMMENT FROM "uses FilmTvPas;" // ---------------------------------------------------------------------------------------------------------------------------------------------------------- begin // insert here proprietary parameters and option check, if any // // all checks, setup, starting sets, then retrieve movie name if CS_UnitVersion < 4 then begin SharedShowMessage('Questo script richiede una versione aggiornata di ComingSoonPas.pas (versione 4 o successiva)'); exit; end; if SH_UnitVersion < 5 then begin SharedShowMessage('Questo script richiede una versione aggiornata di ItalianSharedPas.pas (versione 5 o successiva)'); exit; end; SharedInitStandAlone('ComingSoon'); // retrieve key elements for searching if (SharedGetForceExit()) then exit; if (SharedGetMoviesFound() = 0) then // Analyze search page and get movie url (user choice) ComingSoonSearchResults(); if (SharedGetMoviesFound() > 0) then // Analyze movie page and set movie fields ComingSoonSetMovieFields(); end.