egghelp/eggheads community

problem with list / mysql

2007-02-10T07:41:53-04:00

thx again...well im learning more about tcl all the time but sometimes i need little help :L

Statistics: Posted by dragoneye — Sat Feb 10, 2007 7:41 am

problem with list / mysql

2007-02-09T17:16:51-04:00

why dosent that work :L

because you do alot of weird stuff that doesn't make sense (like adding random brackets) Here's some weird stuff that works:

Code:

set win [set draw [set lose 0]]foreach {a b} [split [set vs][set vs {}] "- "] {lappend vs [if {$a>$b} {incr winlist \00303} elseif {$a==$b} {incr drawlist \00312} else {incr loselist \00304}]$a-$b}set vs [join $vs]

You should read and understand this page http://tcl.tk/man/tcl8.4/TclCmd/Tcl.htm before trying to code any more. It will save you alot of trouble to know the syntax.

Statistics: Posted by user — Fri Feb 09, 2007 5:16 pm

problem with list / mysql

2007-02-09T15:43:09-04:00

well im trying but not good with this kinda thingie

Code:

 foreach {a b} [split [set vs][set vs ""] "- "] {   lappend vs [expr {$a>$b?"\00303":($a==$b?"\00312":"\00304")}]$a-$bif { $a>$b } { [incr win 1] }if { $a==$b } { [incr draw 1] }if { $a<$b } { [incr lose 1] } }

why dosent that work :L

Statistics: Posted by dragoneye — Fri Feb 09, 2007 3:43 pm

problem with list / mysql

2007-02-09T15:29:41-04:00

Code:

set win "0"set draw "0"set lose "0"foreach {a b} [split [set vs][set vs ""] "- "] {   lappend vs [expr {$a>$b?"[incr lose 1]":($a==$b?"[incr lose 1]":"[incr lose 1]")}]$a-$b }

you 'incr lose' no matter what...and destroy the value of vs in the process... try to think

Statistics: Posted by user — Fri Feb 09, 2007 3:29 pm

problem with list / mysql

2007-02-09T15:14:21-04:00

well how can i make the script add wins losses and draws ?
i tried this but didnt get it to work

Code:

set win "0"set draw "0"set lose "0"foreach {a b} [split [set vs][set vs ""] "- "] {   lappend vs [expr {$a>$b?"[incr lose 1]":($a==$b?"[incr lose 1]":"[incr lose 1]")}]$a-$b }

Statistics: Posted by dragoneye — Fri Feb 09, 2007 3:14 pm

problem with list / mysql

2007-02-09T14:30:55-04:00

Code:
foreach {a b} [split [set vs][set vs ""] "- "] {lappend vs [expr {$a>$b?"\00303":($a==$b?"\00312":"\00304")}]$a-$b}set vs [join $vs]
EDIT: moved the \003 to prevent expr messing up the return values

again man you rock thx

Statistics: Posted by dragoneye — Fri Feb 09, 2007 2:30 pm

problem with list / mysql

2007-02-09T14:31:01-04:00

Please don't edit your post and change all of it (my original answer here stopped making sense because I didn't quote you)

Here is the answer to your edited question:

Code:

foreach {a b} [split [set vs][set vs ""] "- "] {lappend vs [expr {$a>$b?"\00303":($a==$b?"\00312":"\00304")}]$a-$b}set vs [join $vs]

EDIT: moved the \003 to prevent expr messing up the return values

Statistics: Posted by user — Fri Feb 09, 2007 2:21 pm

problem with list / mysql

2007-02-09T12:50:50-04:00

i want to put colors to my scores like if 1-0 then green if 0-1 red and 1-1 blue

Code:

proc cws {nick uhost hand chan arg} {if { [isop $nick $chan] } {global dbhost dbuser dbpass dbname mycpage matchtab mytag pchan if {$arg == ""} { putnotc $nick "\[\2cw's\2\] syntax: !cws clantag";return 1 } set mysql(conn) [mysqlconnect -host $dbhost -user $dbuser -password $dbpass -db $dbname] set arg [string map {' ''} $arg] set rows [mysqlsel $mysql(conn) "select count(*) FROM `matches` WHERE `opponent` = '$arg' " -list ] set vs [mysqlsel $mysql(conn) "SELECT `score` FROM `matches` WHERE `opponent` = '$arg' " -flatlist ] set clname [mysqlsel $mysql(conn) "SELECT `cname` FROM `tagit` WHERE `tagi` = '$arg' " -flatlist ] set irc [mysqlsel $mysql(conn) "SELECT `ircchan` FROM `tagit` WHERE `tagi` = '$arg' " -list ] set hp [mysqlsel $mysql(conn) "SELECT `http` FROM `tagit` WHERE `tagi` = '$arg' " -list ] set cname [lindex $clname 0] if { $rows == 0 } {putmsg $chan "\[\2cw's\2\] no cw's played against \2$arg\2.";return 0} putmsg $chan "\[\2$arg \2•\2 $cname \2•\2 $irc \2\]" putmsg $chan "\[\2Homepage:\2 $hp \]" putmsg $chan "\[\2cw's\2\] $vs. Total $rows cw's against \2$arg" } else {    puthelp "NOTICE $nick : You need to be OP to use this command"  }}

current output is like this, but how can i add those colors :L and maybe
put something like wins: x loses: x draws: x

[w/ • whatever • #clan.w ]
[Homepage: http://hangar.0wns.org/whatever/ ]
[cw's] 25-19 32-23 24-21 28-19 29-21 36-10 25-23 31-16 25-22 24-21 21-28 21-23 38-22 31-16 24-21 30-19 27-32 28-22 23-31 21-31 21-24 20-27 21-36 22-27 30-12 26-32 28-27 23-35 28-29 28-32 26-24 27-27 19-39. Total 33 cw's against w/

Statistics: Posted by dragoneye — Fri Feb 09, 2007 12:06 pm