Miscellany

;Urban script by Lee-[32201]
;If you are going to leech this script, Keep this bit here! :P
;Thanks

on $*:TEXT:/^[!@.](urban)/Si:#: { 
  if ($2 == $null) { notice $nick Please define something! }
  if ($sock(urban)) .sockclose urban
  set %term $2-
  set %return notice $nick
  if (@ isin $1) set %return msg $chan
  sockopen urban www.urbandictionary.com 80
}
alias urban { 
  sockclose urban
  set %item $replace($1-,$chr(32),$chr(43))
  set %return echo -a
  sockopen urban www.urbandictionary.com 80
}
on *:SOCKOPEN:urban: { 
  sockwrite -nt $sockname GET /define.php?term= $+ %term HTTP/1.1
  sockwrite -nt $sockname Host: www.urbandictionary.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:urban: { 
  if ($sockerr) { 
    %return [Error] - Error Code: $sockerr
  }
  else { 
    var %urban.read
    sockread %urban.read
    if (*<td class="def_word">* iswm %urban.read) { 
      set %urban $htmlfree(%urban.read)
    } 
    if (*<p>* iswm %urban.read) { 
      set %Text $htmlfree(%urban.read)
      set %text $remove(%text,&quot;)
      %return 12Term15:4 %term $+ 15. 
      %return 12Definition15:4 %text $+ 15.
      sockclose $sockname
    } 

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