API tools faq
paste
Advertisement
Ford

IMDB / Forced English Title

Ford
Feb 5th, 2013
615
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 14.10 KB | None | 0 0
raw download clone embed print report
  1. ;!IMDB Movie Search Script by Ford_Lawnmower irc.Geekshed.net #Script-Help
  2. alias -l IMDB {
  3.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Start Setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4.   ;;;; Change %tagcolor to the color you want for tags:
  5.   var %tagcolor $+($chr(15),$chr(2))
  6.   ;;;; Change %textcolor to the color you want for normal text
  7.   var %textcolor $+($chr(15),$chr(3),04)
  8.   ;;;; Change %linkcolor to the color/format you want for links
  9.   var %linkcolor $+($chr(15),$chr(31))
  10.   ;;;; Change %ratingcolor+ to the color you want for the positive stars in the rating.
  11.   var %ratingcolor+ $+($chr(15),$chr(3),04)
  12.   ;;;; Change %ratingcolor- to the color you want for the negative stars in the rating.
  13.   var %ratingcolor- $+($chr(15),$chr(3),14)
  14.   ;;;; You can change the way this script prints out by editing
  15.   ;;;; %lineone, %linetwo and %linethree below.
  16.   ;;;; tags must be valid and separated by a space.
  17.   ;;;; valid tags are as follows: title rating votes genres
  18.   ;;;; runtime director writer language country date plot
  19.   ;;;; shortplot cast link trailer reviews critics
  20.   ;;;; If you want to omit a line, just change it to 0
  21.   ;;;; Use title instead of otitle if you want the title in the language related to your ip address
  22.   var %lineone otitle rating votes reviews critics genres runtime director writer language country date
  23.   var %linetwo shortplot
  24.   var %linethree cast link trailer
  25.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;End Setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
  26.   var %sockname $+(IMDB,$network,$2,$ticks)
  27.   hadd -m %sockname lineone %lineone
  28.   hadd %sockname linetwo %linetwo
  29.   hadd %sockname linethree %linethree
  30.   sockopen %sockname www.imdb.com 80
  31.   sockmark %sockname $1-2 $+(/title/,$3,/) 0 %tagcolor %textcolor %linkcolor 0 0 %ratingcolor+ %ratingcolor-
  32. }
  33. menu Channel,Status {
  34.   .$iif($group(#IMDB) == On,$style(1)) IMDB IMDB Trigger
  35.   ..$iif($group(#IMDB) == On,$style(2)) On: .enable #IMDB
  36.   ..$iif($group(#IMDB) == Off,$style(2)) Off: .disable #IMDB
  37. }
  38. #IMDB on
  39. On $*:Text:/^(\+|-|!|@)IMDB.*/Si:#: {
  40.   var %action $regml(1)
  41.   if (%action isin +-) && ($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/)) {
  42.     if (%action == +) {
  43.       if ($istok(%IMDBChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is already running the IMDB script }
  44.       else {
  45.         .enable #IMDB
  46.         Set %IMDBChanList $addtok(%IMDBChanList,$+($network,$chan),32)
  47.         .msg $chan $nick has activated the IMDB script for $chan .
  48.       }
  49.     }
  50.     else {
  51.       if (!$istok(%IMDBChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is not running the IMDB script }
  52.       else {
  53.         Set %IMDBChanList $remtok(%IMDBChanList,$+($network,$chan),1,32)
  54.         .msg $chan $nick has deactivated the IMDB script for $chan .
  55.       }
  56.     }
  57.   }
  58.   elseif (!$timer($+(IMDB,$network,$nick))) && ($istok(%IMDBChanList,$+($network,$chan),32)) {
  59.     .timer $+ $+(IMDB,$network,$nick) 1 6 noop
  60.     var %method $iif(%action == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%|\+)/),.msg $chan,.notice $nick))
  61.     GIMDB %method $2-
  62.   }
  63. }
  64. alias EIMDB { GIMDB echo -a $1- }
  65. alias -l GIMDB {
  66.   $1-2 Searching For: $3- .............
  67.   var %sockname $+(GIMDB,$network,$2,$ticks)
  68.   sockopen %sockname www.google.com 80
  69.   sockmark %sockname $1-2 $+(/search?q=,$replace($3-,$chr(32),+),+site:imdb.com&rls=en&hl=en) $3-
  70. }
  71. On *:sockopen:GIMDB*: {
  72.   if (!$sockerr) {
  73.     sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
  74.     sockwrite -n $sockname Host: www.google.com
  75.     sockwrite -n $sockname User-Agent: Opera 9.6
  76.     sockwrite -n $sockname $crlf
  77.   }
  78.   else { echo -st Socket Error $nopath($script) | hfree $sockname | sockclose $sockname }
  79. }
  80. On *:sockread:GIMDB*: {
  81.   if ($sockerr) { echo -st Socket Error $nopath($script) | hfree $sockname | sockclose $sockname }
  82.   else {
  83.     sockread &GIMDB
  84.     if ($bintween(&GIMDB,<cite>www.imdb.com/title/,/</cite>,1)) {
  85.       IMDB $gettok($sock($sockname).mark,1-2,32) $v1
  86.       sockclose $sockname
  87.       return    
  88.     }
  89.     elseif ($bintween(&GIMDB,Your search,</b> - did not match any documents.,1)) {
  90.       $gettok($sock($sockname).mark,1-2,32) Sorry - Cannot find $gettok($sock($sockname).mark,4-,32)
  91.       sockclose $sockname
  92.       return
  93.     }
  94.   }
  95. }
  96. On *:sockclose:GIMDB*: { $gettok($sock($sockname).mark,1-2,32) Sorry - Cannot find $gettok($sock($sockname).mark,4-,32) }
  97. On *:sockopen:IMDB*: {
  98.   if (!$sockerr) {
  99.     sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
  100.     sockwrite -n $sockname Host: www.imdb.com
  101.     sockwrite -n $sockname User-Agent: Opera 9.6
  102.     sockwrite -n $sockname $crlf
  103.   }
  104.   else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  105. }
  106. On *:sockclose:IMDB*: hfree $sockname
  107. On *:sockread:IMDB*: {
  108.   if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  109.   else {
  110.     var %IMDb | sockread %IMDb
  111.     if ($regex(%imdb,/<title>([^<]*)\s-\sIMDb<\/title>/i)) { hadd -m $sockname title $+($gettok($sock($sockname).mark,5,32),Title:,$chr(32),$gettok($sock($sockname).mark,6,32)) $Xchr($regml(1)) }
  112.     elseif ($regex(%imdb,/<title>(.*?)<\/title>/i)) hadd -m $sockname title $+($gettok($sock($sockname).mark,5,32),Title:,$chr(32),$gettok($sock($sockname).mark,6,32)) $Xchr($remove($regml(1),IMDb -))
  113.     elseif ($regex(%imdb,/'og:title'\s?content="(.*?)"\s?\/>/i)) {
  114.       hadd -m $sockname otitle $+($gettok($sock($sockname).mark,5,32),Title:,$chr(32),$gettok($sock($sockname).mark,6,32)) $Xchr($gettok($regml(1),1,45))
  115.     }
  116.     elseif ($regex(%imdb,/([a-z]{6,8}:)/i)) sockmark $sockname $puttok($sock($sockname).mark,$regml(1),4,32)
  117.     elseif (<h2>Storyline</h2> isin %imdb) sockmark $sockname $puttok($sock($sockname).mark,plot:,4,32)
  118.     elseif (<table class="cast_list"> isin %imdb) sockmark $sockname $puttok($sock($sockname).mark,cast:,4,32)
  119.     elseif (Release Date: isin %imdb) sockmark $sockname $puttok($sock($sockname).mark,date:,4,32)
  120.     elseif ($regex(%imdb,/itemprop="ratingCount">(.*?)<\/span>/i)) hadd -m $sockname votes $+($gettok($sock($sockname).mark,5,32),Votes:,$gettok($sock($sockname).mark,6,32)) $regml(1)
  121.     elseif ($regex(shortplot,%imdb,/<meta name="description"\scontent="(.*?)"\s/>/i)) {
  122.       hadd -m $sockname shortplot $+($gettok($sock($sockname).mark,5,32),Plot:,$chr(32),$gettok($sock($sockname).mark,6,32)) $Xchr($regml(shortplot,1))
  123.       sockmark $sockname $puttok($sock($sockname).mark,0,4,32)
  124.     }
  125.     elseif ($regex(%imdb,/itemprop="reviewCount">(.*?)<\/span>/i)) {
  126.       if ($gettok($sock($sockname).mark,4,32) == critics:) hadd -m $sockname critics $+($gettok($sock($sockname).mark,5,32),Critics:,$gettok($sock($sockname).mark,6,32)) $regml(1)
  127.       else {
  128.         hadd -m $sockname reviews $+($gettok($sock($sockname).mark,5,32),Reviews:,$gettok($sock($sockname).mark,6,32)) $regml(1)
  129.         sockmark $sockname $puttok($sock($sockname).mark,critics:,4,32)
  130.       }
  131.     }
  132.     elseif (*star-box-giga-star"  iswm %imdb) { sockmark $sockname $puttok($sock($sockname).mark,votes:,4,32) }
  133.     elseif ($gettok($sock($sockname).mark,4,32) == votes: && %imdb isnum) {
  134.       hadd -m $sockname votes $+($gettok($sock($sockname).mark,5,32),Votes:,$gettok($sock($sockname).mark,6,32)) %imdb
  135.       sockmark $sockname $puttok($sock($sockname).mark,nothing,4,32)
  136.     }
  137.     elseif ($gettok($sock($sockname).mark,4,32) == Critics:) {
  138.       if ($regex(%imdb,/>([\d\x2C]+)\sreviews<\/a>/i)) hadd -m $sockname critics $+($gettok($sock($sockname).mark,5,32),Critics:,$gettok($sock($sockname).mark,6,32)) $regml(1)
  139.     }    
  140.     elseif ($gettok($sock($sockname).mark,4,32) == runtime:) {
  141.       if ($regex(%imdb,/<time.*>(.*?)<\/time>/i)) {
  142.         hadd -m $sockname runtime $+($gettok($sock($sockname).mark,5,32),Runtime:,$gettok($sock($sockname).mark,6,32)) $regml(1)
  143.         sockmark $sockname $puttok($sock($sockname).mark,$v1,4,32)
  144.         tokenize 32 $sock($sockname).mark
  145.         hadd -m $sockname link $+($6,$5,Link:,$chr(32),$7,http://www.imdb.com,$3)
  146.         if ($hget($sockname,lineone)) put $1-2 $regsubex($v1,/([\S]+)/g,$hget($sockname,\t))
  147.         if ($hget($sockname,linetwo)) put $1-2 $regsubex($v1,/([\S]+)/g,$hget($sockname,\t))
  148.         if ($hget($sockname,linethree)) put $1-2 $regsubex($v1,/([\S]+)/g,$hget($sockname,\t))
  149.         hfree $sockname
  150.         sockclose $sockname
  151.         return
  152.       }
  153.     }
  154.     elseif ($gettok($sock($sockname).mark,4,32) == genres:) {
  155.       if ($regex(%imdb,/>([^<]*)<\/a>/g)) hadd -m $sockname genres $addtok($hget($sockname,genres),$regml(1),32)
  156.       elseif (</div> isin %imdb) {
  157.         hadd -m $sockname genres $+($gettok($sock($sockname).mark,5,32),Genres:,$gettok($sock($sockname).mark,6,32)) $hget($sockname,genres)
  158.         sockmark $sockname $puttok($sock($sockname).mark,$v1,4,32)
  159.       }
  160.     }
  161.     elseif ($gettok($sock($sockname).mark,4,32) == director:) {
  162.       if ($regex(%imdb,/>(.*?)<\/a>/i)) hadd -m $sockname director $+($gettok($sock($sockname).mark,5,32),Director:,$gettok($sock($sockname).mark,6,32)) $Xchr($regml(1))
  163.       elseif (</div> isin %imdb) sockmark $sockname $puttok($sock($sockname).mark,$v1,4,32)
  164.     }
  165.     elseif ($gettok($sock($sockname).mark,4,32) == writer:) {
  166.       if ($regex(%imdb,/>(.*?)<\/a>/i)) hadd -m $sockname writer $+($gettok($sock($sockname).mark,5,32),Writer:,$gettok($sock($sockname).mark,6,32)) $Xchr($regml(1))
  167.       elseif (</div> isin %imdb) sockmark $sockname $puttok($sock($sockname).mark,$v1,4,32)
  168.     }
  169.     elseif ($gettok($sock($sockname).mark,4,32) == country:) {
  170.       if ($regex(%imdb,/>(.*?)<\/a>/)) set %IMDb.Country $+($iif(%IMDb.Country,$+($v1,$chr(44))),$Xchr($regml(1)))
  171.       elseif (</div> isin %imdb) {
  172.         sockmark $sockname $puttok($sock($sockname).mark,$v1,4,32)
  173.         hadd -m $sockname country $+($gettok($sock($sockname).mark,5,32),Country:,$gettok($sock($sockname).mark,6,32)) %IMDb.Country
  174.         unset %IMDb.Country
  175.       }
  176.     }
  177.     elseif ($gettok($sock($sockname).mark,4,32) == language:) {
  178.       if ($regex(%imdb,/>([^<]*)<\/a>/)) set %IMDb.Language $+($iif(%IMDb.Language,$+($v1,$chr(44))),$Xchr($regml(1)))
  179.       elseif (</div> isin %imdb) {
  180.         sockmark $sockname $puttok($sock($sockname).mark,$v1,4,32)
  181.         hadd -m $sockname language $+($gettok($sock($sockname).mark,5,32),Language:,$gettok($sock($sockname).mark,6,32)) %IMDb.Language
  182.         unset %IMDb.Language
  183.       }
  184.     }
  185.     elseif ($gettok($sock($sockname).mark,4,32) == plot:) {
  186.       if ($regex(%imdb,/<p>(.*)/)) {
  187.         tokenize 32 $sock($sockname).mark
  188.         hadd -m $sockname plot $6 $+($5,Plot:,$6) $Xchr($regml(1))
  189.         sockmark $sockname $puttok($sock($sockname).mark,0,4,32)
  190.       }
  191.     }
  192.     elseif ($gettok($sock($sockname).mark,4,32) == cast:) {
  193.       if ($regex(%imdb,/href="\/name\/.*\/">([^<]*)<\/a>/)) set %IMDb.Cast $+($iif(%IMDb.Cast,$+($v1,$chr(44))),$Xchr($regml(1)))
  194.       elseif ($regex(%imdb,/alt="(.*?)"/)) set %IMDb.Cast $addtok(%IMDb.Cast,$Xchr($regml(1)),44)
  195.       elseif (</table> isin %imdb) {
  196.         sockmark $sockname $puttok($sock($sockname).mark,0,4,32)
  197.         hadd -m $sockname cast $+($gettok($sock($sockname).mark,5,32),Cast:,$gettok($sock($sockname).mark,6,32)) %IMDb.Cast
  198.         unset %IMDb.Cast        
  199.         tokenize 32 $sock($sockname).mark
  200.         sockmark $sockname $deltok($sock($sockname).mark,10-,32)
  201.       }
  202.     }
  203.     elseif ($gettok($sock($sockname).mark,4,32) == date:) {
  204.       if ($regex(%imdb,/>(.*?)<\/time>/i)) {
  205.         sockmark $sockname $puttok($sock($sockname).mark,notag:,4,32)
  206.         tokenize 32 $sock($sockname).mark
  207.         hadd -m $sockname date $+($5,Release Date:,$chr(32),$6,$regml(1))
  208.       }
  209.     }
  210.     elseif (watch trailer isin %imdb && $regex(%imdb,/<a\shref="([^<]*)"\sonclick="/)) {
  211.       tokenize 32 $sock($sockname).mark
  212.       hadd -m $sockname trailer $+($5,Trailer:,$chr(32),$7,http://www.imdb.com,$regml(1))
  213.     }
  214.     elseif (Reviews: isin %imdb || </html> isin %imdb) {
  215.       tokenize 32 $sock($sockname).mark
  216.       hadd -m $sockname link $+($6,$5,Link:,$chr(32),$7,http://www.imdb.com,$3)
  217.       if ($hget($sockname,lineone)) put $1-2 $regsubex($v1,/([\S]+)/g,$hget($sockname,\t))
  218.       if ($hget($sockname,linetwo)) put $1-2 $regsubex($v1,/([\S]+)/g,$hget($sockname,\t))
  219.       if ($hget($sockname,linethree)) put $1-2 $regsubex($v1,/([\S]+)/g,$hget($sockname,\t))      
  220.       hfree $sockname
  221.       sockclose $sockname
  222.       return
  223.     }
  224.     elseif ($regex(%imdb,/title="Users\srated\sthis\s(.*?)\//i)) {
  225.       var %L $round($regml(1),0), %R $calc(10 - %L)
  226.       tokenize 32 $sock($sockname).mark
  227.       hadd -m $sockname rating $+($5,Rating:,$chr(32),$5,$chr(91),$10,$str(*,%L),$11,$str(*,%R),$5,$chr(93),$6) $regml(1)
  228.     }
  229.   }
  230. }
  231. alias -l AddMark { sockmark $sockname $addtok($sock($sockname).mark,$1-,32) }
  232. alias -l Xchr {
  233.   var %return $regsubex($regsubex($1-,/&#x([A-F0-9]{1,2});/g,$chr($base($regml(\n),16,10))),/&#([0-9]{2});/g,$chr(\1))
  234.   return $replacecs(%return,&ndash;,–,&middot;,·,&raquo;,»,&laquo;,«,&Uuml;,Ü,&uuml;,ü,&Aacute;,Á,&aacute;,á,&Eacute;,$&
  235.     É,&eacute;,é,&Iacute;,Í,&iacute;,í,&Oacute;,Ó,&oacute;,ó,&Ntilde;,Ñ,&ntilde;,ñ,&Uacute;,Ú,&uacute;,ú,&nbsp;,$chr(32),$&
  236.     &aelig;,æ,&quot;,")
  237. }
  238. alias -l Put {
  239.   if (!$regex($1,/(\.|^)(msg|notice|echo)$/Si)) || (!$3) { return }
  240.   var %tokens $0, %Tstart 4, %Dtimer 1500
  241.   if ($timer($+(Put,$2,$network)).secs) { %Dtimer = $calc($v1 * 1000) }  
  242.   while ($len($($+($,%Tstart,-,%tokens),2)) > 430) {
  243.     dec %tokens
  244.     if ($len($($+($,%Tstart,-,%tokens),2)) <= 430) {
  245.       .timer -m 1 %Dtimer $1-3 $($+($,%Tstart,-,%tokens),2))
  246.       inc %Dtimer 1500
  247.       %Tstart = $calc(%tokens + 1)
  248.       %tokens = $0
  249.     }
  250.   }
  251.   .timer -m 1 %Dtimer $1-3 $($+($,%Tstart,-,%tokens),2))
  252.   .timer $+ $+(Put,$2,$network) -m 1 $calc(%Dtimer + 1500) noop
  253. }
  254. alias -l bintween {
  255.   var %count = 1, %mark = 0, %mark2 = 0
  256.   while (%count <= $4) {
  257.     if ($bfind($1, %mark2, $2).text) {
  258.       %mark = $calc($bfind($1, %mark2, $2).text + $len($2))
  259.       if ($bfind($1, %mark, $3).text) {
  260.         %mark2 = $bfind($1, %mark, $3).text
  261.       }
  262.       else { return 0 }
  263.     }
  264.     else { return 0 }
  265.     inc %count
  266.   }
  267.   return $bvar($1, $iif(%mark > 0,%mark,1), $calc(%mark2 - %mark)).text
  268. }
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!