This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

iMDB by perpleXA

Support & discussion of released scripts, and announcements of new releases.
h
holycrap
Op
Posts: 152
Joined: Mon Jan 21, 2008 11:19 pm

iMDB by perpleXA

Post by holycrap »

Any one kind enough to fix this? The title and year are not showing, other than that it works fine.

Thanks!

:D

Code: Select all

# IMDb query v1.15 
# Copyright (C) 2007-2009 perpleXa 
# http://perplexa.ugug.org / #perpleXa on QuakeNet 
# 
# Redistribution, with or without modification, are permitted provided 
# that redistributions retain the above copyright notice, this condition 
# and the following disclaimer. 
# 
# This program is distributed in the hope that it will be useful, 
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without 
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A 
# PARTICULAR PURPOSE. 
# 
# Usage: 
#  !movie <title> 

package require http 2.7; # TCL 8.5 

namespace eval imdb { 
  variable version 1.15; 

  # flood protection (seconds) 
  variable antiflood "10"; 
  # character encoding 
  variable encoding "utf-8"; 
  # user agent 
  variable agent "Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.8.1) Gecko/2006101023 Firefox/2.0"; 

  # internal 
  bind pub -|- "!movie" [namespace current]::public; 
  bind msg -|- "!movie" [namespace current]::private; 
  variable flood; 
  namespace export *; 
} 

proc imdb::public {nick host hand chan argv} { 
  variable flood; variable antiflood; 
  if {![info exists flood($chan)]} { set flood($chan) 0; } 
  if {[unixtime] - $flood($chan) <= $antiflood} { return 0; } 
  set flood($chan) [unixtime]; 

  set argv [string trim $argv]; 
  if {$argv == ""} { 
    puthelp "NOTICE $nick :\037Syntax\037: \002$::lastbind\002 <title>"; 
    return 0; 
  } 

  set id [id $argv]; 
  if {$id == ""} { 
    chanmsg $chan "Movie not found: $argv"; 
    return 0; 
  } 

  set info [getinfo $id]; 
  if {![llength $info]} { 
    chanmsg $chan "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  for {set i 0} {$i < [llength $info]} {incr i} { 
    set info [lreplace $info $i $i [decode [lindex $info $i]]]; 
  } 

  set name     [lindex $info 0];  set year    [lindex $info 1]; 
  set genre    [lindex $info 2];  set tagline [lindex $info 3]; 
  set plot     [lindex $info 4];  set rating  [lindex $info 5]; 
  set votes    [lindex $info 6];  set runtime [lindex $info 7]; 
  set language [lindex $info 8]; 

  if {$name == ""} { 
    chanmsg $chan "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  chanmsg $chan "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
  chanmsg $chan "\002Tagline:\002 $tagline \002Plot:\002 $plot \00314http://imdb.com/title/$id\003"; 
} 

proc imdb::private {nick host hand argv} { 
  variable flood; variable antiflood; 
  if {![info exists flood($nick)]} { set flood($nick) 0; } 
  if {[unixtime] - $flood($nick) <= $antiflood} { return 0; } 
  set flood($nick) [unixtime]; 

  set argv [string trim $argv]; 
  if {$argv == ""} { 
    chanmsg $nick :\037Syntax\037: \002$::lastbind\002 <title>"; 
    return 0; 
  } 

  set id [id $argv]; 
  if {$id == ""} { 
    chanmsg $nick "Movie not found: $argv"; 
    return 0; 
  } 

  set info [getinfo $id]; 
  if {![llength $info]} { 
    chanmsg $nick "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  for {set i 0} {$i < [llength $info]} {incr i} { 
    set info [lreplace $info $i $i [decode [lindex $info $i]]]; 
  } 

  set name     [lindex $info 0];  set year    [lindex $info 1]; 
  set genre    [lindex $info 2];  set tagline [lindex $info 3]; 
  set plot     [lindex $info 4];  set rating  [lindex $info 5]; 
  set votes    [lindex $info 6];  set runtime [lindex $info 7]; 
  set language [lindex $info 8]; 

  if {$name == ""} { 
    chanmsg $nick "Couldn't get information for movie id $id."; 
    return 0; 
  } 

  chanmsg $nick "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
  chanmsg $nick "\002Tagline:\002 $tagline \002Plot:\002 $plot \00314http://imdb.com/title/$id\003"; 
} 

proc imdb::bar {float} { 
  set stars [format "%1.0f" $float]; 
  return "\00312\[\00307[string repeat "*" $stars]\00314[string repeat "-" [expr 10-$stars]]\00312\]\003"; 
} 

proc imdb::chanmsg {chan text} { 
  if {[validchan $chan]} { 
    if {[string first "c" [lindex [split [getchanmode $chan]] 0]] >= 0} { 
      regsub -all {(?:\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037)} $text "" text; 
    } 
  } 
  putquick "PRIVMSG $chan :$text"; 
} 

proc imdb::id {movie} { 
  variable agent; 
  http::config -useragent $agent; 
  if {[catch {http::geturl "http://www.imdb.com/find?q=[urlencode $movie];s=tt;site=aka" -timeout 20000} token]} { 
    return; 
  } 
  set data [http::data $token]; 
  set code [http::ncode $token]; 
  set meta [http::meta $token]; 
  http::cleanup $token; 
  if {$code == 200} { 
    set id ""; 
    #regsub -nocase -- {^.*<b>Titles \(Exact Matches\)</b>} $data "" data; 
    regexp -nocase -- {<a href="/title/(tt[0-9]+)/"} $data -> id; 
    return $id; 
  } else { 
    foreach {var val} $meta { 
      if {![string compare -nocase "Location" $var]} { 
        regexp -nocase {tt\d+} $val val; 
        return $val; 
      } 
    } 
  } 
} 

proc imdb::getinfo {id} { 
  variable agent; 
  http::config -useragent $agent; 
  if {[catch {http::geturl "http://www.imdb.com/title/$id/" -timeout 20000} token]} { 
    return; 
  } 
  set data [http::data $token]; 
  regsub -all -- {\r\n} $data "\n" data; 
  http::cleanup $token; 

  set name ""; set year ""; set genre ""; set tagline ""; set plot ""; 
  set rating 0; set votes ""; set runtime ""; set language ""; 
  regexp -nocase -- {<div id="tn15title">\n<h1>([^<]+)<span>\(<a href="/Sections/Years/\d+/">(\d+)</a>} $data -> name year; 
  foreach {null gen} [regexp -all -nocase -inline -- {<a href="/Sections/Genres/([a-z]+?)/">} $data] { 
    lappend genre $gen; 
  } 
  foreach {null lang} [regexp -all -nocase -inline -- {<a href="/Sections/Languages/.*?/">(.*?)</a>} $data] { 
    lappend language [string trim $lang]; 
  } 
  regexp -nocase -- {<h5>Tagline:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> tagline; 
  regsub -all "<a.*?>.*?</a>" $tagline "" tagline; 
  regexp -nocase -- {<h5>Plot:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> plot; 
  regsub -all "<a.*?>.*?</a>" $plot "" plot; 
  regexp -nocase -- {<b>([0-9.]+?)/10</b>[\n\s]+(?:\ ){2}<a href="ratings" class="tn15more">([0-9,]+?) votes</a>} $data -> rating votes; 
  regexp -nocase -- {<h5>Runtime:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> runtime; 

  return [list [string trim $name] $year [join $genre "/"] [string trim $tagline] [string trim $plot "\r\n\t| "] $rating $votes [string trim $runtime] [join $language "/"]]; 
} 

proc imdb::urlencode {i} { 
  variable encoding 
  set index 0; 
  set i [encoding convertto $encoding $i] 
  set length [string length $i] 
  set n "" 
  while {$index < $length} { 
    set activechar [string index $i $index] 
    incr index 1 
    if {![regexp {^[a-zA-Z0-9]$} $activechar]} { 
      append n %[format "%02X" [scan $activechar %c]] 
    } else { 
      append n $activechar 
    } 
  } 
  return $n 
} 

proc imdb::decode {content} { 
  if {$content == ""} { 
    return "n/a"; 
  } 
  if {![string match *&* $content]} { 
    return $content; 
  } 
  set escapes { 
      \x20 " \x22 & \x26 &apos; \x27 – \x2D 
    < \x3C > \x3E ˜ \x7E € \x80 ¡ \xA1 
    ¢ \xA2 £ \xA3 ¤ \xA4 ¥ \xA5 ¦ \xA6 
    § \xA7 ¨ \xA8 © \xA9 ª \xAA « \xAB 
    ¬ \xAC ­ \xAD ® \xAE &hibar; \xAF ° \xB0 
    ± \xB1 ² \xB2 ³ \xB3 ´ \xB4 µ \xB5 
    ¶ \xB6 · \xB7 ¸ \xB8 ¹ \xB9 º \xBA 
    » \xBB ¼ \xBC ½ \xBD ¾ \xBE ¿ \xBF 
    À \xC0 Á \xC1 Â \xC2 Ã \xC3 Ä \xC4 
    Å \xC5 Æ \xC6 Ç \xC7 È \xC8 É \xC9 
    Ê \xCA Ë \xCB Ì \xCC Í \xCD Î \xCE 
    Ï \xCF Ð \xD0 Ñ \xD1 Ò \xD2 Ó \xD3 
    Ô \xD4 Õ \xD5 Ö \xD6 × \xD7 Ø \xD8 
    Ù \xD9 Ú \xDA Û \xDB Ü \xDC Ý \xDD 
    Þ \xDE ß \xDF à \xE0 á \xE1 â \xE2 
    ã \xE3 ä \xE4 å \xE5 æ \xE6 ç \xE7 
    è \xE8 é \xE9 ê \xEA ë \xEB ì \xEC 
    í \xED î \xEE ï \xEF ð \xF0 ñ \xF1 
    ò \xF2 ó \xF3 ô \xF4 õ \xF5 ö \xF6 
    ÷ \xF7 ø \xF8 ù \xF9 ú \xFA û \xFB 
    ü \xFC ý \xFD þ \xFE ÿ \xFF 
  }; 
  set content [string map $escapes $content]; 
  set content [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] $content]; 
  regsub -all -- {&#([[:digit:]]{1,5});} $content {[format %c [string trimleft "\1" "0"]]} content; 
  regsub -all -- {&#x([[:xdigit:]]{1,4});} $content {[format %c [scan "\1" %x]]} content; 
  regsub -all -- {&#?[[:alnum:]]{2,7};} $content "?" content; 
  return [subst $content]; 
} 

putlog "*IMDb v$imdb::version* Loaded"
M
MePH
Voice
Posts: 5
Joined: Mon Apr 12, 2010 11:03 am

Post by MePH »

Too lazy to check what i changed, but it works ;)

Code: Select all

# IMDb query v1.13
# Copyright (C) 2007-2008 perpleXa
# http://perplexa.ugug.org / #perpleXa on QuakeNet
#
# Redistribution, with or without modification, are permitted provided
# that redistributions retain the above copyright notice, this condition
# and the following disclaimer.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Usage:
#  -imdb <movie name>

package require http 2.7; # TCL 8.5

namespace eval imdb {
  variable version 1.14;

  # flood protection (seconds)
  variable antiflood "10";
  # character encoding
  variable encoding "utf-8";
  # user agent
  variable agent "Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.8.1) Gecko/2006101023 Firefox/2.0";

  # internal
  bind pub -|- "!imdb" [namespace current]::public;
  variable flood;
  namespace export *;
}

proc imdb::public {nick host hand chan argv} {
  variable flood; variable antiflood;
  if {![info exists flood($chan)]} { set flood($chan) 0; }
  if {[unixtime] - $flood($chan) <= $antiflood} { return 0; }
  set flood($chan) [unixtime];

  set argv [string trim $argv];
  if {$argv == ""} {
    puthelp "NOTICE $nick :Usage: $::lastbind movie";
    return 0;
  }

  set id [id $argv];
  if {$id == ""} {
    chanmsg $chan "Movie not found: $argv";
    return 0;
  }

  set info [getinfo $id];
  if {![llength $info]} {
    chanmsg $chan "Couldn't get information for movie id $id.";
    return 0;
  }

  for {set i 0} {$i < [llength $info]} {incr i} {
    set info [lreplace $info $i $i [decode [lindex $info $i]]];
  }

  set name     [lindex $info 0];  set year    [lindex $info 1];
  set genre    [lindex $info 2];  set tagline [lindex $info 3];
  set plot     [lindex $info 4];  set rating  [lindex $info 5];
  set votes    [lindex $info 6];  set runtime [lindex $info 7];
  set language [lindex $info 8];

  if {$name == ""} {
    chanmsg $chan "Couldn't get information for movie id $id.";
    return 0;
  }

  chanmsg $chan "\[\002IMDb\002\] \002$name\002 ($year) \0037¤\003 Link: \00314http://imdb.com/title/$id/\003";
  chanmsg $chan " - \002Genre\002: $genre \002Runtime\002: $runtime \002Language\002: $language";
  chanmsg $chan " - \002Rating\002: [bar $rating] $rating/10 ($votes votes)";
  chanmsg $chan " - \002Tagline\002: $tagline";
  chanmsg $chan " - \002Plot\002: [string map { » "" | "" } $plot ]";
}

proc imdb::bar {float} {
  set stars [format "%1.0f" $float];
  return "\[\00307[string repeat "¤" $stars]\00314[string repeat "-" [expr 10-$stars]]\003\]";
}

proc imdb::chanmsg {chan text} {
  if {[validchan $chan]} {
    if {[string first "c" [lindex [split [getchanmode $chan]] 0]] >= 0} {
      regsub -all {(?:\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037)} $text "" text;
    }
  }
  putquick "PRIVMSG $chan :$text";
}

proc imdb::id {movie} {
  variable agent;
  http::config -useragent $agent;
  if {[catch {http::geturl "http://www.imdb.com/find?q=[urlencode $movie];s=tt;site=aka" -timeout 20000} token]} {
    return;
  }
  set data [http::data $token];
  set code [http::ncode $token];
  set meta [http::meta $token];
  http::cleanup $token;
  if {$code == 200} {
    set id "";
    #regsub -nocase -- {^.*<b>Titles \(Exact Matches\)</b>} $data "" data;
    regexp -nocase -- {<a href="/title/(tt[0-9]+)/"} $data -> id;
    return $id;
  } else {
    foreach {var val} $meta {
      if {![string compare -nocase "Location" $var]} {
        regexp -nocase {tt\d+} $val val;
        return $val;
      }
    }
  }
}

proc imdb::getinfo {id} {
  variable agent;
  http::config -useragent $agent;
  if {[catch {http::geturl "http://www.imdb.com/title/$id/" -timeout 20000} token]} {
    return;
  }
  set data [http::data $token];
  regsub -all -- {\r\n} $data "\n" data;
  http::cleanup $token;

  set name ""; set year ""; set genre ""; set tagline ""; set plot "";
  set rating 0; set votes ""; set runtime ""; set language "";
  regexp -nocase -- {<div id="tn15title">\n<h1>([^<]+)<span>\(<a href="/year/\d+/">(\d+)</a>} $data -> name year;
  foreach {null gen} [regexp -all -nocase -inline -- {<a href="/Sections/Genres/([a-z]+?)/">} $data] {
    lappend genre $gen;
  }
  foreach {null lang} [regexp -all -nocase -inline -- {<a href="/Sections/Languages/.*?/">(.*?)</a>} $data] {
    lappend language [string trim $lang];
  }
  regexp -nocase -- {<h5>Tagline:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> tagline;
  regsub -all "<a.*?>.*?</a>" $tagline "" tagline;
  regexp -nocase -- {<h5>Plot:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> plot;
  regsub -all "<a.*?>.*?</a>" $plot "" plot;
  regexp -nocase -- {<b>([0-9.]+?)/10</b>[\n\s]+(?:\ ){2}<a href="ratings" class="tn15more">([0-9,]+?) votes</a>} $data -> rating votes;
  regexp -nocase -- {<h5>Runtime:</h5>\n<div[^>]*>(.+?)</div>(.*)} $data -> runtime;

  return [list [string trim $name] $year [join $genre "/"] [string trim $tagline] [string trim $plot "\r\n\t| "] $rating $votes [string trim $runtime] [join $language "/"]];
}

proc imdb::urlencode {i} {
  variable encoding
  set index 0;
  set i [encoding convertto $encoding $i]
  set length [string length $i]
  set n ""
  while {$index < $length} {
    set activechar [string index $i $index]
    incr index 1
    if {![regexp {^[a-zA-Z0-9]$} $activechar]} {
      append n %[format "%02X" [scan $activechar %c]]
    } else {
      append n $activechar
    }
  }
  return $n
}

proc imdb::decode {content} {
  if {$content == ""} {
    return "n/a";
  }
  if {![string match *&* $content]} {
    return $content;
  }
  set escapes {
      \x20 " \x22 & \x26 &apos; \x27 – \x2D
    < \x3C > \x3E ˜ \x7E € \x80 ¡ \xA1
    ¢ \xA2 £ \xA3 ¤ \xA4 ¥ \xA5 ¦ \xA6
    § \xA7 ¨ \xA8 © \xA9 ª \xAA « \xAB
    ¬ \xAC ­ \xAD ® \xAE &hibar; \xAF ° \xB0
    ± \xB1 ² \xB2 ³ \xB3 ´ \xB4 µ \xB5
    ¶ \xB6 · \xB7 ¸ \xB8 ¹ \xB9 º \xBA
    » \xBB ¼ \xBC ½ \xBD ¾ \xBE ¿ \xBF
    À \xC0 Á \xC1 Â \xC2 Ã \xC3 Ä \xC4
    Å \xC5 Æ \xC6 Ç \xC7 È \xC8 É \xC9
    Ê \xCA Ë \xCB Ì \xCC Í \xCD Î \xCE
    Ï \xCF Ð \xD0 Ñ \xD1 Ò \xD2 Ó \xD3
    Ô \xD4 Õ \xD5 Ö \xD6 × \xD7 Ø \xD8
    Ù \xD9 Ú \xDA Û \xDB Ü \xDC Ý \xDD
    Þ \xDE ß \xDF à \xE0 á \xE1 â \xE2
    ã \xE3 ä \xE4 å \xE5 æ \xE6 ç \xE7
    è \xE8 é \xE9 ê \xEA ë \xEB ì \xEC
    í \xED î \xEE ï \xEF ð \xF0 ñ \xF1
    ò \xF2 ó \xF3 ô \xF4 õ \xF5 ö \xF6
    ÷ \xF7 ø \xF8 ù \xF9 ú \xFA û \xFB
    ü \xFC ý \xFD þ \xFE ÿ \xFF
  };
  set content [string map $escapes $content];
  set content [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] $content];
  regsub -all -- {&#([[:digit:]]{1,5});} $content {[format %c [string trimleft "\1" "0"]]} content;
  regsub -all -- {&#x([[:xdigit:]]{1,4});} $content {[format %c [scan "\1" %x]]} content;
  regsub -all -- {&#?[[:alnum:]]{2,7};} $content "?" content;
  return [subst $content];
}

putlog "Script loaded: IMDb query v$imdb::version by perpleXa"
h
holycrap
Op
Posts: 152
Joined: Mon Jan 21, 2008 11:19 pm

Post by holycrap »

Thanks! It works great.

:D
T
Taken
Voice
Posts: 7
Joined: Mon Jul 26, 2010 5:51 pm

Post by Taken »

Hi!

Any one knows how add director name? I'm trying but nothing :(

Thanks!
T
Taken
Voice
Posts: 7
Joined: Mon Jul 26, 2010 5:51 pm

Post by Taken »

Fix it! :D
h
holycrap
Op
Posts: 152
Joined: Mon Jan 21, 2008 11:19 pm

Post by holycrap »

This script is broken again. Can someone please fix it?

Thanks!

:D
User avatar
username
Op
Posts: 196
Joined: Thu Oct 06, 2005 9:20 am
Location: Russian Federation, Podolsk
Contact:

Post by username »

Try this version.
<tvrsh> !movie batmen
<@bionic> The Dark Knight. Also known as: Batman: The Dark Knight (2008) Rating: [*********-] 8.9/10
<@bionic> Batman, Gordon and Harvey Dent are forced to deal with the chaos unleashed by an anarchist mastermind known only as the Joker, as it drives each of them to their limits.
<@bionic> Director: Christopher Nolan, Release date: 14 August 2008 (Russia)
<@bionic> Storyline: Batman raises the stakes in his bourgeois war on crime. With the help of Lieutenant Jim Gordon and District Attorney Harvey Dent, Batman sets out to dismantle the remaining criminal organizations that plague the city streets. The partnership proves to be effective, but they soon find themselves prey to a reign of chaos unleashed by a rising criminal mastermind known to the terrified citizens of Gotham as The Joker.
<@bionic> Tagline: Why So Serious?, Plot keywords: Batman/Joker/Criminal/Gotham/Chaos, Genre: Action/Crime/Drama/Thriller
<@bionic> Language: English/Mandarin, Runtime: 152 min, Votes: 470,518
Архив TCL скриптов для ботов Eggdrop/Windrop:
http://egghelp.ru/
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

@username : holycrap seems to be using the same version as you pointed him to download, yet it works at you and it doesn't at him. It's a case of PEBKAC? :)
Once the game is over, the king and the pawn go back in the same box.
h
holycrap
Op
Posts: 152
Joined: Mon Jan 21, 2008 11:19 pm

Post by holycrap »

@username Thanks! It woks great. I have one bit of a problem... when I changed to this how come the name and year is not showing up?

Code: Select all

chanmsg $chan "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
chanmsg $chan "\002Tagline:\002 $tagline \002Plot:\002 $desc";
User avatar
username
Op
Posts: 196
Joined: Thu Oct 06, 2005 9:20 am
Location: Russian Federation, Podolsk
Contact:

Post by username »

caesar wrote:@username : holycrap seems to be using the same version as you pointed him to download, yet it works at you and it doesn't at him. It's a case of PEBKAC? :)
Heh, no. I done some little modification with code. But this is the secret.
I decide, if author stop working with this I can repair it without changing copyright. Maybe Im wrong.
Архив TCL скриптов для ботов Eggdrop/Windrop:
http://egghelp.ru/
User avatar
username
Op
Posts: 196
Joined: Thu Oct 06, 2005 9:20 am
Location: Russian Federation, Podolsk
Contact:

Post by username »

holycrap wrote:@username Thanks! It woks great. I have one bit of a problem... when I changed to this how come the name and year is not showing up?

Code: Select all

chanmsg $chan "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10"; 
chanmsg $chan "\002Tagline:\002 $tagline \002Plot:\002 $desc";
Hmmm, I dont know. Maybe you add colours and proc imdb::chanmsg cut them with usefull information?
Архив TCL скриптов для ботов Eggdrop/Windrop:
http://egghelp.ru/
User avatar
spithash
Master
Posts: 249
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

Post by spithash »

I got the same problem and I didn't change anything:

Code: Select all

[12:06:25] <@spithash> !imdb salt
[12:06:28] <@nagger> n/a. Also known as: Agente Salt (n/a) Rating: [******----] 6.5/10
[12:06:28] <@nagger> A CIA agent goes on the run after a defector accuses her of being a Russian spy.
[12:06:28] <@nagger> Director: Phillip Noyce, Release date: 23 July 2010 (Canada)
[12:06:28] <@nagger> Storyline: Evelyn Salt is a CIA agent and highly respected by all, including her boss, Ted Winter. Out of the blue, a Russian spy walks into their offices and offers a 
                     vital piece of information: the President of Russia will be assassinated during his forthcoming visit to New York City to attend the funeral of the recently deceased 
                     U.S. Vice President. The name of the assassin: Evelyn Salt. Concerned about the safety of her husband, who she cannot co
[12:06:30] <@nagger> Tagline: Salt Must Die., Plot keywords: On The Run/Russian/Russian Spy/Spy/CIA, Genre: Action/Mystery/Thriller
[12:06:33] <@nagger> Language: English/Russian, Runtime: 100 min, Votes: 32,342
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
User avatar
spithash
Master
Posts: 249
Joined: Thu Jul 12, 2007 9:21 am
Location: Libera
Contact:

Post by spithash »

And in some search strings I tested, even worse:

Code: Select all

[12:16:57] <@spithash> !imdb Welcome to the Rileys 
[12:17:00] <@nagger> n/a. Also known as: n/a (n/a) Rating: [********--] 7.8/10
[12:17:00] <@nagger> On a business trip to New Orleans, a damaged man seeks salvation by caring for a wayward young woman.
[12:17:00] <@nagger> Director: Jake Scott, Release date: 10 November 2010 (France)
[12:17:00] <@nagger> Storyline: n/a
[12:17:02] <@nagger> Tagline: n/a, Plot keywords: n/a, Genre: Drama
[12:17:04] <@nagger> Language: English, Runtime: n/a, Votes: 581
probably some code change on imdb's website I assume.
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl
t
tigrato
Voice
Posts: 22
Joined: Sat Jul 04, 2009 7:46 am

Post by tigrato »

username can you add top 250 option?
User avatar
username
Op
Posts: 196
Joined: Thu Oct 06, 2005 9:20 am
Location: Russian Federation, Podolsk
Contact:

Post by username »

<tvrsh> !movie Welcome to the Rileys
<@bionic> Welcome to the Rileys. Also known as: n/a (2010) Rating: [********--] 7.8/10
...
Script updated. Link is the same. There is no other info about this film on site.
Архив TCL скриптов для ботов Eggdrop/Windrop:
http://egghelp.ru/
Post Reply