begin process at 2008 05 16 19:19:55
1 173 667 membres
480 nouveaux aujourd'hui
13 972 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : problemede code tcl [ Divers / Eggdrop ] (djdadou)

problemede code tcl le 06/05/2008 12:19:15

djdadou
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


Re : problemede code tcl le 06/05/2008 12:20:42

djdadou
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 :)


Re : problemede code tcl le 06/05/2008 19:24:45

wims
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)


Classé sous : code, chan, delire, land, boom

Participer à cet échange

Appels d'offres

Pub



Snippets en rapport

CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS