on *:text:/^[!@]Wikipedia|Wiki*:#: {
  if ( !$2 ) { notice $nick 5,5 5,0You did not type what you wished to search for5,5 }
  else {
    /sockopen WikiSock en.wikipedia.org/wiki 80
    /sockwrite -n $sockname GET /$2- HTTP/1.1 
    /sockwrite -n $sockname Host: WikiSock en.wikipedia.org/wiki $+ $crlf $+ $crlf
  }
}
on *:sockread:WikiSock:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    if (<dd>*</dd> iswm %temptext)
    echo -a -
    echo -a $htmlfree(%temptext)
    /msg $chan $htmlfree(%temptext)
    sockclose $WikiSock
    halt
  }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}