Code:

# Change from:set arg [string map [list "%bold" "\002" "%uline" "\037" "%bull" "\u2022" "%color" "\003"] $arg]# Into:set arg [string map [list "%bold" "\002" "%uline" "\037" "%bull" "[encoding convertto utf-8 \u2022]" "%color" "\003"] $arg]

Code:

################################################################################# TVInfo Light                                                                 ## Based on dlx's tvrage lookup script                                          ##################################################################################                                                                              ## v001 (Znuff@Egghelp) - 23/08/2011                                            ## - Initial release, stripped appart dlx's tvrage script                       ## v002 (Robby@Egghelp) - 07/09/2011                                            ## - Replaced replacevar with a string map (speechles)                          ## - Fixed "Illegal characters in URL path" (speechles)                         ## - Added a message saying we're querying the server so users know the bot     ##   got the command and isn't lagging on them                                  ## - Return on error to prevent further erroneous processing, stops and fixes   ##   a "no such variable" error                                                 ## - In the tvlast proc: added a missing else, fixing a "no such variable"      ##   error                                                                      ## - Fixed a "no such variable" error in the tv proc                            ## - Added ability to enable/disable this script per channel through .chanset,  ##   +tv to enable, -tv to disable                                              ##   NOTE: At first this will be disabled for all channels, so you will have    ##         to enable this for all the channels you want the script to work on   ## - Put variables/settings in an array called: tv                              ## - Clean up script indentation, some excess spaces and some other minor stuff ## - Increased default timeout to 30000 as TVRage can be very slow to respond   ## v003 (Robby@Egghelp) - 16/12/2011                                            ## - Fixed an error if episode titles contained a ’ character                   ## - Fixed a bug if genres contained a - or / character, it would cut off the   ##   the remaining part of the line output (found by Arkadietz@Egghelp)         ##                                                                              #################################################################################bind pub -|- .tv tvbind pub -|- .tvnext tvnextbind pub -|- .tvlast tvlast# Timeout value - in millisecondsset tv(timeout) "30000"# Set a prefix for the output, you can use %bull, %bold, %uline and %color# No trailing space needed.set tv(prefix) "TV:"set tv(version) "003"setudef flag tvproc showinfo {chan arg} {  global tv  set arg "$tv(prefix) $arg"  set arg [string map [list "%bold" "\002" "%uline" "\037" "%bull" "\u2022" "%color" "\003"] $arg]  set arg [encoding convertto utf-8 $arg]  putquick "PRIVMSG $chan :$arg"}proc tv {nick host hand chan arg} {  if {![channel get $chan tv]} {return 0}  global tv  package require http  putquick "PRIVMSG $chan :$tv(prefix) Please wait, querying server..."  set arg [string map {" " "%20"} $arg]  set url "http://services.tvrage.com/tools/quickinfo.php?show=[::http::formatQuery $arg]"  set page [http::data [http::geturl $url -timeout $tv(timeout)]]  regexp {Show Name@([A-Za-z 0-9\&\':]+)} $page gotname show_name  regexp {Show URL@http://www.tvrage.com/([A-Za-z_0-9/-]+)} $page goturl show_url  regexp {Premiered@([0-9]+)} $page gotpremiere show_premiered  regexp {Latest Episode@([0-9x]+)\^([A-Za-z0-9 -\`\’\"\'\&:\.,]+)\^([A-Za-z0-9/]+)} $page gotlatest latest_ep latest_ep_title latest_ep_date  set gotnext [regexp {Next Episode@([0-9x]+)\^([A-Za-z0-9 -\`\’\"\'\&:.,]+)\^([A-Za-z0-9/]+)} $page gotnext next_ep next_ep_title next_ep_date]  regexp {Country@([A-Za-z]+)} $page gotcountry show_country  regexp {Status@([A-Za-z/ ]+)} $page gotstatus show_status  regexp {Classification@([A-Za-z ]+)} $page gotclassification show_classification  set gotgenres [regexp {Genres@([A-Za-z |/-]+)} $page gotgenres show_genres]  regexp {Network@([A-Za-z 0-9]+)} $page gotnetwork show_network  regexp {Airtime@([A-Za-z, 0-9:]+)} $page gotairtime show_airtime  if {![info exists show_name]} {    showinfo $chan "Error! (timeout or something similar)"    return 1  }  set show_url "http://www.tvrage.com/$show_url"  if {$gotgenres == 0} {set show_genres "N/A"}  if {$gotnext == 0} {    set next_ep "N/A"    set next_ep_title "N/A"    set next_ep_date ""  }  showinfo $chan "%color7Show:%color %bold$show_name%bold ($show_classification \| $show_genres)"  showinfo $chan "%color7Premiered:%color %bold$show_premiered%bold %bull %color7Status:%color %bold$show_status%bold"  showinfo $chan "%color7URL:%color %bold$show_url"  # Cleanup the "Prev/Next Ep" line output a little bit to  # make it shorter if some variables are not available, this  # also fixes an error when next_ep and next_ep_date are not set.  # Probably not the best way to do it :P but it looks better on  # the channel imo.  if {![info exists latest_ep]} {set latest_ep "N/A"}  if {![info exists latest_ep_date]} {    set latest_ep_date ""  } else {    set latest_ep_date " on %bold$latest_ep_date%bold"  }  if {![info exists next_ep]} {set next_ep "N/A"}  if {$next_ep_date != ""} {set next_ep_date " on %bold$next_ep_date%bold"}  # Finally show the output:  showinfo $chan "%color7Previous Ep:%color %bold$latest_ep%bold$latest_ep_date %bull %color7Next Ep:%color %bold$next_ep%bold$next_ep_date"  return 1}proc tvnext {nick host hand chan arg} {  if {![channel get $chan tv]} {return 0}  global tv  package require http  putquick "PRIVMSG $chan :$tv(prefix) Please wait, querying server..."  set arg [string map {" " "_"} $arg]  set url "http://services.tvrage.com/tools/quickinfo.php?show=[::http::formatQuery $arg]"  set page [http::data [http::geturl $url -timeout $tv(timeout)]]  regexp {Show Name@([A-Za-z 0-9\&\':]+)} $page gotname show_name  regexp {Latest Episode@([0-9x]+)\^([A-Za-z0-9 -\`\’\"\'\&:\.,]+)\^([A-Za-z0-9/]+)} $page gotlatest latest_ep latest_ep_title latest_ep_date  set gotnext [regexp {Next Episode@([0-9x]+)\^([A-Za-z0-9 -\`\’\"\'\&:.,]+)\^([A-Za-z0-9/]+)} $page gotnext next_ep next_ep_title next_ep_date]  regexp {Airtime@([A-Za-z, 0-9:]+)} $page gotairtime show_airtime  if {![info exists show_name]} {    showinfo $chan "Error! (timeout or something similar)"    return 1  }  if {$gotnext == 0} {    showinfo $chan "The next episode of %bold$show_name%bold is not yet scheduled. That makes me a %color7sad panda%color. :-("  } else {    showinfo $chan "The next episode of %bold$show_name%bold is %bold$next_ep_title \[$next_ep\]%bold, it will air on %bold$show_airtime $next_ep_date%bold. Previous episode was $latest_ep on $latest_ep_date."  }  return 1}proc tvlast {nick host hand chan arg} {  if {![channel get $chan tv]} {return 0}  global tv  package require http  putquick "PRIVMSG $chan :$tv(prefix) Please wait, querying server..."  set arg [string map {" " "_"} $arg]  set url "http://services.tvrage.com/tools/quickinfo.php?show=[::http::formatQuery $arg]"  set page [http::data [http::geturl $url -timeout $tv(timeout)]]  regexp {Show Name@([A-Za-z 0-9\&\':]+)} $page gotname show_name  regexp {Latest Episode@([0-9x]+)\^([A-Za-z0-9 -\`\’\"\'\&:\.,]+)\^([A-Za-z0-9/]+)} $page gotlatest latest_ep latest_ep_title latest_ep_date  set gotnext [regexp {Next Episode@([0-9x]+)\^([A-Za-z0-9 -\`\’\"\'\&:.,]+)\^([A-Za-z0-9/]+)} $page gotnext next_ep next_ep_title next_ep_date]  if {![info exists show_name]} {    showinfo $chan "Error! (timeout or something similar)"    return 1  }  if {$gotnext == 0} {    showinfo $chan "The last episode of %bold$show_name%bold was %bold$latest_ep_title \[$latest_ep\]%bold, it aired on %bold$latest_ep_date%bold. Next episode is not yet scheduled. :-("  } else {    showinfo $chan "The last episode of %bold$show_name%bold was %bold$latest_ep_title \[$latest_ep\]%bold, it aired on %bold$latest_ep_date%bold. Next episode is %bold$next_ep%bold scheduled on %bold$next_ep_date%bold."  }  return 1}putlog "TVInfo Light v$tv(version): LOADED"