Unnamed

on $*:TEXT:/^[!@]urban/Si:#: { 
  if (%iddd == 9) { 
    unset %iddd 
  } 
  inc %iddd 
  set $+(%,way.,%iddd) $iif($left($1,1) == !,notice $nick,msg $chan) 
  if ($2 == $null) { 
    %way. [ $+ [ %iddd ] ] You Didnt Specify A Search Enter a word to lookup. ScribeScipt
    unset %*. [ $+ [ %iddd ] ] 
    halt 
  } 
  set $+(%,searchterm.,%iddd) $2 
  sockopen $+(urban.,%iddd) urbandictionary.com 80 
} 
on *:SOCKOPEN:urban.*: { 
  sockwrite -n $sockname GET /define.php?term= $+ %searchterm. [ $+ [ $right($sockname,1) ] ] HTTP/1.1 
  sockwrite -n $sockname Host: www.urbandictionary.com 
  sockwrite -n $sockname $crlf 
} 
on *:SOCKREAD:urban.*: { 
  var %read. [ $+ [ $right($sockname,1) ] ] 
  sockread %read. [ $+ [ $right($sockname,1) ] ] 
  if (*<p>* iswm %read. [ $+ [ $right($sockname,1) ] ]) { 
    %way. [ $+ [ $right($sockname,1) ] ] [7URBAN]: [3 $+ %searchterm. [ $+ [ $right($sockname,1) ] ] $+ ]: $htmlfree(%read. [ $+ [ $right($sockname,1) ] ]) 
    unset %*. [ $+ [ $right($sockname,1) ] ] 
    sockclose $sockname 
  } 
  if (*isn't defined* iswm %read. [ $+ [ $right($sockname,1) ] ]) { 
    %way. [ $+ [ $right($sockname,1) ] ] [7URBAN]: [3 $+ %searchterm. [ $+ [ $right($sockname,1) ] ] $+ ]: %searchterm. [ $+ [ $right($sockname,1) ] ] isn't defined. 
    unset %*. [ $+ [ $right($sockname,1) ] ] 
    sockclose $sockname 
  } 
} 
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}