first script ive posted here in over 3 or 4 months :D

!@bash for a random quote link, or !@bash to search for that

*take note that bash's search page is EXTREMELY slow :<

on $*:text:/^[!@]bash/Si:#:{
  var %br = $+($rand(1,9),$rand(1,9),$rand(1,9)) 
  $iif($3,set %bstyle. [ $+ [ %br ] ] $replace($2-,$chr(32),_,+,_,-,_))
  set %bway. [ $+ [ %br ] ] $iif($left($2,1) == @,msg $chan,.notice $nick)
  sockopen bash. [ $+ [ %br ] ] www.bash.org 80
}
on *:sockopen:bash.*:{
  sockwrite -nt $sockname GET $iif(%bstyle. [ $+ [ $right($sockname,3) ] ],/?search= $+ %bstyle. [ $+ [ $right($sockname,3) ] ],/?random) HTTP/1.1
  sockwrite -nt $sockname Host: www.bash.org
  sockwrite -nt $sockname $crlf
}
on *:sockread:bash.*:{
  if ($sockerr) {
    %bway. [ $+ [ $right($sockname,3) ] ] Erorr:7 $sockerr $+ .
  }
  else {
    var %ee. [ $+ [ $right($sockname,3) ] ]
    sockread %ee. [ $+ [ $right($sockname,3) ] ]
    if (*<p class="quote"><a href="*" title="Permanent link to this quote.* iswm %ee. [ $+ [ $right($sockname,3) ] ]) {
      tokenize 32 %ee. [ $+ [ $right($sockname,3) ] ] 
      %bway. [ $+ [ $right($sockname,3) ] ] $+([7BASH],$chr(91),$chr(3),07,$iif(%bstyle. [ $+ [ $right($sockname,3) ] ],Search:7 $upper(%bstyle. [ $+ [ $right($sockname,3) ] ]),RANDOM),$chr(3),$chr(93)) $+($chr(91),$chr(3),07,$chr(35),$htmlfree($remove($3,href="?,")),$chr(3),$chr(93)) Rating:7 $htmlfree($remove($11,$chr(40),$chr(41),+)) $+ . Link:7 $+(www.bash.org/?,$htmlfree($remove($3,href="?,")))  $+ .
      unset %bway. [ $+ [ $right($sockname,3) ] ]
      unset %bstyle. [ $+ [ $right($sockname,3) ] ]
      sockclose $sockname
    }
    if (*<center><font class="bodytext">No results returned.<BR><BR></font></center><center>* iswm %ee. [ $+ [ $right($sockname,3) ] ]) {
      %bway. [ $+ [ $right($sockname,3) ] ] $+([7BASH],$chr(91),$chr(3),07,%bstyle. [ $+ [ $right($sockname,3) ] ],$chr(3),$chr(93)) No results found.
      unset %bway. [ $+ [ $right($sockname,3) ] ]
      unset %bstyle. [ $+ [ $right($sockname,3) ] ]
      sockclose $sockname
    }
  }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,&deg;) 
  return %x 
}