on $*:text:/^[!@.]urban/Si:#ono: { 
  if (!$2) notice $nick Please Supply a word
  else {
    inc %IT 1
    set $+(%,udef.target.,$gettok($sockname,2,46)) $iif($left($1,1) == @,msg $chan,notice $nick)
    set $+(%,udef.search.,$gettok($sockname,2,46)) $replace($2-,$chr(32),+)
    sockopen $+(udef.,$gettok($sockname,2,46)) urbandictionary.com 80
  }
}
on *:SOCKOPEN:udef.*: {
  sockwrite -n $sockname GET /define.php?term= $+ $eval($+(%,udef.search.,$gettok($sockname,2,46)),2) HTTP/1.1
  sockwrite -n $sockname Host: urbandictionary.com $+ $crlf $+ $crlf
}


on *:SOCKREAD:udef.*: {
  var %read | sockread %read
  echo -a %read
  if ($regex(%read,/1.(.*)/)) {
    $eval($+(%,udef.target.,$gettok($sockname,2,46)),2) Urban Definition For " $+ $eval($+(%,udef.search.,$gettok($sockname,2,46)),2) $+ ": $htmlfree($regml(1))
  }
  elseif ($regex(%read,/<h1>(.*)</h1>/)) {
    $eval($+(%,udef.target.,$gettok($sockname,2,46)),2) No results found for " $+ $eval($+(%,udef.search.,$gettok($sockname,2,46)),2) $+ "     
  }
}

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