egghelp/eggheads community

up & down - green & red

2003-01-20T16:34:53-04:00

great - thanks so much - all working now!

thanks for your persistance!

Statistics: Posted by NewzUK — Mon Jan 20, 2003 4:34 pm

up & down - green & red

2003-01-20T12:43:51-04:00

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

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

Code:

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:

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]" }

Statistics: Posted by Papillon — Mon Jan 20, 2003 12:43 pm

up & down - green & red

2003-01-19T21:01:33-04:00

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

*sigh*

oh well

Statistics: Posted by NewzUK — Sun Jan 19, 2003 9:01 pm

up & down - green & red

2003-01-19T20:40:26-04:00

ummm my fult ... didn't check the code
ah well ... change this line

Code:

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

with this

Code:

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

Statistics: Posted by Papillon — Sun Jan 19, 2003 8:40 pm

up & down - green & red

2003-01-19T18:47:16-04:00

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

Statistics: Posted by NewzUK — Sun Jan 19, 2003 6:47 pm

up & down - green & red

2003-01-19T08:31:08-04:00

Code:

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...

Statistics: Posted by Papillon — Sun Jan 19, 2003 8:31 am

up & down - green & red

2003-01-19T05:00:05-04:00

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!

Statistics: Posted by NewzUK — Sun Jan 19, 2003 5:00 am

up & down - green & red

2003-01-17T20:41:16-04:00

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

Statistics: Posted by NewzUK — Fri Jan 17, 2003 8:41 pm

up & down - green & red

2003-01-17T20:21:30-04:00

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

Statistics: Posted by Papillon — Fri Jan 17, 2003 8:21 pm

up & down - green & red

2003-01-17T06:15:55-04:00

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...

Statistics: Posted by NewzUK — Fri Jan 17, 2003 6:15 am

up & down - green & red

2003-01-17T01:59:08-04:00

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

Statistics: Posted by caesar — Fri Jan 17, 2003 1:59 am

up & down - green & red

2003-01-16T19:49:21-04:00

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!

Statistics: Posted by NewzUK — Thu Jan 16, 2003 7:49 pm

up & down - green & red

2003-01-16T19:38:01-04:00

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

Code:

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?

Statistics: Posted by ppslim — Thu Jan 16, 2003 7:38 pm

up & down - green & red

2003-01-16T17:47:25-04:00

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!

Statistics: Posted by NewzUK — Thu Jan 16, 2003 5:47 pm