Something

on $*:text:/^[!@.]urban/Si:#: { 
  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)) www.urbandictionary.com 80
  }
}
$gettok($sockname,2,46)
on *:SOCKOPEN:udef.*: {
  sockwrite -nt $sockname GET /define.php?term= $+ $eval($+(%,udef.search.,$gettok($sockname,2,46)),2) HTTP/1.1
  sockwrite -nt $sockname Host: urbandictionary.com $+ $crlf $+ $crlf
}


on *:SOCKREAD:udef.*: {
  var %it = $right($sockname,-5)
  if ($sockerr) {
    $eval($+(%,udef.target.,$gettok($sockname,2,46)),2) Socket error
    sockclose $sockname
  }
  else {
    var %read | sockread %read
    if (!$sockbr) { return }
    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))
      echo -a %read
      sockclose $sockname
      unset [ $+(%,udef.*.,%IT) ]
    }
    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) $+ "
      echo -a %read      
      sockclose $sockname
      unset [ $+(%,udef.*.,$gettok($sockname,2,46)) ]
    }
  }
}

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