Something

on *:text:!urban*:#:{
  set %urban.chan $chan
  close -@ @urban
  sockclose urban
  sockopen urban urbandictionary.com 80 
  sockmark urban $2
}
on *:sockopen:urban:{ 
  if ($sockerr) { msg %urban.chan Error in Opening the Socket | return } 
  sockwrite -n $sockname GET /define.php?term= $+ $sock($sockname).mark $+ &r=f HTTP/1.1
  sockwrite -n $sockname Host: www.urbandictionary.com
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname
} 
on *:sockread:urban:{ 
  if (!$window(@urban)) { window -h @urban }
  var %t
  sockread %t 
  if ($regex(htmlfree,%t,/<p>(.*)<\/p>/)) { 
    if ($htmlfree($regml(htmlfree,1)) ) { msg %urban.chan $htmlfree($regml(htmlfree,1)) }
  }
} 
on *:sockclose:urban:{
  unset %urban.chan
  var %i = 2
  while ($line(@urban,%i)) {
    inc %i
  }
} 
alias htmlfree {
  var %htmlfree = $1
  .echo -q $regsub(%htmlfree,/<[^>]+>/g,,%htmlfree)
  return $replace(%htmlfree,",",&,&)
}