cs_romu83
Messages postés3Date d'inscriptionmercredi 29 juin 2005StatutMembreDernière intervention13 juin 2009
-
5 juin 2009 à 07:16
vincent67190
Messages postés1Date d'inscriptionlundi 22 janvier 2007StatutMembreDernière intervention 8 février 2010
-
8 févr. 2010 à 02:47
bonjour,
j'ai un quizz avec une data evidement et un bot en trivia.tcl. dans cette data j'ai des mots mélangés en question qui sont codé comme ceci : #S, mais le bot ne connait pas cette commande donc je recherche la solution en tcl pour regler se soucis.
vincent67190
Messages postés1Date d'inscriptionlundi 22 janvier 2007StatutMembreDernière intervention 8 février 2010 8 févr. 2010 à 02:47
bonjour,
j'tombe par hasard sur une demande ancienne si pas résolue, essaye ca :
# Protocole Snipe de Mot Mélangé
proc xjsnipemelange { } {
global xjquestionactive xjreponseactive
set mot $xjreponseactive
set decouper [split $mot {}]
set question_mel $mot;
while { [string equal $mot $question_mel ] } {
set temp $decouper
set question_mel ""
set res [llength $temp]
while {$res != 0 } {
set pos [expr {int(rand()*$res)}]
set question_mel "$question_mel[lindex $temp $pos]"
set temp1 ""
set temp2 ""
if {$pos != 0} { set temp1 [lrange $temp 0 [expr $pos - 1]] }
if {$pos != [expr $res - 1] } { set temp2 [lrange $temp [expr $pos + 1 ] end ] }
set temp ""
if { $temp1 != "" } { set temp "$temp1" }
if { $temp2 != "" && $temp1 != ""} { set temp "$temp $temp2" }
if { $temp2 !"" && $temp1 ""} { set temp "$temp2" }
set res [llength $temp];
}
}
set xjquestionactive "\[Mot Mélangé\] [mx_tweak_umlauts $question_mel]"
}
Hermes67