up & down - green & red

NewzUK · Post by **NewzUK** » Thu Jan 16, 2003 5:47 pm

Hi

After previous help on this forum (for which Im very gratefull!), here's another question!

I use a stockquote script for my business channel, and I'm wondering how to go about adding some code that will make the quotes display green if it returns a + (up) amount and red if it returns a - (down) amount...

I have a mIRC script which does this, but I'm just wondering how it might work for TCL...

let me know if I should post a piece of the script here...

thanks in advance!

ppslim · Post by **ppslim** » Thu Jan 16, 2003 7:38 pm

It's very simple to determine between a + or -, so therw would be no issue converting it.

Code: Select all

set test [string map [list + \00309 - \00304]

That will amp the up and down to red and green.

My gueess is though you want more information than this?

NewzUK · Post by **NewzUK** » Thu Jan 16, 2003 7:49 pm

thanks - so would I just insert that somewhere in the proc?

proc pub:quote { nick uhost handle channel arg } {
set [lindex [info args pub:quote] 4] [string trimleft [subst $[lindex [info args pub:quote] 4]] !]
foreach _IG [uplevel #0 {set IGwords}] { if {[string equal -nocase $_IG [lindex [split $arg] 0]]} { return } }
if {[llength $arg]==0} {
putserv "NOTICE $nick :0,2 please type \002!news\002 for options "
} else {
set stock [string toupper [lindex $arg 0]]
set query "http://finance.yahoo.com/d/quotes.csv?s ... 4mv&e=.csv"
set token [http::geturl $query]
set all [http::data $token]
regsub -all \" $all "" all
set all [split $all ","]
if {[lindex $all 2]!="0.00"} {
putserv "PRIVMSG $channel :\0037» [lindex $all 0]:\003 [lindex $all 2] \002[lindex $all 3]\002 ([lindex $all 4]) \0037 Time:\003 [lindex $all 1] USET \0037 Low-High:\003 [lindex $all 5] \0037 Volume:\003 [lindex $all 6]"
} else {
putserv "PRIVMSG $channel :\002 [lindex $all 0]\002 symbol not found"

also, if it's a 0 number (unchanged) and I want to make that blue, would I just add another one for \0032 ?

thanks again!

Post by **caesar** » Fri Jan 17, 2003 1:59 am

\003color number. As I can see blue is 12 and 2 is navy

NewzUK · Post by **NewzUK** » Fri Jan 17, 2003 6:15 am

yep thanks - I know the numbers, just need to know where & what to insert

the value that goes + and - is [lindex $all 3] so I guess thats in the string somewhere...

Papillon · Post by **Papillon** » Fri Jan 17, 2003 8:21 pm

you have to make a variable out of [lindex $all 3], then check if that var is + , - or 0, when you've done the cheking just append whatever color you want

NewzUK · Post by **NewzUK** » Fri Jan 17, 2003 8:41 pm

...thanks...will try to figure it out from other bits of the script

NewzUK · Post by **NewzUK** » Sun Jan 19, 2003 5:00 am

the things ive tried so far havn't worked properly

if anyone could possibly show me what to put in the script to make this work - thanks!

Papillon · Post by **Papillon** » Sun Jan 19, 2003 8:31 am

Code: Select all

proc pub:quote { nick uhost handle channel arg } { 
set [lindex [info args pub:quote] 4] [string trimleft [subst $[lindex [info args pub:quote] 4]] !] 
foreach _IG [uplevel #0 {set IGwords}] { if {[string equal -nocase $_IG [lindex [split $arg] 0]]} { return } } 
if {[llength $arg]==0} { 
putserv "NOTICE $nick :0,2 please type \002!news\002 for options " 
} else { 
set stock [string toupper [lindex $arg 0]] 
set query "http://finance.yahoo.com/d/quotes.csv?s=$stock&f=st5l9c6p4mv&e=.csv" 
set token [http::geturl $query] 
set all [http::data $token] 
regsub -all \" $all "" all 
set all [split $all ","]
set test [string map [list + \00309+ - \00304-]
if {[lindex $all 2]!="0.00"} { 
putserv "PRIVMSG $channel :\0037» [lindex $all 0]:\003 [lindex $all 2] \002$test\003\002 ([lindex $all 4]) \0037 Time:\003 [lindex $all 1] USET \0037 Low-High:\003 [lindex $all 5] \0037 Volume:\003 [lindex $all 6]" 
} else { 
putserv "PRIVMSG $channel :\002 [lindex $all 0]\002 symbol not found"

this will just work if there is an actual + or - infront of the number...

NewzUK · Post by **NewzUK** » Sun Jan 19, 2003 6:47 pm

that dosn't work - bot sends nothing to the channel - not even the normal quote.

Papillon · Post by **Papillon** » Sun Jan 19, 2003 8:40 pm

ummm my fult ... didn't check the code

ah well

... change this line

Code: Select all

set test [string map [list + \00309+ - \00304-]

with this

Code: Select all

set test [string map [list + \00309+ - \00304-] [lindex $all 3]]

NewzUK · Post by **NewzUK** » Sun Jan 19, 2003 9:01 pm

still dosn't work - puts the quote in ok but dosn't change the color

*sigh*

oh well

Papillon · Post by **Papillon** » Mon Jan 20, 2003 12:43 pm

this will just work if there is an actual + or - infront of the number...

^^.... and did you change the output?

Code: Select all

putserv "PRIVMSG $channel :\0037» [lindex $all 0]:\003 [lindex $all 2] \002$test\003\002 ([lindex $all 4]) \0037 Time:\003 [lindex $all 1] USET \0037 Low-High:\003 [lindex $all 5] \0037 Volume:\003 [lindex $all 6]"

if there is no + or - infront of the number you have to do something like this instead:

Code: Select all

if {[lindex $all 3] > 0} { set test "\0039 [lindex $all 3]"
} elseif {[lindex $all 3] < 0} { set test "\0034 [lindex $all 3]"
} else { set test "\00312 [lindex $all 3]" }

NewzUK · Post by **NewzUK** » Mon Jan 20, 2003 4:34 pm

great - thanks so much - all working now!

thanks for your persistance!