Code:

#  The full path to the file which tracks the scores. The account#  the bot runs on must have read & write access to this file. If#  the file does not exist, it will be created when needed.set tgscf "scripts/trivia.scores"#read current scores from file, sort and store in variable.proc tggetscores {} {global tgscf tgscorestotal tgscores tgscoresbyname tgranksbyname tgranksbynumglobal tgrealnames tgscoresbyrankif {[file exists $tgscf]&&[file size $tgscf]>2} {set _sfile [open $tgscf r]set tgscores [lsort -dict -decreasing [split [gets $_sfile]]]close $_sfileset tgscorestotal [llength $tgscores]} else {set tgscores ""set tgscorestotal 0}if {[info exists tgscoresbyname]} {unset tgscoresbyname}if {[info exists tgranksbyname]} {unset tgranksbyname}if {[info exists tgrealnames]} {unset tgrealnames}if {[info exists tgranksbynum]} {unset tgranksbynum}set i 0while {$i<[llength $tgscores]} {set _item [lindex $tgscores $i]set _nick [lindex [split $_item ,] 2]set _lwrnick [lindex [split $_item ,] 3]set _score [lindex [split $_item ,] 0]set tgscoresbyname($_lwrnick) $_scoreset tgrealnames($_lwrnick) $_nickset tgranksbyname($_lwrnick) [expr $i+1]set tgranksbynum([expr $i+1]) $_lwrnickset tgscoresbyrank([expr $i+1]) $_scoreincr i}return}#increment someone's score.proc tgincrscore {who} {global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbynametggetscoresif {$tgscorestotal>0} {set i 0if {![info exists tgscoresbyname([strlwr $who])]} {append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who] "}while {$i<[llength $tgscores]} {set _item [lindex $tgscores $i]set _nick [lindex [split $_item ,] 2]set _time [lindex [split $_item ,] 1]set _score [lindex [split $_item ,] 0]if {[strlwr $who]==[strlwr $_nick]} {append _newscores "[expr $_score+$tgpointsperanswer],[expr 1000000000000.0/[unixtime]],$who,[strlwr $who][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"} else {append _newscores "$_score,$_time,$_nick,[strlwr $_nick][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"}incr i}} else {append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"}set _sfile [open $tgscf w]puts $_sfile "$_newscores"close $_sfilereturn}