Lister les utilisateurs en tcl

[Dani]

bind pub - !debout debout
proc debout { nick host hand chan arg } {
global vhostniv0 debout
foreach vhost $vhostniv0 {
if [string match -nocase $vhost $host] {
putquick "PRIVMSG $chan Driing Driing Le Reveil Sonne !!!"
putquick "PRIVMSG $chan 7Tout le monde debout, sur $chan on change de cimetiereeeeeeeeeeeeeee!!!!!!"
putquick "PRIVMSG $chan WAKE UP !!!"
putquick "NOTICE $chan 7WAAAAKE UUUUP !!"
logcomm "$nick !reveil $chan"
}
}
}


comment puis je faire qu'il dise tous les pseudos du salon ?

[KiBa]

Tu risques de polluer tout le channel en faisant ça... non ?

[CrazyCat]

De un, merci de mettre un titre explicite la prochaine fois (je l'ai fait, la prochaine fois je supprime).
De deux, merci de ne pas mettre de code couleur mIRC dans ton code et de lire cette page.
Troisièmement, il y a les balises [ tcl ] et [ /tcl ] (sans les espaces) pour mettre en forme ton code.
Et quatrièmement, quel est exactement le fonctionnement que tu attends ? Que la commande !debout dise (en plus de tout ce qu'elle dit déjà) le nom de toutes les personnes sur le canal ? A quoi servent la boucle "foreach" et ta variable debout ?

[Dani]

Bonjour et merci d'avoir mis un titre c'est la premiere fois que je poste.
Enfaite je voulais qu'il nomme la totalité des pseudos.
Le foreach et la pour que tous le monde puisse acceder a cette commande c'est par host global je pense que ses faisables autrement.
Je ne l'ai pas créé elle marche tres bien mais je voudrais que ca hl tous le monde sur le salon.
Merci de votre aide.
Cordialement,

[aliasangelius]

Salut,

Essaye de mieux regarder les code de Heretoc hein..

logcomm tu la bien mis ?

tclcopier

set logchan "#sexe"
 
proc logcomm {arg} {
    global logchan
    set nick [lindex $arg 0]
    set commande [lrange $arg 1 end]
    set logcomfile [open "./logs/UtilisationsCommandes.txt" "a+"]
    set logcomdate [clock format [clock seconds] -format "%d/%m %R"]
    puts $logcomfile "$logcomdate >> $nick >> $commande"
    putfast "PRIVMSG $logchan :\0036$nick utilise $commande"
    close $logcomfile
}

Ensuite au niveau de vhostniv0 ta bien remplis ?

tclcopier

set host {
    *votre_vhost.com
} 
set vhostniv0 {
    *@votre_vhost.com
    Test@votre_vhost.com
    Anim@votre_vhost.com
    Operateur@votre_vhost.com
    Aide@votre_vhost.com
    Jeux@votre_vhost.com
    AnimSup@votre_vhost.com
    OpSup@votre_vhost.com
    ChanAdmin@votre_vhost.com
    Admin@votre_vhost.com
    Codeur@votre_vhost.com
    IRCOp@votre_vhost.com
	NetAdmin@votre_vhost.com
	TechAdmin@votre_vhost.com
	Root@votre_vhost.com
	*@NetAdmin.votre_vhost.com
}

Montre le tcl complet pour une meilleur aide..

Je vais le repeter mais bon bon.. :

Très utile.