Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Proc incrementation des scores trivia fonctionnel
#1
J'ai eu quelques soucis avec les scores sur la version 1.3.4 du trivia (télécharger sur ce forum) voici la proc fonctionnel :


Code:
proc tgincrscore {who} {
    global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbyname
    tggetscores
    if {$tgscorestotal>0} {
        set i 0
        if {![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]
        }
    } else {
        append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"
    }
    
    puts $_sfile "$_newscores"

    return
}


Possibly Related Threads…
Thread Author Replies Views Last Post
  Probleme namespace, variable, proc ZarTek 3 4,372 03/08/2013, 21:10
Last Post: CrazyCat
  Soucis dans une proc Asylum 8 6,411 16/02/2013, 22:39
Last Post: Asylum
  Soucis proc Ixion 5 5,338 26/03/2011, 00:54
Last Post: Ixion
  problem de proc yannick22 2 3,704 06/11/2010, 05:32
Last Post: yannick22

Forum Jump:


Users browsing this thread: 1 Guest(s)