Bien le bonsoir à tous, j'ai un soucis avec un script tcl service eva. certaines commandes comme voiceall, devoiceall, opall, deopall, chankill, changline ne fonctionnent pas je vous met le code ci dessus:
quand je tape une commande j'ai ça:
[20:44:37] ‹&Eva›TchaT-RooM Opall :#accueil par Pony
mais rien ne se passe. J'espere que quelqu'un pourra m'aider, Bonne fin de soirée à tous.
tcl
"opall" {
set eva(cmd) "opall"
if {[string index $value1 0]!="#"} { putdcc $eva(idx) ":$eva(pseudo) NOTICE $vuser :\002Commande Opall :\002 /msg $eva(pseudo) opall #salon"; return 0 }
putdcc $eva(idx) ":$eva(pseudo) WHO $value1"
if {[eva:console 1]=="ok" && $value2!=[string tolower $eva(salon)]} { putdcc $eva(idx) ":$eva(pseudo) PRIVMSG $eva(salon) : $eva(console_com)Opall $eva(console_deco):$eva(console_txt) $value1 par $user" }
}
"deopall" {
set eva(cmd) "deopall"
if {[string index $value1 0]!="#"} { putdcc $eva(idx) ":$eva(pseudo) NOTICE $vuser :\002Commande Deopall :\002 /msg $eva(pseudo) deopall #salon"; return 0 }
putdcc $eva(idx) ":$eva(pseudo) WHO $value1"
if {[eva:console 1]=="ok" && $value2!=[string tolower $eva(salon)]} { putdcc $eva(idx) ":$eva(pseudo) PRIVMSG $eva(salon) : $eva(console_com)Deopall $eva(console_deco):$eva(console_txt) $value1 par $user" }
}
quand je tape une commande j'ai ça:
[20:44:37] ‹&Eva›TchaT-RooM Opall :#accueil par Pony
mais rien ne se passe. J'espere que quelqu'un pourra m'aider, Bonne fin de soirée à tous.