{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fswiss\fprq2\fcharset0 Arial;}{\f3\fmodern\fcharset0 Courier New;}}
{\colortbl ;\red0\green128\blue0;\red128\green0\blue128;\red102\green102\blue102;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Ajout de la Bande-annonces HQ \'e0 la fiche en cours ( + V\'e9rification de l'info Public)\par
\lang1033 // AUTHOR Cyril G.\par
// LANGUAGE FR\cf2\par
\cf3\lang1036\par
\cf1 // verification de la version du script\par
L\cf3 ast\cf1 V\cf3 ersion is \cf4 String\cf1  = \cf5 GetPage\cf1 ("h\cf3 ttp:\cf1 //www.pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par
\cf4 If\cf3  (LastVersion = \cf1 "\'04")\cf3  OR (LastVersion = \cf1 "")\cf3 OR \f1 (\cf5\f0\fs18 PositionOccurrence\cf3 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf4\f0 Then\cf3  \par
\tab\cf4 Goto \cf3 ServerOff\par
\cf4 End\cf1\par
L\cf3 ast\cf1 V\cf3 ersion = \cf5 BetweenStrings\cf3  (LastVersion , "\cf5 #b\cf3 acinefil\cf5 #" \cf3 , "\cf5 #/b\cf3 acinefil\cf5 #"\cf3 )\cf5\par
\cf4 C\cf3 urrentversion is \cf4 String\cf3  = "1.0A"\cf4\par
If\cf3  (CurrentVersion <> LastVersion) AND (CurrentVersion <> "\cf1\'04\cf3 ") \cf4 Then\par
\cf3\tab\cf1 DownloadFile ("\cf3 http://www.myvideosoft.com/download/shareddoc/FILMS/scripts/BA_HQ_Cinefil_V" + LastVersion + ".script"\cf1 , f\cf3 RepEXE() + "/Scripts"\cf1  , "\cf3 BA_HQ_Cinefil_V" + LastVersion + ".script"\cf1 )\cf5\par
\tab UserInformationMessage\cf3  ("Bande annonces Haute Qualit\'e9 sur Cinefil : " + LastVersion + cr + cr+ ...\par
\tab\tab\tab\tab\tab "Une mise a jour du script BA HQ Cinefil vient d'\'eatre rapatri\'e9e." + cr+...\par
\tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\par
\tab\cf4 Return\par
End\cf3\par
\cf1 S\cf3 erverOff:\lang1033\par
\par
\cf1\lang1036 // MODE DEBUG: enlever le double slash pour verifier que votre adresse de recherche est correcte.\cf3\par
\cf1\lang1033 // ShellExecute("\fs18 http://www.cinefil.com/\fs20 cinefil2005/CFM_Recherches/films.cfm?lachaine2=" + TitleToSearch)\par
\lang1036 //http://195.6.150.194/cinefil2005/CFM_Recherches/films.cfm?pages=2&lachaine2=@maison@\lang1033\par
\lang1036 // Extraction du code HTML de la page de recherche\par
\par
\cf3 Code, Code1, Code2, Code3 are \cf4 Boolean\par
\cf1\lang1033 HtmlCode1\cf3 , \cf1 HtmlCode\cf3 2, \cf1 HtmlCode\cf3 3 are \cf4 String\cf3\lang1036\par
Article2, Article3, Article4 are \cf4 String\cf1\par
\lang1033 Public_c\cf3 inefil\cf1 ,\cf3  \lang1036 Public_fiche\cf1\lang1033  are int\par
\par
\cf3 Remove_title is \cf4 String\cf3  = "(" + \cf5 BetweenStrings\cf3 (\cf6 TitleToSearch\cf3 , "(", ")") + ")"\par
Recherche is \cf4 String\cf3  = \cf6 TitleToSearch\par
R\cf3 echerche = \cf5 StringReplace\cf3 (\cf6 R\cf3 echerche, Remove_title, "")\par
Recherche = \cf5 StringReplace\cf3 (Recherche, " " + \cf5 BetweenStrings\cf3 (Recherche, " ", "'") + "'", "")\par
\cf6 R\cf3 echerche = \cf5 StringReplace\cf3 (\cf6 R\cf3 echerche, " '", " ")\par
\cf6 R\cf3 echerche = \cf5 StringReplace\cf3 (\cf6 R\cf3 echerche, "'", " ")\par
\cf6 R\cf3 echerche = \cf5 StringReplace\cf3 (Recherche, ",", "")\par
\cf6 R\cf3 echerche = \cf5 StringReplace\cf3 (\cf6 R\cf3 echerche, "-", " ")\par
\cf6 R\cf3 echerche = \cf5 StringReplace\cf3 (\cf6 R\cf3 echerche, " ", "%20")\par
\cf1 //Info("""" + recherche + """")\cf3\par
\cf1\par
//Procedure de remplacement \cf5 GetPage\cf1\par
\cf3 Code1 = HTTPRequ\'eate("http://www.cinefil.com/cinefil2005/CFM_Recherches/films.cfm?pages=1&lachaine2=" + \cf1 Recherche\cf3 )\par
\cf4 If\cf3  Code1 = Vrai \cf4 Then\cf3\par
\tab HtmlCode1\cf1  \cf3 = \cf1 HTTPDonneR\'e9sultat()\cf3\par
\cf4 End\par
\cf3 Code2 = HTTPRequ\'eate("http://www.cinefil.com/cinefil2005/CFM_Recherches/films.cfm?pages=2&lachaine2=" + \cf1 Recherche\cf3 )\par
\cf4 If\cf3  Code2 = Vrai \cf4 Then\cf3\par
\tab HtmlCode2\cf1  \cf3 = \cf1 HTTPDonneR\'e9sultat()\cf3\par
\cf4 End\cf3\par
Code3 = HTTPRequ\'eate("http://www.cinefil.com/cinefil2005/CFM_Recherches/films.cfm?pages=3&lachaine2=" + \cf1 Recherche\cf3 )\par
\cf4 If\cf3  Code3 = Vrai \cf4 Then\cf3\par
\tab HtmlCode3\cf1  \cf3 = \cf1 HTTPDonneR\'e9sultat()\cf3\par
\cf4 End\cf3\par
\par
\cf1 // Concatener les 3 pages de recherche\par
\cf3 HtmlCode is \cf4 String\cf3  = HtmlCode1 + HtmlCode2 + HtmlCode3\cf1\par
\cf4\lang1036 If\cf1  HtmlCode = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\cf3\par
\cf1\tab\cf4 Return\cf3\par
\cf4 End\par
\cf3\lang2057 HtmlCode = replace (HtmlCode , "<b>" , "<B>")\par
HtmlCode = replace (HtmlCode , "</b>" , "</B>")\par
HtmlCode = replace (HtmlCode , "<a>" , "<A>")\par
HtmlCode = replace (HtmlCode , "</a>" , "</A>")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'ae\lang2057 " , "\lang1033\'ee\lang2057 ")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a9\lang2057 " , "\'e9")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a8\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'aa\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'b4\lang2057 " , "\'f4")\cf1\lang1033\par
\cf3\lang2057 HtmlCode = replace (HtmlCode , "\lang1033\'c3\lang2057 " , "\'e0")\cf1\lang1033\par
//Recherche des films dans ce code\par
\par
\cf3 Movies_Delimiter is \cf4 String\cf3  = "/fichefilm.cfm?ref=\f2 "\f0\par
\cf1 Movies_Number is \cf4 Int \cf1 = \cf5 StringCounter\cf1 (\cf3 HtmlCode\cf1 , Movies_Delimiter)\cf3\par
\cf4\lang1036 If\cf1  Movies_Number = 0 \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("\cf3 Aucun film trouv\'e9 , ou alors votre FireWall bloque les resultats")\cf1\par
\cf4\tab Return\par
End\cf3\lang1033\par
\par
Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf1\par
i\cf3  is int\cf4\par
For\cf3  i=2 to Movies_Number + 1\par
\cf0\tab Movie_Title = Movies_Delimiter\cf3  \cf0 +  \cf5 StringExtraction\cf0  ( \cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\tab\par
\tab Movie_ID = \cf5 BetweenStrings\cf0  ( Movie_Title , M\cf3 ovies_Delimiter\cf0  , "'\cf3  TITLE\cf0 " )\cf3\tab\par
\cf0\tab\cf3 Movie_Title = \cf5 BetweenStrings\cf3 (Movie_Title, "TITLE=""" , """>")\par
\tab Movie_Title = \cf5 StringRefine\cf3 (Movie_Title)\par
\tab Movie_Title = \cf5 FormatString\cf3  (Movie_Title, "UC")\par
\tab Movie_Title = \cf5 RemoveHTMLTags\cf3  (Movie_Title)\par
\tab\cf1 Movie_URL = "http://www.cinefil.com/\cf3 cinefil2005\cf1 /FicheFilm.cfm?ref=" + \cf2 Movie_ID\cf3\par
\tab\cf5 AddMovieToList\cf1 (i, Movie_ID, Movie_Title,\cf3  \cf1 Movie_URL)\par
\lang1036\tab //\cf7 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\cf3\lang1033\par
\cf4 End\par
\cf3\lang1036\fs18\par
\cf1 // Ouverture de la liste des films trouv\'e9s\par
\cf5\lang1033 OpenMoviesList\cf1 ()\par
\cf4\fs20 If\cf1  \cf2 MovieIDValue\cf1  = "" \cf4 Then\cf3\par
\cf1\tab\cf5\lang1036 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film")\cf3\par
\cf1\tab\cf4\lang1033 Return\cf3\par
\cf4 End\par
\cf3\par
\par
\cf1\lang1036 //Suppression de l'article devant le Titre\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1 , "  " , " ")\par
\cf4 If\cf1  ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 2 ) = "L'" ) OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 2 ) = "D'" )  \cf4 Then\cf1  \par
\tab Article2 = \cf5 StringLeft\cf1  (\cf2 MovieTitleValue\cf1 ,2)\par
\tab\cf2 MovieTitleValue\cf1  = \cf5 StringMiddle\cf1  ( \cf2 MovieTitleValue\cf1  , 3 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article2 + ")"\par
\cf4 End\cf1\par
\cf4 If\cf1  ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 3 ) ="LE ") OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 3 ) = "LA ") OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 3 ) = "UN ") OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 3 ) = "L' ") OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 3 ) = "D' ")\cf4 Then\cf1  \par
\tab Article3 = \cf5 StringLeft\cf1  (\cf2 MovieTitleValue\cf1 ,2)\par
\tab\cf2 MovieTitleValue\cf1  = \cf5 StringMiddle\cf1  ( \cf2 MovieTitleValue\cf1  , 4 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article3 + ")"\par
\cf4 End\cf1\par
\cf4 If\cf1  ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 4 ) ="LES ") OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 4 ) = "UNE ") OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 4 ) = "DES ") OR ( \cf5 StringLeft\cf1  ( \cf2 MovieTitleValue\cf1  , 4 ) = "THE ") \cf4 Then\cf1  \par
\tab Article4 = \cf5 StringLeft\cf1  (\cf2 MovieTitleValue\cf1 ,3)\par
\tab\cf2 MovieTitleValue\cf1  = \cf5 StringMiddle\cf1  ( \cf2 MovieTitleValue\cf1  , 5 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article4 + ")"\par
\cf4 End\par
\cf3\lang1033\par
\cf1\lang1036 // Suppression des caracteres joker\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , "*" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , "?" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , ":" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , """" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , "<" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , ">" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , "|" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , "/" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , "\\" , "-")\par
\cf2 MovieTitleValue\cf1  = \cf5 StringReplace\cf1  (\cf2 MovieTitleValue\cf1  , "\cf3 &\cf1 " , "\cf3 et\cf1 ")\cf4\lang1033\par
\cf3\par
\cf1\lang1036 // Extraction du code Html de la page d\'e9sir\'e9e seulement pour le cas ou il existe une liste de films\par
\lang1033 //Procedure de remplacement \cf5 GetMovie\cf1\lang1036\par
\cf3\lang1033 Code = HTTPRequ\'eate(\cf2\lang1036 MovieURLValue\cf3\lang1033 )\par
\cf4 If\cf3  Code = Vrai \cf4 Then\cf3\par
\tab HtmlCode\cf1  \cf3 = \cf1 HTTPDonneR\'e9sultat()\cf3\par
\cf4 End\cf3\lang1036\par
\cf4 If\cf1  HtmlCode = "" \cf4 Then\cf3\par
\cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par
\cf3\tab\cf4 Return\cf3\par
\cf4\lang1033 End\par
\cf3\par
\lang2057 HtmlCode = replace (HtmlCode , "<b>" , "<B>")\par
HtmlCode = replace (HtmlCode , "</b>" , "</B>")\par
HtmlCode = replace (HtmlCode , "<a>" , "<A>")\par
HtmlCode = replace (HtmlCode , "</a>" , "</A>")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'ae\lang2057 " , "\lang1033\'ee\lang2057 ")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a9\lang2057 " , "\'e9")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'a8\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'aa\lang2057 " , "\'e8")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\'b4\lang2057 " , "\'f4")\par
HtmlCode = replace (HtmlCode , "\lang1033\'c3\lang2057 " , "\'e0")\lang1033\par
\cf4\par
\par
\cf1\lang1036\par
// R\'e9cup\'e9ration de l'info Public de la fiche en cours\par
\cf4 If\cf3  VIDEOTAP.INTERDIT = 5 \cf4 Then\cf3\par
\tab Public_fiche = 0\par
\cf4 End\cf1\par
\cf4 If\cf3  VIDEOTAP.INTERDIT = 4 \cf4 Then\cf3\par
\tab Public_fiche = 10\par
\cf4 End\cf3\par
\cf4 If\cf3  VIDEOTAP.INTERDIT = 3 \cf4 Then\cf3\par
\tab Public_fiche = 12\par
\cf4 End\cf1\par
\cf4 If\cf3  VIDEOTAP.INTERDIT = 2 \cf4 Then\cf3\par
\tab Public_fiche = 16\par
\cf4 End\cf3\par
\cf4 If\cf3  VIDEOTAP.INTERDIT = 1 \cf4 Then\cf3\par
\tab Public_fiche = 18\par
\cf4 End\par
\par
\cf1 // R\'e9cup\'e9ration de l'info Public sur Cin\'e9fil\par
\cf3 Public_cinefil\cf4  \cf3 = \cf5 StringCounter\cf3 (HtmlCode, "Accord parental indispensable")\par
\cf4 If\cf1  Public_\cf3 cinefil\cf1  \cf3 >=\cf1  1 \cf4 Then\cf1\par
\tab Public_\cf3 cinefil\cf1  = 10\cf3\par
\cf4 Else\cf3\par
\tab Public_cinefil\cf4  \cf3 = \cf5 BetweenStrings\cf3 (HtmlCode, "\cf4\lang1033 Film interdit en salle au moins de \cf3\lang1036 ", "\cf4\lang1033  ans\cf3\lang1036 ")\par
\cf4 End\cf3\par
\cf1 //Info("Interdit aux moins de " + Public_cinefil + " ans")\cf3\par
\cf4\lang1033\par
\cf3\lang1036\fs18\par
\cf1 // Lien de la bande annonce\par
\cf3\par
\cf1 //http://195.6.150.194/cinefil2005/CFM_FicheFilm/VideoRealPlayer.cfm?ref=36349','REALVIDEO'\par
//http://195.6.150.194/cinefil2005/CFM_FicheFilm/VideoWMV.cfm?ref=36349','WMVVIDEO\par
//http://195.6.150.194/cinefil2005/CFM_FicheFilm/VideoMpegHQ.cfm?ref=36349&fic=36349-h.mpg','MPEGVIDEOHQ\cf3\par
\cf1\par
\cf2 B\cf3 AMpegHQ is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (HtmlCode, "\cf1 VideoMpegHQ.cfm?\cf3 " ,"\cf1 MPEGVIDEOHQ\cf3 ")\par
BAMpeg is \cf4 String\cf3\par
\cf2 B\cf3 AWmv is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (HtmlCode, "\cf1 VideoWMV.cfm?\cf3 " ,"\cf1 WMVVIDEO\cf3 ")\par
\cf2 B\cf3 ARp is \cf4 String\cf3  = \cf5 BetweenStrings\cf3  (HtmlCode, "\cf1 VideoRealPlayer.cfm?\cf3 " ,"\cf1 REALVIDEO\cf3 ")\par
\cf2\par
\cf4 If\cf3  BAMpegHQ = \cf1\lang2057\fs20 "\lang1036\fs18\'04\lang2057\fs20 "\cf3  \cf4 Then\par
\cf3\tab\cf7 Info\cf3 ("Pas de bande annonce HQ pour ce film")\par
\tab\cf4 Return\cf3\par
\cf4\lang1036\fs18 Else\cf3\par
\cf2\tab MovieTrailerValue\cf3  = "\cf1 http://194.2.120.77/b\cf3 andeannonce/mpegh/" +  \cf2 MovieIDValue\cf3  + "\cf1 -h.mpg"\cf4\par
\tab\cf3\lang2057\fs20 extension is \cf4 String\cf3  = ".mpeg"\cf4\lang1036\fs18\par
End\cf3\par
\cf5\par
\cf4 If\cf1  YesNo ("voulez vous enregistrer la Bande Annonce sur votre disque dur?" \cf3 + cr + ...\par
\tab\tab "Veuillez \cf4 Not\cf3 er qu'il faut beaucoup de temps pour telecharger la Bande Annonce, m\'eame avec l'ADSL, car le serveur distant est lent." \cf1 ) \cf4 Then\par
\cf3\tab\cf1 DownloadFile (\cf2 MovieTrailerValue\cf3 ,\cf1  ".\\\cf3 Bandes Annonces\\\cf1 " , \cf2 MovieTitleValue + \cf3 extension\cf1 )\par
\cf3\tab\cf2 MovieTrailerValue \cf3 = ".\\Bandes Annonces\\" + \cf2 MovieTitleValue\cf3  + extension\par
\cf4\tab\cf1 VideoName (\cf2 MovieTrailerValue\cf1 )\par
\cf3\tab\cf5 UserInformationMessage\cf3  ("La Bande-Annonce a \'e9t\'e9 t\'e9l\'e9charg\'e9e avec succ\'e9s.")\cf4\par
End\cf3\par
\par
\par
\cf1\par
// Fin du Script BA_HQ_Cinefil 1.0 - Cyril G. //J'ai repris des parties du script Cin\'e9fil de J\'e9rome pour la recherche de la BA ;-) \par
\cf3\fs20\par
\cf1 //Ajout de l'\cf7 Information\cf1  Public -10ans\cf3\par
\cf4\lang1033 If\cf3  (\lang1036 VIDEOTAP.INTERDIT = 0) OR \lang1033 (\lang1036 VIDEOTAP.INTERDIT = 5) \cf4 Then\par
\cf3\tab\cf4 If\cf3  (Public_cinefil = "0") AND \lang1033 (\lang1036 VIDEOTAP.INTERDIT = 0) \cf4 Then\cf3\par
\tab\tab VIDEOTAP.INTERDIT = 5\par
\tab\cf4 End\cf1\par
\cf3\tab\cf4 If\cf3  Public_cinefil = "10" \cf4 Then\cf3\par
\tab\tab VIDEOTAP.INTERDIT = 4\par
\tab\tab\cf1 Info("l'info Public - de " + Public_cin\'e9fil + " ans, \'e0 \'e9t\'e9 ajout\'e9e \'e0 la fiche en cours.")\cf3\par
\tab\cf4 End\cf3\par
\tab\cf4 If\cf3  Public_cinefil = "12" \cf4 Then\cf3\par
\tab\tab VIDEOTAP.INTERDIT = 3\par
\tab\cf4 End\cf1\par
\cf3\tab\cf4 If\cf3  Public_cinefil = "16" \cf4 Then\cf3\par
\tab\tab VIDEOTAP.INTERDIT = 2\par
\tab\cf4 End\cf3\par
\tab\cf4 If\cf3  Public_cinefil = "18" \cf4 Then\cf3\par
\tab\tab VIDEOTAP.INTERDIT = 1\par
\tab\cf4 End\par
\cf3\tab\cf1 //Info("l'info Public - de " + Public_cin\'e9fil + " ans, \'e0 \'e9t\'e9 ajout\'e9e \'e0 la fiche en cours.")\cf3\par
\cf4 Else\par
\cf1\tab\cf4 If\cf3  Public_cinefil <> Public_fiche \cf4 Then\par
\cf3\tab\tab\cf4 If\cf3  \cf5 YesNo\cf3  ("L'\cf7 Information\cf3  Public de la fiche (\cf1 Interdit aux moins de " + \cf3 Public_fiche\cf1  + " ans\cf3 )"+CR+...\par
\tab\tab\tab\tab "est di\cf4 f\cf3 f\'e9rente du public trouv\'e9 sur Cin\'e9fil (\cf1 Interdit aux moins de " + \cf3 Public_cinefil\cf1  + " ans\cf3 )"+CR+...\par
\tab\tab\tab\tab "Voulez-vous importer l'\cf7 Information\cf3  public de Cin\'e9fil?") \cf4 Then\cf3\par
\cf1\tab\cf3\tab\tab\cf4 If\cf3  Public_cinefil = "0" \cf4 Then\cf3\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 5\par
\cf4\tab\cf3\tab\tab\cf4 End\cf1\par
\cf4\tab\cf3\tab\tab\cf4 If\cf3  Public_cinefil = "10" \cf4 Then\cf3\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 4\par
\cf4\tab\cf3\tab\tab\cf4 End\cf3\par
\cf4\tab\cf3\tab\tab\cf4 If\cf3  Public_cinefil = "12" \cf4 Then\cf3\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 3\par
\cf4\tab\cf3\tab\tab\cf4 End\cf1\par
\cf4\tab\cf3\tab\tab\cf4 If\cf3  Public_cinefil = "16" \cf4 Then\cf3\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 2\par
\cf4\tab\cf3\tab\tab\cf4 End\cf3\par
\cf4\tab\cf3\tab\tab\cf4 If\cf3  Public_cinefil = "18" \cf4 Then\cf3\par
\tab\tab\tab\tab VIDEOTAP.INTERDIT = 1\par
\cf4\tab\cf3\tab\tab\cf4 End\par
\cf3\tab\tab\tab\cf7 Info\cf3 ("l'i\cf7 nfo \cf3 Public - de " + Public_cin\'e9fil + " ans, \'e0 \'e9t\'e9 ajout\'e9e \'e0 la fiche en cours.")\par
\tab\tab\cf4 End\tab\tab\par
\tab End\par
End\cf1\par
\par
HmodIfie (VIDEOTAP)\f3\par
// On vide toutes les variables dont celles des artistes\cf0\par
\cf1 MAB_Zones()\f0\par
\par
}