Activation

[Julien23]

Coucou tous le monde,

je viens car je rencontre un souci,en faite j'aimerais faire que lors un users (flag m) tape !bl on ça ajoute un flag et si il retape la meme commande sa lui indique que c'est deja activer ou désactiver :x j'espere avoir bien expliquer .

tclcopier

setudef flag SalonProtect
 
bind pub m !bl SalonBL
proc SalonBL{nick host hand chan arg} {
set flag "SalonProtect"
set Activation [lindex [split $arg] 0]
if {$Activation == "" } { puthelp "PRIVMSG $chan :Merci d'utiliser la Commande !bl on/off"
return 0
}
if {$Activation == "on"} {
channel set $chan +$flag
puthelp "PRIVMSG $chan :Activation de la blackliste pour le salon ($chan)"
return 0
}
if {$Activation == "off"} {
channel set $chan -$flag
puthelp "PRIVMSG $chan :Désactivation de la blackliste"
return 0
}
}

j'ai essayer avec else mais rien y fait sa m'avais retourner des erreurs
:(
merci de votre aide

[Artix]

Perso je vois qu'un problème, il manque un espace à la première ligne :s

tclcopier

proc SalonBL{nick host hand chan arg} {

tclcopier

proc SalonBL {nick host hand chan arg} {

Sinon heu.... quelle est l'erreur ^^' ?

[Julien23]

bonsoir

j'ai cette erreur

tclcopier

[22:18] wrong # args: should be "proc name args body"

et qd j'ajoute else

tclcopier

bind pub m !bl SalonBL
proc SalonBL {nick host hand chan arg} {
set flag "SalonProtect"
set Activation [lindex [split $arg] 0]
if {$Activation == "" } { puthelp "PRIVMSG $chan :Merci d'utiliser la Commande !bl on/off"
return 0
}
if {$Activation == "on"} {
channel set $chan +$flag
puthelp "PRIVMSG $chan :Activation de la blackliste pour le salon ($chan)"
return 0
} else {
puthelp "PRIVMSG $chan :c'est deja activer"
}

j'ai toujours la premier phrase qui s'affiche "Activation de la blackliste pour le salon ($chan)"

[BdS]

C'est normal tu ne vérifies pas que si le flag est activé ou pas.
A chaque passage dans:

tclcopier

if {$Activation == "on"} {

tu vérifies si l'argument est bien "on" et non s'il a été activé auparavant, du coup il te balancera a chaque fois la phrase "Activation de la blackliste pour le salon ($chan)" si tu as tapé: "!bl on".

[Julien23]

re coucou à tous,

voila j'aimerais savoir comment je peut faire pour savoir quand je tape &status sa me dise quel flag sont activer et sur quel salon donc j'ai fait un p'tit truc comme ça mais quandd je tape &status sa me dit que seulement sur le salon ou j'ai taper la commande. j'aimerais que sa me dise ou les flags sont activer.

tclcopier

bind pub n &status status
proc status { nick host hand chan arg } {
global botnick 
if {[channel get $chan "SalonAntiClone"]} {
putserv "privmsg $chan :Anti-Clone Activer sur $chan."
}
if {[channel get $chan "SalonProtect"]} {
putserv "privmsg $chan :Vip'S est Activer sur $chan."
	} 
}

y aurais 'til une ame charitable parmis vous pour m'aider svp ?

merci beaucoup

[Artix]

tclcopier

# Mieux vaut ne pas cumuler les noms génériques
bind pub n &status pub:flagsStatus

#Oué, mettre arg cay le mal
proc pub:flagsStatus {nick uhost hand chan text} {
# On initialise les variables pour Tcl 8.4
set anticloneChans {}
set protectChans {}

# On vérifie chaque canal...
foreach channel [channels] { 
# Si le bot est pas dessus, osef
if ![onchan $channel] continue
# On ajoute le chan si les flags sont bons
if [channel get $channel "SalonAntiClone"] { lappend anticloneChans $channel }
if [channel get $channel "SalonProtect"] { lappend protectChans $channel }
# Fin du foreach..
}

# On a plus qu'a afficher
if [llength $protectChans] { putserv [concat PRIVMSG $chan :Vip'S activé sur les canaux : [join $protectChans ", "] }
if [llength $anticloneChans] { putserv [concat PRIVMSG $chan :Anti-clone activé sur les canaux : [join $anticloneChans ", "] }

# Cay fini !
return }

Non testé :s

[Julien23]

merci Artix pour ta réponse j'ai tester ta version et aucune erreur en pl mais il indique rien sur le salon lol.

[MenzAgitat]

Ca pourrait signifier que tu n'as activé ton script sur aucun chan.

pour l'activer sur #monchan, tu dois taper :

Code :

.chanset #monchan +SalonAntiClone
.chanset #monchan +SalonProtect

[Julien23]

bonsoir, merci beaucoup de vos reponse rapide

il sont bien ajouter

en pl j'ai ceci :

|21:06:20| <Nvidia> [21:06]UDEF: SalonAntiClone defined
|21:06:20| <Nvidia> [21:06] Anti-Clone.tcl 1.9 béta chargé.
|21:06:20| <Nvidia> [21:06]UDEF: blacklist defined
|21:06:20| <Nvidia> [21:06] BlackList.tcl charger...
|21:06:20| <Nvidia> [21:06] UDEF: SalonProtect defined
|21:06:20| <Nvidia> [21:06] Autorise.tcl 2.1 chargé....

et j'avais fait ceci en code

tclcopier

bind pub n &status status
proc status { nick host hand chan arg } {
global botnick 
if {[channel get $chan "SalonAntiClone"]} {
putserv "privmsg $chan :Anti-Clone Activer sur $chan."
}
if {[channel get $chan "SalonProtect"]} {
putserv "privmsg $chan :Vip'S est Activer sur $chan."
}
if {[channel get $chan "blacklist"]} {
putserv "privmsg $chan :La Blackliste est Activer sur $chan." 
}	
}

et donc Quand je tape &status ça m'affiche bien si l'anti clone et activer ect ..mais sa veut pas me dire si il est activer sur d'autre chan

[Marc]

Il ne faut pas trop demander.
Prend exemple sur les TCL d'Artix et regarde les tuto sur le site même !

Il faut apprendre aussi et non rien faire :-)

[Julien23]

apres chercher un peut partout j'ai réussi à faire fonctionner la version de ArtiX

tclcopier

# Mieux vaut ne pas cumuler les noms génériques
bind pub n &status pub:flagsStatus
 
#Oué, mettre arg cay le mal
proc pub:flagsStatus {nick uhost hand chan text} {
# On initialise les variables pour Tcl 8.4
set anticloneChans {}
set protectChans {}
 
# On vérifie chaque canal...
foreach channel [channels] {
# Si le bot est pas dessus, osef
if [onchan $channel] continue
# On ajoute le chan si les flags sont bons
if [channel get $channel "SalonAntiClone"] { lappend anticloneChans $channel }
if [channel get $channel "SalonProtect"] { lappend protectChans $channel }
# Fin du foreach..
}
 
# On a plus qu'a afficher
if [llength $protectChans] { putserv [concat PRIVMSG $chan :Vip'S activé sur les canaux : [join $protectChans ", "]] }
if [llength $anticloneChans] { putserv [concat PRIVMSG $chan :Anti-clone activé sur les canaux : [join $anticloneChans ", "] ]}
 
# Cay fini !
return }

il manquais " ] "