API tools faq
paste
Advertisement
Guest User

THEMOVIEDB.ORG(API)_GERMAN

a guest
Jan 27th, 2013
106
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 41.47 KB | None | 0 0
raw download clone embed print report
  1. #UTC#=1336723309
  2. --------------------------------------------------
  3. - eXtreme Movie Manager -
  4. - MagicScript Technology -
  5. - 2001-2009 BinaryWorks.it -
  6. --------------------------------------------------
  7. - Web : THEMOVIEDB.ORG -
  8. - Author : FreaKBrother + Velibor for Awards -
  9. - Date : 03/December/2012 -
  10. - Comments : -
  11. - -
  12. - -
  13. --------------------------------------------------
  14.  
  15. #MADEBY#=Alessio
  16. #DATEBUILD#=03/December/2012
  17. #WEBSITE#=THEMOVIEDB.ORG
  18. #NOTE#=Download everything in the main page, the fastest script possible
  19. #SCRIPTQUALITY#=5
  20. #ICONQUALITY#=5
  21. #SCRIPTGENERATION#=3
  22. #TVSERIES#=FALSE
  23. #REPLACESPACES#=+
  24. #SCRIPTFORACTORS#=FALSE
  25.  
  26. //New Tags of MagicScript Engine Generation 3
  27. #LANGUAGESORT#=DE
  28. [LANGUAGESORT]=EN=English|IT=Italian|FR=France|DE=Deutsche
  29.  
  30. #TYPE#=0
  31. [TYPE]=0=Complete|1=Covers|2=Trailers|3=Tunes|4=Subtitles|5=Chains|6=Mistakes|7=Games|8=Adult|9=Anime
  32.  
  33. #OPTIONS#=1
  34. [OPTIONS]=0=No Options|1=With Options
  35.  
  36. //You NEED this for Internal WebBrowser Import!
  37. #//SCRIPTWEBSITE#=http://www.themoviedb.org/
  38.  
  39. // API Key
  40. #WEBQUERY#=http://api.themoviedb.org/2.1/Movie.search/de/xml/72cae7941bfe23850229828662c9e4b8/#MOVIE#
  41.  
  42.  
  43. //Options List//
  44. // New Macro for Options that user can select, it's loaded before ALL others macro
  45. #LOADOPTIONS#
  46.  
  47. //Set the Variable 80 = 0, the variables from 80 to 99 are for options purpose
  48. //Note that the value between #80# and [ are the option's selected value,
  49. //the value between[ ] is the name of the option and after ] there are
  50. //the descriptions of the option
  51.  
  52. #SETOPTION#=#81#1[Use Intelligent Directlink Engine]0=do NOT use Intelligent Directlink Engine|1=Use Intelligent Directlink Engine
  53. #SETOPTION#=#82#2[Select Intelligent Directlink Language]1=English|2=German|3=Italian|4=French
  54. #SETOPTION#=#80#1[Title Import]0=Do not Take The Title|1=Take the Title
  55. #SETOPTION#=#89#1[Posters]0=Do not Take Posters |1=Take only the First Poster |2=Take ALL Posters
  56. #SETOPTION#=#91#2[FanArt/Backdrop]0=Do not Take FanArt |1=Take only First FanArt |2=Take ALL Pictures of FanArt
  57. #SETOPTION#=#85#1[Actors Database]0=Do not Actors to Actors Database |1=Add Actors to Actors Database
  58. #SETOPTION#=#90#1[Actors Picture]0=Do not Take Actors pictures |1=Take Actors pictures
  59.  
  60. #ENDLOADOPTIONS#
  61.  
  62.  
  63.  
  64. //New Macro, it's executed after #LOADOPTION# but before all others macros
  65. #SETVARIABLES#
  66. // set all variables
  67. // variable for comparing, always keep at 0
  68. #PUT#=0#00#
  69. // API Key
  70. #PUT#=72cae7941bfe23850229828662c9e4b8#77#
  71. #PUT#=http://api.themoviedb.org/2.1/Movie.getTranslations/de/xml/#78#
  72.  
  73. #ENDSETVARIABLES#
  74.  
  75.  
  76.  
  77. // This new RIGHT PAGE BLOCK use the new INTELLIGENT Directlink AUTOMATIC SELECTION
  78. // The engine try to compare the year of the movie found with the year of the movie in database
  79. // If there is a match, the directlink is automatically taken
  80.  
  81. --RIGHT PAGE--------------------------------------------------------------------------------
  82. #RIGHTPAGEFOUND#
  83. #PUT#=1#01#
  84. #IF# #82#==#01#
  85. #PUT#=en#79#
  86. #ENDIF#
  87. #PUT#=2#01#
  88. #IF# #82#==#01#
  89. #PUT#=de#79#
  90. #ENDIF#
  91. #PUT#=3#01#
  92. #IF# #82#==#01#
  93. #PUT#=it#79#
  94. #ENDIF#
  95. #PUT#=4#01#
  96. #IF# #82#==#01#
  97. #PUT#=fr#79#
  98. #ENDIF#
  99. #IF# #81#==#00#
  100. #CONDITIONRIGHTPAGE# #00#<>#00#
  101. #GOTO#=ENDRIGHTPAGEFOUND
  102. #ENDIF#
  103. #GETMOVIEVAR#=#16#=%TITLE%
  104. #GETMOVIEVAR#=#17#=%ORIGINALTITLE%
  105. #GETMOVIEVAR#=#23#=#YEARVALUE#
  106. #GETMOVIEVAR#=#22#=#CUSTOM8VALUE#
  107.  
  108.  
  109. #PUT#=#30#
  110. #IF# #30#==#22#
  111. #GOTO#=NEXT
  112. #ENDIF#
  113.  
  114. #PUT#=1#01#
  115. #SEARCHREPLACEVAR#=http://.*imdb[^\d]*(\d+).*|$1#22##01#
  116.  
  117. #STRING#=#31#=http://api.themoviedb.org/2.1/Movie.imdbLookup/#79#/xml/#77#/tt#22#
  118. #OPENWEBSLOT2#=#31#
  119. #LOADWEBSLOT2#
  120. #FINDLINE#=<movies>#32# #ONERROR#=*OK*
  121. #FIND#=>#33# #ONERROR#=*OK*
  122. #FIND#=<#34# #ONERROR#=*OK*
  123. #TAKEWORD#=#35#,#33#,#34#
  124. #PUT#=Nothing found.#32#
  125. #IF# #32#==#35##
  126. #RESTOREMAIN#
  127. #GOTO#=NEXT
  128. #ENDIF#
  129. #FINDLINE#=<id>#32# #ONERROR#=*OK*
  130. #FIND#=>#33# #ONERROR#=*OK*
  131. #FIND#=<#34# #ONERROR#=*OK*
  132. #TAKEWORD#=#35#,#33#,#34#
  133. #STRING#=#31#=http://api.themoviedb.org/2.1/Movie.getInfo/#79#/xml/#77#/#35#
  134. #TAKEDIRECTLINK#=#31#
  135. #CONDITIONRIGHTPAGE# #00#==#00#
  136. #GOTO#=ENDRIGHTPAGEFOUND
  137. :NEXT
  138. #PUT#=0#20#
  139. #STARTREADWEB#
  140. :REPEATRIGHTSEARCH
  141. #FINDLINE#=<movie>#12# #ONERROR#=*OK*
  142. #IF# #12#==#00#
  143. #GOTO#=ENDRIGHTSEARCH
  144. #ENDIF#
  145. #FINDLINE#=<name>#12##ONERROR#=*OK*
  146. #IF# #12#==#00#
  147. #GOTO#=ENDRIGHTSEARCH
  148. #ENDIF#
  149. #FIND#=>#01# #ONERROR#=*OK*
  150. #COMPUTECURSOR#=+1
  151. #FIND#=<#02# #ONERROR#=*OK*
  152. #TAKEWORD#=#03#,#01#,#02#
  153. #CHECKVARIABLE#=#03#
  154. #CLEARTAGS#
  155. #STARTDELETETAGS#
  156. #STARTSUBSTITUTETAGS#
  157. #TRIM#
  158.  
  159. #PUT#=#05#
  160. #SAVEWEBSITELINE#
  161. #FINDLINE#=<alternative_name#12##ONERROR#=*OK*
  162. #IF# #12#==#00#
  163. #RESTOREWEBSITELINE#
  164. #GOTO#=NOALTNAME
  165. #ENDIF#
  166. #FIND#=>#01# #ONERROR#=*OK*
  167. #COMPUTECURSOR#=+1
  168. #FIND#=<#02# #ONERROR#=*OK*
  169. #IF# #02#==#00#
  170. #GOTO#=NOALTNAME
  171. #ENDIF#
  172. #TAKEWORD#=#05#,#01#,#02#
  173. #CHECKVARIABLE#=#05#
  174. #CLEARTAGS#
  175. #STARTDELETETAGS#
  176. #STARTSUBSTITUTETAGS#
  177. #TRIM#
  178. :NOALTNAME
  179.  
  180. #FINDLINE#=<id>#12# #ONERROR#=*OK*
  181. #IF# #12#==#00#
  182. #GOTO#=ENDRIGHTSEARCH
  183. #ENDIF#
  184.  
  185. #FIND#=>#01#
  186. #FIND#=<#02#
  187. #TAKEWORD#=#10#,#01#,#02#
  188. #CHECKVARIABLE#=#10#
  189. #TRIM#
  190.  
  191. #FINDLINE#=<imdb_id>#12# #ONERROR#=*OK*
  192. #FIND#=>#01#
  193. #FIND#=<#02#
  194. #TAKEWORD#=#09#,#01#,#02#
  195. #CHECKVARIABLE#=#09#
  196. #TRIM#
  197. #STRING#=#08#=http://akas.imdb.com/title/#09#
  198. #IF# #08#==#22#
  199. #STRING#=#04#=http://api.themoviedb.org/2.1/Movie.getInfo/#79#/xml/#77#/#10#
  200. #COMPUTEVAR#=#20#+1
  201. #GOTO#=REPEATRIGHTSEARCH
  202. #ENDIF#
  203. #STRING#=#08#=http://akas.imdb.com/title/#09#/
  204. #IF# #08#==#22#
  205. #STRING#=#04#=http://api.themoviedb.org/2.1/Movie.getInfo/#79#/xml/#77#/#10#
  206. #COMPUTEVAR#=#20#+1
  207. #GOTO#=REPEATRIGHTSEARCH
  208. #ENDIF#
  209.  
  210. #IF# #05#==#16#
  211. #GOTO#=FOUNDRIGHTTITLE
  212. #ENDIF#
  213. #IF# #05#==#17#
  214. #GOTO#=FOUNDRIGHTTITLE
  215. #ENDIF#
  216.  
  217. #IF# #03#==#16#
  218. #GOTO#=FOUNDRIGHTTITLE
  219. #ENDIF#
  220. #IF# #03#<>#17#
  221. #GOTO#=REPEATRIGHTSEARCH
  222. #ENDIF#
  223. :FOUNDRIGHTTITLE
  224.  
  225. #PUT#=#11#
  226. :REPEATFINDRIGHTYEAR
  227. #READNEXTLINE#
  228. #FIND#=</movie>#12# #ONERROR#=*OK*
  229. #IF# #12#<>#00#
  230. #GOTO#=REPEATRIGHTSEARCH
  231. #ENDIF#
  232. #FIND#=<released>#12# #ONERROR#=*OK*
  233. #IF# #12#==#00#
  234. #GOTO#=REPEATFINDRIGHTYEAR
  235. #ENDIF#
  236. #FIND#=>#01# #ONERROR#=*OK*
  237. #FIND#=-#02# #ONERROR#=*OK*
  238. #TAKEWORD#=#11#,#01#,#02#
  239. #ISNUMERICAL#=#11#,#01#
  240. #IF# #01#==#00#
  241. #GOTO#=REPEATRIGHTSEARCH
  242. #ENDIF#
  243.  
  244. #IF# #11#==#23#
  245. #STRING#=#04#=http://api.themoviedb.org/2.1/Movie.getInfo/#79#/xml/#77#/#10#
  246. #COMPUTEVAR#=#20#+1
  247. #ENDIF#
  248.  
  249. #GOTO#=REPEATRIGHTSEARCH
  250.  
  251. :ENDRIGHTSEARCH
  252. #PUT#=1#01#
  253. #IF# #20#==#01#
  254. #TAKEDIRECTLINK#=#04#
  255. #CONDITIONRIGHTPAGE# #00#==#00#
  256. #GOTO#=ENDRIGHTPAGEFOUND
  257. #ENDIF#
  258. #CONDITIONRIGHTPAGE# #00#<>#00#
  259. :ENDRIGHTPAGEFOUND
  260. #ENDRIGHTPAGEFOUND#
  261.  
  262.  
  263. --MOVIE LIST--------------------------------------------------------------------------------
  264. #CREATEMOVIELIST#
  265.  
  266. #PUT#=API#02#
  267. #PUT#=KEY#03#
  268. #STRING#=#01#=#02##03#
  269. #IF# #77#==#01#
  270. #WRITETITLELIST#=
  271. #WRITEWARNING#=------------------------------------------------------
  272. #WRITEWARNING#=You need to edit this script with your personal APIKEY
  273. #WRITEWARNING#=------------------------------------------------------
  274. #WRITEWARNING#=http://www.binaryworks.it/forum/topic.asp?TOPIC_ID=6325
  275. #GOTO#=ENDMOVIELIST
  276. #ENDIF#
  277.  
  278. #STARTREADWEB#
  279. #FINDLINE#=<movies>Nothing found.</movies>#12# #ONERROR#=*OK*
  280. #IF# #12#<>#00#
  281. #WRITETITLELIST#=
  282. #WRITEWARNING#=------------------------------------------------------
  283. #WRITEWARNING#=No Movies Found via API search on TMDb.org
  284. #WRITEWARNING#=------------------------------------------------------
  285. #GOTO#=ENDMOVIELIST
  286. #ENDIF#
  287.  
  288. #STARTREADWEB#
  289.  
  290. #WRITETITLELIST#=
  291. #WRITETITLELIST#=------------------------------------------------------
  292. #WRITETITLELIST#=List of Movies Found via API search on TMDb.org
  293. #WRITETITLELIST#=------------------------------------------------------
  294.  
  295. :REPEATAPISEARCH
  296. #FINDLINE#=<movie>#12# #ONERROR#=*OK*
  297. #IF# #12#==#00#
  298. #GOTO#=ENDMOVIELIST
  299. #ENDIF#
  300. #FINDLINE#=<name>#12##ONERROR#=*OK*
  301. #IF# #12#==#00#
  302. //Search Ended
  303. #GOTO#=ENDMOVIELIST
  304. #ENDIF#
  305.  
  306. #FIND#=>#01# #ONERROR#=*OK*
  307. #COMPUTECURSOR#=+1
  308. #FIND#=<#02# #ONERROR#=*OK*
  309. #TAKEWORD#=#03#,#01#,#02#
  310. #CHECKVARIABLE#=#03#
  311. #CLEARTAGS#
  312. #STARTDELETETAGS#
  313. #STARTSUBSTITUTETAGS#
  314. #TRIM#
  315.  
  316. #FINDLINE#=<id>#12# #ONERROR#=*OK*
  317. #IF# #12#==#00#
  318. #GOTO#=ENDMOVIELIST
  319. #ENDIF#
  320.  
  321. #FIND#=>#01#
  322. #FIND#=<#02#
  323. #TAKEWORD#=#10#,#01#,#02#
  324. #CHECKVARIABLE#=#10#
  325. #TRIM#
  326.  
  327. #PUT#=#11#
  328. :REPEATFINDYEAR
  329. #READNEXTLINE#
  330. #FIND#=</movie>#12# #ONERROR#=*OK*
  331. #IF# #12#<>#00#
  332. #GOTO#=NOYEAR
  333. #ENDIF#
  334. #FIND#=<released>#12# #ONERROR#=*OK*
  335. #IF# #12#==#00#
  336. #GOTO#=REPEATFINDYEAR
  337. #ENDIF#
  338. #FIND#=>#01# #ONERROR#=*OK*
  339. #FIND#=-#02# #ONERROR#=*OK*
  340. #TAKEWORD#=#11#,#01#,#02#
  341. #ISNUMERICAL#=#11#,#01#
  342. #STRING#=#11#= (#11#)
  343. #IF# #01#==#00#
  344. #PUT#=#11#
  345. #ENDIF#
  346. :NOYEAR
  347.  
  348. #SAVEWEBSITELINE#
  349. #PUTCURSOR#=#21#
  350. #STRING#=#04#=http://api.themoviedb.org/2.1/Movie.getInfo/#79#/xml/#77#/#10# ---> #03##11#
  351. #WRITETITLELIST#=#04#
  352. #RESTOREMAIN#
  353. #RESTOREWEBSITELINE#
  354. #LOADCURSOR#=#21#
  355.  
  356.  
  357.  
  358. #GOTO#=REPEATAPISEARCH
  359. :ENDMOVIELIST
  360.  
  361.  
  362. #RESTOREMAIN#
  363.  
  364. #ENDCREATEMOVIELIST#
  365.  
  366. #LOADWEBSLOTS#
  367.  
  368. #ENDLOADWEBSLOTS#
  369.  
  370. --ORIGINAL TITLE----------------------------------------------------------------------------
  371. #MOVIETITLE#
  372.  
  373. //Use MAIN Webpage of Movie
  374. #STARTREADWEB#
  375.  
  376. // Take only the Title
  377. #FINDLINE#=<name>#15##ONERROR#=*OK*
  378. #IF# #15#==#00#
  379. #GOTO#=ENDMOVIETITLE
  380. #ENDIF#
  381. #FIND#=>#11##ONERROR#=*OK*
  382. #FIND#=<#12##ONERROR#=*OK*
  383. #TAKEWORD#=#13#,#11#,#12#
  384. #CHECKVARIABLE#=#13#
  385. #STARTSUBSTITUTETAGS#
  386. #STARTDELETETAGS#
  387. #CLEARTAGS#
  388. #TRIM#
  389. #IF# #80#<>#00#
  390. #TITLE#=#13#
  391. #ENDIF#
  392. #ORIGINALTITLE#=#13#
  393. :ENDMOVIETITLE
  394.  
  395.  
  396. #ENDMOVIETITLE#
  397.  
  398.  
  399. --DIRECTOR----------------------------------------------------------------------------------
  400. #DIRECTOR#
  401.  
  402. #STARTREADWEB#
  403. #FINDLINE#=<cast>#12##ONERROR#=*OK*
  404. #IF# #12#==#00#
  405. #GOTO#=ENDDIRECTOR
  406. #ENDIF#
  407. :REPEATDIRECTOR
  408. #READNEXTLINE#
  409. #FIND#=</cast>#15##ONERROR#=*OK*
  410. #IF# #15#<>#00#
  411. #GOTO#=ENDDIRECTOR
  412. #ENDIF#
  413. #FIND#= job="Director"#15##ONERROR#=*OK*
  414. #IF# #15#==#00#
  415. #GOTO#=REPEATDIRECTOR
  416. #ENDIF#
  417. #RESETCURSOR#
  418. #FIND#= name="#11# #ONERROR#=*OK*
  419. #COMPUTEVAR#=#11#+6
  420. #COMPUTECURSOR#=+7
  421. #FIND#="#12# #ONERROR#=*OK*
  422. #TAKEWORD#=#13#,#11#,#12#
  423. #CHECKVARIABLE#=#13#
  424. #STARTSUBSTITUTETAGS#
  425. #STARTDELETETAGS#
  426. #CLEARTAGS#
  427. #TRIM#
  428. #TAKEDIRECTOR#=#13#
  429. #ADDACTOR#=#13#
  430. #GOTO#=REPEATDIRECTOR
  431. :ENDDIRECTOR
  432.  
  433. #ENDDIRECTOR#
  434.  
  435.  
  436. --STARRING----------------------------------------------------------------------------------
  437. #ACTORS#
  438.  
  439. #STARTREADWEB#
  440. #FINDLINE#=<language>#12##ONERROR#=*OK*
  441. #FIND#=>#01##ONERROR#=*OK*
  442. #FIND#=<#02##ONERROR#=*OK*
  443. #TAKEWORD#=#25#,#01#,#02#
  444.  
  445. #STARTREADWEB#
  446. #FINDLINE#=<cast>#12##ONERROR#=*OK*
  447. #IF# #12#==#00#
  448. #GOTO#=ENDACTORS
  449. #ENDIF#
  450. :REPEATACTORS
  451. #CLEARBUFFERACTORS#
  452. #READNEXTLINE#
  453. #FIND#=</cast>#12##ONERROR#=*OK*
  454. #IF# #12#<>#00#
  455. #GOTO#=ENDACTORS
  456. #ENDIF#
  457. #RESETCURSOR#
  458. #FIND#= job="Actor"#12##ONERROR#=*OK*
  459. #IF# #12#==#00#
  460. #GOTO#=REPEATACTORS
  461. #ENDIF#
  462. #RESETCURSOR#
  463. #FIND#= name="#11# #ONERROR#=*OK*
  464. #COMPUTEVAR#=#11#+6
  465. #COMPUTECURSOR#=+7
  466. #FIND#="#12# #ONERROR#=*OK*
  467. #TAKEWORD#=#13#,#11#,#12#
  468. #CHECKVARIABLE#=#13#
  469. #STARTSUBSTITUTETAGS#
  470. #STARTDELETETAGS#
  471. #CLEARTAGS#
  472. #TRIM#
  473.  
  474. #RESETCURSOR#
  475. #FIND#= character="#11# #ONERROR#=*OK*
  476. #COMPUTEVAR#=#11#+11
  477. #COMPUTECURSOR#=+12
  478. #FIND#="#12# #ONERROR#=*OK*
  479. #TAKEWORD#=#14#,#11#,#12#
  480. #CHECKVARIABLE#=#14#
  481. #STARTSUBSTITUTETAGS#
  482. #STARTDELETETAGS#
  483. #CLEARTAGS#
  484. #TRIM#
  485.  
  486. #RESETCURSOR#
  487. #FIND#= id="#11# #ONERROR#=*OK*
  488. #COMPUTEVAR#=#11#+4
  489. #COMPUTECURSOR#=+5
  490. #FIND#="#12# #ONERROR#=*OK*
  491. #TAKEWORD#=#15#,#11#,#12#
  492. #CHECKVARIABLE#=#15#
  493. #TRIM#
  494.  
  495. #STRING#=#16#=#13#§#14#
  496. #TAKEACTOR#=#16#
  497.  
  498. #IF# #85#==#00#
  499. #GOTO#=CONTINUENEXTACTOR
  500. #ENDIF#
  501. #CHECKACTOREXIST#=#51#,#13#
  502. #IF# #51#<>#00#
  503. // Check if the Actor and his image exist, if exist do not download the picture to speed up import
  504. #GOTO#=CONTINUENEXTACTOR
  505. #ENDIF#
  506.  
  507. #STRING#=#17#=http://api.themoviedb.org/2.1/Person.getInfo/#25#/xml/#77#/#15#
  508. #SAVEWEBSITELINE#
  509. #OPENWEBSLOT1#=#17#
  510. #LOADWEBSLOT1#
  511. #STARTREADWEB#
  512. #FINDLINE#=<biography>#15# #ONERROR#=*OK*
  513. #IF# #15#==#00#
  514. #GOTO#=ENDABIO
  515. #ENDIF#
  516. #PUT#=#04#
  517. #FIND#=>#01#
  518. :REPABIO
  519. #FIND#=</biography>#02# #ONERROR#=*OK*
  520. #TAKEWORD#=#03#,#01#,#02#
  521. #CHECKVARIABLE#=#03#
  522. #STARTSUBSTITUTETAGS#
  523. #STARTDELETETAGS#
  524. #CLEARTAGS#
  525. #STRING#=#04#=#04##NEWLINE##03#
  526. #IF# #02#==#00#
  527. #READNEXTLINE#
  528. #PUT#=0#01#
  529. #GOTO#=REPABIO
  530. #ENDIF#
  531. #CHECKVARIABLE#=#04#
  532. #TRIM#
  533. #TAKEACTORBIO#=#04#
  534. :ENDABIO
  535.  
  536. #STARTREADWEB#
  537. #FINDLINE#=<birthday>#15# #ONERROR#=*OK*
  538. #IF# #15#==#00#
  539. #GOTO#=ENDABDAY
  540. #ENDIF#
  541. #FIND#=>#01#
  542. #FIND#=<#02#
  543. #TAKEWORD#=#03#,#01#,#02#
  544. #CHECKVARIABLE#=#03#
  545. #STARTSUBSTITUTETAGS#
  546. #STARTDELETETAGS#
  547. #CLEARTAGS#
  548. #TRIM#
  549. #TAKEACTORBDATE#=#03#
  550. :ENDABDAY
  551.  
  552. #STARTREADWEB#
  553. #FINDLINE#=<birthplace>#15# #ONERROR#=*OK*
  554. #IF# #15#==#00#
  555. #GOTO#=ENDABPLACE
  556. #ENDIF#
  557. #FIND#=>#01#
  558. #FIND#=<#02#
  559. #FINDPREVIOUS#=,#04# #ONERROR#=*OK*
  560. #TAKEWORD#=#03#,#01#,#04#
  561. #CHECKVARIABLE#=#03#
  562. #STARTSUBSTITUTETAGS#
  563. #STARTDELETETAGS#
  564. #CLEARTAGS#
  565. #TRIM#
  566. #TAKEACTORBPLACE#=#03#
  567. #TAKEWORD#=#03#,#04#,#02#
  568. #CHECKVARIABLE#=#03#
  569. #STARTSUBSTITUTETAGS#
  570. #STARTDELETETAGS#
  571. #CLEARTAGS#
  572. #TRIM#
  573. #TAKEACTORCOUNTRY#=#03#
  574. :ENDABPLACE
  575.  
  576. #STARTREADWEB#
  577. #FINDLINE#=<filmography>#15# #ONERROR#=*OK*
  578. #IF# #15#==#00#
  579. #GOTO#=ENDAFILMO
  580. #ENDIF#
  581. :REPEATAFILMO
  582. #READNEXTLINE#
  583. #FIND#=</filmography>#15# #ONERROR#=*OK*
  584. #IF# #15#<>#00#
  585. #GOTO#=ENDAFILMO
  586. #ENDIF#
  587. #RESETCURSOR#
  588. #FIND#=<movie #15# #ONERROR#=*OK*
  589. #IF# #15#==#00#
  590. #GOTO#=REPEATAFILMO
  591. #ENDIF#
  592. #RESETCURSOR#
  593. #FIND#= name="#01# #ONERROR#=*OK*
  594. #COMPUTEVAR#=#01#+6
  595. #COMPUTECURSOR#=+7
  596. #FIND#="#02# #ONERROR#=*OK*
  597. #TAKEWORD#=#21#,#01#,#02#
  598. #CHECKVARIABLE#=#21#
  599. #STARTSUBSTITUTETAGS#
  600. #STARTDELETETAGS#
  601. #CLEARTAGS#
  602. #TRIM#
  603. #RESETCURSOR#
  604. #FIND#= id="#01# #ONERROR#=*OK*
  605. #COMPUTEVAR#=#01#+4
  606. #COMPUTECURSOR#=+5
  607. #FIND#="#02# #ONERROR#=*OK*
  608. #TAKEWORD#=#22#,#01#,#02#
  609. #CHECKVARIABLE#=#22#
  610. #TRIM#
  611. #RESETCURSOR#
  612. #FIND#=release="#01# #ONERROR#=*OK*
  613. #COMPUTEVAR#=#01#+8
  614. #COMPUTECURSOR#=+9
  615. #FIND#="#02# #ONERROR#=*OK*
  616. #TAKEWORD#=#03#,#01#,#02#
  617. #CHECKVARIABLE#=#03#
  618. #TRIM#
  619. #PUT#=1#01#
  620. #SEARCHREPLACEVAR#=.*(\d\d\d\d).*|$1#03##01#
  621. #STRING#=#11#=#21# (#03#)§http://api.themoviedb.org/2.1/Movie.getInfo/en/xml/#77#/#22#§THEMOVIEDB.ORG(API).txt
  622. #STRING#=#03#=#21# #NEWLINE#
  623. #TAKEACTORFILM#=#03# #ONERROR#=*ASK*
  624. #ADDFILMOGRAPHY#=#11# #ONERROR#=*ASK*
  625. #GOTO#=REPEATAFILMO
  626. :ENDAFILMO
  627.  
  628. #IF# #90#==#00#
  629. #GOTO#=ENDAIMAGE
  630. #ENDIF#
  631. #STARTREADWEB#
  632. #FINDLINE#=<images>#15# #ONERROR#=*OK*
  633. #IF# #15#==#00#
  634. #GOTO#=ENDAIMAGE
  635. #ENDIF#
  636. :REPEATFINDAIMAGE
  637. #READNEXTLINE#
  638. #FIND#=</images>#15# #ONERROR#=*OK*
  639. #IF# #15#<>#00#
  640. #GOTO#=ENDAIMAGE
  641. #ENDIF#
  642. #RESETCURSOR#
  643. #FIND#= size="original"#15# #ONERROR#=*OK*
  644. #IF# #15#==#00#
  645. #GOTO#=REPEATFINDAIMAGE
  646. #ENDIF#
  647. #RESETCURSOR#
  648. #FIND#= url="#01# #ONERROR#=*OK*
  649. #COMPUTEVAR#=#01#+5
  650. #COMPUTECURSOR#=+6
  651. #FIND#="#02# #ONERROR#=*OK*
  652. #TAKEWORD#=#03#,#01#,#02#
  653. #TAKEPICTUREINMOVIES#=#03#,#13#
  654. :ENDAIMAGE
  655.  
  656. #ADDACTOR#=#13#
  657. #RESTOREMAIN#
  658. #RESTOREWEBSITELINE#
  659. :CONTINUENEXTACTOR
  660. #GOTO#=REPEATACTORS
  661. :ENDACTORS
  662. #RESTOREMAIN#
  663.  
  664. #ENDACTORS#
  665.  
  666.  
  667. --CATEGORY----------------------------------------------------------------------------------
  668. #GENRE#
  669.  
  670. //Take only ONE genre, the others goes in the Subgenre
  671. #STARTREADWEB#
  672. #FINDLINE#=<categories>#12##ONERROR#=*STOP*
  673. :REPEATGENRE
  674. #READNEXTLINE#
  675. #FIND#=</categories>#11# #ONERROR#=*OK*
  676. #IF# #11#<>#00#
  677. #GOTO#=ENDGENRE
  678. #ENDIF#
  679. #RESETCURSOR#
  680. #FIND#=<category #11# #ONERROR#=*OK*
  681. #IF# #11#==#00#
  682. #GOTO#=REPEATGENRE
  683. #ENDIF#
  684. #FIND#= name="#11# #ONERROR#=*OK*
  685. #COMPUTEVAR#=#11#+6
  686. #COMPUTECURSOR#=+7
  687. #FIND#="#12# #ONERROR#=*OK*
  688. #TAKEWORD#=#13#,#11#,#12#
  689. #CHECKVARIABLE#=#13#
  690. #STARTSUBSTITUTETAGS#
  691. #STARTDELETETAGS#
  692. #CLEARTAGS#
  693. #TRIM#
  694. #TAKEGENRE#=#13#
  695. :ENDGENRE
  696.  
  697. #ENDGENRE#
  698.  
  699.  
  700. --SUBCATEGORY-------------------------------------------------------------------------------
  701. #SUBGENRE#
  702.  
  703. //Take only ONE genre, the others goes in the Subgenre
  704. #STARTREADWEB#
  705. #FINDLINE#=<categories>#12##ONERROR#=*STOP*
  706. #PUT#=0#14#
  707. :REPEATSUBGENRE
  708. #READNEXTLINE#
  709. #FIND#=</categories>#11# #ONERROR#=*OK*
  710. #IF# #11#<>#00#
  711. #GOTO#=ENDSUBGENRE
  712. #ENDIF#
  713. #RESETCURSOR#
  714. #FIND#=<category #11# #ONERROR#=*OK*
  715. #IF# #11#==#00#
  716. #GOTO#=REPEATSUBGENRE
  717. #ENDIF#
  718. #IF# #14#==#00#
  719. #PUT#=1#14#
  720. #GOTO#=REPEATSUBGENRE
  721. #ENDIF#
  722. #FIND#= name="#11# #ONERROR#=*OK*
  723. #COMPUTEVAR#=#11#+6
  724. #COMPUTECURSOR#=+7
  725. #FIND#="#12# #ONERROR#=*OK*
  726. #TAKEWORD#=#13#,#11#,#12#
  727. #CHECKVARIABLE#=#13#
  728. #STARTSUBSTITUTETAGS#
  729. #STARTDELETETAGS#
  730. #CLEARTAGS#
  731. #TRIM#
  732. #TAKESUBGENRE#=#13#
  733. #GOTO#=REPEATSUBGENRE
  734. :ENDSUBGENRE
  735.  
  736. #ENDSUBGENRE#
  737.  
  738.  
  739. --RATED-------------------------------------------------------------------------------------
  740. #RATING#
  741.  
  742. #STARTREADWEB#
  743. #FINDLINE#=<rating>#12##ONERROR#=*STOP*
  744. #RESETCURSOR#
  745. #FIND#=>#11# #ONERROR#=*OK*
  746. #FIND#=<#12# #ONERROR#=*OK*
  747. #TAKEWORD#=#13#,#11#,#12#
  748. #TAKERATING#=#13#
  749.  
  750. #ENDRATING#
  751.  
  752.  
  753. --COMMENTS----------------------------------------------------------------------------------
  754. #COMMENTS#
  755.  
  756.  
  757. #ENDCOMMENTS#
  758.  
  759.  
  760. --PLOT--------------------------------------------------------------------------------------
  761. #PLOT#
  762.  
  763. #STARTREADWEB#
  764. #FINDLINE#=<overview>#12##ONERROR#=*OK*
  765. #IF# #12#==#00#
  766. #GOTO#=ENDPLOT
  767. #ENDIF#
  768. #FIND#=>#11# #ONERROR#=*OK*
  769. #FIND#=<#12# #ONERROR#=*OK*
  770. #TAKEWORD#=#13#,#11#,#12#
  771. #CHECKVARIABLE#=#13#
  772. #STARTSUBSTITUTETAGS#
  773. #CLEARTAGS#
  774. #STARTDELETETAGS#
  775. #TRIM#
  776. #TAKEPLOT#=#13#
  777. :ENDPLOT
  778.  
  779. #ENDPLOT#
  780.  
  781.  
  782. --TAGLINE-----------------------------------------------------------------------------------
  783. #TAGLINE#
  784.  
  785. #STARTREADWEB#
  786. #FINDLINE#=<tagline>#12##ONERROR#=*OK*
  787. #IF# #12#==#00#
  788. #GOTO#=ENDTAGLINE
  789. #ENDIF#
  790. #FIND#=>#11# #ONERROR#=*OK*
  791. #FIND#=<#12# #ONERROR#=*OK*
  792. #TAKEWORD#=#13#,#11#,#12#
  793. #CHECKVARIABLE#=#13#
  794. #STARTSUBSTITUTETAGS#
  795. #CLEARTAGS#
  796. #STARTDELETETAGS#
  797. #TRIM#
  798. #TAKETAGLINE#=#13#
  799.  
  800. :ENDTAGLINE
  801.  
  802. #ENDTAGLINE#
  803.  
  804.  
  805. --LENGTH------------------------------------------------------------------------------------
  806. #RUNTIME#
  807.  
  808. #STARTREADWEB#
  809. #FINDLINE#=<runtime>#15##ONERROR#=*STOP*
  810. #FIND#=>#11# #ONERROR#=*OK*
  811. #FIND#=<#12# #ONERROR#=*OK*
  812. #TAKEWORD#=#13#,#11#,#12#
  813. #CHECKVARIABLE#=#13#
  814. #STARTSUBSTITUTETAGS#
  815. #STARTDELETETAGS#
  816. #TRIM#
  817. #TAKERUNTIME#=#13#
  818.  
  819. #ENDRUNTIME#
  820.  
  821.  
  822. --COUNTRY-----------------------------------------------------------------------------------
  823. #COUNTRY#
  824.  
  825. #STARTREADWEB#
  826. #FINDLINE#=<countries>#12##ONERROR#=*OK*
  827. #IF# #12#==#00#
  828. #GOTO#=ENDCOUNTRY
  829. #ENDIF#
  830. :REPEATCOUNTRY
  831. #READNEXTLINE#
  832. #FIND#=</countries>#11# #ONERROR#=*OK*
  833. #IF# #11#<>#00#
  834. #GOTO#=ENDCOUNTRY
  835. #ENDIF#
  836. #RESETCURSOR#
  837. #FIND#=<country #11# #ONERROR#=*OK*
  838. #IF# #11#==#00#
  839. #GOTO#=REPEATCOUNTRY
  840. #ENDIF#
  841. #FIND#= name="#11# #ONERROR#=*OK*
  842. #COMPUTEVAR#=#11#+6
  843. #COMPUTECURSOR#=+7
  844. #FIND#="#12# #ONERROR#=*OK*
  845. #TAKEWORD#=#03#,#11#,#12#
  846. #CHECKVARIABLE#=#03#
  847. #CLEARTAGS#
  848. #STARTSUBSTITUTETAGS#
  849. #STARTDELETETAGS#
  850. #TRIM#
  851. #TAKECOUNTRY#=#03#
  852. #GOTO#=REPEATCOUNTRY
  853. :ENDCOUNTRY
  854.  
  855. #ENDCOUNTRY#
  856.  
  857.  
  858. --YEAR--------------------------------------------------------------------------------------
  859. #YEAR#
  860.  
  861. #STARTREADWEB#
  862. #FINDLINE#=<released>#12##ONERROR#=*STOP*
  863. #FIND#=>#11# #ONERROR#=*OK*
  864. #FIND#=-#12# #ONERROR#=*OK*
  865. #TAKEWORD#=#13#,#11#,#12#
  866. #TAKEYEAR#=#13#
  867.  
  868. #ENDYEAR#
  869.  
  870.  
  871. --ORIGINAL LANGUAGE-------------------------------------------------------------------------
  872. #LANGUAGE#
  873.  
  874. #STARTREADWEB#
  875.  
  876. #//TAKELANGUAGE#=#13#
  877.  
  878. #ENDLANGUAGE#
  879.  
  880. --SITE ID-----------------------------------------------------------------------------------
  881. #MOVIEID#
  882.  
  883. #STARTREADWEB#
  884. #FINDLINE#=<id>#15##ONERROR#=*STOP*
  885. #FIND#=>#11# #ONERROR#=*OK*
  886. #FIND#=<#12# #ONERROR#=*OK*
  887. #TAKEWORD#=#03#,#11#,#12#
  888. #TAKEMOVIEID#=#03#
  889.  
  890. #ENDMOVIEID#
  891.  
  892.  
  893. --PICTURE-----------------------------------------------------------------------------------
  894. #POSTER#
  895.  
  896. #PUT#=1#16#
  897.  
  898. #IF# #89#==#00#
  899. #GOTO#=ENDPOSTERS
  900. #ENDIF#
  901.  
  902. #IF# #54#==#00#
  903. #GOTO#=ENDPOSTERS
  904. #ENDIF#
  905. #STARTREADWEB#
  906. #FINDLINE#=<images>#12##ONERROR#=*OK*
  907. #IF# #12#==#00#
  908. #GOTO#=ENDPOSTERS
  909. #ENDIF#
  910. :REPEATPOSTERS
  911. #READNEXTLINE#
  912. #FIND#=</images>#12##ONERROR#=*OK*
  913. #IF# #12#<>#00#
  914. #GOTO#=ENDPOSTERS
  915. #ENDIF#
  916. #RESETCURSOR#
  917. #FIND#=<image type="poster"#12##ONERROR#=*OK*
  918. #IF# #12#==#00#
  919. #GOTO#=REPEATPOSTERS
  920. #ENDIF#
  921. #RESETCURSOR#
  922. #FIND#= size="original"#12##ONERROR#=*OK*
  923. #IF# #12#==#00#
  924. #GOTO#=REPEATPOSTERS
  925. #ENDIF#
  926. #RESETCURSOR#
  927. #FIND#= url="#01##ONERROR#=*OK*
  928. #COMPUTEVAR#=#01#+5
  929. #COMPUTECURSOR#=+6
  930. #FIND#="#02##ONERROR#=*OK*
  931. #TAKEWORD#=#13#,#01#,#02#
  932. #TAKEPOSTER#=#13#
  933. #IF# #89#==#16#
  934. #GOTO#=ENDPOSTERS
  935. #ENDIF#
  936. #GOTO#=REPEATPOSTERS
  937. :ENDPOSTERS
  938.  
  939. #IF# #91#==#00#
  940. #GOTO#=ENDBACKDROPS
  941. #ENDIF#
  942.  
  943. #IF# #55#==#00#
  944. #GOTO#=ENDBACKDROPS
  945. #ENDIF#
  946. #STARTREADWEB#
  947. #FINDLINE#=<images>#12##ONERROR#=*OK*
  948. #IF# #12#==#00#
  949. #GOTO#=ENDBACKDROPS
  950. #ENDIF#
  951. :REPEATBACKDROPS
  952. #READNEXTLINE#
  953. #FIND#=</images>#12##ONERROR#=*OK*
  954. #IF# #12#<>#00#
  955. #GOTO#=ENDBACKDROPS
  956. #ENDIF#
  957. #RESETCURSOR#
  958. #FIND#=<image type="backdrop"#12##ONERROR#=*OK*
  959. #IF# #12#==#00#
  960. #GOTO#=REPEATBACKDROPS
  961. #ENDIF#
  962. #RESETCURSOR#
  963. #FIND#= size="original"#12##ONERROR#=*OK*
  964. #IF# #12#==#00#
  965. #GOTO#=REPEATBACKDROPS
  966. #ENDIF#
  967. #RESETCURSOR#
  968. #FIND#= url="#01##ONERROR#=*OK*
  969. #COMPUTEVAR#=#01#+5
  970. #COMPUTECURSOR#=+6
  971. #FIND#="#02##ONERROR#=*OK*
  972. #TAKEWORD#=#13#,#01#,#02#
  973. #TAKEPOSTERFANART#=#13#
  974. #IF# #91#==#16#
  975. #GOTO#=ENDBACKDROPS
  976. #ENDIF#
  977. #GOTO#=REPEATBACKDROPS
  978. :ENDBACKDROPS
  979.  
  980. :ENDPOSTERCOMPLETE
  981.  
  982. #ENDPOSTER#
  983.  
  984.  
  985. --AWARDS------------------------------------------------------------------------------------
  986. #AWARDS#
  987.  
  988.  
  989. #ENDAWARDS#
  990.  
  991.  
  992.  
  993. --PRODUCER----------------------------------------------------------------------------------
  994. #PRODUCER#
  995.  
  996. #STARTREADWEB#
  997. #FINDLINE#=<cast>#12##ONERROR#=*OK*
  998. #IF# #12#==#00#
  999. #GOTO#=ENDPRODUCER1
  1000. #ENDIF#
  1001. :REPEATPRODUCER1
  1002. #READNEXTLINE#
  1003. #FIND#=</cast>#12##ONERROR#=*OK*
  1004. #IF# #12#<>#00#
  1005. #GOTO#=ENDPRODUCER1
  1006. #ENDIF#
  1007. #RESETCURSOR#
  1008. #FIND#=job="Producer"#12##ONERROR#=*OK*
  1009. #IF# #12#<>#00#
  1010. #GOTO#=TAKEPRODUCER
  1011. #ENDIF#
  1012. #RESETCURSOR#
  1013. #FIND#=job="Executive Producer"#12##ONERROR#=*OK*
  1014. #IF# #12#==#00#
  1015. #GOTO#=REPEATPRODUCER1
  1016. #ENDIF#
  1017. :TAKEPRODUCER
  1018. #RESETCURSOR#
  1019. #FIND#= name="#11# #ONERROR#=*OK*
  1020. #COMPUTEVAR#=#11#+6
  1021. #COMPUTECURSOR#=+7
  1022. #FIND#="#12# #ONERROR#=*OK*
  1023. #TAKEWORD#=#13#,#11#,#12#
  1024. #CHECKVARIABLE#=#13#
  1025. #STARTSUBSTITUTETAGS#
  1026. #STARTDELETETAGS#
  1027. #CLEARTAGS#
  1028. #TRIM#
  1029. #TAKEPRODUCER#=#13#
  1030. #GOTO#=REPEATPRODUCER1
  1031. :ENDPRODUCER1
  1032.  
  1033.  
  1034. #ENDPRODUCER#
  1035.  
  1036.  
  1037.  
  1038.  
  1039. --WRITER------------------------------------------------------------------------------------
  1040. #WRITER#
  1041.  
  1042. #STARTREADWEB#
  1043. #FINDLINE#=<cast>#12##ONERROR#=*OK*
  1044. #IF# #12#==#00#
  1045. #GOTO#=ENDWRITER1
  1046. #ENDIF#
  1047. :REPEATWRITER1
  1048. #READNEXTLINE#
  1049. #FIND#=</cast>#12##ONERROR#=*OK*
  1050. #IF# #12#<>#00#
  1051. #GOTO#=ENDWRITER1
  1052. #ENDIF#
  1053. #RESETCURSOR#
  1054. #FIND#= job="Author"#12##ONERROR#=*OK*
  1055. #IF# #12#<>#00#
  1056. #GOTO#=TAKEWRITER
  1057. #ENDIF#
  1058. #RESETCURSOR#
  1059. #FIND#= job="Screenplay"#12##ONERROR#=*OK*
  1060. #IF# #12#==#00#
  1061. #GOTO#=REPEATWRITER1
  1062. #ENDIF#
  1063. :TAKEWRITER
  1064. #RESETCURSOR#
  1065. #FIND#= name="#11# #ONERROR#=*OK*
  1066. #COMPUTEVAR#=#11#+6
  1067. #COMPUTECURSOR#=+7
  1068. #FIND#="#12# #ONERROR#=*OK*
  1069. #TAKEWORD#=#13#,#11#,#12#
  1070. #CHECKVARIABLE#=#13#
  1071. #STARTSUBSTITUTETAGS#
  1072. #STARTDELETETAGS#
  1073. #CLEARTAGS#
  1074. #TRIM#
  1075. #TAKEWRITER#=#13#
  1076. #GOTO#=REPEATWRITER1
  1077. :ENDWRITER1
  1078.  
  1079. #ENDWRITER#
  1080.  
  1081.  
  1082. --REGION------------------------------------------------------------------------------------
  1083. #REGION#
  1084.  
  1085. //Must be taken from the Combined Details Section, so I don't take it
  1086.  
  1087. #ENDREGION#
  1088.  
  1089.  
  1090. --EDITION-----------------------------------------------------------------------------------
  1091. #EDITION#
  1092.  
  1093. //Must be taken from the Combined Details Section, so I don't take it
  1094.  
  1095. #ENDEDITION#
  1096.  
  1097.  
  1098. --SCREEN RATIO------------------------------------------------------------------------------
  1099. #SCREENDVD#
  1100.  
  1101. //Must be taken from the Combined Details Section, so I don't take it
  1102.  
  1103. #ENDSCREENDVD#
  1104.  
  1105.  
  1106. --AUDIO FORMAT------------------------------------------------------------------------------
  1107. #AUDIODVD#
  1108.  
  1109. //Must be taken from the Combined Details Section, so I don't take it
  1110.  
  1111. #ENDAUDIODVD#
  1112.  
  1113.  
  1114.  
  1115. --PHOTOGRAPHER------------------------------------------------------------------------------
  1116. #PHOTOGRAPHER#
  1117.  
  1118. #STARTREADWEB#
  1119. #FINDLINE#=<cast>#12##ONERROR#=*OK*
  1120. #IF# #12#==#00#
  1121. #GOTO#=ENDPHOTOGRAPHER1
  1122. #ENDIF#
  1123. :REPEATPHOTOGRAPHER1
  1124. #READNEXTLINE#
  1125. #FIND#=</cast>#12##ONERROR#=*OK*
  1126. #IF# #12#<>#00#
  1127. #GOTO#=ENDPHOTOGRAPHER1
  1128. #ENDIF#
  1129. #RESETCURSOR#
  1130. #FIND#= job="Director of Photography"#12##ONERROR#=*OK*
  1131. #IF# #12#==#00#
  1132. #GOTO#=REPEATPHOTOGRAPHER1
  1133. #ENDIF#
  1134. #RESETCURSOR#
  1135. #FIND#= name="#11# #ONERROR#=*OK*
  1136. #COMPUTEVAR#=#11#+6
  1137. #COMPUTECURSOR#=+7
  1138. #FIND#="#12# #ONERROR#=*OK*
  1139. #TAKEWORD#=#13#,#11#,#12#
  1140. #CHECKVARIABLE#=#13#
  1141. #STARTSUBSTITUTETAGS#
  1142. #STARTDELETETAGS#
  1143. #CLEARTAGS#
  1144. #TRIM#
  1145. #TAKEPHOTOGRAPHER#=#13#
  1146. #GOTO#=REPEATPHOTOGRAPHER1
  1147. :ENDPHOTOGRAPHER1
  1148.  
  1149. #ENDPHOTOGRAPHER#
  1150.  
  1151.  
  1152.  
  1153. --STUDIO------------------------------------------------------------------------------------
  1154. #STUDIO#
  1155.  
  1156. #STARTREADWEB#
  1157. #FINDLINE#=<studios>#15# #ONERROR#=*OK*
  1158. #IF# #15#==#00#
  1159. #GOTO#=ENDSTUDIO
  1160. #ENDIF#
  1161. :REPEATSTUDIOS
  1162. #READNEXTLINE#
  1163. #FIND#=</studios>#12# #ONERROR#=*OK*
  1164. #IF# #12#<>#00#
  1165. #GOTO#=ENDSTUDIO
  1166. #ENDIF#
  1167. #RESETCURSOR#
  1168. #FIND#=<studio #12# #ONERROR#=*OK*
  1169. #IF# #12#==#00#
  1170. #GOTO#=REPEATSTUDIOS
  1171. #ENDIF#
  1172. #RESETCURSOR#
  1173. #FIND#= name="#11# #ONERROR#=*OK*
  1174. #COMPUTEVAR#=#11#+6
  1175. #COMPUTECURSOR#=+7
  1176. #FIND#="#12# #ONERROR#=*OK*
  1177. #TAKEWORD#=#13#,#11#,#12#
  1178. #CHECKVARIABLE#=#13#
  1179. #STARTSUBSTITUTETAGS#
  1180. #STARTDELETETAGS#
  1181. #CLEARTAGS#
  1182. #TRIM#
  1183. #TAKESTUDIO#=#13#
  1184. #GOTO#=REPEATSTUDIOS
  1185. :ENDSTUDIO
  1186.  
  1187. #ENDSTUDIO#
  1188.  
  1189.  
  1190. --MPAA--------------------------------------------------------------------------------------
  1191. #MPAA#
  1192.  
  1193. #STARTREADWEB#
  1194. #FINDLINE#=<certification>#15##ONERROR#=*OK*
  1195. #IF# #15#==#00#
  1196. #GOTO#=ENDMPAA
  1197. #ENDIF#
  1198. #PUT#=#13#
  1199. #FIND#=>#11# #ONERROR#=*OK*
  1200. #FIND#=<#12# #ONERROR#=*OK*
  1201. #IF# #12#==#00#
  1202. #GOTO#=ENDMPAA
  1203. #ENDIF#
  1204. #TAKEWORD#=#13#,#11#,#12#
  1205. #CHECKVARIABLE#=#13#
  1206. #STARTSUBSTITUTETAGS#
  1207. #STARTDELETETAGS#
  1208. #CLEARTAGS#
  1209. #TRIM#
  1210. #PUT#=#10#
  1211. #IF# #13#<>#10#
  1212. #TAKEMPAA#=#13#
  1213. #ENDIF#
  1214. :ENDMPAA
  1215.  
  1216. #ENDMPAA#
  1217.  
  1218.  
  1219. --MUSIC-------------------------------------------------------------------------------------
  1220. #MUSIC#
  1221.  
  1222. #STARTREADWEB#
  1223. #FINDLINE#=<cast>#12##ONERROR#=*OK*
  1224. #IF# #12#==#00#
  1225. #GOTO#=ENDMUSIC1
  1226. #ENDIF#
  1227. :REPEATMUSIC1
  1228. #READNEXTLINE#
  1229. #FIND#=</cast>#12##ONERROR#=*OK*
  1230. #IF# #12#<>#00#
  1231. #GOTO#=ENDMUSIC1
  1232. #ENDIF#
  1233. #RESETCURSOR#
  1234. #FIND#= job="Original Music Composer"#12##ONERROR#=*OK*
  1235. #IF# #12#<>#00#
  1236. #GOTO#=TAKEMUSIC
  1237. #ENDIF#
  1238. #RESETCURSOR#
  1239. #FIND#= job="Music"#12##ONERROR#=*OK*
  1240. #IF# #12#==#00#
  1241. #GOTO#=REPEATMUSIC1
  1242. #ENDIF#
  1243. :TAKEMUSIC
  1244. #RESETCURSOR#
  1245. #FIND#= name="#11# #ONERROR#=*OK*
  1246. #COMPUTEVAR#=#11#+6
  1247. #COMPUTECURSOR#=+7
  1248. #FIND#="#12# #ONERROR#=*OK*
  1249. #TAKEWORD#=#13#,#11#,#12#
  1250. #CHECKVARIABLE#=#13#
  1251. #STARTSUBSTITUTETAGS#
  1252. #STARTDELETETAGS#
  1253. #CLEARTAGS#
  1254. #TRIM#
  1255. #TAKEMUSIC#=#13#
  1256. #GOTO#=REPEATMUSIC1
  1257. :ENDMUSIC1
  1258.  
  1259. #ENDMUSIC#
  1260.  
  1261.  
  1262.  
  1263. --DISTRIBUTOR-------------------------------------------------------------------------------
  1264. #DISTRIBUTOR#
  1265.  
  1266.  
  1267. #ENDDISTRIBUTOR#
  1268.  
  1269.  
  1270.  
  1271.  
  1272. --OFFICIAL WEB------------------------------------------------------------------------------
  1273. #OFFICIALWEB#
  1274.  
  1275. #STARTREADWEB#
  1276. #FINDLINE#=<homepage>#12##ONERROR#=*STOP*
  1277. #FIND#=>#11# #ONERROR#=*OK*
  1278. #FIND#=<#12# #ONERROR#=*OK*
  1279. #TAKEWORD#=#13#,#11#,#12#
  1280. #TAKEOFFICIALWEB#=#13#
  1281. :ENDOFFICIALWEB
  1282.  
  1283. #ENDOFFICIALWEB#
  1284.  
  1285.  
  1286.  
  1287.  
  1288.  
  1289.  
  1290. --UPC---------------------------------------------------------------------------------------
  1291. #UPC#
  1292. // I've only found one movie that they had UPC information on and that was
  1293. // only as extra notes so this is left as it is.
  1294. #ENDUPC#
  1295.  
  1296.  
  1297.  
  1298.  
  1299. --AWARDS------------------------------------------------------------------------------------
  1300. #AWARDS#
  1301.  
  1302. #ENDAWARDS#
  1303.  
  1304.  
  1305. --AKAS Titles------------------------------------------------------------------------------------
  1306. #CUSTOM9#
  1307.  
  1308. #STARTREADWEB#
  1309. :REPEATAKAS
  1310. #FINDLINE#=<alternative_name>#12##ONERROR#=*OK*
  1311. #IF# #12#==#00#
  1312. #GOTO#=ENDAKAS
  1313. #ENDIF#
  1314. #FIND#=>#11# #ONERROR#=*OK*
  1315. #FIND#=<#12# #ONERROR#=*OK*
  1316. #TAKEWORD#=#13#,#11#,#12#
  1317. #CHECKVARIABLE#=#13#
  1318. #STARTSUBSTITUTETAGS#
  1319. #STARTDELETETAGS#
  1320. #CLEARTAGS#
  1321. #TRIM#
  1322. #STRING#=#13#=#13##NEWLINE#
  1323. #TAKECUSTOM9#=#13#
  1324. #GOTO#=REPEATAKAS
  1325. :ENDAKAS
  1326.  
  1327. #ENDCUSTOM9#
  1328.  
  1329.  
  1330. --IMDBTOP250--------------------------------------------------------------------------------
  1331. #CUSTOM1#
  1332.  
  1333. #ENDCUSTOM1#
  1334.  
  1335. --EDITOR----------------------------------------------------------------------------------
  1336. #CUSTOM3#
  1337.  
  1338. #STARTREADWEB#
  1339. #PUT#=#10#
  1340. #PUT#=#15#
  1341. #FINDLINE#=<cast>#12##ONERROR#=*OK*
  1342. #IF# #12#==#00#
  1343. #GOTO#=ENDCUSTOM3
  1344. #ENDIF#
  1345. :REPEATEDITOR1
  1346. #READNEXTLINE#
  1347. #FIND#=</cast>#12##ONERROR#=*OK*
  1348. #IF# #12#<>#00#
  1349. #GOTO#=ENDEDITOR1
  1350. #ENDIF#
  1351. #RESETCURSOR#
  1352. #FIND#= job="Editor"#12##ONERROR#=*OK*
  1353. #IF# #12#==#00#
  1354. #GOTO#=REPEATEDITOR1
  1355. #ENDIF#
  1356. #RESETCURSOR#
  1357. #FIND#= name="#11# #ONERROR#=*OK*
  1358. #COMPUTEVAR#=#11#+6
  1359. #COMPUTECURSOR#=+7
  1360. #FIND#="#12# #ONERROR#=*OK*
  1361. #TAKEWORD#=#13#,#11#,#12#
  1362. #CHECKVARIABLE#=#13#
  1363. #STARTSUBSTITUTETAGS#
  1364. #STARTDELETETAGS#
  1365. #CLEARTAGS#
  1366. #TRIM#
  1367. #STRING#=#10#=#10##15##13#
  1368. #PUT#=| #15#
  1369. #GOTO#=REPEATEDITOR1
  1370. :ENDEDITOR1
  1371. #TAKECUSTOM3#=#10#
  1372. :ENDCUSTOM3
  1373.  
  1374. #ENDCUSTOM3#
  1375.  
  1376. --BUDGET----------------------------------------------------------------------------------------
  1377.  
  1378. #CUSTOM5#
  1379.  
  1380. #STARTREADWEB#
  1381. #FINDLINE#=<budget>#15##ONERROR#=*STOP*
  1382. #FIND#=>#11##ONERROR#=*OK*
  1383. #FIND#=<#12##ONERROR#=*OK*
  1384. #TAKEWORD#=#03#,#11#,#12#
  1385. #CHECKVARIABLE#=#03#
  1386. #TRIM#
  1387. #PUT#=0#04#
  1388. #IF# #03#==#04#
  1389. #GOTO#=ENDBUDGET
  1390. #ENDIF#
  1391. #PUT#=-#04#
  1392. #IF# #03#==#04#
  1393. #GOTO#=ENDBUDGET
  1394. #ENDIF#
  1395. #PUT#=#04#
  1396. #IF# #03#==#04#
  1397. #GOTO#=ENDBUDGET
  1398. #ENDIF#
  1399. #STRING#=#03#=$#03#
  1400. #TAKECUSTOM5#=#03#
  1401. :ENDBUDGET
  1402.  
  1403. #ENDCUSTOM5#
  1404.  
  1405. --GROSS----------------------------------------------------------------------------------------
  1406.  
  1407. #CUSTOM6#
  1408.  
  1409. #STARTREADWEB#
  1410. #FINDLINE#=<revenue>#15##ONERROR#=*STOP*
  1411. #FIND#=>#11##ONERROR#=*OK*
  1412. #FIND#=<#12##ONERROR#=*OK*
  1413. #TAKEWORD#=#03#,#11#,#12#
  1414. #CHECKVARIABLE#=#03#
  1415. #TRIM#
  1416. #PUT#=0#04#
  1417. #IF# #03#==#04#
  1418. #GOTO#=ENDGROSS
  1419. #ENDIF#
  1420. #PUT#=-#04#
  1421. #IF# #03#==#04#
  1422. #GOTO#=ENDGROSS
  1423. #ENDIF#
  1424. #PUT#=#04#
  1425. #IF# #03#==#04#
  1426. #GOTO#=ENDGROSS
  1427. #ENDIF#
  1428. #STRING#=#03#=$#03#
  1429. #TAKECUSTOM6#=#03#
  1430. :ENDGROSS
  1431.  
  1432. #ENDCUSTOM6#
  1433.  
  1434. #CUSTOM8#
  1435.  
  1436. #PUT#=#04#
  1437. #STARTREADWEB#
  1438. #FINDLINE#=<imdb_id>#15##ONERROR#=*STOP*
  1439. #FIND#=>#11##ONERROR#=*OK*
  1440. #FIND#=<#12##ONERROR#=*OK*
  1441. #TAKEWORD#=#03#,#11#,#12#
  1442. #CHECKVARIABLE#=#03#
  1443. #TRIM#
  1444. #IF# #03#<>#04#
  1445. #STRING#=#03#=http://akas.imdb.com/title/#03#
  1446. #TAKECUSTOM8#=#03#
  1447. #ENDIF#
  1448.  
  1449. #ENDCUSTOM8#
  1450.  
  1451. --GOOFS------------------------------------------------------------------------------------
  1452. #CUSTOM10#
  1453.  
  1454. //Must be taken from the Combined Details Section, so I don't take it
  1455.  
  1456. #ENDCUSTOM10#
  1457.  
  1458.  
  1459.  
  1460. --TRIVIA------------------------------------------------------------------------------------
  1461. #CUSTOM11#
  1462.  
  1463. //Must be taken from the Combined Details Section, so I don't take it
  1464.  
  1465. #ENDCUSTOM11#
  1466.  
  1467.  
  1468.  
  1469. /-------------------------------------------------
  1470. #TRAILER#
  1471.  
  1472.  
  1473. #STARTREADWEB#
  1474. #FINDLINE#=<trailer>#12##ONERROR#=*OK*
  1475. #IF# #12#==#00#
  1476. #GOTO#=NOTRAILERS
  1477. #ENDIF#
  1478. #FIND#=>#11##ONERROR#=*OK*
  1479. #FIND#=<#12##ONERROR#=*OK*
  1480. #TAKEWORD#=#03#,#11#,#12#
  1481. #CHECKVARIABLE#=#03#
  1482. #TRIM#
  1483. #TAKETRAILER1#=#03#
  1484. :NOTRAILERS
  1485.  
  1486. #ENDTRAILER#
  1487.  
  1488.  
  1489. #DELETETAGS#
  1490. #DELETEWORD#=&nbsp;
  1491. #DELETEWORD#=<BR>
  1492. #DELETEWORD#=<br>
  1493. #DELETEWORD#=</BR>
  1494. #DELETEWORD#=</P>
  1495. #DELETEWORD#=</BLOCKQUOTE>
  1496. #DELETEWORD#=<b>
  1497. #DELETEWORD#=<br />
  1498. #DELETEWORD#=</b>
  1499. #DELETEWORD#=br />
  1500. #DELETEWORD#=<b
  1501. #DELETEWORD#=b>
  1502.  
  1503.  
  1504. #ENDDELETETAGS#
  1505.  
  1506. #SUBSTITUTETAGS#
  1507. #SUBSTITUTEWORD#=&auml;=ä
  1508. #SUBSTITUTEWORD#=&Auml;=Ä
  1509. #SUBSTITUTEWORD#=&ouml;=ö
  1510. #SUBSTITUTEWORD#=&Ouml;=Ö
  1511. #SUBSTITUTEWORD#=&uuml;=ü
  1512. #SUBSTITUTEWORD#=&Uuml;=Ü
  1513. #SUBSTITUTEWORD#=&szlig;=ß
  1514. #SUBSTITUTEWORD#=%E4=ä
  1515. #SUBSTITUTEWORD#=%C4=Ä
  1516. #SUBSTITUTEWORD#=%F6=ö
  1517. #SUBSTITUTEWORD#=%D6=Ö
  1518. #SUBSTITUTEWORD#=%FC=ü
  1519. #SUBSTITUTEWORD#=%DC=Ü
  1520. #SUBSTITUTEWORD#=%DF=ß
  1521. #SUBSTITUTEWORD#=&#160;=
  1522. #SUBSTITUTEWORD#=&#161;=¡
  1523. #SUBSTITUTEWORD#=&#162;=¢
  1524. #SUBSTITUTEWORD#=&#163;=£
  1525. #SUBSTITUTEWORD#=&#164;=¤
  1526. #SUBSTITUTEWORD#=&#165;=¥
  1527. #SUBSTITUTEWORD#=&#166;=¦
  1528. #SUBSTITUTEWORD#=&#167;=§
  1529. #SUBSTITUTEWORD#=&#168;=¨
  1530. #SUBSTITUTEWORD#=&#169;=©
  1531. #SUBSTITUTEWORD#=&#170;=ª
  1532. #SUBSTITUTEWORD#=&#171;=«
  1533. #SUBSTITUTEWORD#=&#172;=¬
  1534. #SUBSTITUTEWORD#=&#173;=­
  1535. #SUBSTITUTEWORD#=&#174;=®
  1536. #SUBSTITUTEWORD#=&#175;=¯
  1537. #SUBSTITUTEWORD#=&#176;=°
  1538. #SUBSTITUTEWORD#=&#177;=±
  1539. #SUBSTITUTEWORD#=&#178;=²
  1540. #SUBSTITUTEWORD#=&#179;=³
  1541. #SUBSTITUTEWORD#=&#180;=´
  1542. #SUBSTITUTEWORD#=&#181;=µ
  1543. #SUBSTITUTEWORD#=&#182;=¶
  1544. #SUBSTITUTEWORD#=&#183;=·
  1545. #SUBSTITUTEWORD#=&#184;=¸
  1546. #SUBSTITUTEWORD#=&#185;=¹
  1547. #SUBSTITUTEWORD#=&#186;=º
  1548. #SUBSTITUTEWORD#=&#187;=»
  1549. #SUBSTITUTEWORD#=&#188;=¼
  1550. #SUBSTITUTEWORD#=&#189;=½
  1551. #SUBSTITUTEWORD#=&#190;=¾
  1552. #SUBSTITUTEWORD#=&#191;=¿
  1553. #SUBSTITUTEWORD#=&#192;=À
  1554. #SUBSTITUTEWORD#=&#193;=Á
  1555. #SUBSTITUTEWORD#=&#194;=Â
  1556. #SUBSTITUTEWORD#=&#195;=Ã
  1557. #SUBSTITUTEWORD#=&#196;=Ä
  1558. #SUBSTITUTEWORD#=&#197;=Å
  1559. #SUBSTITUTEWORD#=&#198;=Æ
  1560. #SUBSTITUTEWORD#=&#199;=Ç
  1561. #SUBSTITUTEWORD#=&#200;=È
  1562. #SUBSTITUTEWORD#=&#201;=É
  1563. #SUBSTITUTEWORD#=&#202;=Ê
  1564. #SUBSTITUTEWORD#=&#203;=Ë
  1565. #SUBSTITUTEWORD#=&#204;=Ì
  1566. #SUBSTITUTEWORD#=&#205;=Í
  1567. #SUBSTITUTEWORD#=&#206;=Î
  1568. #SUBSTITUTEWORD#=&#207;=Ï
  1569. #SUBSTITUTEWORD#=&#208;=Ð
  1570. #SUBSTITUTEWORD#=&#209;=Ñ
  1571. #SUBSTITUTEWORD#=&#210;=Ò
  1572. #SUBSTITUTEWORD#=&#211;=Ó
  1573. #SUBSTITUTEWORD#=&#212;=Ô
  1574. #SUBSTITUTEWORD#=&#213;=Õ
  1575. #SUBSTITUTEWORD#=&#214;=Ö
  1576. #SUBSTITUTEWORD#=&#215;=×
  1577. #SUBSTITUTEWORD#=&#216;=Ø
  1578. #SUBSTITUTEWORD#=&#217;=Ù
  1579. #SUBSTITUTEWORD#=&#218;=Ú
  1580. #SUBSTITUTEWORD#=&#219;=Û
  1581. #SUBSTITUTEWORD#=&#220;=Ü
  1582. #SUBSTITUTEWORD#=&#221;=Ý
  1583. #SUBSTITUTEWORD#=&#222;=Þ
  1584. #SUBSTITUTEWORD#=&#223;=ß
  1585. #SUBSTITUTEWORD#=&#224;=à
  1586. #SUBSTITUTEWORD#=&#225;=á
  1587. #SUBSTITUTEWORD#=&#226;=â
  1588. #SUBSTITUTEWORD#=&#227;=ã
  1589. #SUBSTITUTEWORD#=&#228;=ä
  1590. #SUBSTITUTEWORD#=&#229;=å
  1591. #SUBSTITUTEWORD#=&#230;=æ
  1592. #SUBSTITUTEWORD#=&#231;=ç
  1593. #SUBSTITUTEWORD#=&#232;=è
  1594. #SUBSTITUTEWORD#=&#233;=é
  1595. #SUBSTITUTEWORD#=&#234;=ê
  1596. #SUBSTITUTEWORD#=&#235;=ë
  1597. #SUBSTITUTEWORD#=&#236;=ì
  1598. #SUBSTITUTEWORD#=&#237;=í
  1599. #SUBSTITUTEWORD#=&#238;=î
  1600. #SUBSTITUTEWORD#=&#239;=ï
  1601. #SUBSTITUTEWORD#=&#240;=ð
  1602. #SUBSTITUTEWORD#=&#241;=ñ
  1603. #SUBSTITUTEWORD#=&#242;=ò
  1604. #SUBSTITUTEWORD#=&#243;=ó
  1605. #SUBSTITUTEWORD#=&#244;=ô
  1606. #SUBSTITUTEWORD#=&#245;=õ
  1607. #SUBSTITUTEWORD#=&#246;=ö
  1608. #SUBSTITUTEWORD#=&#247;=÷
  1609. #SUBSTITUTEWORD#=&#248;=ø
  1610. #SUBSTITUTEWORD#=&#249;=ù
  1611. #SUBSTITUTEWORD#=&#250;=ú
  1612. #SUBSTITUTEWORD#=&#251;=û
  1613. #SUBSTITUTEWORD#=&#252;=ü
  1614. #SUBSTITUTEWORD#=&#253;=ý
  1615. #SUBSTITUTEWORD#=&#254;=þ
  1616. #SUBSTITUTEWORD#=&#255;=ÿ
  1617. #SUBSTITUTEWORD#=%E4=ä
  1618. #SUBSTITUTEWORD#=%DF=ß
  1619. #SUBSTITUTEWORD#=„="
  1620. #SUBSTITUTEWORD#=“="
  1621. #SUBSTITUTEWORD#=&#8222;="
  1622. #SUBSTITUTEWORD#=&#8220;="
  1623. #SUBSTITUTEWORD#=&#8211;=-
  1624. #SUBSTITUTEWORD#=&#8217;='
  1625. #SUBSTITUTEWORD#=ö=ö
  1626. #SUBSTITUTEWORD#=Ã"=Ä
  1627. #SUBSTITUTEWORD#=ß=ß
  1628. #SUBSTITUTEWORD#=ü=ü
  1629. #SUBSTITUTEWORD#=ä=ä
  1630. #SUBSTITUTEWORD#=„=„
  1631. #SUBSTITUTEWORD#=Ö=Ö
  1632. #SUBSTITUTEWORD#=Ãœ=Ü
  1633. #SUBSTITUTEWORD#=ê=â
  1634. #SUBSTITUTEWORD#=á=á
  1635. #SUBSTITUTEWORD#=&amp;=&
  1636. #SUBSTITUTEWORD#=€=€
  1637. #SUBSTITUTEWORD#=é=é
  1638. #SUBSTITUTEWORD#=“="
  1639. #SUBSTITUTEWORD#=â€"=-
  1640. #SUBSTITUTEWORD#=è=è
  1641. #SUBSTITUTEWORD#=Ã=à
  1642. #SUBSTITUTEWORD#=%C3%96=Ö
  1643. #SUBSTITUTEWORD#=%C3%84=Ä
  1644. #SUBSTITUTEWORD#=%C3%9C=Ü
  1645. #SUBSTITUTEWORD#=%C3%A4=ä
  1646. #SUBSTITUTEWORD#=%C3%B6=ö
  1647. #SUBSTITUTEWORD#=%C3%BC=ü
  1648. #SUBSTITUTEWORD#=%C3%9F=ß
  1649.  
  1650. #SUBSTITUTEWORD#=àƒÂ¤=ä
  1651. #SUBSTITUTEWORD#=àƒÂ¼=ü
  1652. #SUBSTITUTEWORD#=àƒÅ¸=ß
  1653. #SUBSTITUTEWORD#=àƒÂ¶=ö
  1654. #SUBSTITUTEWORD#=àƒ„=Ä
  1655. #SUBSTITUTEWORD#=àƒ-=Ö
  1656. #SUBSTITUTEWORD#=àƒÅ"=Ü
  1657. #SUBSTITUTEWORD#=ࢀÅ"=“
  1658. #SUBSTITUTEWORD#=ࢀž=„
  1659. #SUBSTITUTEWORD#=ࢀ¦=…
  1660. #SUBSTITUTEWORD#=ࢀâ"¢=’
  1661. #SUBSTITUTEWORD#=ࢀ"=–
  1662.  
  1663. #ENDSUBSTITUTETAGS#
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!