Stuff

alias urban { 
  sockclose urban 
  sockopen urban urbandictionary.com 80 
  sockmark urban $replace($1-,$chr(32),% $+ 20)
} 


on *:text:!urban*:#: {
  sockclose urban 
  sockopen urban urbandictionary.com 80 
  sockmark urban $replace($2-,$chr(32),% $+ 20)
}
 
on *:input:#:{ 
if ($1 == !urban) {
  sockclose urban 
  sockopen urban urbandictionary.com 80 
  sockmark urban $replace($2-,$chr(32),% $+ 20)
}
}
on *:sockopen:urban:{
  if ($sockerr) { echo -a THERE WAS AN ERROR YOU FAGGOT | return }
  sockwrite -n $sockname GET /define.php?term= $+ $sock($sockname).mark $+ &r=f HTTP/1.0
  sockmark $sockname 0
  sockwrite -n $sockname Host: www.urbandictionary.com
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname
}

on *:sockread:urban:{
  var %m = $sock($sockname).mark
  if (%m == 2) {
    sockclose $sockname
  }
  var %t
  sockread %t
  if ($regex(htmlfree,%t,/<p>(.*)<\/p>/)) {
    if ($htmlfree($regml(htmlfree,1)) ) { 
      bs say #raged $htmlfree($regml(htmlfree,1)) 
      bs say #raged  -------------------
      sockmark $sockname $calc(%m +1)
    }
  }
} 
 
alias htmlfree {
  var %htmlfree = $1
  return $replace(%htmlfree,&quot;,",&amp;,&)
}