Ajout pour trivia.tcl

[CrazyCat]

Sur le forum anglophone, un utilisateur a demandé s'il était possible de mettre un voice automatique lorsqu'une personne du top 3 entrait sur le canal du jeu.
Voici le bout de code que j'ai pondu et qui peut en intéresser certains, pas tellement par sa fonctionnalité mais plutôt par son utilisation des options de lsort et lsearch

tclcopier

proc tgvonjoin {nick uhost handle chan} {
   set tmp [list]
   for {set i 0} {$i<[llength $::tgscore]} {incr i} {
      lappend tmp [split [lindex $::tgscore $i] ,]
   }
   set tmp [lrange [lsort -decreasing -integer -index 2 $tmp] 0 2]
   if {[lsearch -nocase -index 0 $tmp $nick]>-1} {
      pushmode $chan +v $nick
   }
}
bind join - "$tgchan *" tgvonjoin

lsort
Que fait la partie lsort -decreasing -integer -index 2 $tmp ?
La liste tmp contient des sous-listes composées du pseudo (index 0), de l'heure du score (index 1) et de la valeur du score (index 2). Je dis donc de trier les sous-listes sur son 2ème index (le score) en le traitant comme un entier et dans l'ordre décroissant.

lsearch
lsearch (lsearch -nocase -index 0 $tmp $nick) fonctionne de la même manière, avec l'option -index il va travailler dans les sous-listes, mais là ce qui nous intéresse est l'index 0 (le pseudo).

---

J'ai ajouté un exemple sur la page wiki de lsort, voici le rendu de l'exécution du code :

Code :

tclsh test.tcl
order by names
albert as 45 words and 8 lines
gwenaelle as 84 words and 18 lines
hector as 4 words and 2 lines
myriam as 64 words and 4 lines
order by words
hector as 4 words and 2 lines
albert as 45 words and 8 lines
myriam as 64 words and 4 lines
gwenaelle as 84 words and 18 lines
order by lines
hector as 4 words and 2 lines
myriam as 64 words and 4 lines
albert as 45 words and 8 lines
gwenaelle as 84 words and 18 lines