Code:

##################################################################################### Stock.tcl - 06/082008 by Liem, blu3 - www.suplemen.com# Updated 12/2008 by Icari# Realtime stock quotes, DOW, NASDAQ and S&P information## Supported by:#   http://www.usenix.org/publications/login/1999-10/features/tclsh.html#http://www.tec.ufl.edu/~flooxs/cur/TclTk/tcl8.0/http.n.html## Special thx to #brilliant# ## .-------------------------------------------------------------------------------.#:           Usage - All Commands Are Performed In the Channel Publically         :#:--------------------------------------------------------------------------------:#:  !stockhelp      |  HELP                                               :#:  !stock <Symbol> |  Show stock price; ex: !stock TLKM      :#:  !dow    |  DJ INDU AVERAGE                                    :#:  !nasdaq    |  NAS/NMS COMPSITE                                   :#:  !s&p    |  S&P 500 INDEX                                      :#:  !10yearTN    |  10-YEAR TREASURY NOTE (U.S)                        :#:  !hsi    |  HANG SENG INDEX (^HSI)                             :#:  !nikkei    |  NIKKEI 225 (^N225)                                 :#:  !nikkei300    |  NIKKEI 300 (^N300)                                 :#:  !seoul    |  KOSPI Composite Index                              :#:  !STI    |  Straits Times Index                                :#:  !taiwan    |  TSEC weighted index (^TWII)                        :#:  !ftse    |  FTSE 100 (^FTSE)                                   :#:  !oil    |  Crude Oil Jan 08 (CLF08.NYM)                       :#:  !gold    |  Gold Nov 07 (GCX07.CMX)                            :#:  !silver|  Silver Jun 14 (SIM14.CMX)# ._______________________________________________________________________________.##  Silver added & actualized by the_Wizard. Some notes:##  To actualize in the future, visit this site for commodity filenames#  https://finance.yahoo.com/futures##  To actualize in the future, visit this site for stock filenames#  https://finance.yahoo.com/######################################################################################package require httpbind pub - !stockhelp pub:quotehelpbind pub - !stock pub:quotebind pub - !ihsg pub:ihsgbind pub - !dow pub:dowbind pub - !nasdaq pub:nasdaqbind pub - !s&p pub:sandpbind pub - !hsi pub:hsibind pub - !sti pub:stibind pub - !nikkei pub:nikkeibind pub - !seoul pub:seoulbind pub - !taiwan pub:taiwanbind pub - !ftse pub:ftsebind pub - !10yearTN pub:10yearTNbind pub - !oil pub:oilbind pub - !gold pub:goldbind pub - !silver pub:silverproc pub:quotehelp { nick uhost handle channel arg } {putserv "NOTICE $channel :Index (Real Time) - !dow !nasdaq ! !s&p !hsi !nikkei !seoul !sti !taiwan !ftse"putserv "NOTICE $channel :Commodity (Real Time) - !oil !gold !silver"putserv "NOTICE $channel :Other (Real Time) - !10yearTN"putserv "NOTICE $channel :-"putserv "NOTICE $channel :Stock - !Stock <symbol>"putserv "NOTICE $channel :Ex: !stock TLKM"}proc pub:quote { nick uhost handle channel arg } {if {[llength $arg]==0} {putserv "PRIVMSG $channel :!stock Type (!stock CODE) - eg !stock TLKM - Type !stockhelp for Option"} else {        set stock [string toupper [lindex $arg 0]]set query "http://download.finance.yahoo.com/d/quotes.csv?s=$stock&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]#debug below#putserv "PRIVMSG $channel :\002STOCK: $stock "#putserv "PRIVMSG $channel :\002QUERY: $query "#If stock price is 0.00 the stock most likely doesn't exist.if {[lindex $all 3]!="N/A"} {if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> \00302[lindex $all 2]\003 | \002Last\002\00303  [lindex $all 1] \003 (\00303[lindex $all 4]\003) | \002Vol.\002  [lindex $all 5] | \00252 Week Range\002 [lindex $all 6]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> \00302[lindex $all 2]\003 | \002Last\002\00304  [lindex $all 1] \003 (\00304[lindex $all 4]\003) | \002Vol.\002  [lindex $all 5] | \00252 Week Range\002 [lindex $all 6]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> \00302[lindex $all 2]\003 | \002Last\002  [lindex $all 1] ([lindex $all 4]) | \002Vol.\002  [lindex $all 5] | \00252 Week Range\002 [lindex $all 6]"}}} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> Stock not found"}     }}proc pub:gold { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?f=sl1d1t1c1ohgv&e=.csv&s=GCN14.CMX"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Gold Price) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Gold Price) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Gold Price) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:oil { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=CLN14.NYM&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Crude Oil Price) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Crude Oil Price) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Crude Oil Price) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:silver { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=SIM14.CMX&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Silver Price) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Silver Price) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Silver Price) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:ihsg { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EJKSE&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Jakarta Composite Index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Jakarta Composite Index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Jakarta Composite Index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:dow { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EDJI&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (DJ INDU AVERAGE) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (DJ INDU AVERAGE) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (DJ INDU AVERAGE) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:nikkei { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EN225&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NIKKEI 225) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NIKKEI 225) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NIKKEI 225) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:ftse { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EFTSE&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (FTSE 100) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (FTSE 100) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (FTSE 100) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:taiwan { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5ETWII&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (TSEC weighted index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (TSEC weighted index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (TSEC weighted index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:seoul { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EKS11&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (KOSPI Composite Index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (KOSPI Composite Index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (KOSPI Composite Index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:10yearTN { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5ETNX&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (10-YEAR TREASURY NOTE) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (10-YEAR TREASURY NOTE) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (10-YEAR TREASURY NOTE) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:nasdaq { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EIXIC&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NASDAQ COMPOSITE) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NASDAQ COMPOSITE) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NASDAQ COMPOSITE) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:sti { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5ESTI&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Straits Times Index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Straits Times Index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Straits Times Index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:hsi { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EHSI&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (HANG SENG INDEX) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (HANG SENG INDEX) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (HANG SENG INDEX) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:sandp { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EGSPC&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (S&P 500 INDEX) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (S&P 500 INDEX) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (S&P 500 INDEX) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}putlog "Stock.tcl v1.1 - 23/102007 by Liem, blu3 - www.suplemen.com LOADED.."

Code:

##################################################################################### Stock.tcl - 06/082008 by Liem, blu3 - www.suplemen.com# Realtime stock quotes, DOW, NASDAQ and S&P information## Supported by:#   http://www.usenix.org/publications/login/1999-10/features/tclsh.html#http://www.tec.ufl.edu/~flooxs/cur/TclTk/tcl8.0/http.n.html## Special thx to #brilliant# ## .-------------------------------------------------------------------------------.#:           Usage - All Commands Are Performed In the Channel Publically         :#:--------------------------------------------------------------------------------:#:  !stockhelp        |  HELP                                               :#:  !stock <Symbol>   |  Show stock price; ex: !stock TLKM    :#:  !dow    |  DJ INDU AVERAGE                                    :#:  !nasdaq    |  NAS/NMS COMPSITE                                   :#:  !s&p    |  S&P 500 INDEX                                      :#:  !10yearTN    |  10-YEAR TREASURY NOTE (U.S)                        :#:  !hsi    |  HANG SENG INDEX (^HSI)                             :#:  !nikkei    |  NIKKEI 225 (^N225)                                 :#:  !nikkei300    |  NIKKEI 300 (^N300)                                 :#:  !seoul    |  KOSPI Composite Index                              :#:  !STI    |  Straits Times Index                                :#:  !taiwan    |  TSEC weighted index (^TWII)                        :#:  !ftse    |  FTSE 100 (^FTSE)                                   :#:  !oil    |  Crude Oil Jan 08 (CLF08.NYM)                       :#:  !gold    |  Gold Nov 07 (GCX07.CMX)                            :# ._______________________________________________________________________________.## rm -rf /bin/laden#####################################################################################package require httpbind pub - !stockhelp pub:quotehelpbind pub - !stock pub:quotebind pub - !ihsg pub:ihsgbind pub - !dow pub:dowbind pub - !nasdaq pub:nasdaqbind pub - !s&p pub:sandpbind pub - !hsi pub:hsibind pub - !sti pub:stibind pub - !nikkei pub:nikkeibind pub - !seoul pub:seoulbind pub - !taiwan pub:taiwanbind pub - !ftse pub:ftsebind pub - !10yearTN pub:10yearTNbind pub - !oil pub:oilbind pub - !gold pub:goldproc pub:quotehelp { nick uhost handle channel arg } {putserv "NOTICE $channel :Indeks (Real Time) - !dow !nasdaq ! !s&p !hsi !nikkei !seoul !sti !taiwan !ftse"putserv "NOTICE $channel :Commodity (Real Time) - !oil !gold"putserv "NOTICE $channel :Other (Real Time) - !10yearTN"putserv "NOTICE $channel :-"putserv "NOTICE $channel :Stock - !Stock <symbol>"putserv "NOTICE $channel :Ex: !stock TLKM"}proc pub:quote { nick uhost handle channel arg } {if {[llength $arg]==0} {putserv "PRIVMSG $channel :!stock Type (!stock CODE) - eg !stock TLKM - Type !stockhelp for Option"} else {        set stock [string toupper [lindex $arg 0]]set query "http://download.finance.yahoo.com/d/quotes.csv?s=$stock&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]#debug below#putserv "PRIVMSG $channel :\002STOCK: $stock "#putserv "PRIVMSG $channel :\002QUERY: $query "#If stock price is 0.00 the stock most likely doesn't exist.if {[lindex $all 3]!="N/A"} {if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> \00302[lindex $all 2]\003 | \002Last\002\00303  [lindex $all 1] \003 (\00303[lindex $all 4]\003) | \002Vol.\002  [lindex $all 5] | \00252 Week Range\002 [lindex $all 6]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> \00302[lindex $all 2]\003 | \002Last\002\00304  [lindex $all 1] \003 (\00304[lindex $all 4]\003) | \002Vol.\002  [lindex $all 5] | \00252 Week Range\002 [lindex $all 6]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> \00302[lindex $all 2]\003 | \002Last\002  [lindex $all 1] ([lindex $all 4]) | \002Vol.\002  [lindex $all 5] | \00252 Week Range\002 [lindex $all 6]"}}} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 -> Stock not found"}     }}proc pub:gold { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?f=sl1d1t1c1ohgv&e=.csv&s=GCZ08.CMX"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Gold Price) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Gold Price) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Gold Price) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:oil { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=CLF09.NYM&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Crude Oil Price) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Crude Oil Price) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Crude Oil Price) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:ihsg { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EJKSE&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Jakarta Composite Index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Jakarta Composite Index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Jakarta Composite Index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:dow { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?f=sl1d1t1c1ohgv&e=.csv&s=^DJI"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (DJ INDU AVERAGE) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (DJ INDU AVERAGE) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (DJ INDU AVERAGE) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:nikkei { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EN225&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NIKKEI 225) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NIKKEI 225) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NIKKEI 225) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:ftse { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EFTSE&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (FTSE 100) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (FTSE 100) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (FTSE 100) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:taiwan { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5ETWII&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (TSEC weighted index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (TSEC weighted index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (TSEC weighted index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:seoul { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EKS11&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (KOSPI Composite Index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (KOSPI Composite Index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (KOSPI Composite Index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:10yearTN { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5ETNX&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (10-YEAR TREASURY NOTE) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (10-YEAR TREASURY NOTE) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (10-YEAR TREASURY NOTE) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:nasdaq { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EIXIC&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NASDAQ COMPOSITE) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NASDAQ COMPOSITE) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (NASDAQ COMPOSITE) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:sti { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5ESTI&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Straits Times Index) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Straits Times Index) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (Straits Times Index) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:hsi { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EHSI&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (HANG SENG INDEX) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (HANG SENG INDEX) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (HANG SENG INDEX) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}proc pub:sandp { nick uhost handle channel arg } {set query "http://download.finance.yahoo.com/d/quotes.csv?s=%5EGSPC&f=sl1d1t1c1ohgv&e=.csv"set token [http::geturl $query]set all [http::data $token] regsub -all \" $all "" allset plus [split $all "+"]set all [split $all ","]if {[lindex $plus 1]!=""} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (S&P 500 INDEX) -> \00303[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {if {[lindex $all 4]!="0"} {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (S&P 500 INDEX) -> \00304[lindex $all 1] [lindex $all 4]\003 | [lindex $all 2] [lindex $all 3]"} else {putserv "PRIVMSG $channel :\002[lindex $all 0]\002 (S&P 500 INDEX) -> [lindex $all 1] [lindex $all 4] | [lindex $all 2] [lindex $all 3]"}}}putlog "Stock.tcl v1.1 - 23/102007 by Liem, blu3 - www.suplemen.com LOADED.."