| View previous topic :: View next topic |
| Author |
Message |
holycrap
Op
Joined: 21 Jan 2008
Posts: 152
|
 Posted: Thu Mar 18, 2010 4:26 am Post subject: iMDB by perpleXA |
 |
|
Any one kind enough to fix this? The title and year are not showing, other than that it works fine.
Thanks!
| Code: | # 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 ' \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" |
|
|
| Back to top |
|
 |
MePH
Voice
Joined: 12 Apr 2010
Posts: 5
|
| Posted: Mon Apr 12, 2010 11:06 am Post subject: |
|
|
Too lazy to check what i changed, but it works 
| Code: | # 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 ' \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" |
|
|
| Back to top |
|
|
holycrap
Op
Joined: 21 Jan 2008
Posts: 152
|
| Posted: Tue Apr 13, 2010 3:21 pm Post subject: |
|
|
Thanks! It works great.
|
|
| Back to top |
|
|
Taken
Voice
Joined: 26 Jul 2010
Posts: 7
|
| Posted: Mon Jul 26, 2010 5:58 pm Post subject: |
|
|
Hi!
Any one knows how add director name? I'm trying but nothing 
Thanks! |
|
| Back to top |
|
|
Taken
Voice
Joined: 26 Jul 2010
Posts: 7
|
| Posted: Wed Jul 28, 2010 7:05 pm Post subject: |
|
|
| Fix it! |
|
| Back to top |
|
|
holycrap
Op
Joined: 21 Jan 2008
Posts: 152
|
| Posted: Thu Oct 14, 2010 5:01 am Post subject: |
|
|
This script is broken again. Can someone please fix it?
Thanks!
|
|
| Back to top |
|
|
username
Op
Joined: 06 Oct 2005
Posts: 196
Location: Russian Federation, Podolsk
|
| Posted: Fri Oct 15, 2010 2:38 pm Post subject: |
|
|
Try this version.
| Quote: | <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/ |
|
| Back to top |
|
|
caesar
Mint Rubber
Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory
|
| Posted: Sat Oct 16, 2010 2:13 am Post subject: |
|
|
@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. |
|
| Back to top |
|
|
holycrap
Op
Joined: 21 Jan 2008
Posts: 152
|
| Posted: Sat Oct 16, 2010 4:31 am Post subject: |
|
|
@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: | chanmsg $chan "\002$name\002 ($year) \002Rating:\002 [bar $rating] $rating/10";
chanmsg $chan "\002Tagline:\002 $tagline \002Plot:\002 $desc"; |
|
|
| Back to top |
|
|
username
Op
Joined: 06 Oct 2005
Posts: 196
Location: Russian Federation, Podolsk
|
| Posted: Sat Oct 16, 2010 10:58 am Post subject: |
|
|
| 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/ |
|
| Back to top |
|
|
username
Op
Joined: 06 Oct 2005
Posts: 196
Location: Russian Federation, Podolsk
|
| Posted: Sat Oct 16, 2010 11:04 am Post subject: |
|
|
| 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: | 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/ |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Sat Oct 16, 2010 12:07 pm Post subject: |
|
|
I got the same problem and I didn't change anything:
| Code: | [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 |
|
| Back to top |
|
|
spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
| Posted: Sat Oct 16, 2010 12:18 pm Post subject: |
|
|
And in some search strings I tested, even worse:
| Code: | [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 |
|
| Back to top |
|
|
tigrato
Voice
Joined: 04 Jul 2009
Posts: 22
|
| Posted: Sat Oct 16, 2010 1:27 pm Post subject: |
|
|
| username can you add top 250 option? |
|
| Back to top |
|
|
username
Op
Joined: 06 Oct 2005
Posts: 196
Location: Russian Federation, Podolsk
|
| Posted: Sat Oct 16, 2010 1:28 pm Post subject: |
|
|
| Quote: | <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/ |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
