API tools faq
paste
Advertisement
mruno

!imdb 23.May.2017 - working (m.imdb.com)

mruno
Oct 2nd, 2013
451
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 21.34 KB | None | 0 0
raw download clone embed print report
  1. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script !imdb Script
  3. ;version 23.May.2017
  4. ;author mruno
  5. ;email [email protected]
  6. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  7. ;23.May.2017 fixed movie plot
  8. ;18.NOV.2014 runtime and release date fix for movies like top dog 2014
  9. ;16.NOV.2014 Director Fix
  10. ;JULY.2014: will now detect imdb.com URLs in text and show the info
  11. ;type enable trailer links (when available with: /set %imdb.trailer on
  12. ;
  13. ;actor fixes
  14. ;Removed tagline
  15. ;Fixed new formatting on imdb.com
  16. ;Fixed rating on some titles (John Crowley)
  17. ;added link to trailers
  18. ;
  19. on *:TEXT:*:#: {
  20.   if ($chr(36) isin $2-) return
  21.   if ($1 == !imdb) || ($1 == !imdb2) {
  22.     if (!$findtok(%imdb2,$nick,0,46)) {
  23.       set -u10 %theatre $addtok(%imdb2,$nick,46)
  24.       var %a = imdb2
  25.       if ($hget(%a)) hfree %a
  26.       h %a chan $chan
  27.       h %a cid $cid
  28.       h %a nick $nick
  29.       h %a network $network
  30.       imdb2 $nick $2-
  31.     }
  32.     else .timerimdb2. $+ $nick 1 1 .notice $nick Please wait 10 seconds and try again...
  33.   }
  34.   elseif (*imdb.com/title/tt*/* iswm $1-) {
  35.     var %url $1-
  36.     var %tt $gettok(%url,$calc($findtok(%url,title,47) + 1),47)
  37.     if (tt isin %tt) {
  38.       if (!$findtok(%imdb2,$nick,0,46)) {
  39.         set -u10 %theatre $addtok(%imdb2,$nick,46)
  40.         var %a imdb2
  41.         if ($hget(%a)) hfree %a
  42.         h %a chan $chan
  43.         h %a cid $cid
  44.         h %a nick $nick
  45.         h %a network $network
  46.         imdb2 $nick %tt
  47.       }
  48.     }
  49.   }
  50.   elseif (*imdb.com/name/nm*/* iswm $1-) {
  51.     var %url $1-
  52.     var %tt $gettok(%url,$calc($findtok(%url,name,47) + 1),47)
  53.     if (nm isin %tt) {
  54.       if (!$findtok(%imdb2,$nick,0,46)) {
  55.         set -u10 %theatre $addtok(%imdb2,$nick,46)
  56.         var %a imdb2
  57.         if ($hget(%a)) hfree %a
  58.         h %a chan $chan
  59.         h %a cid $cid
  60.         h %a nick $nick
  61.         h %a network $network
  62.         imdb2 $nick %tt
  63.       }
  64.     }
  65.   }
  66. }
  67. on *:INPUT:#:{
  68.   if ($1 == !imdb) || ($1 == !imdb2) {
  69.     var %a = imdb2
  70.     if ($hget(%a)) hfree %a
  71.     h %a chan $chan
  72.     h %a network $network
  73.     h %a cid $cid
  74.     h %a nick $me
  75.     imdb2 $me $2-
  76.   }
  77. }
  78. alias -l imdbhelp {
  79.   var %cmd = .notice $1
  80.   %cmd !iMDb[2] by mruno. Usage: !imdb [option] <title or ID>
  81.   %cmd Options:
  82.   %cmd       Result types: Movie or Actor (Default is Movies) - "!imdb monica" - Performs a movie search and "!imdb -a monica" will perform an actor search.
  83.   %cmd       List results (Default is 5, Max of 10). Example: "!imdb -l5 hobbit" - Lists the top 5 search results.
  84.   %cmd       Recommended results (Default is 5, Max of 9). "!imdb -r5 hobbit" - Recommends movies based on the movie (or movie code) you specified.
  85. }
  86. alias imdb2 {
  87.   var %h imdb2
  88.   if (!$2) { imdbhelp $1 | return }
  89.   if ($2 == -r) || ($2 == -l) || ($2 == -a) && (!$3) { imdbhelp $1 | return }
  90.   elseif ($left($2,2) == -l) {
  91.     .timerimdb2.gclean 0 60 imdb2.gclean
  92.     var %a, %b, %p, %u, %o, %query
  93.     if ($left($3,2) == tt) && ($remove($3,tt,/) isnum) {
  94.       h %h results 1
  95.       h %h result 1
  96.       h %h query code.movie
  97.     }
  98.     else {
  99.       h %h results $iif($remove($2,-l),$remove($2,-l),5)
  100.       h %h result $iif($remove($2,-l),$remove($2,-l),5)
  101.       h %h query list
  102.     }
  103.  
  104.     set %query $replace($3-,$chr(32),+,.,+,-,+)
  105.     h %h text %query
  106.  
  107.     ;.notice $h(%h ,nick) Searching iMDb.com...
  108.     set %u http://m.imdb.com/find?q= $+ %query
  109.     h %h u %u
  110.     imdb2.download imdb2.search %u imdb2.txt
  111.     ;echo -a ------ %u ---------------
  112.   }
  113.   elseif ($left($2,2) == -r) {
  114.     .timerimdb2.gclean 0 60 imdb2.gclean
  115.     var %a, %b, %p, %u, %o, %query
  116.     h %h results $iif($remove($2,-r),$remove($2,-r),5)
  117.     h %h result $iif($remove($2,-r),$remove($2,-r),5)
  118.     h %h query recommend
  119.  
  120.     set %query $replace($3-,$chr(32),+,.,+,-,+)
  121.     h %h text %query
  122.  
  123.     ;.notice $h(%h ,nick) Searching iMDb.com...
  124.     set %u http://m.imdb.com/find?q= $+ %query
  125.     h %h u %u
  126.     if ($left($3,2) == tt) && ($remove($3,tt,/) isnum) {
  127.       h %h url http://www.imdb.com/title/ $+ $h(%h,text)
  128.       imdb2.download imdb2.results http://m.imdb.com/title/ $+ $h(%h,text) imdb2.txt
  129.     }
  130.     else imdb2.download imdb2.search %u imdb2.txt
  131.  
  132.     ;echo -a ------ %u ---------------
  133.   }
  134.   elseif ($2 == -a) {
  135.     .timerimdb2.gclean 0 60 imdb2.gclean
  136.     var %a, %b, %p, %u, %o, %query
  137.     h %h results 1
  138.     h %h result 1
  139.     h %h query actor
  140.  
  141.     set %query $replace($3-,$chr(32),+,.,+,-,+)
  142.     h %h text %query
  143.  
  144.     ;.notice $h(%h ,nick) Searching iMDb.com...
  145.     set %u http://m.imdb.com/find?q= $+ %query
  146.     h %h u %u
  147.     imdb2.download imdb2.search %u imdb2.txt
  148.     ;echo -a ------ %u ---------------
  149.   }
  150.   else {
  151.     .timerimdb2.gclean 0 60 imdb2.gclean
  152.     var %a, %b, %p, %u, %o, %query
  153.     h %h results 1
  154.     h %h result 1
  155.     if ($left($2,2) == nm) && ($remove($2,nm,/) isnum) h %h query code.actor
  156.     elseif ($left($2,2) == tt) && ($remove($2,tt,/) isnum) h %h query code.movie
  157.     else h %h query movie
  158.  
  159.     set %query $replace($2-,$chr(32),+,.,+,-,+)
  160.     h %h text %query
  161.  
  162.     ;.notice $h(%h,nick) Searching iMDb.com...
  163.     set %u http://m.imdb.com/find?q= $+ %query
  164.     h %h u %u
  165.     imdb2.download imdb2.search %u imdb2.txt
  166.     ;echo -a ------ %u ---------------
  167.   }
  168. }
  169. alias -l imdb2.search {
  170.   ;this alias is triggered once the search page is downloaded
  171.   if ($1 == 1) && ($2 == S_OK) {
  172.     var %a = @imdb2, %b, %d = 0, %e, %z = 0, %t, %cmd, %h = imdb2, %raw, %h = imdb2
  173.     if ($window(%a)) window -c %a
  174.     window -h %a
  175.     loadbuf %a imdb2.txt
  176.  
  177.     ;this removes extra crap from the beginning of the webpage
  178.     ;<a href="/title/
  179.     if ($h(%h,query) == actor) dline %a 1- $+ $calc($fline(%a,*<a href="/name/*,1) - 8)
  180.     elseif ($h(%h,query) == movie) dline %a 1- $+ $calc($fline(%a,*<a href="/title/*,1) - 8)
  181.  
  182.     elseif ($h(%h,query) == code.actor) {
  183.       h %h url http://www.imdb.com/name/ $+ $h(%h,text)
  184.       imdb2.download imdb2.results http://m.imdb.com/name/ $+ $h(%h,text) imdb2.txt
  185.       goto end
  186.     }
  187.     elseif ($h(%h,query) == code.movie) {
  188.       h %h url http://www.imdb.com/title/ $+ $h(%h,text)
  189.       imdb2.download imdb2.results http://m.imdb.com/title/ $+ $h(%h,text) imdb2.txt
  190.       goto end
  191.     }
  192.     elseif ($h(%h,query) == list) {
  193.       dline %a 1- $+ $calc($fline(%a,*<h1>Search results</h1>*,1) - 8)
  194.  
  195.       var %loop = 1
  196.       dualcmd [iMDb] Movie List Results:
  197.       ;while ($fline(%a,**<a href="*" onClick="**,%loop)) {
  198.       while ($fline(%a,*<a href="/title/tt*,%loop)) {
  199.         var %match = $ifmatch
  200.         dualcmd      %loop $+ ) $striphtml($line(%a,%match))   -   Code:  $+ $gettok($line(%a,%match),3,47) $+ 
  201.         inc %loop
  202.         if (%loop > 10) || (%loop > $h(%h,results)) break
  203.       }
  204.       dualcmd Type !imdb <code> for more info
  205.       goto end
  206.     }
  207.     else dline %a 1- $+ $calc($fline(%a,*<a href="/title/*,1) - 8)
  208.  
  209.  
  210.     if ($fline(%a,*<div class="noResults">No Results</div>*,1)) {
  211.       dualcmd No results for: $replace($h(%h,text),+,$chr(32))
  212.       .timerimdb2.gclean 1 60 imdb2.gclean
  213.       return
  214.     }
  215.  
  216.     ;this records initial data from search page.
  217.     set %raw $line(%a,$calc($fline(%a,*<div class="title">*,1) + 1))
  218.     h %h title $striphtml(%raw)
  219.     h %h url http://www.imdb.com $+ $gettok(%raw,2,34)
  220.  
  221.     if ($striphtml($line(%a,$fline(%a,*<div class="detail">*,1)))) h %h cast $ifmatch
  222.     :recommend
  223.     if ($h(%h,query) == recommend) imdb2.download imdb2.recommend http://www.imdb.com $+ $gettok(%raw,2,34) $+ recommendations imdb2.txt
  224.     ;echo -s http://www.imdb.com $+ $gettok(%raw,2,34) $+ recommendations
  225.     else {
  226.       ;time to download the title's webpage
  227.       imdb2.download imdb2.results http://m.imdb.com $+ $gettok(%raw,2,34) imdb2.txt
  228.     }
  229.     :end
  230.   }
  231.   else $iif($h(imdb2,nick) == $me || !$h(imdb2,nick),.notice $me,msg $h(imdb2,chan)) Error downloading data - 1. See  $+ $replace($h(imdb2,u),http://m.,http://www.)
  232.   .timerimdb2.gclean 1 60 imdb2.gclean
  233. }
  234.  
  235. alias -l imdb2.recommend {
  236.   ;this alias parses the recommended info
  237.   if ($1 == 1) && ($2 == S_OK) {
  238.     var %a = @imdb2, %h = imdb2
  239.     if ($window(%a)) window -c %a
  240.     window -h %a
  241.     loadbuf %a imdb2.txt
  242.  
  243.     var %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %loop = 0, %raw
  244.     if ($fline(%a,*<b>Suggested by the database</b>*,0)) {
  245.       while (%loop < $h(imdb2,result)) {
  246.         inc %loop
  247.  
  248.         set %raw $matchtok($line(%a,$calc($fline(%a,*<b>Suggested by the database</b>*,1) + 4)),<a href="/title/,%loop,44)
  249.  
  250.         if ($striphtml($gettok($gettok(%raw,2,60),2,62))) h %h title $+ %loop $striphtml($gettok($gettok(%raw,2,60),2,62))
  251.         if ($gettok($gettok(%raw,2,40),1,41) isnum) h %h year $+ %loop ( $+ $gettok($gettok(%raw,2,40),1,41) $+ )
  252.         if ($remove($gettok($striphtml(%raw),$gettok($striphtml(%raw),0,41),41),.,$chr(32)) isnum) h %h rating $+ %loop $gettok($striphtml(%raw),$gettok($striphtml(%raw),0,41),41)
  253.         if ($left($gettok($gettok($gettok(%raw,2,60),1,62),3,47),2) == tt) h %h code $+ %loop $gettok($gettok($gettok(%raw,2,60),1,62),3,47)
  254.       }
  255.  
  256.       if ($h(%h,title1)) {
  257.         dualcmd [iMDb] Recommended Movies 14(based on $h(%h,title) $+ ) $+ :
  258.         var %loopecho = 1
  259.         while ($h(%h,title $+ %loopecho)) {
  260.  
  261.           dualcmd      %loopecho $+ ) $h(%h,title $+ %loopecho) $iif($h(%h,year $+ %loopecho),$h(%h,year $+ %loopecho)) $iif($h(%h,rating $+ %loopecho),Rating: $h(%h,rating $+ %loopecho)) $iif($h(%h,code $+ %loopecho),  -   Code:  $+ $h(%h,code $+ %loopecho))
  262.           inc %loopecho
  263.           if (%loopecho > 9) || (%loopecho > $h(%h,results)) break
  264.  
  265.         }
  266.  
  267.         dualcmd Type !imdb <code> for more info
  268.       }
  269.     }
  270.     else dualcmd There are no recommendations for: $h(%h,title)
  271.     .timerimdb2.gclean 1 60 imdb2.gclean
  272.   }
  273.   else $iif($h(imdb2,nick) == $me,.notice $me,msg $h(imdb2,chan)) Error downloading data - 2. See  $+ $replace($h(imdb2,u),http://m.,http://www.)
  274.   .timerimdb2.gclean 1 60 imdb2.gclean
  275. }
  276.  
  277. alias -l imdb2.results {
  278.   ;this alias parses the results info
  279.   if ($1 == 1) && ($2 == S_OK) {
  280.     var %a = @imdb2, %b, %d = 0, %e, %z = 0, %t, %cmd, %h = imdb2, %raw
  281.     if ($window(%a)) window -c %a
  282.     window -h %a
  283.     loadbuf %a imdb2.txt
  284.  
  285.     ;this removes extra crap from the beginning of the webpage
  286.     if (movie isin $h(%h,query)) noop
  287.     else dline %a 1- $+ $calc($fline(%a,*</title>*,1) - 2)
  288.  
  289.     if (/name/ isin $h(%h,url)) {
  290.       ;this is for actors
  291.       if (!$h(%h,title)) h %h title $striphtml($line(%a,$fline(%a,*<div class="title">*,1)))
  292.  
  293.       h %h birthname $striphtml($line(%a,$calc($fline(%a,*<h3>Born</h3>*,1) + 2)))
  294.       h %h birthdate $line(%a,$calc($fline(%a,*<strong>Born:</strong>*,1) + 3)) $line(%a,$calc($fline(%a,*<strong>Born:</strong>*,1) + 5))
  295.       h %h birthplace $striphtml($line(%a,$calc($fline(%a,*<h3>Born</h3>*,1) + 11)))
  296.  
  297.       ;'known for' loop
  298.       var %loop = 1, %titles
  299.       while ($fline(%a,*<a href="/title/*,%loop)) {
  300.         set %titles $addtok( %titles, $striphtml($line(%a,$ifmatch)), 44)
  301.         inc %loop
  302.       }
  303.       h %h knownfor $replace(%titles,$chr(44),$chr(44) $chr(32))
  304.  
  305.       ;h %h Bio $striphtml($line(%a,$calc($fline(%a,*<h1>Mini Biography</h1>*,1) + 2)))
  306.       h %h Bio $line(%a,$calc($fline(%a,*<a href="bio?ref_=m_mn_ov_bio" class="btn-full" > <p>*,1) + 1))
  307.       h %h news $striphtml($line(%a,$calc($fline(%a,*<h1>News</h1>*,1) + 3)))
  308.       if (- imdb !isin $line(%a,$calc($fline(%a,*<h3>Trademark</h3>*,1) + 2))) h %h trademark $v2
  309.  
  310.     }
  311.     else {
  312.       ;this is for movies
  313.       if (!$h(%h,title)) h %h title $remove($striphtml($line(%a,$fline(%a,*<title>*- IMDb*,1))), - IMDb)
  314.  
  315.       if ($h(%h,query) == recommend) {
  316.         imdb2.download imdb2.recommend http://www.imdb.com/title/ $+ $h(%h,text) $+ /recommendations imdb2.txt
  317.         goto endofresults
  318.       }
  319.  
  320.       if ($line(%a,$fline(%a,*<strong>Play Trailer</strong>*,1))) && (%imdb.trailer == on) && ($gettok($gettok($ifmatch,5,47),1,63)) h %h trailer www.imdb.com/video/imdb/ $+ $gettok($gettok($ifmatch,5,47),1,63)
  321.  
  322.       ;<span class="button-1 primary"><a href="/video/imdb/vi2340006169">Watch Trailer</a></span>
  323.  
  324.       ;h %h tagline $striphtml($line(%a,$calc($fline(%a,* $+ $gettok($h(imdb2,title),1,40) $+ *,1) + 1)))
  325.       ;if ($striphtml($line(%a,$calc($fline(%a,*<h1>Director*</h1>*,1) + 2)))) h %h director $ifmatch
  326.       if ($striphtml($line(%a,$calc($fline(%a,*<h3 class="inline-block">Director:</h3>*,1) + 2)))) h %h director $ifmatch
  327.       ;if ($striphtml($line(%a,$calc($fline(%a,*<h1>Release Date</h1>*,1) + 1)))) h %h releasedate $ifmatch
  328.       if ($striphtml($line(%a,$calc($fline(%a,*<h3 class="inline-block">Release Date:</h3>*,1) + 1)))) h %h releasedate $ifmatch
  329.       ;genre loop
  330.       var %loop 0
  331.       while ($fline(%a,*<span class="itemprop" itemprop="genre">*,0) > %loop) {
  332.         inc %loop
  333.         if ($striphtml($line(%a,$calc($fline(%a,*<span class="itemprop" itemprop="genre">*,%loop) + 0)))) h %h genre $addtok($ifmatch,$h(%h,genre),32)
  334.       }
  335.       if ($striphtml($line(%a,$calc($fline(%a,*<time itemprop="duration"*,1) + 1)))) h %h runtime $ifmatch
  336.       if ($len($h(%h,runtime)) > 10) h %h runtime 0
  337.       if ($line(%a,$calc($fline(%a,*<span title="*,1) + 0))) h %h rating $gettok($ifmatch,2,34)
  338.       if ($striphtml($line(%a,$calc($fline(%a,*<p itemprop="description" class="plot-description">*,1) + 1)))) h %h plot $remove($ifmatch,See full summary »)
  339.       if ($striphtml($line(%a,$calc($fline(%a,*<span class="mobile-sprite yellow-star">*,1) + 0)))) {
  340.         var %score $gettok($remove($ifmatch,$chr(32)),1,47)
  341.         var %votes $gettok($ifmatch,3,32)
  342.         if (needs isin %score) || ($remove(%score,.) == Rate this movie) || (!%score) || (!%votes) h %h score none
  343.         else {
  344.           h %h score %score
  345.           h %h votes %votes
  346.         }
  347.       }
  348.     }
  349.     imdb2.complete
  350.  
  351.   }
  352.   else $iif($h(imdb2,nick) == $me,.notice $me,msg $h(imdb2,chan)) Error downloading data - 3. See  $+ $replace($h(imdb2,u),http://m.,http://www.)
  353.   :endofresults
  354.   .timerimdb2.gclean 1 60 imdb2.gclean
  355. }
  356.  
  357. alias -l imdb2.complete {
  358.   ;this alias produces the text
  359.   var %h = imdb2
  360.   if (/name/ isin $h(%h,url)) {
  361.     dualcmd [iMDb] $h(%h,title) $+  $chr(40) 12 $+ $h(%h,url) $+  $chr(41)
  362.     dualcmd $iif($h(%h,birthname),Born: $h(%h,birthname)) $iif($h(%h,birthdate) && java !isin $h(%h,birthdate),Birthday: $h(%h,birthdate)) $iif($h(%h,birthplace) && commentary !isin $h(%h,birthplace),Birthplace: $h(%h,birthplace))
  363.     dualcmd $iif($h(%h,trademark),Trademark: $h(%h,trademark))
  364.     dualcmd $iif($h(%h,knownfor),Known for: $h(%h,knownfor))
  365.     dualcmd $iif($h(%h,bio),Biography: $h(%h,bio))
  366.     dualcmd $iif($h(%h,news),News: $h(%h,news))
  367.   }
  368.   else {
  369.     dualcmd [iMDb] $h(%h,title) $+  $chr(40) 12 $+ $h(%h,url) $+  $chr(41)
  370.     dualcmd $iif($h(%h,rating),Rated: $h(%h,rating)) $iif($h(%h,releasedate),Released: $h(%h,releasedate)) $iif($h(%h,runtime),Runtime: $h(%h,runtime)) $iif($h(%h,genre),Genre: $h(%h,genre))
  371.     dualcmd $iif($h(%h,tagline),Tagline: $h(%h,tagline)) $iif($h(%h,trailer),Trailer:  $+ http:// $+ $h(%h,trailer) $+ )
  372.     dualcmd $iif($h(%h,director),Director: $h(%h,director)) $iif($h(%h,cast),Cast: $replace($h(%h,cast),$chr(187),$chr(44)))
  373.     dualcmd $iif($h(%h,plot),Plot: $h(%h,Plot))
  374.  
  375.     var %r = $h(%h,score)
  376.     if (rate this isin %r) || (%r == n/a) || (!%r) || (%r == none) dualcmd Rating: none
  377.     else dualcmd Rating: $chr(91) $+ $iif(%r > .55,12,) $+ * $+ $iif(%r > 1.55,12,) $+ * $+ $iif(%r > 2.55,12,) $+ * $+ $iif(%r > 3.55,12,) $+ * $+ $iif(%r > 4.55,12,) $+ * $+ $iif(%r > 5.55,12,) $+ * $+ $iif(%r > 6.55,12,) $+ * $+ $iif(%r > 7.55,12,) $+ * $+ $iif(%r > 8.55,12,) $+ * $+ $iif(%r > 9.55,12,) $+ *] %r $+ /10 $paren($h(%h,votes) votes)
  378.   }
  379.   .timerimdb2.gclean 1 60 imdb2.gclean
  380. }
  381.  
  382. alias -l h {
  383.   if ($1 == isnum) return
  384.   if (!$2) { echo -a error: no 2 for hash table | return }
  385.   if (!$hget($1)) hmake $1 10
  386.   if ($isid) return $hget($1,$2)
  387.   else hadd $1 $2-
  388. }
  389. alias -l dualcmd {
  390.   if ($1) {
  391.     if ($me ison $h(imdb2,chan)) msg $h(imdb2,chan) $1-
  392.   }
  393. }
  394. alias -l paren {
  395.   if ($3) return $2 $+ $1 $+ $3
  396.   elseif ($2) return $2 $+ $1 $+ $2
  397.   elseif ($1 != $null) return ( $+ $1- $+ )
  398. }
  399. alias imdb2.gclean {
  400.   ;this removes the hash tables that were used AND closes @imdb2
  401.   if (%imdb2) return
  402.   var %r = 0
  403.   while (%r < $hget(imdb2,results)) {
  404.     inc %r
  405.     if ($hget(imdb2. $+ $hget(imdb2,query) $+ %r)) hfree $ifmatch
  406.   }
  407.   set %r $hget(0)
  408.   while (%r) {
  409.     dec %r
  410.     if (imdb2.* iswm $hget(%r)) hfree $v2
  411.   }
  412.   if ($hget(imdb2)) hfree $ifmatch
  413.   set %r $findfile($mircdir,imdb2*.txt,0,1,.remove $1-)
  414.   set %r $findfile($mircdir,imdb2.download*.vbs,0,1,.remove $1-)
  415.   if ($window(@imdb2)) window -c @imdb2
  416.   unset %imdb2
  417. }
  418.  
  419. on 1:UNLOAD:{
  420.   imdb2.gclean
  421. }
  422.  
  423. ;==================================================================================
  424. ;Author  : fubar
  425. ;Function: $striphtml identifier
  426. ;          This identifier strips html code from a string of text.
  427. ;         Good for using when retrieving webpages within mirc.  
  428. ;==================================================================================
  429. ;
  430. ;This identifier strips html code from a string of text. Good for using when retrieving webpages within mirc.
  431. ;
  432. ;Usage: $striphtml(html code)
  433. alias -l Xchr {
  434.   var %return $regsubex($regsubex($1-,/&#x([A-F0-9]{1,2});/g,$chr($base($regml(\n),16,10))),/&#([0-9]{2});/g,$chr(\1))
  435.   return $replacecs(%return,&ndash;,–,&middot;,·,&raquo;,»,&laquo;,«,&Uuml;,Ü,&uuml;,ü,&Aacute;,Á,&aacute;,á,&Eacute;,$&
  436.     É,&eacute;,é,&Iacute;,Í,&iacute;,í,&Oacute;,Ó,&oacute;,ó,&Ntilde;,Ñ,&ntilde;,ñ,&Uacute;,Ú,&uacute;,ú,&nbsp;,$chr(32),$&
  437.     &aelig;,æ,&quot;,")
  438. }
  439. alias -l striphtml {
  440.   ; making sure there are parameters to work with
  441.   IF ($1) {
  442.     ; Setting my variables. The %opt is set kind of funky
  443.     ; all it does is combine <two><brackets> into 1 <twobrackets>, fewer loops this way
  444.     ; also stripped tab spaces
  445.     VAR %strip,%opt = <> $remove($1-,> <,><,$chr(9)) <>,%n = 2
  446.     ; using $gettok() I checked the text in front of '>' (chr 62)
  447.     ; then the second $gettok checks the text behind '<' (chr 60)
  448.     ; so I'm extracting anything between >text<
  449.     WHILE ($gettok($gettok(%opt,%n,62),1,60)) {
  450.       ; take each peice of text and add it to the same variable
  451.       %strip = %strip $ifmatch
  452.       %strip = $replace(%strip,&quot;,")
  453.       ; increase the variable so the while statement can check the next part
  454.       INC %n
  455.     }
  456.     ; now that the loop has finished we can return the stripped html code
  457.     RETURN $Xchr(%strip)
  458.   }
  459. }
  460.  
  461. ;/download by SReject
  462. ;http://www.hawkee.com/snippet/9318/
  463. alias imdb2.download {
  464.   if ($regex(Args,$1-,^-c (?|(?:"(?=.+")([^"]+)")|(\S+)) (\S+) (?|(?:"(?=.+")([^"]+)")|(\S+)) (\S+)$)) {
  465.     var %callback = $regml(Args,1)
  466.     var %url = $regml(Args,2)
  467.     var %file = $qt($regml(Args,3))
  468.     var %com = $regml(Args,4)
  469.     var %r = $iif($comerr,1,$com(%com).result)
  470.     .remove $qt($scriptdir $+ %com)
  471.     if ($com(%com)) { .comclose %com }
  472.  
  473.     if (%r == -1) { %callback 1 S_OK %url $qt(%file) }
  474.     elseif (%r == 1) { %callback 0 UnKnown_ComErr %url $qt(%file) }
  475.     elseif (%r == 2) { %callback 0 IE6+_Needed %url $qt(%file) }
  476.     elseif (%r == 3) { %callback 0 Connect_Error %url $qt(%file) }
  477.     elseif (%r == 4) { %callback 0 Newer_ActiveX_Needed %url $qt(%file) }
  478.     elseif (%r == 5) { %callback 0 Writefile_Error %url $qt(%file) }
  479.     else { %callback 0 Unknown_Error %url $qt(%file) }
  480.   }
  481.   elseif ($1 != -c) {
  482.     if ($isid) || (!$regex(Args,$1-,^(?|(?:"(?=.+")([^"]+)")|(\S+)) (\S+) (?|(?:"(?=.+")([^"]+)")|(\S+))$)) || ($regml(Args,0) != 3) { return }
  483.  
  484.     var %callback = $regml(Args,1)
  485.     var %url = $qt($regml(Args,2))
  486.     var %file = $qt($iif(: isin $regml(Args,3),$v2,$mircdir $+ $v2))
  487.     var %com = imdb2.download $+ $ticks $+ .vbs
  488.     var %s = $qt($scriptdir $+ %com)
  489.     var %w = write %s
  490.  
  491.     %w on error resume next
  492.     %w Set C = CreateObject("msxml2.xmlhttp.3.0")
  493.     %w if (err.number <> 0) then
  494.     %w   err.clear
  495.     %w   set C = CreateObject("msxml2.xmlhttp")
  496.     %w   if (err.number <> 0) then
  497.     %w     err.clear
  498.     %w     set C = CreateObject("XMLHttpRequest")
  499.     %w     if (err.number <> 0) then wscript.quit(2)
  500.     %w   end if
  501.     %w end if
  502.     %w C.open "GET", %url $+ , false
  503.     %w C.send
  504.     %w if (err.number <> 0) then wscript.quit(3)
  505.     %w set O = createobject("adodb.stream")
  506.     %w if (err.number <> 0) then wscript.quit(4)
  507.     %w O.type=1
  508.     %w O.mode=3
  509.     %w O.open
  510.     %w O.write C.responsebody
  511.     %w O.savetofile %file $+ ,2
  512.     %w if (err.number <> 0) then wscript.quit(5)
  513.     %w O.close
  514.     %w wscript.quit(-1)
  515.  
  516.     .comopen %com WScript.Shell
  517.     if ($comerr || !$comcall(%com,imdb2.download -c $qt(%callback) $noqt(%url) %file,run,1,bstr*,%s,uint,1,bool,true)) { goto error }
  518.     return
  519.   }
  520.   :error
  521.   if ($error) { reseterror }
  522.   if ($isfile(%s)) { .remove %s }
  523.   if ($com(%com)) { .comclose %com }
  524. }
  525. alias -l Xchr {
  526.   var %return $regsubex($regsubex($1-,/&#x([A-F0-9]{1,2});/g,$chr($base($regml(\n),16,10))),/&#([0-9]{2});/g,$chr(\1))
  527.   return $replacecs(%return,&ndash;,–,&middot;,·,&raquo;,»,&laquo;,«,&Uuml;,Ü,&uuml;,ü,&Aacute;,Á,&aacute;,á,&Eacute;,$&
  528.     É,&eacute;,é,&Iacute;,Í,&iacute;,í,&Oacute;,Ó,&oacute;,ó,&Ntilde;,Ñ,&ntilde;,ñ,&Uacute;,Ú,&uacute;,ú,&nbsp;,$chr(32),$&
  529.     &aelig;,æ,&quot;,")
  530. }
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!