Code:

bind pub - !ud udproc ud {nick host hand chan arg} {package require http        set arg [string map { " " "+" } $arg]  puts $arg  if {[string length $arg] != 0 } { set url "http://www.urbandictionary.com/define.php?term=$arg"  } else {    set url "http://www.urbandictionary.com/random.php"    set page [http::data [http::geturl $url]]    regexp {href="(.*?)"} $page => url  }  set page [http::data [http::geturl $url]]  regexp {'word'>(.*?)<\/td>} $page => word  regexp {definition">(.*?)(<br\/>|<\/div>)} $page => deff  regexp {author">(.*?)<\/a>} $page => author  regexp {example">(.*?)</div>} $page => example  regexp {'not_defined_yet'>} $page => notfound  set deff [string map {" ""} $deff]  set example [string map {" "\""} $example]  regsub -all {(<.*?>)} $example "" example  if {[info exists deff]} {    putserv "PRIVMSG $chan :Word: [string trim $word]"    putserv "PRIVMSG $chan :Definition: [string trim $deff]"      if {[info exists example]} { putserv "PRIVMSG $chan :Example: [string trim $example]" }    putserv "PRIVMSG $chan :By: ([string trim $author]) Link: $url"  }}putlog "Urban Dictionary"

Statistics: Posted by anotheruser — Sun Oct 07, 2012 3:59 pm

Code:

# Urban Dictionary Script by Trixar_za# Based on the Twitter script by Warlord v1.0# Type in partyline: ".chanset #channel +urban" to enable it.# Sets the logoset urban(logo) "\002\[UD\]:\002"# Sets the user agentset urban(agent) "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"setudef flag urbanif {[catch {package require http 2.5} e] != 0} {  set urban(noutf8) 1  package require http}bind pub - !urban proc:urbanbind pub - .urban proc:urbanbind pub - !ud proc:urbanbind pub - .ud proc:urban# wordwrap code by speechlessproc msg {type dest data} {   set len [expr {500-[string len ":$::botname $type $dest :\r\n"]}]   foreach line [wordwrap $data $len] {      putserv "$type $dest :$line"   }}proc wordwrap {data len} {   set out {}   foreach line [split [string trim $data] \n] {      set curr {}      set i 0      foreach word [split [string trim $line]] {         if {[incr i [string len $word]]>$len} {            lappend out [join $curr]            set curr [list $word]            set i [string len $word]         } {            lappend curr $word         }         incr i      }      if {[llength $curr]} {         lappend out [join $curr]      }   }   set out} proc proc:urban {nick uhand handle chan input} {  if {[channel get $chan urban]} {     global urban    if {![llength [split $input]]} {       msg "PRIVMSG" $chan "$urban(logo) Please be more specific. Ex: !urban word"    } else {       putquick "PRIVMSG $chan :$urban(logo) Getting defintion for $input..."         if {[info exists urban(noutf8)]} {          set http [::http::config -useragent $urban(agent)]       } else {          set http [::http::config -useragent $urban(agent) -urlencoding "utf-8"]       }       foreach word [split $input] {          lappend query [lindex [split [http::formatQuery a $word] =] 1]       }       catch { set http [::http::geturl "http://www.urbandictionary.com/define.php?term=[join $query %20]" -timeout 10000]} error        if {![string match -nocase "::http::*" $error]} {          msg "PRIVMSG" $chan "$urban(logo) [string totitle [string map {"\n" " | "} $error]] \( $query \)"          return 0       }       if {![string equal -nocase [::http::status $http] "ok"]} {          msg "PRIVMSG" $chan "$urban(logo) [string totitle [::http::status $http]] \( $query \)"          return 0       }       set html [::http::data $http]       # Clean up :P       regsub -all {\n} $html { } html       regsub -all {\t} $html { } html       regsub -all {<br/>} $html { } html       regsub -all { } $html { } html       regsub -all {    } $html { } html       regsub -all {   } $html { } html       regsub -all {  } $html { } html       regsub -all {<a.+?>} $html {} html       regsub -all {</a>} $html {} html       regsub -all {<strong.+?>} $html {} html       regsub -all {</strong>} $html {} html       regsub -all {—} $html {-} html       regsub -all {>} $html {>} html       regsub -all {<} $html {<} html       regsub -all {&} $html {\&} html       regsub -all {×} $html {*} html       regsub -all {(?:\x91|\x92|’|‘|')} $html {'} html       regsub -all {(?:\x93|\x94|“|”|")} $html {"} html       regsub -all {×} $html {x} html       regsub -all {(?:<!\[CDATA\[)} $html {} html       if {[regexp -- {<div class="definition">(.+?)</div>} $html - uddef]} {          set uddef [string trim $uddef]       }       if {[regexp -- {<div class="example"></div>} $html - -]} {          set uddex "None"       } elseif {[regexp -- {<div class="example">(.+?)</div>} $html - uddex] && $uddex != "None"} {          set uddex [string trim $uddex]       }       if {[info exists uddef]} {          msg "PRIVMSG" $chan "$urban(logo) \002Definition:\002 $uddef"          if {$uddex != "None"} {             msg "PRIVMSG" $chan "$urban(logo) \002Example:\002 $uddex"          }       } else {          msg "PRIVMSG" $chan "$urban(logo) Word not found or doesn't exist."       }    }  }}putlog "Urban Dictionary Script by Trixar_za Loaded"

Statistics: Posted by Trixar_za — Mon Nov 01, 2010 7:44 pm

Statistics: Posted by Trixar_za — Sat Oct 30, 2010 6:29 pm

Statistics: Posted by starryeyedhaze — Fri Oct 29, 2010 2:49 pm

Statistics: Posted by starryeyedhaze — Fri Oct 29, 2010 2:47 pm