on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?[!.@]bash(quote| us|q)?/Si):#:{
  if ($globoff($chan)) && ($me !isin $1) { halt }
  if ($me != Vision) && (Vision ison $chan) && ($me !isin $1) { halt } 
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)  
  hadd -m $+(bash.,$nick) disp $iif(@ isin $left($1,1),msg $chan,notice $nick)
  sockopen $+(bash.,$nick) bash.org 80
}
on *:sockopen:bash.*: { if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /?random HTTP/1.1  
  sockwrite -nt $sockname Host: bash.org $crlf $+ $crlf
}
on *:sockread:bash.*: { if ($sockerr) { halt } | else { var %bashread | sockread %bashread  
    if (<p class="quote"> iswm %bashread) { inc $+(%,$sockname) }
if ($+(%,$sockname) == 1) { cleanup $sockname
      $hget($sockname,disp) $+($c1([),$c2(Bash.Org),$c1(])) $c2($remove($htmlfree(%bashread),$gettok($htmlfree(%bashread),3,32),$gettok($htmlfree(%bashread),2,32),$gettok($htmlfree(%bashread),1,32),&quot;))
     }  
  }
} 
alias cleanup { hfree $$1 | sockclose $1 | unset $+(%,$sockname) }