WikipediA search for eggdrop.
Searches WikipediA and returns the first paragraph of the description.

The trigger is: !wiki words here
You must .chanset #channame +wikipedia for each channel you want to run the script in.
Please follow the instructions at the top of the script for setup.

##############################################################################################
##  ##     wikipedia.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help    ##  ##
##############################################################################################
## To use this script you must set channel flag +wikipedia (ie .chanset #chan +wikipedia)   ##
##############################################################################################
##############################################################################################
##  ##                             Start Setup.                                         ##  ##
##############################################################################################
## Change wikipedia_cmdchar to the character you want to use.                               ##
set wikipedia_cmdchar "!"
## Change wikipedia_lang to the 2 digit language code you want to use                       ##
set wikipedia_lang "en"
proc wikipedia {nick host hand chan wikipediasite wikipediaurl} {
  if {[lsearch -exact [channel info $chan] +wikipedia] != -1} {
## Change the characters between the "" below to change the logo shown with each result.    ##
    set wikipedialogo "\002\00301,00WikipediA\002\003"
## Change the format codes between the "" below to change the color/state of the text.      ##
    set textf "\0034"
##############################################################################################
##  ##                           End Setup.                                              ## ##
##############################################################################################   
    if {[catch {set wikipediaSock [socket -async $wikipediasite 80]} sockerr]} {
      putserv "PRIVMSG $chan :$wikipediasite $wikipediaurl $sockerr error"
      return 0
      } else {
      puts $wikipediaSock "GET $wikipediaurl HTTP/1.0"
      puts $wikipediaSock "Host: $wikipediasite"
      puts $wikipediaSock ""
      flush $wikipediaSock
      while {![eof $wikipediaSock]} {
        set wikipediavar " [gets $wikipediaSock] "
        if {[regexp {may refer to:} $wikipediavar] || [regexp {HTTP\/1\.0 403} $wikipediavar]} {
           putserv "PRIVMSG $chan :\002Nothing found on WikipediA! Please refine your search and check your spelling."
           close $wikipediaSock
      return 0
        }
        if {[regexp {<b>(.*)</p>} $wikipediavar] || [regexp {<p>(.*)</p>} $wikipediavar]} {
          regexp {<p>(.*)</p>} $wikipediavar match wikipediaresult
          set wikipediaresult [concat [wikipediadehex [wikipediastrip $wikipediaresult]] \003\037\002http://${wikipediasite}${wikipediaurl}]
     set wikipediaresult [wikitextsplit $wikipediaresult 50]
          set counter 0
          while {$counter <= [llength $wikipediaresult]} {
       if {[lindex $wikipediaresult $counter] != ""} {
         putserv "PRIVMSG $chan :${wikipedialogo} ${textf}[lindex $wikipediaresult $counter]"
       }
       incr counter
     }
     close $wikipediaSock
     return 0
        }
      }
      close $wikipediaSock
      return 0 
    }
  }
}
proc googlewikisearch {nick host hand chan search} {
  global wikipedia_lang
  if {[lsearch -exact [channel info $chan] +wikipedia] != -1} {
    set googlewikisite "www.bing.com"
    set googlewikisearch [string map {{ } \+ } "wikipedia ${search}"]
    set googlewikiurl "/search?q=${googlewikisearch}"
    if {[catch {set googlewikiSock [socket -async $googlewikisite 80]} sockerr]} {
      putserv "PRIVMSG $chan :$googlewikisite $googlewikiurl $sockerr error"
      return 0
    } else {
      puts $googlewikiSock "GET $googlewikiurl HTTP/1.0"
      puts $googlewikiSock "Host: $googlewikisite"
      puts $googlewikiSock ""
      flush $googlewikiSock
      while {![eof $googlewikiSock]} {
        set googlewikivar " [gets $googlewikiSock] "
        if {[regexp {href="http:\/\/[a-z]{2}(\.wikipedia\.org)(\/wiki\/[^"]*)} $googlewikivar match googlewikisite googlewikiresult]} {
          if {[regexp {wikipedia\.org} $googlewikisite]} {
            wikipedia $nick $host $hand $chan ${wikipedia_lang}${googlewikisite} $googlewikiresult
            close $googlewikiSock
            return 0
          }
        }
      }
      putserv "PRIVMSG $chan :\002Nothing found on WikipediA! Please refine your search and check your spelling."
      close $googlewikiSock
      return 0 
    }
  }
}
proc wikitextsplit {text limit} {
  set text [split $text " "]
  set tokens [llength $text]
  set start 0
  set return ""
  while {[llength [lrange $text $start $tokens]] > $limit} {
    incr tokens -1
    if {[llength [lrange $text $start $tokens]] <= $limit} {
      lappend return [join [lrange $text $start $tokens]]
      set start [expr $tokens + 1]
      set tokens [llength $text]
    }
  }
  lappend return [join [lrange $text $start $tokens]]
  return $return
}
proc wikipediadehex {string} {
  regsub -all {[\[\]]} $string "" string
  set string [subst [regsub -nocase -all {\&#([0-9]{3});} $string {[format %c \1]}]]
  return [string map {&quo\te; \"} $string]
}
proc wikipediastrip {string} {
  regsub -all {<[^<>]+>} $string "" string
  regsub -all {\[\d+\]} $string "" string
  return $string
}
bind pub - [string trimleft $wikipedia_cmdchar]wiki googlewikisearch
setudef flag wikipedia
putlog "\002*Loaded* \002\00301,00WikipediA\002\003 \002by Ford_Lawnmower irc.GeekShed.net #Script-Help"