egghelp/eggheads community

Dictionary Lookup v1.4 update...

2022-02-24T14:24:59-04:00

Dictionary Lookup (jaxson)

Version 1.4 (update by SpiKe^^)
New Experimental Fix for tcl-tls version checking and related errors.
New Code to follow redirect for "301 Moved Permanently" for things like "draws" and "Another".
New Code tries to query defitions for common phrases (Example: .dict trial by fire ).

Code:

# Description: This script will query dictionary.com and give a simple response## v1.0  Initial release giving a simple dictionary result (jaxson)# v1.1  Added the .dictChan command to allow a channel access to the .dict command (jaxson)# v1.2  Fix for wrong color procs - my bad for copying colors from one of my other scripts doh!## v1.4  New Experimental Fix for tcl-tls version checking and related errors.  (SpiKe^^)#       New Code to follow redirect for "301 Moved Permanently" for things like "draws" and "Another".#       New Code tries to query defitions for common phrases  (Example:  .dict trial by fire ).# Needed packagespackage require http 2.3package require tls 1.6.4package present Tcl 8.6# Colors availableproc crev     {} {return \026}    ;#reverseproc culine   {} {return \037}    ;#underline proc cbold    {} {return \002}    ;#boldproc coff     {} {return \003}    ;#color-offproc cwhite   {} {return \00300}proc cblack   {} {return \00301}proc cdkblue  {} {return \00302}proc cgreen   {} {return \00303}proc cred     {} {return \00304}proc cbrown   {} {return \00305}proc cpurple  {} {return \00306}proc corange  {} {return \00307}proc cyellow  {} {return \00308}proc cltgreen {} {return \00309}proc ccyan    {} {return \00310}proc cltblue  {} {return \00311}proc cblue    {} {return \00312}proc cpink    {} {return \00313}proc cgrey    {} {return \00314}proc cltgrey  {} {return \00315}# Some variablesset dt(link) "https://www.dictionary.com/browse/"set dt(version) "v1.4"# channel flag# .dictChan on <- to enable on your #channel / .dictChan off <- for turn this off!setudef flag dictionarybind pub - ".dict" dictionaryLookupbind pub o ".dictChan" dictionaryControl######## made a new httpsregister ########proc httpsregister {} {  set tlsver [package present tls]  set test 0  if {$test} {putlog "proc httpsregister::: tlsver = ($tlsver)"}  if {[package vcompare $tlsver 1.7.11] >= 0 } {    if {[catch {::http::register https 443 [list ::tls::socket -autoservername 1]} err]} {      if {$test} {putlog "check 1b :err = ($err)"}      ::http::register https 443 [list ::tls::socket -servername www.dictionary.com]    } elseif {$test} {putlog "check 1"}  } elseif {[package vcompare $tlsver 1.7] >= 0 } {    if {$test} {putlog "check 2"}    ::http::register https 443 [list ::tls::socket -servername www.dictionary.com]  } else {    if {$test} {putlog "check 3"}    ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1]  }}######## end of new httpsregister ########proc httpsunregister {} {  ::http::unregister https  return 0}proc putmsg {dest text} {  puthelp "PRIVMSG $dest :$text"}proc dictionaryLookup {nick uhost hand chan arg} {  global dt  if {![channel get $chan dictionary]} { return 0 }  set arg [regsub -all -- {\s{2,}} [string trim [stripcodes * $arg]] { }]  if {$arg eq "" || [string length $arg] > 70 || [llength [split $arg]] > 10} {    putmsg $chan "[cblue]Usage:[coff] [cbold].dict [cbold]"    return 0  }  set txt [string map [list " " "-" "'" "-" "`" "-"] $arg]  regsub -all {[^-a-zA-Z]} $txt "" txt  set fullurl "$dt(link)$txt"  #putlog "$fullurl"  set ddoc [getpage $fullurl]######## made a new follow redirect ########  if {[llength [split $ddoc "\n"]] < 5} {    set line1 [lindex [split $ddoc "\n"] 0]    if {[matchstr "moved permanently. redirecting to /browse/*" $line1]} {      set fullurl "$dt(link)[lindex [split $line1 /] end]"      #putlog "$fullurl"      set ddoc [getpage $fullurl]    }  }######## end of new follow redirect ########  set ddoc [split $ddoc "\n"]  if {[llength $ddoc] < 5} {    putmsg $chan "[cblue]Nothing found for[coff] [cbold]$arg[cbold][cblue].[coff] (1)"    return 0  }  foreach line $ddoc {    if {[regexp {} $line -> subj def]} {      set ssubj [join [lrange [split $subj] 0 end-1]]      set sdef [string trim $def]      putmsg $chan "[cblue]The Defition for[coff] [cbold]$ssubj[cbold][cblue] is:[coff] $sdef"      break    }    if {[regexp { subj]} {      set ssubj [string trim $subj]      set line [lindex $ddoc 55]      if {![matchstr {  );border-radius:50%;display:-webkit-*} $line]} {  set line [lindex $ddoc 56]  }      if {[regexp {\s+css-0\s+e1w1pzze4\">(.*?)(.*?)\.} $line -> def1 def2]} {        set sdef "[string trim $def1] [cgrey] ${def2}.[coff]"        putmsg $chan "[cblue]The Defition for[coff] [cbold]$ssubj[cbold][cblue] is:[coff] $sdef"        break      }    }  }  if {![info exists ssubj] || ![info exists sdef]} {    putmsg $chan "[cblue]Nothing found for[coff] [cbold]$arg[cbold][cblue].[coff] (2)"  }  return 0}proc getpage url {  ::httpsregister  if {[catch {set token [::http::geturl $url -binary 1 -timeout 15000]} error]} {    putlog "Error retrieving URL... try again later.  [string map [list \n " "] $error]"    ::httpsunregister    return 0  }  set data [::http::data $token]  ::http::cleanup $token  ::httpsunregister  return [encoding convertfrom utf-8 $data]}proc dictionaryControl {nick uhost hand chan text} {  switch -nocase -- [lindex [split $text] 0] {    "on" {      if {[channel get $chan dictionary]} {        putmsg $chan "Dictionary already running on $chan."      } else {        channel set $chan +dictionary        putmsg $chan "Dictionary now running on $chan."      }    }    "off" {      if {![channel get $chan dictionary]} {        putmsg $chan "Dictionary already disabled on $chan."      } {        channel set $chan -dictionary        putmsg $chan "Dictionary now disabled on $chan."      }    }    default {      putmsg $chan "Usage: $::lastbind ."    }  }  return 0}putlog "Dictionary Lookup (jax) $dt(version) loaded..."

Statistics: Posted by SpiKe^^ — Thu Feb 24, 2022 2:24 pm

Dictionary Lookup v1.2 (+redirectable)

2022-01-29T03:17:57-04:00

Dictionary Lookup v1.2 (+redirectable)

Addresses the no reply for things like "draws" and "Another" by following the redirect...

Code:

# Description: This script will query dictionary.com and give a simple response## v1.0  Initial release giving a simple dictionary result (jaxson)# v1.1  Added the .dictChan command to allow a channel access to the .dict command (jaxson)# v1.2  Fix for wrong color procs - my bad for copying colors from one of my other scripts doh!## Needed packagespackage require http 2.3package require tls 1.6.4package present Tcl 8.6# Colors availableproc crev     {} {return \026}    ;#reverseproc culine   {} {return \037}    ;#underline proc cbold    {} {return \002}    ;#boldproc coff     {} {return \003}    ;#color-offproc cwhite   {} {return \00300}proc cblack   {} {return \00301}proc cdkblue  {} {return \00302}proc cgreen   {} {return \00303}proc cred     {} {return \00304}proc cbrown   {} {return \00305}proc cpurple  {} {return \00306}proc corange  {} {return \00307}proc cyellow  {} {return \00308}proc cltgreen {} {return \00309}proc ccyan    {} {return \00310}proc cltblue  {} {return \00311}proc cblue    {} {return \00312}proc cpink    {} {return \00313}proc cgrey    {} {return \00314}proc cltgrey  {} {return \00315}# Some variablesset dt(link) "https://www.dictionary.com/browse/"set dt(version) "v1.2 (+redirectable)"# channel flag# .dictChan on <- to enable on your #channel / .dictChan off <- for turn this off!setudef flag dictionarybind pub - ".dict" dictionaryLookupbind pub o ".dictChan" dictionaryControl######## made a new httpsregister ########proc httpsregister {} {  set tlsver [package present tls]  if {[package vcompare $tlsver 1.7.11] >= 0 } {    ::http::register https 443 [list ::tls::socket -autoservername 1]  } elseif {[package vcompare $tlsver 1.7] >= 0 } {    ::http::register https 443 [list ::tls::socket -servername www.dictionary.com]  } else {    ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1]  }}######## end of new httpsregister ########proc httpsunregister {} {  ::http::unregister https  return 0}proc dictionaryLookup {nick uhost hand chan arg} {  global dt  if {![channel get $chan dictionary]} { return 0 }  if {$arg == "" || [regexp {\s} $arg]} {    putchan $chan "Usage: .dict "    return 0  }  set fullurl "$dt(link)$arg"  putlog "$fullurl"  set ddoc [getpage "$fullurl"]######## made a new follow redirect ########  if {[llength [split $ddoc "\n"]] < 5} {    set line1 [lindex [split $ddoc "\n"] 0]    if {[matchstr "moved permanently. redirecting to /browse/*" $line1]} {      set fullurl "$dt(link)[lindex [split $line1 /] end]"      putlog "$fullurl"      set ddoc [getpage "$fullurl"]    }  }######## end of new follow redirect ########  if {[llength [split $ddoc "\n"]] < 5} {    putchan $chan "[cblue]Nothing found for[cblack] $arg[cblue].[coff]"    return 0  }  foreach line [split $ddoc "\n"] {    if {[regexp {} $line -> subj def]} {      set ssubj [string trim [lindex [split $subj] 0]]      set sdef [string trim $def]      putchan $chan "[cblue]The Defition for[cblack] $ssubj[cblue] is:[cltblue] $sdef[coff]"    }  }  return 0}proc getpage url {  ::httpsregister  if {[catch {set token [::http::geturl $url -binary 1 -timeout 15000]} error]} {    putlog "Error retrieving URL... try again later.[string map [list \n " "] $error]"    ::httpsunregister    return 0  }  set data [::http::data $token]  ::http::cleanup $token  ::httpsunregister  return [encoding convertfrom utf-8 $data]}proc dictionaryControl {nick uhost hand chan text} {  switch -nocase -- [lindex [split $text] 0] {    "on" {      if {[channel get $chan dictionary]} {        putchan $chan "Dictionary already running on $chan."      } else {        channel set $chan +dictionary        putchan $chan "Dictionary now running on $chan."      }    }    "off" {      if {![channel get $chan dictionary]} {        putchan $chan "Dictionary already disabled on $chan."      } {        channel set $chan -dictionary        putchan $chan "Dictionary now disabled on $chan."      }    }    default {      putchan $chan "Usage: $::lastbind ."    }  }  return 0}putlog "Dictionary Lookup (jax) $dt(version) loaded..."

Statistics: Posted by SpiKe^^ — Sat Jan 29, 2022 3:17 am

Quick case fix for argument given

2022-01-28T02:47:50-04:00

Replace this line: set fullurl "$dt(link)$arg
With this line: set fullurl [string tolower "$dt(link)$arg"]

Statistics: Posted by jaxson — Fri Jan 28, 2022 2:47 am

Dictionary

2022-01-28T01:16:01-04:00

Thanks Jaxon for help

Statistics: Posted by Goga — Fri Jan 28, 2022 1:16 am

v1.3 Fix for early versions of tcl-tls v1.7

2022-01-27T07:17:09-04:00

Code:

# Description: This script will query dictionary.com and give a simple response## v1.0Initial release giving a simple dictionary result (jaxson)# v1.1Added the .dictChan command to allow a channel access to the .dict command (jaxson)# v1.2Fix for wrong color procs - my bad for copying colors from one of my other scripts doh!# v1.3Fix for earlier versions of 1.7 (Thanks to SpiKe^^) and better checking of tcl-tls# Needed packagespackage require http 2.3package require tlspackage present Tcl 8.6# Colors availableproc cr {} {return \026};#reverseproc cul {} {return "\037"};#underline proc cbold {} {return \002};#boldproc coff {} {return \003};#offproc cwhite {} {return \00300};proc cblack {} {return \00301};proc cdkblue {} {return \00302};proc cgreen {} {return \00303};proc cltred {} {return \00304};proc cbrown {} {return \00305};proc cpurple {} {return \00306};proc corange {} {return \00307};proc cyellow {} {return \00308};proc cltgreen {} {return \00309};proc ccyan {} {return \00310};proc cltblue {} {return \00311};proc cblue {} {return \00312};proc cpink {} {return \00313};proc cgrey {} {return \00314};proc cltgrey {} {return \00315};# Some variablesset dt(link) "https://www.dictionary.com/browse/"set dt(version) "v1.3"# channel flag# .dictChan on <- to enable on your #channel / .dictChan off <- for turn this off!setudef flag dictionarybind pub - ".dict" dictionaryLookupbind pub o ".dictChan" dictionaryControlproc putchan {chan what} { puthelp "PRIVMSG $chan :$what" }proc putmsg {nick msg} { puthelp "PRIVMSG $nick :$msg" }proc putnot {nick msg} { puthelp "NOTICE $nick :$msg" }proc httpsregister {} {::http::register https 443 [list ::tls::socket -servername www.dictionary.com]}proc httpsunregister {} {   ::http::unregister httpsreturn 0}proc dictionaryLookup {nick uhost hand chan arg} {global dtif {![channel get $chan dictionary]} { return 0 }if {$arg == "" || [regexp {\s} $arg]} {putchan $chan "Usage: .dict "return 0}   if {[package vcompare [package present tls] 1.7] == -1 } {putnot $nick "You don't have a valid version of tcl-tls installed. Get the admin to either install tcl-tls package, or upgrade to at least v1.7"putnot $nick "If the admin doesn't want to you can try downloading https://core.tcl-lang.org/tcltls/uv/tcltls-1.7.22.tar.gz to your home directory."putnot $nick "Extract it and change to that directory; run './configure --prefix=$HOME; make; make install'"putnot $nick "Then go to your eggdrop source directory & 'make clean'; './configure'; 'make'; 'make install DEST=~/xxxxx'"putnot $nick "Then restart your bot. You should now have a working tcl-tls v1.7.22."return 0   }set fullurl "$dt(link)$arg"putlog "$fullurl"   set ddoc [getpage "$fullurl"]if {[llength [split $ddoc "\n"]] < 5} {putchan $chan "[cblue]Nothing found for[cblack] $arg[cblue].[coff]"}foreach line [split $ddoc "\n"] {if {[regexp {} $line -> subj def]} {set ssubj [string trim [lindex [split $subj] 0]]set sdef [string trim $def]putchan $chan "[cblue]The Defition for[cblack] $ssubj[cblue] is:[cltblue] $sdef[coff]"}}return 0}proc getpage url {   ::httpsregister   if {[catch {set token [::http::geturl $url -timeout 15000]} error]} {      putlog "Error retrieving URL... try again later.[string map [list \n " "] $error]"::httpsunregister      return 0   }set data [::http::data $token]::http::cleanup $token::httpsunregisterreturn [encoding convertfrom utf-8 $data]}proc dictionaryControl {nick uhost hand chan text} {switch -nocase -- [lindex [split $text] 0] {"on" {if {[channel get $chan dictionary]} {putchan $chan "Dictionary already running on $chan."} else {channel set $chan +dictionaryputchan $chan "Dictionary now running on $chan."}}"off" {if {![channel get $chan dictionary]} {putchan $chan "Dictionary already disabled on $chan."} {channel set $chan -dictionaryputchan $chan "Dictionary now disabled on $chan."}}default {putchan $chan "Usage: $::lastbind ."}}return 0}putlog "Dictionary Lookup (jax) $dt(version) loaded..."[quote][/quote]

Statistics: Posted by jaxson — Thu Jan 27, 2022 7:17 am

v1.2 color proc fix

2022-01-22T19:10:04-04:00

Code:

# Description: This script will query dictionary.com and give a simple response## v1.0Initial release giving a simple dictionary result (jaxson)# v1.1Added the .dictChan command to allow a channel access to the .dict command (jaxson)# v1.2Fix for wrong color procs - my bad for copying colors from one of my other scripts doh!## Needed packagespackage require http 2.3package require tls 1.6.4package present Tcl 8.6# Colors availableproc cr {} {return \026};#reverseproc cul {} {return "\037"};#underline proc cbold {} {return \002};#boldproc coff {} {return \003};#offproc cwhite {} {return \00300};proc cblack {} {return \00301};proc cdkblue {} {return \00302};proc cgreen {} {return \00303};proc cltred {} {return \00304};proc cbrown {} {return \00305};proc cpurple {} {return \00306};proc corange {} {return \00307};proc cyellow {} {return \00308};proc cltgreen {} {return \00309};proc ccyan {} {return \00310};proc cltblue {} {return \00311};proc cblue {} {return \00312};proc cpink {} {return \00313};proc cgrey {} {return \00314};proc cltgrey {} {return \00315};# Some variablesset dt(link) "https://www.dictionary.com/browse/"set dt(version) "v1.2"# channel flag# .dictChan on <- to enable on your #channel / .dictChan off <- for turn this off!setudef flag dictionarybind pub - ".dict" dictionaryLookupbind pub o ".dictChan" dictionaryControlproc httpsregister {} {   if {[package vcompare [package present tls] 1.7] > 0 } {      ::http::register https 443 [list ::tls::socket -autoservername 1]   } else {      ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1]   }}proc httpsunregister {} {   ::http::unregister httpsreturn 0}proc dictionaryLookup {nick uhost hand chan arg} {global dtif {![channel get $chan dictionary]} { return 0 }if {$arg == "" || [regexp {\s} $arg]} {putchan $chan "Usage: .dict "return 0}set fullurl "$dt(link)$arg"putlog "$fullurl"   set ddoc [getpage "$fullurl"]if {[llength [split $ddoc "\n"]] < 5} {putchan $chan "[cblue]Nothing found for[cblack] $arg[cblue].[coff]"}foreach line [split $ddoc "\n"] {if {[regexp {} $line -> subj def]} {set ssubj [string trim [lindex [split $subj] 0]]set sdef [string trim $def]putchan $chan "[cblue]The Defition for[cblack] $ssubj[cblue] is:[cltblue] $sdef[coff]"}}return 0}proc getpage url {   ::httpsregister   if {[catch {set token [::http::geturl $url -binary 1 -timeout 15000]} error]} {      putlog "Error retrieving URL... try again later.[string map [list \n " "] $error]"::httpsunregister      return 0   }set data [::http::data $token]::http::cleanup $token::httpsunregisterreturn [encoding convertfrom utf-8 $data]}proc dictionaryControl {nick uhost hand chan text} {switch -nocase -- [lindex [split $text] 0] {"on" {if {[channel get $chan dictionary]} {putchan $chan "Dictionary already running on $chan."} else {channel set $chan +dictionaryputchan $chan "Dictionary now running on $chan."}}"off" {if {![channel get $chan dictionary]} {putchan $chan "Dictionary already disabled on $chan."} {channel set $chan -dictionaryputchan $chan "Dictionary now disabled on $chan."}}default {putchan $chan "Usage: $::lastbind ."}}return 0}putlog "Dictionary Lookup (jax) $dt(version) loaded..."

Statistics: Posted by jaxson — Sat Jan 22, 2022 7:10 pm

Version 1.1 - Added .dictChan trigger for adding channels

2022-01-22T05:45:17-04:00

Code:

# Description: This script will query dictionary.com and give a simple response## v1.0Initial release giving a simple dictionary result (jaxson)# v1.1Added the .dictChan command to allow a channel access to the .dict command (jaxson)## Needed packagespackage require http 2.3package require tls 1.6.4package present Tcl 8.6# Colors availableproc cr {} {return \026};#reverseproc cul {} {return "\037"};#underline proc cbold {} {return \002};#boldproc coff {} {return \003};#offproc cwhite {} {return \00300};proc cblack {} {return \00301};proc cdkblue {} {return \00302};proc cgreen {} {return \00303};proc cltred {} {return \00304};proc cbrown {} {return \00305};proc cpurple {} {return \00306};proc corange {} {return \00307};proc cyellow {} {return \00308};proc cltgreen {} {return \00309};proc ccyan {} {return \00310};proc cltcyan {} {return \00311};proc cltblue {} {return \00312};proc cpink {} {return \00313};proc cgrey {} {return \00314};proc cltgrey {} {return \00315};# Some variablesset dt(link) "https://www.dictionary.com/browse/"set dt(version) "v1.1"# channel flag# .dictChan on <- to enable on your #channel / .dictChan off <- for turn this off!setudef flag dictionarybind pub - ".dict" dictionaryLookupbind pub o ".dictChan" dictionaryControlproc httpsregister {} {   package require tls   if {[package vcompare [package present tls] 1.7] > 0 } {      ::http::register https 443 [list ::tls::socket -autoservername 1]   } else {      ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1]   }return 0}proc httpsunregister {} {   ::http::unregister httpsreturn 0}proc dictionaryLookup {nick uhost hand chan arg} {global dtif {![channel get $chan dictionary]} { return 0 }if {$arg == "" || [regexp {\s} $arg]} {putchan $chan "Usage: .dict "return 0}set fullurl "$dt(link)$arg"putlog "$fullurl"   set ddoc [getpage "$fullurl"]if {[llength [split $ddoc "\n"]] < 5} {putchan $chan "[cblue]Nothing found for[cblack] $arg[cblue].[coff]"}foreach line [split $ddoc "\n"] {if {[regexp {} $line -> subj def]} {set ssubj [string trim [lindex [split $subj] 0]]set sdef [string trim $def]putchan $chan "[cblue]The Defition for[cblack] $ssubj[cblue] is:[cltblue] $sdef[coff]"}}return 0}proc getpage url {   ::httpsregister   if {[catch {set token [::http::geturl $url -binary 1 -timeout 15000]} error]} {      putlog "Error retrieving URL... try again later.[string map [list \n " "] $error]"::httpsunregister      return 0   }set data [::http::data $token]::http::cleanup $token::httpsunregisterreturn [encoding convertfrom utf-8 $data]}proc dictionaryControl {nick uhost hand chan text} {switch -nocase -- [lindex [split $text] 0] {"on" {if {[channel get $chan dictionary]} {putchan $chan "Dictionary already running on $chan."} else {channel set $chan +dictionaryputchan $chan "Dictionary now running on $chan."}}"off" {if {![channel get $chan dictionary]} {putchan $chan "Dictionary already disabled on $chan."} {channel set $chan -dictionaryputchan $chan "Dictionary now disabled on $chan."}}default {putchan $chan "Usage: $::lastbind ."}}return 0}putlog "Dictionary Lookup (jax) $dt(version) loaded..."

Statistics: Posted by jaxson — Sat Jan 22, 2022 5:45 am

Try this one

2022-01-22T00:46:42-04:00

Code:

package require http 2.3package require tls 1.6.4package present Tcl 8.6proc cblack {} {return \00301};proc cltblue {} {return \00311};proc cblue {} {return \00312};proc coff {} {return \017}set dt(link) "https://www.dictionary.com/browse/"# set the following array to which chans to listen to (need to be lowercase) array set dictChans {#eggdrop e#phoenix p}bind pub - ".dict" dictionaryLookupproc httpsregister {} {   package require tls   if {[package vcompare [package present tls] 1.7] > 0 } {      ::http::register https 443 [list ::tls::socket -autoservername 1]   } else {      ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1]   }return 0}proc httpsunregister {} {   ::http::unregister httpsreturn 0}proc dictionaryLookup {nick uhost hand chan arg} {global dt dictChansif {([array get dictChans [string tolower $chan]] == "")} { return 0 }if {$arg == "" || [regexp {\s} $arg]} {putchan $chan "Usage: .dict "return 0}set fullurl "$dt(link)$arg"putlog "$fullurl"   set ddoc [getpage "$fullurl"]if {[llength [split $ddoc "\n"]] < 5} {putchan $chan "[cblue]Nothing found for[cblack] $arg[cblue].[coff]"}foreach line [split $ddoc "\n"] {if {[regexp {} $line -> subj def]} {set ssubj [string trim [lindex [split $subj] 0]]set sdef [string trim $def]putlog ".$ssubj.$sdef."putchan $chan "[cblue]The Defition for[cblack] $ssubj[cblue] is:[cltblue] $sdef[coff]"}}return 0}proc getpage url {   ::httpsregister   if {[catch {set token [::http::geturl $url -binary 1 -timeout 15000]} error]} {      putlog "Error retrieving URL... try again later.[string map [list \n " "] $error]"::httpsunregister      return 0   }set data [::http::data $token]::http::cleanup $token::httpsunregisterreturn [encoding convertfrom utf-8 $data]}putlog "Dictionary Lookup by jax loaded..."

Statistics: Posted by jaxson — Sat Jan 22, 2022 12:46 am

Dictionary

2022-01-21T01:45:22-04:00

Anyone Please make it Happen this TCL Please.

Statistics: Posted by Goga — Fri Jan 21, 2022 1:45 am

Dictionary

2022-01-13T03:35:48-04:00

Same Result with .dict word
and error comes up in private window :

No results found for 'Book' in any of the active databases..

Statistics: Posted by Goga — Thu Jan 13, 2022 3:35 am

Dictionary

2022-01-12T22:05:29-04:00

use in channel .dict word

Statistics: Posted by Arnold_X-P — Wed Jan 12, 2022 10:05 pm

Dictionary

2022-01-11T06:50:33-04:00

Code:

# dictionary.com script - rosc2112 at yahoo com - Copyright C.Leonhardt 2006# http://members.dandy.net/~fbn/dictcom.tcl.txtset dcdictver "0.02l"## This script pulls definitions from dictionary.reference.com. It can show suggested spellings if you# misspell a word, shows results including the pronunciation key, parts of speech, definitions, word origin, # synonyms and antonyms. You can also search for phrases/idioms, cities, states, countries, zipcodes, etc.# Check the list of available databases in the helpfile, that gives a good indication of the retrievable data.## Usage:   .dict dicthelp  |#       or .dict           | Show the helpfile (typed in privmsg or in channel)## History  -  Oct. 08 2006 - Initial conception#          -  Oct. 11 2006 - Added more db's, added ability for user to specify line-limit (still respecting#                            admin's choice of max line-limit, and added option for admin to allow user to#                            override that limit or not), etc.#                          - Removed dcorigin/dcsynant options, added combined commandline options.#                          - Added a 'dbmatch' option to show which databases a word might be found in.#                          - Added the rest of the db's (if dictionary.com provided the VERA, GCIDE and#                            Ambrose Bierce's Devil's dictionaries, this script would be complete compared to#                            db's available from dict.org.)#                          - Consolidated redundant regexp's into a seperate proc.#             Oct. 12 2006 - Minor changes to dbnames.#             Oct. 13 2006 - Fixed a mistake in the variable used for selecting a database. #                            Added a string map for 'dbmatch' to show the dbname's as used in the script (rather #                            than the names as known to dictionary.com) #                          - Added additional error msg when user selects a database and the word is not found.#                          - Changed proc dictmsg test to see if user is either on the channel or validuser, #                            if neither, script quietly returns (unknown users outside of channels cannot use.)#                          - Made a configuration option for limiting input length.#                          - Forgot to initialize dcactivelimit if no dclinelimit is specified in the configs.#                          - Added error msgs when user tries dcorigin or dcsyn options and specifies a db other#                            than dbluna (origin, and synonyms/antonyms not available from other db's.)#             Oct. 14 2006 - Fixed a typo in otherdb regexp (dbwsw was misspelled.)#             Oct. 17 2006 - Gah...another typo (missing bracket in the dictmsg proc :P)#                          - Added a 'string is integer' check for dclimit, some other tweaks to dclimit..#                          - Changed dclimit section again, to handle 'dclimit' cmd in any order.#             Oct. 18 2006 - Tweaked 'additional suggestions' so it doesn't show | on end of string.#             Nov. 14 2006 - Various html/unicode chars added to the string map.#             Dec. 03 2006 - Website changes/code fixed.#             Dec. 07 2006 - More string map additions.## Databases: Dictionary.com Unabridged Dictionary; Webster's 1913 Unabridged Dictionary; #            Webster's New Millenium Dictionary; WordNet Dictionary; American Heritage Dictionary;#            American Heritage Stedman's Medical Dictionary; American Heritage Dictionary of Idioms;#            Merriam-Webster Medical Dictionary; Merriam-Webster Law Dictionary; Investopedia; Wall Street Words; #            Easton's 1897 Bible Dictionary; Hitchcock's Bible Names Dictionary;Free On-line Dictionary of Computing;#            Jargon File; US Gazetteer 1990 Census; CIA 1995 World Factbook; Atomic Elements Database.## There will no doubt be unicode chars/html that are not in the string map "set smaps" for substituting the# html code with the real characters. If you come across these, please send me a note about them so I can add# them into the string map for future versions.## TODO: New databases: American Heritage Science Dictionary; American Heritage Abbreviations Dictionary;#                      American Heritage New Dictionary of Cultural Literacy.. Hmm well, I went to add these#                      today and they're no longer showing up on the website. I'll keep notes and if they become#                      permanent additions to dictionary.com, I'll add them.################################################################################################################## Configs:#~~~~~~~~~# Channels where we allow public useset dcomchans "#elegance"# Channels that respond only via privmsgset dcquietchans "#elegance"# Timeout for geturl (1/1000th's of a second)set dcomtimeout "30000"# If you want to limit output, set the max number of lines to output here (this will truncate results.)# Set to 0 for no-limit (show the complete definition results, which could be *extremely* long.)set dclinelimit 40# Allow users to specify a higher limit (override dclinelimit)? This option has no effect unless dclinelimit is# set to a number above zero. Output is sent to privmsg instead of channel when dclinelimit and this option # are enabled together, when the user chooses a 'dclimit' higher than dclinelimit.# Set to 1 == yes, 0 == noset dclineoride 1# Set the max input length (number of chars.) IRC has an input limit of about 400 chars but that may be excessive. # Set this var to 0 if you do not want any input limit.set dcmaxlength 150################################################################################################################# Code begins ################package require http 2.3bind pub - .dict dictpubbind msg - .dict dictmsgproc dictmsg {nick uhost hand text} {if {(![onchan $nick]) && (![validuser $nick])} {return}dictpub $nick $uhost $hand privmsg $textreturn}proc dictpub {nick uhost hand chan text} {if {([lsearch -exact $::dcomchans $chan] == -1) && ($chan != "privmsg")} {return}if {([lsearch -exact $::dcquietchans $chan] != -1) || ($chan == "privmsg")} {set chan $nick}set text [string trim $text];set text [split $text]if {$::dclinelimit > 0} {set dcactivelim $::dclinelimit} else {set dcactivelim 0}set dcomdef "";set ahddef "";set websterdef "";set amsmddef "";set mwmeddef "";set pronun "";set defins ""set dcori "";set dcsynon "";set word1 "";set dcsuggests "";set i 0;set dcanton "";set dictname ""set showdcorigin 0;set showsynant 0;set otherdb 0;set templim "";set templim2 "";set investdef ""set wswdef "";set remvar "";set showdef 0;set dbmatches "";set dbmatch1 "";set showmatch 0set newdbl "";set dcomurl "";set ahdidef "";set foldef "";set eastdef "";set gazdef "";set jardef ""set mlawdef "";set wmdef "";set wndef "";set w95def "";set hitdef "";set elmdef "";set dbvar ""set dblist [list dbluna dbahd dbweb dbamd dbmmd dbinv dbwsw dbahi dbeast dbfold dbgaz dbjar dbmlaw dbwnm dbword dbcia dbhit dbelem]set dbmatchlist [list luna ahd4 web1913 ahsmd mwmed ivst wsw ahdi easton foldoc gazetteer jargon mwlaw wmde wn world95 hitchcock elements]# user asking for matching db names onlyif {[set remvar [lsearch -exact $text dbmatch]] != -1} {set showmatch 1set text [lreplace $text $remvar $remvar]set text [string trim [join $text]]}# user asking for 'origin' output onlyif {[set remvar [lsearch -exact $text dcorigin]] != -1} {set showdcorigin 1;set showdef 1set text [lreplace $text $remvar $remvar]set text [string trim [join $text]]}# user asking for synonyms/antonyms onlyif {[set remvar [lsearch -exact $text dcsyn]] != -1} {set showsynant 1;set showdef 1set text [lreplace $text $remvar $remvar]set text [string trim [join $text]]}# user setting a line limit to restrict number of definition lines shown.if {[set remvar [lsearch $text dclimit:*]] != -1} {set templim [lindex $text $remvar];set templim2 [lindex [split $templim :] 1]set templim2 [string trimleft $templim2 0]if {$templim2 == ""} {set dcactivelim 1puthelp "PRIVMSG $nick :dclimit cannot be below 1, so we'll use a limit of 1 line.."} elseif {![string is integer -strict $templim2]} {puthelp "PRIVMSG $nick :dclimit requires a number, not '$templim2'"return} elseif {$templim2 < 1} {set dcactivelim 1puthelp "PRIVMSG $nick :dclimit cannot be below 1, so we'll use a limit of 1 line.."} else {if {$::dclinelimit > 0} {if {($::dclineoride == 0) && ($templim2 > $::dclinelimit)} {puthelp "PRIVMSG $chan :Admin has set a strict line limit of $::dclinelimit max lines. Cannot override."} elseif {($::dclineoride == 1) && ($templim2 > $::dclinelimit)} {puthelp "PRIVMSG $nick :Overriding line limit with dclimit $templim2 (results will be sent to privmsg.)"set chan $nickset dcactivelim $templim2} else {set dcactivelim $templim2}} else {set dcactivelim $templim2}}set text [lreplace $text $remvar $remvar]set text [string trim [join $text]]}# user asking to search a specific database# otherdb's: 0=dbluna 1=dbahd 2=dbweb 3=dbamd 4=dbmmd 5=dbinv 6=dbwsw 7=dbahi 8=dbeast 9=dbfold 10=dbgaz#            11=dbjar 12=dbmlaw 13=dbwnm 14=dbword 15=dbcia 16=dbhit 17=dbelemif {[regexp {(\mdbluna\M|\mdbahd\M|\mdbweb\M|\mdbamd\M|\mdbmmd\M|\mdbinv\M|\mdbwsw\M|\mdbahi\M|\mdbeast\M|\mdbfold\M|\mdbgaz\M|\mdbjar\M|\mdbmlaw\M|\mdbwnm\M|\mdbword\M|\mdbcia\M|\mdbhit\M|\mdbelem\M)} $text match dbvar]} {set remvar [lsearch -exact $text $dbvar]switch -- $dbvar {"dbluna" {set otherdb 0;set dcomurl "http://dictionary.reference.com/search?db=luna&q="}"dbahd" {set otherdb 1;set dcomurl "http://dictionary.reference.com/search?db=ahd4&q="}"dbweb" {set otherdb 2;set dcomurl "http://dictionary.reference.com/search?db=web1913&q="}"dbamd" {set otherdb 3;set dcomurl "http://dictionary.reference.com/search?db=ahsmd&q="}"dbmmd" {set otherdb 4;set dcomurl "http://dictionary.reference.com/search?db=mwmed&q="}"dbinv" {set otherdb 5;set dcomurl "http://dictionary.reference.com/search?db=ivst&q="}"dbwsw" {set otherdb 6;set dcomurl "http://dictionary.reference.com/search?db=wsw&q="}"dbahi" {set otherdb 7;set dcomurl "http://dictionary.reference.com/search?db=ahdi&q="}"dbeast" {set otherdb 8;set dcomurl "http://dictionary.reference.com/search?db=easton&q="}"dbfold" {set otherdb 9;set dcomurl "http://dictionary.reference.com/search?db=foldoc&q="}"dbgaz" {set otherdb 10;set dcomurl "http://dictionary.reference.com/search?db=gazetteer&q="}"dbjar" {set otherdb 11;set dcomurl "http://dictionary.reference.com/search?db=jargon&q="}"dbmlaw" {set otherdb 12;set dcomurl "http://dictionary.reference.com/search?db=mwlaw&q="}"dbwnm" {set otherdb 13;set dcomurl "http://dictionary.reference.com/search?db=wmde&q="}"dbword" {set otherdb 14;set dcomurl "http://dictionary.reference.com/search?db=wn&q="}"dbcia" {set otherdb 15;set dcomurl "http://dictionary.reference.com/search?db=world95&q="}"dbhit" {set otherdb 16;set dcomurl "http://dictionary.reference.com/search?db=hitchcock&q="}"dbelem" {set otherdb 17;set dcomurl "http://dictionary.reference.com/search?db=elements&q="}}set text [lreplace $text $remvar $remvar]set text [string trim [join $text]]if {$showmatch == 1} {#user asked to show matching databases (dbmatch) so we can't use the other databases.set otherdb 0;set dcomurl "http://dictionary.reference.com/search?q="}}if {($text == "dicthelp") || ($text == "")} {puthelp "PRIVMSG $nick :\002Dictionary.com TCL\002 - Commands are typed in PRIVMSG to $::botnick or in channel:"puthelp "PRIVMSG $nick :Parameters shown in \002<>\002 are required, while \002\[\]\002 are optional."puthelp "PRIVMSG $nick :To look up a word, simply use : \002.dict \002"puthelp "PRIVMSG $nick :To show only the word origins : \002.dict dcorigin \002"puthelp "PRIVMSG $nick :To show only synonyms/antonyms: \002.dict dcsyn \002"puthelp "PRIVMSG $nick :   Origin and Synonyms/Antonyms available only from dbluna (default database)"puthelp "PRIVMSG $nick :To show results from a particular dictionary: \002.dict  \002"puthelp "PRIVMSG $nick :  The following dbname's are available:"puthelp "PRIVMSG $nick :   \002dbluna\002 - Dictionary.com Unabridged Dictionary (v1.0.1 2006)"puthelp "PRIVMSG $nick :   \002dbweb\002  - Webster's Revised Unabridged Dictionary (pub.date 1913)"puthelp "PRIVMSG $nick :   \002dbwnm\002  - Webster's New Millenium Dictionary (v0.9.6 2005)"puthelp "PRIVMSG $nick :   \002dbahd\002  - American Heritage Dictionary (4th Ed. 2000)"puthelp "PRIVMSG $nick :   \002dbahi\002  - American Heritage Dictionary of Idioms (pub.date 1997)"puthelp "PRIVMSG $nick :   \002dbamd\002  - American Heritage Stedman's Medical Dictionary (pub.date 2002)"puthelp "PRIVMSG $nick :   \002dbmmd\002  - Merriam-Webster's Medical Dictionary (pub.date 2002)"puthelp "PRIVMSG $nick :   \002dbmlaw\002 - Merriam-Webster's Law Dictionary (pub.date 1996)"puthelp "PRIVMSG $nick :   \002dbword\002 - WordNet Dictionary (v2.0 2003)"puthelp "PRIVMSG $nick :   \002dbfold\002 - Free Online Dictionary of Computing (pub.date 2005)"puthelp "PRIVMSG $nick :   \002dbjar\002  - Jargon File (v4.2.0, 2000)"puthelp "PRIVMSG $nick :   \002dbelem\002 - Atomic Elements Database (pub.date 1998)"puthelp "PRIVMSG $nick :   \002dbinv\002  - Investopedia (pub.date 2005)"puthelp "PRIVMSG $nick :   \002dbwsw\002  - Wall Street Words (pub.date 2003)"puthelp "PRIVMSG $nick :   \002dbgaz\002  - U.S. Gazetteer (1990 U.S. Census)"puthelp "PRIVMSG $nick :   \002dbcia\002  - CIA World Factbook (pub.date 1995)"puthelp "PRIVMSG $nick :   \002dbeast\002 - Easton's Bible Dictionary (pub.date 1897)"puthelp "PRIVMSG $nick :   \002dbhit\002  - Hitchcock's Bible Names Dictionary (pub.date late 1800's)"puthelp "PRIVMSG $nick :  When no database is specified, 1st matching result from all db's is shown."puthelp "PRIVMSG $nick :To limit the number of lines shown for a word: \002.dict dclimit: \[dbname\] \002"puthelp "PRIVMSG $nick :   Example: \002.dict dclimit:3 fubar\002 will show only the first 3 definition lines of 'fubar'"puthelp "PRIVMSG $nick :To show which databases a word \002matches\002 in: \002.dict dbmatch \002"puthelp "PRIVMSG $nick :To show the list of databases: \002.dict showdb\002"puthelp "PRIVMSG $nick :\[end of dictionary.tcl help\]"return}if {$text == "showdb"} {puthelp "PRIVMSG $nick :The following dbname's are available for the dictionary script:"puthelp "PRIVMSG $nick :   \002dbluna\002 - Dictionary.com Unabridged Dictionary (v1.0.1 2006)"puthelp "PRIVMSG $nick :   \002dbweb\002  - Webster's Revised Unabridged Dictionary (pub.date 1913)"puthelp "PRIVMSG $nick :   \002dbwnm\002  - Webster's New Millenium Dictionary (v0.9.6 2005)"puthelp "PRIVMSG $nick :   \002dbahd\002  - American Heritage Dictionary (4th Ed. 2000)"puthelp "PRIVMSG $nick :   \002dbahi\002  - American Heritage Dictionary of Idioms (pub.date 1997)"puthelp "PRIVMSG $nick :   \002dbamd\002  - American Heritage Stedman's Medical Dictionary (pub.date 2002)"puthelp "PRIVMSG $nick :   \002dbmmd\002  - Merriam-Webster's Medical Dictionary (pub.date 2002)"puthelp "PRIVMSG $nick :   \002dbmlaw\002 - Merriam-Webster's Law Dictionary (pub.date 1996)"puthelp "PRIVMSG $nick :   \002dbword\002 - WordNet Dictionary (v2.0 2003)"puthelp "PRIVMSG $nick :   \002dbfold\002 - Free Online Dictionary of Computing (pub.date 2005)"puthelp "PRIVMSG $nick :   \002dbjar\002  - Jargon File (v4.2.0, 2000)"puthelp "PRIVMSG $nick :   \002dbelem\002 - Atomic Elements Database (pub.date 1998)"puthelp "PRIVMSG $nick :   \002dbinv\002  - Investopedia (pub.date 2005)"puthelp "PRIVMSG $nick :   \002dbwsw\002  - Wall Street Words (pub.date 2003)"puthelp "PRIVMSG $nick :   \002dbgaz\002  - U.S. Gazetteer (1990 U.S. Census)"puthelp "PRIVMSG $nick :   \002dbcia\002  - CIA World Factbook (pub.date 1995)"puthelp "PRIVMSG $nick :   \002dbeast\002 - Easton's Bible Dictionary (pub.date 1897)"puthelp "PRIVMSG $nick :   \002dbhit\002  - Hitchcock's Bible Names Dictionary (pub.date late 1800's)"puthelp "PRIVMSG $nick :\[End of database list\]"return}# Need to test for illegal chars, as dictionary.com only accepts specific characters in words.# The list of legal chars is: a-z A-Z 0-9 space + ( ) ' , - . % :# If you find other chars that should be added to this list, let me know.set testchars [split $text {}]foreach letter [lrange $testchars 0 end] {if {[regexp {[a-zA-Z0-9[:space:]{1,}\+\(\)\'\,\-\.\%\:Ã¼ü]} $letter] != 1} {puthelp "PRIVMSG $nick :'[join $text]' contains illegal characters. Cannot look up."return}}# test input length. The longest english word is 45 chars (according to wikipedia) but dictionary.com        # can also look up phrases, so we'll set the length limit to $dcmaxlength (configured above)if {($::dcmaxlength > 0) && ([string length $text] > $::dcmaxlength)} {puthelp "PRIVMSG $nick :Your input is too long. Please limit input length to less than $::dcmaxlength chars\."return}set originaltext $textregsub -all { } $text {%20} textregsub -all {\+} $text {%2B} textregsub -all {\(} $text {%28} textregsub -all {\)} $text {%29} textregsub -all {\'} $text {%27} textregsub -all {,} $text {%2C} textif {$dcomurl == ""} {set dcomurl "http://dictionary.reference.com/search?q=$text"} else {set dcomurl "$dcomurl$text"}putquick "PRIVMSG $chan :\001ACTION peers over its glasses at a really huge book and flips through the pages..\001"catch {set page [::http::geturl $dcomurl -timeout $::dcomtimeout]} errorif {[string match -nocase "*couldn't open socket*" $error]} {puthelp "PRIVMSG $nick :dictionary.com error: couldn't connect..Try again later"::http::cleanup $pagereturn}if {[::http::status $page] == "timeout" } {puthelp "PRIVMSG $nick :dictionary.com error: Connection timed out. Try again."::http::cleanup $pagereturn}set html [::http::data $page]::http::cleanup $pageif {[regexp -nocase {Dictionary.com: Bad Request} $html]} {puthelp "PRIVMSG $nick :Dictionary.com error: Bad request '[join $originaltext]' - request could not be understood."return}if {[regexp -nocase {No results found for.*?No spelling suggestions were found.
} $html]} {puthelp "PRIVMSG $nick :Dictionary.com: No results and no spelling suggestions found for '[join $originaltext]'"return}if {[regexp -nocase {Sorry, an error occured while displaying this definition.
} $html]} {puthelp "PRIVMSG $nick :Dictionary.com: An error occurred while trying to display '[join $originaltext]'"return}if {[regexp -nocase {302 Found} $html]} {puthelp "PRIVMSG $nick :Dictionary.com :Document 302 error (page moved) - Please retry your request '[join $originaltext]'"return}if {[regexp -nocase {
No results found for.*?
.*?Did you mean (.*?).*?Dictionary suggestions:
(.*?)} $html match word1 dcsuggests]} {regsub -all {\n} $dcsuggests {} dcsuggestsregsub -all -nocase {} $dcsuggests { } dcsuggestsregsub -all -nocase {
} $dcsuggests { 11|} dcsuggestsregsub { 11\|$} $dcsuggests {} dcsuggestsif {$otherdb != 0} {puthelp "PRIVMSG $chan :No results were found for '[join $originaltext]' in the requested database \002[lindex $dblist $otherdb]\002. Try \002.dict dbmatch \002 to see which databases the word might be found in, or try a search with no database specified (\002.dict \002) Otherwise, this could just be a spelling error."}puthelp "PRIVMSG $chan :Couldn't find '[join $originaltext]' Maybe you spelled it wrong?  Dictionary.com suggested:\002 $word1 \002"set dcsuggests [dcwordwrap $nick $chan $originaltext $dcsuggests]foreach line $dcsuggests {regsub {^\s{0,}11\|} $line {} lineset line [string trim $line]if {$line != ""} {puthelp "PRIVMSG $chan :\002Addtional Suggestions:\002 $line"}}puthelp "PRIVMSG $chan :\[end of '[join $originaltext]' suggestions\]"return}# show matching db's on requestif {$showmatch == 1} {foreach line [split $html \n] {if {[regexp -all -nocase -- {} $line match dbmatch1]} {lappend dbmatches $dbmatch1}}set dbmatches [lsort -unique $dbmatches]foreach dbnam $dbmatches {if {[lsearch -exact $dbmatchlist $dbnam] != -1} {lappend newdbl $dbnam}}set newdbl [string map {luna dbluna ahd4 dbahd web1913 dbweb ahsmd dbamd mwmed dbmmd ivst dbinv wsw dbwsw ahdi dbahi easton dbeast foldoc dbfold gazetteer dbgaz jargon dbjar mwlaw dbmlaw wmde dbwnm wn dbword world95 dbcia hitchcock dbhit elements dbelem} $newdbl]puthelp "PRIVMSG $chan :Matches for '[join $originaltext]' found in these databases:\002 $newdbl\002"return}if {($otherdb == 0) && ([regexp -nocase {(.*?)} $html match dcomdef])} {set dictname "Dictionary.com Unabridged"if {[regexp -nocase {class="prondelim">\[(.*?)\]} $dcomdef match pronun]} {regsub -all -nocase {.*?} $pronun {&} pronunset pronun [defproc $pronun]set pronun [string trim $pronun]regsub {,$} $pronun {} pronunset pronun "\[pronunciation key: $pronun \]"}if {[regexp -nocase {(.*?)

} $dcomdef match defins]} {regsub -all -nocase {\n} $defins { } definsregsub -all -nocase {} $defins "\n" definsregsub -all -nocase {
} $defins "\n" definsregsub -all {Pronunciation Key} $defins {} definsregsub -all {Show Spelled Pronunciation} $defins {} definsregsub -all {Show IPA Pronunciation} $defins {} definsset defins [defproc $defins]}if {[regexp -nocase {\[(.*?)\].*?} $dcomdef match dcori]} {regsub {Origin:} $dcori {Origin:} dcoriset dcori [defproc $dcori]}if {[regexp {class="sectionLabel">.+?Synonyms.*?(.*?)} $dcomdef match dcsynon]} {regsub -all -nocase {.*?} $dcsynon {&} dcsynonset dcsynon [defproc $dcsynon]set dcsynon "\002Synonyms:\002 $dcsynon"}if {[regexp {class="sectionLabel">.+?Antonyms.*?(.*?)} $dcomdef match dcanton]} {regsub -all -nocase {.*?} $dcanton {&} dcantonset dcanton [defproc $dcanton]set dcanton "\002Antonyms:\002 $dcanton"}} elseif {(($otherdb == 1) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match ahddef])} {set dictname "American-Heritage Dictionary"regexp -nocase {
(.*?)} $ahddef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 2) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match websterdef])} {# webster 1913 dictionaryset dictname "Webster's 1913 Unabridged"regexp -nocase {>Cite.*?(.*?)Webster.*?} $websterdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 3) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match amsmddef])} {# american heritage steadman medical dictionaryset dictname "American-Heritage-Stedman's Medical Dictionary"regexp -nocase {>Cite.*?(.*?)The.*?American.*?Heritage} $amsmddef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 4) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match mwmeddef])} {# meriam webster medical dictionaryset dictname "Merriam-Webster Medical Dictionary"regexp -nocase {>Cite.*?(.*?)Merriam-Webster's} $mwmeddef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 5) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match investdef])} {# Investopediaset dictname "Investopedia"regexp -nocase {>Cite.*?(.*?)Investopedia} $investdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 6) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match wswdef])} {# Wall Street Wordsset dictname "Wall Street Words"regexp -nocase {>Cite.*?(.*?)Wall} $wswdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 7) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match ahdidef])} {# American Heritage Dictionary of Idiomsset dictname "American-Heritage Dictionary of Idioms"regexp -nocase {>Cite.*?(.*?)The.*?American.*?Heritage} $ahdidef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 8) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match eastdef])} {# Easton's Bible Dictionaryset dictname "Easton's 1897 Bible Dictionary"regexp -nocase {>Cite.*?(.*?)Easton.*?} $eastdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 9) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match foldef])} {# FOLDOCset dictname "FOLDOC Computer Dictionary"regexp -nocase {>Cite.*?(.*?)The.*? Free.*?} $foldef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 10) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match gazdef])} {# US Gazetteer Censusset dictname "US Gazetteer 1990 Census"regexp -nocase {>Cite.*?(.*?)U\.S\..*?} $gazdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 11) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match jardef])} {# Jargon Fileset dictname "Jargon File"regexp -nocase {>Cite.*?(.*?)Jargon.*?} $jardef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 12) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match mlawdef])} {# Merriam-Webster Law Dictionaryset dictname "Merriam-Webster Law Dictionary"regexp -nocase {>Cite.*?(.*?)Merriam-Webster.*?} $mlawdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 13) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match wmdef])} {# Webster New Millenium Dictionaryset dictname "Webster's New Millenium Dictionary"regexp -nocase {>Cite.*?(.*?)Webster.*?} $wmdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 14) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match wndef])} {# WordNet Dictionaryset dictname "WordNet Dictionary"regexp -nocase {>Cite.*?(.*?)WordNet.*?} $wndef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 15) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match w95def])} {# WordNet Dictionaryset dictname "CIA World Factbook"regexp -nocase {>Cite.*?(.*?)The.*?CIA.*?} $w95def match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 16) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match hitdef])} {# Hitchcock's Bible Names Dictionaryset dictname "Hitchcock's Bible Names"regexp -nocase {>Cite.*?(.*?)Hitchcock.*?} $hitdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} elseif {(($otherdb == 17) || (($defins == "") && ($otherdb == 0))) && ([regexp -nocase {(.*?)} $html match elmdef])} {# Elements Databaseset dictname "Atomic Elements DB"regexp -nocase {>Cite.*?(.*?)The.*?Elements} $elmdef match definsregsub -all {\n} $defins { } definsset defins [defproc $defins]} else {puthelp "PRIVMSG $chan :No results found for '[join $originaltext]' in any of the active databases.."return}if {($defins != "") || ($dcori != "") || ($dcsynon != "") || ($dcanton != "")} {puthelp "PRIVMSG $chan :\002$dictname\002: Results for '\002[join $originaltext]\002' - $pronun"if {$showdef == 0} {set defins [dcwordwrap $nick $chan $originaltext $defins]foreach line $defins {set line [string trim $line]if {$line != ""} {if {$dcactivelim != 0} {if {$i < [expr $dcactivelim + 1]} {puthelp "PRIVMSG $chan :[join $line]"incr i} else {puthelp "PRIVMSG $chan :\002Output limit reached\002 \[$dcactivelim lines max\]"break}} else {puthelp "PRIVMSG $chan :[join $line]"}}}}if {(($showdef == 0) || ($showdcorigin == 1))  && ($dcori != "")} {set dcori [dcwordwrap $nick $chan $originaltext $dcori]foreach line $dcori {if {$line != ""} {set line [string trim $line]puthelp "PRIVMSG $chan :[join $line]"}}} elseif {($showdcorigin == 1) && ($dcori == "") && ($otherdb == 0)} {puthelp "PRIVMSG $chan :No word origin found for '\002[join $originaltext]\002'"} elseif {($otherdb != 0) && ($showdcorigin == 1)} {puthelp "PRIVMSG $chan :Word origins only available from dbluna. You do not need to specify any db to use the dcorigin option."}if {(($showdef == 0) || ($showsynant == 1)) && (($dcsynon != "") || ($dcanton != ""))} {if {$dcsynon != ""} {set dcsynon [dcwordwrap $nick $chan $originaltext $dcsynon]foreach line $dcsynon {if {$line != ""} {set line [string trim $line]puthelp "PRIVMSG $chan :[join $line]"}}} elseif {($dcsynon == "") && ($showsynant == 1) && ($otherdb == 0)} {puthelp "PRIVMSG $chan :No synonyms found for '\002[$orignaltext]\002'"} elseif {($otherdb != 0) && ($showsynant == 1)} {puthelp "PRIVMSG $chan :Synonyms only availble from dbluna. You do not need to specify any db to use the dcsyn option."}if {$dcanton != ""} {set dcanton [dcwordwrap $nick $chan $originaltext $dcanton]foreach line $dcanton {if {$line != ""} {set line [string trim $line]puthelp "PRIVMSG $chan :[join $line]"}}} elseif {($dcanton == "") && ($showsynant == 1) && ($otherdb == 0)} {puthelp "PRIVMSG $chan :No antonyms found for '\002[join $originaltext]\002'"} elseif {($otherdb != 0) && ($showsynant == 1)} {puthelp "PRIVMSG $chan :Antonyms only available from dbluna. You do not need to specify any db to use the dcsyn option."}} elseif {($showsynant == 1) && ($dcsynon == "") && ($dcanton == "") && ($otherdb == 0)} {puthelp "PRIVMSG $chan :No synonyms or antonyms found for '\002[join $originaltext]\002'"} elseif {($showsynant == 1) && ($dcsynon == "") && ($dcanton == "") && ($otherdb != 0)} {puthelp "PRIVMSG $chan :Synonyms/Antonyms only available from dbluna. You do not need to specify any db to use the dcsyn option."}puthelp "PRIVMSG $chan :\[End $dictname - '[join $originaltext]'\]"return} else {puthelp "PRIVMSG $chan :Hmm, definition for '[join $originaltext]' from dictionary.com was empty?"return}return}proc dcwordwrap {nick channel origword input} {# word wrapper - somewhat modified from other word wrappers I've done, this one does not append titles.set j 0set dcwct 0set tempdef ""foreach line [split $input \n] {if {$line != ""} {set len 375set splitChr " "set out [set cur {}]; set i 0foreach word [split $line $splitChr] {if {[incr i [string len $word]]>$len} {lappend out [join $cur $splitChr]set cur [list $word]set i [string len $word]incr j} else {lappend cur $word}incr i}lappend out [join $cur $splitChr]foreach line2 $out {incr dcwctif {$j >= 1} {set line2 [linsert $line2 end \002(con't)\002]set j [expr $j -1]}lappend tempdef $line2}}}return $tempdef}proc defproc {defins} {regsub -all -nocase {} $defins "\n" definsregsub -all -nocase {} $defins "\n" definsregsub -all -nocase {
} $defins "\n" definsregsub -all -nocase {} $defins "\n" definsregsub -all -nocase {
} $defins "\n" definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {} $defins {} definsregsub -all -nocase {