| T O P I C R E V I E W |
| Ares31350 |
Posted - 18 Feb 2010 : 17:48:17
Salut tout le monde ,
Je me suis permis de mettre a jour le script CIMETIONS.com.
Je pense qu'il ne contient pas de bug
Merci de me donner votre avis
ares31350@aliceadsl.fr
------------------------------------------------------------------
- eXtreme Movie Manager -
- MagicScript Technology -
- 2001-2009 BinaryWorks.it -
- 05/2007 Adolphe Wathelet (watre) -
- MAJ Ares31350 13/02/2010 -
------------------------------------------------------------------
- Web : CINEMOTIONS.COM -
- Author : Adolphe Wathelet (watre) -
- Date : 28/December/2009 -
- Comments : Import All Information available for movies -
- Takes all pictures -
------------------------------------------------------------------
#MADEBY#=Adolphe Wathelet (watre)
#DATEBUILD#=28/December/2009
#WEBSITE#=CINEMOTIONS.COM
#NOTE#=Import All Information for Movies with Pictures
#SCRIPTQUALITY#=4
#ICONQUALITY#=4
#SCRIPTGENERATION#=3
#REPLACESPACES#=+
#TVSERIES#=FALSE
#SCRIPTFORACTORS#=FALSE
#LANGUAGESORT#=FR
[LANGUAGESORT]=FR=France|EN=English|IT=Italian|DE=Deutsche
#WEBQUERY#=http://www.cinemoteur.com/cine-tv-dvd/resultats/1/#MOVIE#/1.html
#WEBQUERYID#=http://www.cinemotions.com/modules/Films/fiche/#MOVIEUPDATEID#/
#SCRIPTWEBSITE#=http://www.cinemotions.com/
#TYPE#=0
[TYPE]=0=Complete|1=Only Covers|2=Only Informations
#OPTIONS#=1
[OPTIONS]=0=No Options|1=With Options
--OPTIONS LIST------------------------------------------------------------------------------
#LOADOPTIONS#
//Set the Variable 80 = 0, the variables from 80 to 99 are for options purpose
//Note that the value between #80# and [ are the option's selected value,
//the value between[ ] is the name of the option and after ] there are
//the descriptions of the option
#SETOPTION#=#80#1[Pictures]0=Do not take any picture |1=Take only the Posters |2=Take all Pictures
#ENDLOADOPTIONS#
--SET VARIABLES-----------------------------------------------------------------------------
//New Macro, it's executed after #LOADOPTION# but before all others macros
#SETVARIABLES#
// #00# to #09# = variables for comparing
#PUT#=0#00#
#PUT#=1#01#
#PUT#=2#02#
#PUT#=3#03#
#PUT#=4#04#
#PUT#=5#05#
#PUT#=6#06#
#PUT#=7#07#
#PUT#=8#08#
#PUT#=9#09#
#PUT#=0#10#
#PUT#=0#11#
#PUT#=0#12#
#PUT#=0#13#
#PUT#=0#14#
#PUT#=0#15#
#PUT#=0#16#
#PUT#=0#17#
#PUT#=0#18#
#PUT#=0#19#
#PUT#=0#20#
#PUT#=0#21#
#PUT#=0#22#
#PUT#=0#23#
#PUT#=0#24#
#PUT#=0#25#
#PUT#=0#26#
#PUT#=0#27#
#PUT#=0#28#
#PUT#=0#29#
#PUT#=0#30#
#PUT#=0#31#
#PUT#=0#32#
#PUT#=0#33#
#PUT#=0#34#
#PUT#=0#35#
#PUT#=0#36#
#PUT#=0#37#
#PUT#=0#38# // Stores the site ID (MovieID) for the movie.
#PUT#=0#39#
#PUT#=0#40#
#PUT#=0#41# // Stores the URL for the "Acteurs" page (WebSlot1)
#PUT#=0#42# // Stores the URL for the "Techniciens" page (WebSlot2)
#PUT#=0#43# // Stores the URL for the "Prix" page (WebSlot3)
#PUT#=0#44# // Stores the URL for the "Photos" page
#PUT#=0#45# // Stores the URL for the "Affiches" page
#PUT#=0#46#
#PUT#=0#47#
#PUT#=0#48#
#PUT#=0#49#
#PUT#=<fieldset><legend>Publicité </legend>#51#
#ENDSETVARIABLES#
--RIGHT PAGE--------------------------------------------------------------------------------
#RIGHTPAGEFOUND#
// Never occurs
#STARTREADWEB#
#CONDITIONRIGHTPAGE# #00#<>#00#
#ENDRIGHTPAGEFOUND#
--MOVIE LIST--------------------------------------------------------------------------------
#CREATEMOVIELIST#
#STARTREADWEB#
#FINDLINE#=http://www.cinemoteur.fr/cine-tv-dvd/resultats/1/#11# #ONERROR#=*OK*
#IF# #11#==#00#
#GOTO#=NoNextPage
#ENDIF#
#FIND#=http://www.cinemoteur.fr/cine-tv-dvd/resultats/1/#11# #ONERROR#=*OK*
#FIND#=/1/#12# #ONERROR#=*OK*
#COMPUTECURSOR#+3
#FIND#=/#12# #ONERROR#=*OK*
#COMPUTEVAR#=#11#-1
#COMPUTEVAR#=#12#+1
#TAKEWORD#=#13#,#11#,#12# // URL for the next pages (without the number)
#STRING#=#35#=#13#
#PUT#=1#36# // Number of he current page
#GOTO#=CheckResult
:NoNextPage
#PUT#=0#36#
:CheckResult
#STARTREADWEB#
#FINDLINE#=Résultats 1 - 20 sur un total de #11# #ONERROR#=*STOP*
#FIND#=Résultats 1 - 20 sur un total de #11# #ONERROR#=*OK*
#PUT#=0#50#
#COMPUTEVAR#=#11#+31
#TAKEWORDLEN#=#13#,#11#,#03#
#TAKEWORDLEN#=#19#,#11#,#03#
#PUT#= 0 #14#
#IF# #13#==#14#
#WRITETITLELIST#=Aucun résultat
#GOTO#=EndCreateList
#ENDIF#
#FIND#=sur "<h2#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#CHECKVARIABLE#=#13#
#CLEARTAGS#
#WRITETITLELIST#=#13# film(s) trouvé(s).
#WRITETITLELIST#=---------------------------
#STARTREADWEB#
:ReadNextMovie
#FINDLINE#=<b><A HREF="http://www.cinemoteur.fr/redirect_film/#11# #ONERROR#=*OK*
#IF# #11#==#00#
#GOTO#=CheckNextPage
#ENDIF#
#FIND#=_film/#11# #ONERROR#=*OK*
#FIND#=/#11# #ONERROR#=*OK*
#COMPUTECURSOR#+2
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#15#,#11#,#12# // URL of the movie
#STRING#=#15#=http://www.cinemotions.com/modules/Films/fiche/#15#.html
#PUT#=#14#
#PUT#= #16#
#PUT#=0#17#
:ReadTheNextLine
#READNEXTLINE#
#FIND#=<fieldset><legend>Publicité </legend>#52# #ONERROR#=*OK*
#IF# #52#<>#00#
#GOTO#=CheckNextPage
#ENDIF#
#FIND#=http://www.cinemoteur.fr/redirect_film/#11# #ONERROR#=*OK*
#IF# #11#<>#00#
#GOTO#=ReadNextMovie
#ENDIF#
#PUT#=1000#12#
#TAKEWORDLEN#=#13#,#01#,#12# // text for the movie
#CHECKVARIABLE#=#13#
#CLEARTAGS#
#STARTSUBSTITUTETAGS#
#IF# #13#==#16#
#GOTO#=ReadTheNextLine
#ENDIF#
#IF# #13#==#14#
#GOTO#=ReadTheNextLine
#ENDIF#
:TakeTheMovie
#IF# #17#==#00#
#WRITETITLELIST#=#15# ---> #13#
#PUT#=1#17#
#GOTO#=ReadTheNextLine
#ENDIF#
#WRITETITLELIST#=#13#
#GOTO#=ReadTheNextLine
:CheckNextPage
#IF# #36#==#00#
#GOTO#=EndCreateList
#ENDIF#
#COMPUTEVAR#=#36#+1
#STRING#=#37#=#35##36#.html
#STARTREADWEB#
#FINDLINEVAR#=#37##11# #ONERROR#=*ASK* // check if next page exists
#IF# #11#==#00#
#GOTO#=EndCreateList
#ENDIF#
// yes, open it
#OPENNEWWEB#=#37#
#STARTREADWEB#
#GOTO#=ReadNextMovie
:EndCreateList
#ENDCREATEMOVIELIST#
--LOAD WEB SLOTS----------------------------------------------------------------------------
#LOADWEBSLOTS#
#STARTREADWEB#
#FINDLINE#=>Accueil</a>#10# #ONERROR#=*OK*
#IF# #10#<>#00#
#SETCURSOR#=1
#FIND#=fiche/#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+6
#COMPUTEVAR#=#11#+5
#FIND#=/#12# #ONERROR#=*OK*
#TAKEWORD#=#35#,#11#,#12# // save the MovieId in #35#
#STRING#=#11#=#12#
#FIND#=.html#12# #ONERROR#=*OK*
#TAKEWORD#=#36#,#11#,#12# // save the MovieName in #36#
#ENDIF#
// download the "Actors" page
#STARTREADWEB#
#FINDLINE#=Acteurs</a>#10# #ONERROR#=*OK*
#IF# #10#<>#00#
#SETCURSOR#=1
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#STRING#=#41#=#13#
#OPENWEBSLOT1#=#41#
#ENDIF#
// download the "Techniciens" page
#STARTREADWEB#
#FINDLINE#=Techniciens</a>#10# #ONERROR#=*OK*
#IF# #10#<>#00#
#SETCURSOR#=1
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#STRING#=#42#=#13#
#OPENWEBSLOT2#=#42#
#ENDIF#
// download the "Prix" page
#STARTREADWEB#
#FINDLINE#=prix avec Kelkoo</a>#10# #ONERROR#=*OK*
#IF# #10#<>#00#
#SETCURSOR#=1
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#STRING#=#43#=#13#
#OPENWEBSLOT3#=#43#
#ENDIF#
// download the "Photos" page
#STARTREADWEB#
#FINDLINE#=Photos</a>#10# #ONERROR#=*OK*
#IF# #10#<>#00#
#SETCURSOR#=1
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#STRING#=#44#=#13#
#OPENWEBSLOT4#=#44#
#ENDIF#
// download the "Affiches" page
#STARTREADWEB#
#FINDLINE#=Affiches</a>#10# #ONERROR#=*OK*
#IF# #10#<>#00#
#SETCURSOR#=1
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#STRING#=#45#=#13#
#OPENWEBSLOT5#=#45#
#ENDIF#
#ENDLOADWEBSLOTS#
--SITE ID-----------------------------------------------------------------------------------
#MOVIEID#
#TAKEMOVIEID#=#35#
#ENDMOVIEID#
--ORIGINAL TITLE----------------------------------------------------------------------------
#MOVIETITLE#
#RESTOREMAIN#
#STARTREADWEB#
#FINDLINE#=<TITLE>#10# #ONERROR#=*STOP*
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=[#12# #ONERROR#=*OK*
#IF# #12#==#00#
#LOADCURSOR#=#11#
#FIND#= (#12# #ONERROR#=*STOP*
#ENDIF#
#IF# #12#==#00#
#LOADCURSOR#=#11#
#FIND#=<#12# #ONERROR#=*STOP*
#ENDIF#
#TAKEWORD#=#13#,#11#,#12#
#CHECKVARIABLE#=#13#
#STARTSUBSTITUTETAGS#
#TRIM#
#TITLE#=#13# #ONERROR#=*ASK*
// Original title. If not found, keep title
#FIND#=]#10# #ONERROR#=*OK*
#IF# #10#<>#00#
#TAKEWORD#=#13#,#12#,#10#
#ENDIF#
#ORIGINALTITLE#=#13#
#ENDMOVIETITLE#
--DIRECTOR----------------------------------------------------------------------------------
#DIRECTOR#
#STARTREADWEB#
#FINDLINE#=Réalisation :#10# #ONERROR#=*STOP*
#IF# #10#<>#00#
#FIND#=>#11# #ONERROR#=*STOP*
#FIND#=<#12# #ONERROR#=*STOP*
#TAKEWORD#=#13#,#11#,#12#
#TAKEDIRECTOR#=#13#
#ENDIF#
:ENDDIRECTOR
#ENDDIRECTOR#
--STARRING----------------------------------------------------------------------------------
#ACTORS#
// Load WEBSLOT1
#IF# #41#==#00#
#GOTO#=EndActors
#ENDIF#
#LOADWEBSLOT1#
#STARTREADWEB#
#FINDLINE#=Distribution Artistique de#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndloopActor
#ENDIF#
#REPEAT#
#FINDLINE#=/modules/Artistes/fiche/#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndloopActor
#ENDIF#
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=<#12# #ONERROR#=*OK*
// Actor Name
#TAKEWORD#=#13#,#11#,#12#
#READNEXTLINE#
#READNEXTLINE#
#READNEXTLINE#
#READNEXTLINE#
#PUT#=#14#
#FIND#=<font face="verdana,geneva,arial" size="2">#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=NoPersonage
#ENDIF#
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=<#12# #ONERROR#=*OK*
// Actor Personage
#TAKEWORD#=#14#,#11#,#12#
:NoPersonage
#STRING#=#15#=#13#§#14#
#TAKEACTOR#=#15#
#ADDACTOR#=#15#
#WHILE# #01#<>#00#
:EndloopActor
//Reload the MAIN webpage
#RESTOREMAIN#
:ENDACTORS
#ENDACTORS#
--CATEGORY----------------------------------------------------------------------------------
#GENRE#
#STARTREADWEB#
#FINDLINE#=<font face="arial" size="2">#10# #ONERROR#=*STOP*
#READNEXTLINE#
#READNEXTLINE#
#FIND#=- #11# #ONERROR#=*STOP*
#COMPUTEVAR#=#11#+1
#COMPUTECURSOR#=+1
#FIND#=- #12# #ONERROR#=*OK*
#TAKEWORD#=#13#=#11#=#12#
#CHECKVARIABLE#=#13#
#STARTSUBSTITUTETAGS#
#TRIM#
#TAKEGENRE#=#13#
#ENDGENRE#
--SUBCATEGORY-------------------------------------------------------------------------------
#SUBGENRE#
#STARTREADWEB#
#FINDLINE#=<font face="arial" size="2">#10# #ONERROR#=*STOP*
#READNEXTLINE#
#READNEXTLINE#
#PUT#=#15#
#FIND#=-#11# #ONERROR#=*STOP*
#FIND#=-#12# #ONERROR#=*OK*
#IF# #12#<>#00#
#TAKEWORD#=#13#=#11#=#12#
#CHECKVARIABLE#=#13#
#STARTSUBSTITUTETAGS#
#TRIM#
#ENDIF#
#TAKESUBGENRE#=#13#
#ENDSUBGENRE#
--LENGTH------------------------------------------------------------------------------------
#RUNTIME#
#STARTREADWEB#
#FINDLINE#=<font face="arial" size="2">#10# #ONERROR#=*STOP*
#READNEXTLINE#
#READNEXTLINE#
// Hours
#FIND#=- #11# #ONERROR#=*STOP*
#COMPUTECURSOR#=+1
#FIND#=- #11# #ONERROR#=*STOP*
#COMPUTEVAR#=#11#+1
#FIND#=h#12# #ONERROR#=*STOP*
#TAKEWORD#=#20#,#11#,#12#
// Minutes
#STRING#=#11#=#12#
#COMPUTEVAR#=#12#+2
#TAKEWORDLEN#=#21#,#11#,#12#
#IF# #20#==#01#
#COMPUTEVAR#=#21#+60
#ENDIF#
#IF# #20#==#02#
#COMPUTEVAR#=#21#+120
#ENDIF#
#IF# #20#==#03#
#COMPUTEVAR#=#21#+180
#ENDIF#
#IF# #20#==#04#
#COMPUTEVAR#=#21#+240
#ENDIF#
#IF# #20#==#05#
#COMPUTEVAR#=#21#+300
#ENDIF#
#CHECKVARIABLE#=#21#
#STARTSUBSTITUTETAGS#
#TRIM#
#TAKERUNTIME#=#21#
#ENDRUNTIME#
--YEAR--------------------------------------------------------------------------------------
#YEAR#
#STARTREADWEB#
#FINDLINE#=<font face="arial" size="2">#10# #ONERROR#=*STOP*
#READNEXTLINE#
#FIND#=1#11# #ONERROR#=*OK*
#IF# #11#<>#00#
#GOTO#=YearFound
#ENDIF#
#FIND#=2#11# #ONERROR#=*STOP*
:YearFound
#STRING#=#12#=#11#
#COMPUTEVAR#=#11#-1
#COMPUTEVAR#=#12#+4
#TAKEWORD#=#20#,#11#,#12#
#CHECKVARIABLE#=#20#
#STARTSUBSTITUTETAGS#
#TRIM#
#TAKEYEAR#=#20#
#ENDYEAR#
--COUNTRY-----------------------------------------------------------------------------------
#COUNTRY#
#STARTREADWEB#
#FINDLINE#=<font face="arial" size="2">#10# #ONERROR#=*STOP*
#READNEXTLINE#
#FIND#=- #11# #ONERROR#=*STOP*
#COMPUTEVAR#=#11#+1
#TAKEWORD#=#13#,#11#,#00#
#CHECKVARIABLE#=#13#
#STARTSUBSTITUTETAGS#
#TRIM#
#TAKECOUNTRY#=#13#
#ENDCOUNTRY#
--MPAA--------------------------------------------------------------------------------------
#MPAA#
#STARTREADWEB#
#STRING#=#39#=SRC="http://www.cinemotions.com/images/picto_10.jpg"
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#PUT#=Interdit au moins de 10 ans#13#
#GOTO#=EndMPAALoop
#ENDIF#
#STARTREADWEB#
#STRING#=#39#=SRC="http://www.cinemotions.com/images/picto_12.jpg"
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#PUT#=Interdit au moins de 12 ans#13#
#GOTO#=EndMPAALoop
#ENDIF#
#STARTREADWEB#
#STRING#=#39#=SRC="http://www.cinemotions.com/images/picto_16.jpg"
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#PUT#=Interdit au moins de 16 ans#13#
#GOTO#=EndMPAALoop
#ENDIF#
#STARTREADWEB#
#STRING#=#39#=SRC="http://www.cinemotions.com/images/picto_18.jpg"
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#PUT#=Interdit au moins de 18 ans#13#
#GOTO#=EndMPAALoop
#ENDIF#
#PUT#=Pas de restriction#13#
:EndMPAALoop
#TAKEMPAA#=#13#
#ENDMPAA#
--RATED-------------------------------------------------------------------------------------
#RATING#
#STARTREADWEB#
#FINDLINE#=http://www.cinemotions.com/img/stars-#10# #ONERROR#=*STOP*
#FIND#=-#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#=-#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#STRING#=#11#=#12#
#FIND#=.gif#12# #ONERROR#=*OK*
#TAKEWORD#=#14#,#11#,#12#
#STRING#=#15#=#13#.#14#
#TAKERATING#=#15#
#ENDRATING#
--PHOTOGRAPHER------------------------------------------------------------------------------
#PHOTOGRAPHER#
#IF# #42#==#00#
// no "Techniciens" webpage available
#GOTO#=EndTakePhotographer
#ENDIF#
#LOADWEBSLOT2#
#STARTREADWEB#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C"><b>Photographie
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndPhotographerLoop
#ENDIF#
#REPEAT#
#READNEXTLINE#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C">
#FINDVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#GOTO#=EndPhotographerLoop
#ENDIF#
#FIND#=/modules/Artistes/fiche/#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=RepeatPhotographerLoop
#ENDIF#
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=<#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#TAKEPHOTOGRAPHER#=#13#
:RepeatPhotographerLoop
#WHILE# #00#==#00#
:EndPhotographerLoop
//Reload the MAIN webpage
#RESTOREMAIN#
:EndTakePhotographer
#ENDPHOTOGRAPHER#
--DISTRIBUTOR-------------------------------------------------------------------------------
#DISTRIBUTOR#
#STARTREADWEB#
#FINDLINE#=Distribution France#10# #ONERROR#=*STOP*
#READNEXTLINE#
#READNEXTLINE#
#READNEXTLINE#
#READNEXTLINE#
#READNEXTLINE#
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=<#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#TAKEDISTRIBUTOR#=#13#
#ENDDISTRIBUTOR#
--OFFICIAL WEB------------------------------------------------------------------------------
#OFFICIALWEB#
#STARTREADWEB#
#FINDLINE#=Site officiel :#10# #ONERROR#=*STOP*
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#TAKEOFFICIALWEB#=#13#
#ENDOFFICIALWEB#
--PRODUCER----------------------------------------------------------------------------------
#PRODUCER#
#IF# #42#==#00#
// no "Techniciens" webpage available
#GOTO#=EndProducer
#ENDIF#
#LOADWEBSLOT2#
#STARTREADWEB#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C"><b>Production</B>
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndProducerLoop
#ENDIF#
#REPEAT#
#READNEXTLINE#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C">
#FINDVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#GOTO#=EndProducerLoop
#ENDIF#
#FIND#=/modules/Artistes/fiche/#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=RepeatProducerLoop
#ENDIF#
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=<#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#TAKEPRODUCER#=#13#
:RepeatProducerLoop
#WHILE# #00#==#00#
:EndProducerLoop
//Reload the MAIN webpage
#RESTOREMAIN#
:EndProducer
#ENDPRODUCER#
--MUSIC------------------------------------------------------------------------------------
#MUSIC#
#IF# #42#==#00#
// no "Techniciens" webpage available
#GOTO#=EndMusic
#ENDIF#
#LOADWEBSLOT2#
#STARTREADWEB#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C"><b>Musique
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndMusicLoop
#ENDIF#
#REPEAT#
#READNEXTLINE#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C">
#FINDVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#GOTO#=EndMusicLoop
#ENDIF#
#FIND#=/modules/Artistes/fiche/#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=RepeatMusicLoop
#ENDIF#
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=<#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#TAKEMUSIC#=#13#
:RepeatMusicLoop
#WHILE# #00#==#00#
:EndMusicLoop
//Reload the MAIN webpage
#RESTOREMAIN#
:EndMusic
#ENDMUSIC#
--WRITER------------------------------------------------------------------------------------
#WRITER#
#IF# #42#==#00#
// no "Techniciens" webpage available
#GOTO#=EndOfWriter
#ENDIF#
#LOADWEBSLOT2#
#STARTREADWEB#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C"><b>Ecriture</B>
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndWriterLoop
#ENDIF#
#REPEAT#
#READNEXTLINE#
#STRING#=#39#=<font face="verdana,geneva,arial" size=3 color="#4F9C9C">
#FINDVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#<>#00#
#GOTO#=EndWriterLoop
#ENDIF#
#FIND#=/modules/Artistes/fiche/#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=RepeatWriterLoop
#ENDIF#
#FIND#=>#11# #ONERROR#=*OK*
#FIND#=<#12# #ONERROR#=*OK*
#TAKEWORD#=#13#,#11#,#12#
#TAKEWRITER#=#13#
:RepeatWriterLoop
#WHILE# #00#==#00#
:EndWriterLoop
//Reload the MAIN webpage
#RESTOREMAIN#
:EndOfWriter
#ENDWRITER#
--PLOT--------------------------------------------------------------------------------------
#PLOT#
#RESTOREMAIN#
#STARTREADWEB#
#PUT#=#21#
#FINDLINE#=<div id="home_bloc_centre_titre">L'histoire</div>#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndOfPlot
#ENDIF#
#PUT#=1000#10#
#REPEAT#
#READNEXTLINE#
#FIND#=<div align="justify"><font class="link6">#12# #ONERROR#=*OK*
#IF# #12#<>#00#
#GOTO#=TakeThePlot
#ENDIF#
#WHILE# #00#==#00#
:TakeThePlot
#TAKEWORDLEN#=#20#,#00#,#10#
#CHECKVARIABLE#=#20#
#STARTSUBSTITUTETAGS#
#CLEARTAGS#
#TAKEPLOT#=#20# #ONERROR#=*ASK*
:EndOfPlot
#ENDPLOT#
--AWARDS------------------------------------------------------------------------------------
#AWARDS#
#IF# #43#==#00#
// no "Prix" webpage available
#GOTO#=NoAwards
#ENDIF#
#LOADWEBSLOT3#
#STARTREADWEB#
#STRING#=#39#=Nominations et récompenses de
#FINDLINE#=Nominations et récompenses de#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndAwardsLoop
#ENDIF#
#PUT#=#21#
#PUT#=1000#10#
#REPEAT#
#READNEXTLINE#
#FIND#=<script type="text/javascript">#12# #ONERROR#=*OK*
#IF# #12#<>#00#
#GOTO#=TakeTheAwards
#ENDIF#
#TAKEWORDLEN#=#20#,#00#,#10#
#CHECKVARIABLE#=#20#
#STARTSUBSTITUTETAGS#
#CLEARTAGS#
#STRING#=#21#=#21##20#
#WHILE# #00#==#00#
:TakeTheAwards
#CHECKVARIABLE#=#21#
#STARTSUBSTITUTETAGS#
#TAKEAWARDS#=#21#
:EndAwardsLoop
#RESTOREMAIN#
:NoAwards
#ENDAWARDS#
--PICTURES-----------------------------------------------------------------------------------
#POSTER#
// Option "Do not take any Picture"
#IF# #80#==#00#
#GOTO#=EndTakePicture
#ENDIF#
#IF# #45#==#00#
// no "Affiches" webpage available
#GOTO#=EndTakePoster
#ENDIF#
#STRING#=#21#=http://cinemotions.com
#PUT#=1#19#
#STRING#=#39#=Cliquez sur les images pour les agrandir
:TakeNextPoster
#LOADWEBSLOT5#
#STARTREADWEB#
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndTakePoster
#ENDIF#
#STRING#=#18#=#19#
#REPEAT#
#FINDLINE#=http://www.cinemotions.com/data/films/#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndTakePoster
#ENDIF#
#PUT#=1000#10#
#TAKEWORDLEN#=#23#,#18#,#10#
#CHECKVARIABLE#=#23#
#COMPUTEVAR#=#18#-1
#WHILE# #18#<>#00#
#COMPUTEVAR#=#19#+1
#SETCURSOR#=1
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#20#,#11#,#12#
#TAKEPOSTER#=#20# #ONERROR#=*ASK*
#RESTOREWEB#
:RestorewebPoster
#RESTOREMAIN#
:EndTakePoster
// Option "Take only the Posters"
#IF# #80#==#01#
#GOTO#=EndTakePicture
#ENDIF#
// Take the photos
#IF# #44#==#00#
// no "Photos" webpage available
#GOTO#=EndTakePicture
#ENDIF#
// Load the thumbnails page
#LOADWEBSLOT4#
#STARTREADWEB#
#STRING#=#39#=/photos/1.html#photo
#FINDLINEVAR#=#39##10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndTakePhoto
#ENDIF#
#SETCURSOR#=1
#FIND#=<A HREF=/modules/Films/fiche/#10# #ONERROR#=*OK*
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#20#,#11#,#12#
// Go to the first photo's page
#STRING#=#21#=#20#
// Open the photo's page
:OpenPhotoPage
#OPENNEWWEB#=#21#
#STARTREADWEB#
// Find the URL of the next photo
#PUT#=0#21#
#FINDLINE#=<b>Photo suivante</b>#10# #ONERROR#=*OK*
#IF# #10#==#00#
#GOTO#=EndPhotoPage
#ENDIF#
#SETCURSOR#=1
#FIND#=<A HREF=/modules/Films/fiche/#10# #ONERROR#=*OK*
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#20#,#11#,#12#
#STRING#=#21#=http://www.cinemotions.com#20#
// Take the current photo
#FINDLINE#=<IMG SRC="http://www.cinemotions.net/data/films/#10# #ONERROR#=*OK*
#FIND#="#11# #ONERROR#=*OK*
#COMPUTECURSOR#=+1
#FIND#="#12# #ONERROR#=*OK*
#TAKEWORD#=#20#,#11#,#12#
#TAKEPOSTER#=#20# #ONERROR#=*ASK*
#IF# #21#==#00#
#GOTO#=EndPhotoPage
#ENDIF#
#RESTOREWEB#
#GOTO#=OpenPhotoPage
:EndPhotoPage
:EndTakePicture
#RESTOREMAIN#
#ENDPOSTER#
#DELETETAGS#
#DELETEWORD#=<sup>
#DELETEWORD#=</sup>
#DELETEWORD#=<BR>
#DELETEWORD#=<BR />
#DELETEWORD#=<br />
#DELETEWORD#=</BR>
#DELETEWORD#=</br>
#DELETEWORD#=<P>
#DELETEWORD#=</P>
#DELETEWORD#=<p>
#DELETEWORD#=</p>
#DELETEWORD#=<BLOCKQUOTE>
#DELETEWORD#=</BLOCKQUOTE>
#DELETEWORD#=<blockquote>
#DELETEWORD#=</blockquote>
#DELETEWORD#=<B>
#DELETEWORD#=</B>
#DELETEWORD#=<b>
#DELETEWORD#=</b>
#DELETEWORD#=<I>
#DELETEWORD#=</I>
#DELETEWORD#=<h4>
#DELETEWORD#=</h4>
#DELETEWORD#=<div>
#DELETEWORD#=</div>
#DELETEWORD#=<td>
#DELETEWORD#=</td>
#DELETEWORD#=<i>
#DELETEWORD#=</i>
#DELETEWORD#=<U>
#DELETEWORD#=</U>
#DELETEWORD#=<u>
#DELETEWORD#=</u>
#DELETEWORD#=<font size=2>
#DELETEWORD#=<FONT Class="size2">
#DELETEWORD#=</FONT>
#DELETEWORD#=</A>
#DELETEWORD#=</font>
#DELETEWORD#=</a>
#ENDDELETETAGS#
#SUBSTITUTETAGS#
#SUBSTITUTEWORD#=<br>=#NEWLINE#
#SUBSTITUTEWORD#=<BR>=#NEWLINE#
#SUBSTITUTEWORD#=<br />=#NEWLINE#
#SUBSTITUTEWORD#=<BR />=#NEWLINE#
#SUBSTITUTEWORD#=<p>=#NEWLINE#
#SUBSTITUTEWORD#=<P>=#NEWLINE#
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#=&NBSP;=
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#= =
#SUBSTITUTEWORD#=#160;=
#SUBSTITUTEWORD#=#161;=¡
#SUBSTITUTEWORD#=#162;=¢
#SUBSTITUTEWORD#=#163;=£
#SUBSTITUTEWORD#=#164;=¤
#SUBSTITUTEWORD#=#165;=¥
#SUBSTITUTEWORD#=#166;=¦
#SUBSTITUTEWORD#=#167;=§
#SUBSTITUTEWORD#=#168;=¨
#SUBSTITUTEWORD#=#169;=©
#SUBSTITUTEWORD#=#170;=ª
#SUBSTITUTEWORD#=#171;=«
#SUBSTITUTEWORD#=#172;=¬
#SUBSTITUTEWORD#=#173;=
#SUBSTITUTEWORD#=#174;=®
#SUBSTITUTEWORD#=#175;=¯
#SUBSTITUTEWORD#=#176;=°
#SUBSTITUTEWORD#=#177;=±
#SUBSTITUTEWORD#=#178;=²
#SUBSTITUTEWORD#=#179;=³
#SUBSTITUTEWORD#=#180;=´
#SUBSTITUTEWORD#=#181;=µ
#SUBSTITUTEWORD#=#182;=¶
#SUBSTITUTEWORD#=#183;=·
#SUBSTITUTEWORD#=#184;=¸
#SUBSTITUTEWORD#=#185;=¹
#SUBSTITUTEWORD#=#186;=º
#SUBSTITUTEWORD#=#187;=»
#SUBSTITUTEWORD#=#188;=¼
#SUBSTITUTEWORD#=#189;=½
#SUBSTITUTEWORD#=#190;=¾
#SUBSTITUTEWORD#=#191;=¿
#SUBSTITUTEWORD#=#192;=À
#SUBSTITUTEWORD#=#193;=Á
#SUBSTITUTEWORD#=#194;=Â
#SUBSTITUTEWORD#=#195;=Ã
#SUBSTITUTEWORD#=#196;=Ä
#SUBSTITUTEWORD#=#197;=Å
#SUBSTITUTEWORD#=#198;=Æ
#SUBSTITUTEWORD#=#199;=Ç
#SUBSTITUTEWORD#=#200;=È
#SUBSTITUTEWORD#=#201;=É
#SUBSTITUTEWORD#=#202;=Ê
#SUBSTITUTEWORD#=#203;=Ë
#SUBSTITUTEWORD#=#204;=Ì
#SUBSTITUTEWORD#=#205;=Í
#SUBSTITUTEWORD#=#206;=Î
#SUBSTITUTEWORD#=#207;=Ï
#SUBSTITUTEWORD#=#208;=Ð
#SUBSTITUTEWORD#=#209;=Ñ
#SUBSTITUTEWORD#=#210;=Ò
#SUBSTITUTEWORD#=#211;=Ó
#SUBSTITUTEWORD#=#212;=Ô
#SUBSTITUTEWORD#=#213;=Õ
#SUBSTITUTEWORD#=#214;=Ö
#SUBSTITUTEWORD#=#215;=×
#SUBSTITUTEWORD#=#216;=Ø
#SUBSTITUTEWORD#=#217;=Ù
#SUBSTITUTEWORD#=#218;=Ú
#SUBSTITUTEWORD#=#219;=Û
#SUBSTITUTEWORD#=#220;=Ü
#SUBSTITUTEWORD#=#221;=Ý
#SUBSTITUTEWORD#=#222;=Þ
#SUBSTITUTEWORD#=#223;=ß
#SUBSTITUTEWORD#=#224;=à
#SUBSTITUTEWORD#=#225;=á
#SUBSTITUTEWORD#=#226;=â
#SUBSTITUTEWORD#=#227;=ã
#SUBSTITUTEWORD#=#228;=ä
#SUBSTITUTEWORD#=#229;=å
#SUBSTITUTEWORD#=#230;=æ
#SUBSTITUTEWORD#=#231;=ç
#SUBSTITUTEWORD#=#232;=è
#SUBSTITUTEWORD#=#233;=é
#SUBSTITUTEWORD#=#234;=ê
#SUBSTITUTEWORD#=#235;=ë
#SUBSTITUTEWORD#=#236;=ì
#SUBSTITUTEWORD#=#237;=í
#SUBSTITUTEWORD#=#238;=î
#SUBSTITUTEWORD#=#239;=ï
#SUBSTITUTEWORD#=#240;=ð
#SUBSTITUTEWORD#=#241;=ñ
#SUBSTITUTEWORD#=#242;=ò
#SUBSTITUTEWORD#=#243;=ó
#SUBSTITUTEWORD#=#244;=ô
#SUBSTITUTEWORD#=#245;=õ
#SUBSTITUTEWORD#=#246;=ö
#SUBSTITUTEWORD#=#247;=÷
#SUBSTITUTEWORD#=#248;=ø
#SUBSTITUTEWORD#=#249;=ù
#SUBSTITUTEWORD#=#250;=ú
#SUBSTITUTEWORD#=#251;=û
#SUBSTITUTEWORD#=#252;=ü
#SUBSTITUTEWORD#=#253;=ý
#SUBSTITUTEWORD#=#254;=þ
#SUBSTITUTEWORD#=#255;=ÿ
#ENDSUBSTITUTETAGS#
|
|
|
