egghelp/eggheads community

help with array

2005-12-31T00:16:47-04:00

well, you have 2 options: either understand completely what you've created so far using my code - and then help yourself, or paste your entire script and hope someone will fix it for you (I won't do that, I'm not in the mood for debugging right now)

Statistics: Posted by demond — Sat Dec 31, 2005 12:16 am

help with array

2005-12-31T00:16:41-04:00

Currently: expected integer but got ""
Currently: while executing
Currently: "incr sco $pointvalue"
Currently: invoked from within
Currently: "if [info exists score($lnick)] {
Currently: set sco [lindex $score($lnick) 1]
Currently: lset score($lnick) 1 [incr sco $pointvalue]
Currently: } {
Currently: set score($lnick)..."

Statistics: Posted by bsdkid — Sat Dec 31, 2005 12:16 am

help with array

2005-12-31T00:13:53-04:00

I think something is wrong with this, after i reload the score array when the bot restart it screwed up.

Code:

set f [open score.txt]foreach line [split [read $f]] {   foreach {n s} [split $line] {      set score($n) [list $n $s]   }}close $f

Statistics: Posted by bsdkid — Sat Dec 31, 2005 12:13 am

help with array

2005-12-31T00:09:07-04:00

by understanding what exactly is being done by the code I gave you, and what exactly you've done with it then the bug will become obvious to you and you'll be able to fix it yourself

Statistics: Posted by demond — Sat Dec 31, 2005 12:09 am

help with array

2005-12-31T00:03:45-04:00

how do i fix it demond?

Statistics: Posted by bsdkid — Sat Dec 31, 2005 12:03 am

help with array

2005-12-30T23:49:38-04:00

then you must have messed up nicks (strings) with scores (integers)

Statistics: Posted by demond — Fri Dec 30, 2005 11:49 pm

help with array

2005-12-30T07:21:58-04:00

demond, i got 1 small error when i next start the bot, after reload the score array it says

Currently: expected integer but got ""
Currently: while executing
Currently: "lsort -integer -decreasing -index 1 $pairs"
Currently: (procedure "first" line 102)
Currently: invoked from within

Code:

set f [open $scorefile w]set pairs {}; foreach {n s} [array get score] {lappend pairs [list $n $s]}foreach pairs [lsort -integer -decreasing -index 1 $pairs] {puts $f $pairs}close $f

Statistics: Posted by bsdkid — Fri Dec 30, 2005 7:21 am

help with array

2005-12-30T01:11:21-04:00

Code:

set f [open score.txt]foreach line [split [read $f]] {   foreach {n s} [split $line] {      set score($n) [list $n $s]   }}close $f

Statistics: Posted by demond — Fri Dec 30, 2005 1:11 am

help with array

2005-12-29T22:17:17-04:00

demond, I have one more question, How do i reload the score array when the bot start?

Statistics: Posted by bsdkid — Thu Dec 29, 2005 10:17 pm

help with array

2005-12-29T07:38:43-04:00

You are awesome demond, thanks

Statistics: Posted by bsdkid — Thu Dec 29, 2005 7:38 am

help with array

2005-12-29T01:05:24-04:00

[array get] returns a list of key-value pairs (not lists!); in your case, the value itself is a pair (list!) containing the original nick and its score; so you need to [lsort] that list of lists by the index of score:

Code:

foreach {k v} [array get score] {lappend pairs $v}foreach pair [lsort -integer -decreasing -index 1 $pairs] {   foreach {n s} $pair {puts $f "$n $s"}}

Statistics: Posted by demond — Thu Dec 29, 2005 1:05 am

help with array

2005-12-29T07:38:07-04:00

Code:

proc write_score {nick} {global scorefile points scoreif {![file exists $scorefile]} {set fd [open $scorefile w]close $fd}        set lnick [string tolower $nick]if [info exists score($lnick)] {set sco [lindex $score($lnick) 1]   lset score($lnick) 1 [incr sco $points]} {   set score($lnick) [list $nick $points]}

Statistics: Posted by bsdkid — Thu Dec 29, 2005 12:28 am

help with array

2005-12-29T00:24:48-04:00

still get error demond

expected integer but got "bsdkid 9"

Statistics: Posted by bsdkid — Thu Dec 29, 2005 12:24 am

help with array

2005-12-29T00:03:28-04:00

oops I made a typo, I meant [lset] of course:

Code:

set lnick [string tolower $nick]if [info exists score($lnick)] {   set sco [lindex $score($lnick) 1]   lset score($lnick) 1 [incr sco $points]} {   set score($lnick) [list $nick $points]}

and if you can't grasp what's being done here, you probably shouldn't aim to script; the idea is simple, the implementation even simpler - preserve the original nick, still indexing by lowercased nick (and since you can't have 2 values in array element - the original nick and the score - you need a list as array element)

Statistics: Posted by demond — Thu Dec 29, 2005 12:03 am

help with array

2005-12-28T23:15:12-04:00

I still don't understand your request.

Statistics: Posted by Sir_Fz — Wed Dec 28, 2005 11:15 pm