egghelp/eggheads community

help me combine tcl script

2004-12-26T14:40:02-04:00

ok i paste the load proc arcane...
here for the first one

Code:

proc tmcquiz_rank_load {handle idx arg} {    global rankfile userlist timerankreset    global lastsolver lastsolvercount qnum_thisgame    global quizconf    variable timeranksaved [unixtime]    variable fd    variable line    variable us 0 sc 0 mask ""    ## clear old userlist (ranks)    foreach u [array names userlist] {unset userlist($u)    }    ## load saved scores    if {[file exists $rankfile] && [file readable $rankfile]} {set fd [open $rankfile r]while {![eof $fd]} {    set line [gets $fd]    if {![regexp "#.*" $line]} {switch -regexp $line {    "^winscore: .+ *$" {scan $line "winscore: %d" quizconf(winscore)    }    "^rankreset: +[0-9]+ *$" {scan $line "rankreset: %d" timerankreset    }    "^lastsolver:" {scan $line "lastsolver: %s = %d" lastsolver lastsolvercount    }    "^ranksave:" {scan $line "ranksave: %d" timeranksaved    }    "^qnumber:" {scan $line "qnumber: %d" qnum_thisgame    }    default {scan $line "%d %d : %s at %s" started sc us maskset alist [list "mask" $mask "score" $sc "lastspoken" 0 "started" [expr $started + [unixtime] - $timeranksaved]]set userlist($us) $alist    }}    }}close $fdmxirc_dcc $idx "Ranks loaded ([llength [array names userlist]]), winscore = $quizconf(winscore), saved at unixtime $timeranksaved."mx_log "--- Ranks loaded ([llength [array names userlist]]), winscore = $quizconf(winscore), saved at unixtime $timeranksaved."    } else {mxirc_dcc $idx "Could not read \"$rankfile\"."mx_log "---- could not read \"$rankfile\"."    }    return 1}

and this is second one

Code:

proc read_KAOSScore { } {global KAOSScore KAOSScoreFileif [info exists KAOSScore] { unset KAOSScore }if {[file exists $KAOSScoreFile]} {  set f [open $KAOSScoreFile r]  while {[gets $f s] != -1} {    set KAOSScore([lindex $s 0]) [lindex $s 1]  }  close $f} {set f [open $KAOSScoreFile w]puts $f "Nobody 0"close $f}}

thanks for your reply

merry xmas to you all!

Statistics: Posted by hikaro — Sun Dec 26, 2004 2:40 pm

help me combine tcl script

2004-12-26T09:14:35-04:00

well, you need to change at least both load and save procs.
if you want to store your scores like in the second one, you need to convert your variables into arrays as well.
you should post the load and save procs and for easier understanding maybe some excerpts from your saved score files.
i think it's unnecessary to know the whole script.

Statistics: Posted by arcane — Sun Dec 26, 2004 9:14 am

help me combine tcl script

2004-12-23T09:59:36-04:00

hmm i think the script too long...

Statistics: Posted by hikaro — Thu Dec 23, 2004 9:59 am

help me combine tcl script

2004-12-23T03:00:12-04:00

or you could use the code tags

Statistics: Posted by metroid — Thu Dec 23, 2004 3:00 am

help me combine tcl script

2004-12-22T21:48:04-04:00

i want both saved files to be compatible, so only need 1 score file there and 1 score (!Score command). if you can help and need tcl i can send you to ur mail the tcl because its big enough.

Statistics: Posted by hikaro — Wed Dec 22, 2004 9:48 pm

Re: help me combine tcl script

2004-12-22T11:08:28-04:00

is it possible to combine it? please help me... thank you before

probably - but not with the amount of information given...
you want both saved files to be compatible? or just save the entries following the same pattern? or what?

Statistics: Posted by arcane — Wed Dec 22, 2004 11:08 am

help me combine tcl script

2004-12-21T10:59:46-04:00

i got 2 games running in 1 bot but the score of both game cannot be saved together. anyone please help me combine it... i want the first script modify to second script.
here the first script

proc tmcquiz_rank_save {handle idx arg} {
global rankfile userlist
global lastsolver lastsolvercount timerankreset
global qnum_thisgame
global quizconf
variable fd

## save ranks
if {[llength [array names userlist]] > 0} {
set fd [open $rankfile w]
puts $fd "# rankings from $quizconf(quizchannel) at [ctime [unixtime]]."
puts $fd "winscore: $quizconf(winscore)"
puts $fd "rankreset: $timerankreset"
puts $fd "ranksave: [unixtime]"
puts $fd "qnumber: $qnum_thisgame"
if {$lastsolver != ""} {
puts $fd "lastsolver: $lastsolver = $lastsolvercount"
}
foreach u [lsort -command mx_sortrank [array names userlist]] {
array set aa $userlist($u)
puts $fd [format "%d %d : %s at %s" $aa(started) $aa(score) $u $aa(mask)]
}
close $fd
mx_log "--- Ranks saved to \"$rankfile\"."
mxirc_dcc $idx "Ranks saved to \"$rankfile\"."
} else {
mxirc_dcc $idx "Ranks are empty, nothing saved."
}
return 1
}

and here the second one

proc write_KAOSScore {} {
global KAOSScore KAOSScoreFile
set f [open $KAOSScoreFile w]
foreach s [lsort -decreasing -command sort_KAOSScore [array names KAOSScore]] {
puts $f "$s $KAOSScore($s)"
}
close $f
}

is it possible to combine it? please help me... thank you before

Statistics: Posted by hikaro — Tue Dec 21, 2004 10:59 am