problemede code tclRésolu

Question

bonjour j'essaye de faire un petite code simple et fun mais sa marche pas .pourriez vous m'aidez svp
voila le fautif...........
set boom {

"1"

"2"

"3"

"4"

"5"

"6"

"7"

}

set boom_chan "#delire-land"

bind pub -|- !roulette pub:roulette

proc pub:roulette { nick channel uhost hand arg } {

global boom boom_chan

set teste "[lindex $boom [rand [llength $boom]]]"
if {($teste 1)&&($boom_chan "#delire-land")} {

puthelp "privmsg $channel: kick $nick t'aime sa hein ????"

} 
if {($teste !1)&&($boom_chan "#delire-land")} {

putserv "privmsg $channel: ta la chance $nick tu tombe sur $boom et il est vide"

}

}
c la roulette russe .... merci 
cordialement
djdadou

cs_Benjamin37 · Accepted Answer

Salut ! 

j'ai déjà vu ça quelquepart un code tcl déjà fait sur la roulette russe si ça te dis va voir ici : http://www.eggdrop.fr/board/roulette-russe-t-41.html

Cordialement

Benji_37©

cs_djdadou · Answer

rectification a la place de :
puthelp "privmsg $channel: kick $nick t'aime sa hein ????"
$channel j'ai fait une erreur c chanserv mais sa marche pas quand meme :)

cs_wims · Answer

Peu de monde aide sur le tcl ici, mais ds tout les cas, tu pourrais expliquer ce qui ne marche pas...

Chaque string est comparé avec des quote autours (les ") quand tu regardes la variable $teste, tu ne les utilises pas (ou du moins le code n'en a pas, s'il n'est pas de toi), c'est p-e ça (je ne fais pas de Tcl)

cs_djdadou · Answer

Merci Benji_37©, mais avec l'aide d'un forum specialiser on a resolu le pb ...
merci quand m le truc que tu as donner ma l'air pas mal :) . ce sera pour d'autre amateur lol :) .
a plus :))

cs_julien154 · Answer

teste voir se code la    

bind join - * join:bjr

proc join:bjr { nick uhost hand chan } {

putserv "PRIVMSG $chan :Bienvenu sur le reste tu complete $nick !"

}

 tu le rajoute au tcl de ton eggdrop

Problemede code tcl

5 réponses

Votre réponse

Discussions similaires