StockQuote Script (Latest Price and Change) v1.4

;StockQuote Script (Latest Price and Change) v1.4
;Made by nick1
;View online and report bugs at http://www.hawkee.com/snippet/9578
;Last edit May 03, 2013

alias -l stockVersion {
  return v1.4
}
alias stock {
  var %ticks $ticks
  tokenize 32 $strip($1-)
  if ($1) {
    set $+(%,stock.,%ticks,.msgtype) echo -a
    set $+(%,stock.,%ticks,.ticker) $1
    if (!$istok(%stock.shortened,$1,44)) {
      set $+(%,stock.,%ticks,.shorten) $upper($1)
      sockopen $+(stocklink.,%ticks) ou.gs 80
    }
    sockopen $+(stock.,%ticks) www.google.com 80
  }
  elseif ($1 == $null) {
    echo -act info 4Incorrect Syntax - Use10 /stock <ticker symbol>
  }
}

on $*:text:/^[!@](stock|stocks|stockquote|price|q)(\s|$)/Si:#:{
  if ($($+(%,botflood.,$nick),2)) {
    if ($($+(%,botflood.,$nick),2) >= 300) { ignore -u60 $address($nick,0) | msg $chan $+($nick,$chr(44)) You Have Been Put On Ignore For 60secs For Abusing The Bot. | halt }
    elseif ($($+(%,botflood.,$nick),2) >= 200) { msg $chan $+($nick,$chr(44)) Please Do Not Abuse The Bot. | inc -z $+(%,botflood.,$nick) 20 | halt }
    else { inc -z $+(%,botflood.,$nick) 25 }
  }
  else { inc -z $+(%,botflood.,$nick) 25 }
  var %ticks $ticks
  tokenize 32 $strip($1-)
  if ($2) {
    set $+(%,stock.,%ticks,.msgtype) $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
    set $+(%,stock.,%ticks,.ticker) $2
    if (!$istok(%stock.shortened,$2,44)) {
      set $+(%,stock.,%ticks,.shorten) $upper($2)
      sockopen $+(stocklink.,%ticks) ou.gs 80
    }
    sockopen $+(stock.,%ticks) www.google.com 80
  }
  elseif ($2 == $null) {
    notice $nick 4Incorrect Syntax - Use10 $1 <ticker symbol>
  }
}

on *:sockopen:stock.*: {
  sockwrite -nt $sockname GET $+(/ig/api?stock=,$($+(%,stock.,$remove($sockname,stock.),.ticker),2)) HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:stock.*: {
  if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }
  sockread &t
  var %pos $bfind(&t,1,symbol data=)
  var %pos2 $bfind(&t,%pos,<daylight_savings)
  if (%pos != 0) {
    var %ticks $remove($sockname,stock.)
    set $+(%,stock.,%ticks,.xml) $bvar(&t,$+(%pos,-,$calc(%pos2 + 1))).text
    if ($stockparser(%ticks,trade_timestamp) == Dec 31, 1969) {
      $($+(%,stock.,%ticks,.msgtype),2) 4§Stock§7 $stockparser(%ticks,pretty_symbol) 04This symbol could not be found.  Please try again or search12 $+(http://ou.gs/stock_,$upper($($+(%,stock.,%ticks,.ticker),2)))
      unset $+(%,stock.,$remove($sockname,stock.),*)
      sockclose $sockname
    }
    else {
      var %colorcode $iif($left($stockparser(%ticks,change),1) == +,03,04)
      var %mktcap $stockparser(%ticks,market_cap)
      if ($len(%mktcap) <= 6) {
        var %mktcap %mktcap $+ M
      }
      else {
        var %mktcap $round($left($remove(%mktcap,$chr(46)),-5) $+ $chr(46) $+ $right($remove(%mktcap,$chr(46)),5),2) $+ B
      }
      if (%afterprice isnum) {
        var %afterchange $iif($calc(%afterprice - $stockparser(%ticks,last)) >= 0,+ $+ $v1,$v1)
        var %afterperc $calc(%afterchange / $stockparser(%ticks,last))
        var %afterperc $iif($left(%afterperc,1) == -,$right(%afterperc,-1),%afterperc)
        var %afterperc $round($calc(%afterperc * 100),2)
        var %aftercode $iif($left(%afterchange,1) == +,03,04)
        var %afterstring 7-10After Hours7-4 %afterprice $+(10Change:,%aftercode) %afterchange $+($openparens,%aftercode,$+(%afterperc,%),$closeparens)
      }
      $($+(%,stock.,%ticks,.msgtype),2) 4§Stock§7 $stockparser(%ticks,pretty_symbol) $+(,$openparens,07,$replace($stockparser(%ticks,company),&amp;,&,&#39;,'),$closeparens) $&
        10Last:04 $stockparser(%ticks,last) $+(,$openparens,04,$stockparser(%ticks,trade_timestamp),$closeparens) $&
        $+(10Change:,%colorcode) $stockparser(%ticks,change) $+($openparens,%colorcode,$+($stockparser(%ticks,perc_change),%),$closeparens) $&
        %afterstring $&
        10Mkt Cap:3 %mktcap $&
        10Link:12 $+(http://ou.gs/stock_,$upper($($+(%,stock.,%ticks,.ticker),2)))
      unset $+(%,stock.,$remove($sockname,stock.),*)
      sockclose $sockname
    }
  }
}

on *:sockopen:stocklink.*: {
  var %symbol $($+(%,stock.,$remove($sockname,stocklink.),.shorten),2)
  sockwrite -nt $sockname GET $+(/index.php?url=http://www.google.com/finance?q=,%symbol,&alias=,stock_,%symbol) HTTP/1.1
  set %stock.shortened $addtok(%stock.shortened,%symbol,44)
  sockwrite -nt $sockname Host: ou.gs
  sockwrite -nt $sockname $crlf
}

alias -l openparens { return $+(01,$chr(40)) }

alias -l closeparens { return $+(01,$chr(41)) }

alias -l stockParser {
  ;Syntax $stockparser(ticks,DATA_TYPE)
  ;Options for DATA_TYPE are {pretty_symbol,company,exchange,last,high,low,volume,avg_volume,market_cap,open,...
  ;y_close,change,perc_change,trade_timestamp,symbol_url,chart_url,isld_last,isld_trade_date_utc,isld_trade_time_utc}
  return $gettok($($+(%,stock.,$1,.xml),2),$calc($findtok($($+(%,stock.,$1,.xml),2),$+(/><,$2-,$chr(32),data=),34) + 1),34)
}

on *:start: .timerStockUpdate 1 60 StockUpdate

alias stockUpdate {
  echo -atc info 12[04Stock Script12] Checking for updates...
  sockopen stockUpdate www.hawkee.com 80
}

on *:sockopen:stockUpdate: {
  sockwrite -nt $sockname GET /snippet/9578/ HTTP/1.1
  sockwrite -nt $sockname Host: www.hawkee.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:stockUpdate: {
  if ($sockerr) { echo -a SOCKET ERROR: $sockerr $sockname $asctime | halt }
  sockread %sockreader
  if (*<title>* iswm %sockreader) {
    tokenize 32 %sockreader
    echo -atc info 12[04Stock Script12] Current: $StockVersion Latest: $7 Status: $iif($StockVersion == $7,Up to date,Please update at www.hawkee.com/snippet/9578/)
    unset %sockreader
    sockclose $sockname
  }
}