;Use: /sq <-t/s> <stock symbol>
;;-t denotes that symbol is Nasdaq
;;-s denotes that symbol is NYSE
;Examples:
;;/sq -t goog <will retrive data on Google stock>
;;/sq -s hmc <will retrive data on Honda stock>
alias -l nohtml { 
  var %a,%b
  %b = $regsub($1,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%a)
  return %a
}
alias sq {
  if ($1) && ($2) {
    sockopen squote finance.lycos.com 80
    if ($1 == -t) { sockmark squote $+(NASDAQ,$chr(58),$2) | echo 4 -a [Stock Quote] - Getting info on $upper($2) }
    elseif ($1 == -s) { sockmark squote $+(NYSE,$chr(58),$2) | echo 4 -a [Stock Quote] - Getting info on $upper($2) }
  }
}
on *:sockopen:squote: { 
  sockwrite -n $sockname GET /qc/stocks/quotes.aspx?symbols= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: mIRC $+(v,$version)
  sockwrite $sockname $crlf
}
on *:sockread:squote: {
  if (!$sockerr) {
    var %tmp
    sockread %tmp
    var %tmp $nohtml(%tmp)
    if (%tmp) {
      tokenize 32 %tmp
      if (!%chk) {
        if ($1-2 == Last price:) { echo 12 -a $1- }
        else {
          if ($1 == Bid:) { %chk = bid }
          elseif ($1 == Ask:) { %chk = ask }
          elseif ($1-2 == Day's Low) { %chk = dlah }
          elseif ($1 == Open:) { %chk = open }
          elseif ($1-2 == Previous Close:) { %chk = pc }
          elseif ($1-2 == Avg. Volume:) { %chk = volume }
        }
      }
      else {
        if (%chk == bid) { echo 12 -a Bid: $1- | unset %chk }
        elseif (%chk == ask) { echo 12 -a Ask: $1- | unset %chk }
        elseif (%chk == dlah) { echo 12 -a Day's Low & High: $1- | unset %chk }
        elseif (%chk == open) { echo 12 -a Open: $1- | unset %chk }
        elseif (%chk == pc) { echo 12 -a Previous Close: $1- | unset %chk }
        elseif (%chk == volume) { echo 12 -a Average Volume: $1- | echo 4 -a [Quote] - Completed... | unset %chk | sockclose squote }
      }
    }
  }
  else { echo -a [Error] - $sockerr }
}