Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique.
x
je souhaiterais savoir si il est possible que vous m'aidiez à optimisé mon code.
le code fonctionne mais je sais pas pourquoi j'ai quelque doute sur la manière que je l'ai codé,est m'en remet a vous pour l'amélioré svp.
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
12/05/2011, 13:37 (This post was last modified: 12/05/2011, 13:41 by MenzAgitat.)
Tu t'es compliqué la vie au niveau de la condition dans la proc Join et ton indentation est un peu aléatoire. De plus, si le return 0 a une quelconque utilité pour vérifier le résultat d'exécution de la proc Join, peut-être un return 1 serait-il utile aussi.
Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
Ha d'accord merci MenzAgitat pour cette explication.
j'aurais une autre réponse,en fait je refait une autre version de auto op Niubot est je voudrais savoir ce qui est le plus rapide pour la détection du bot "Niubot' j'avais pensé au départ a une regex:
Quote:[regexp -- {^[Niubot]\[\\d]\{2\}\$" $nick]}
mais apres quelque conseil on ma dit de faire comme ceci
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
12/05/2011, 15:34 (This post was last modified: 12/05/2011, 15:38 by CrazyCat.)
Pour ma part, j'aurais fait une petite proc whoisNiubot pour faire plus propre:
tcl
## Pour activer l'auto Op Niubot Tapez ".chanset #salon +SalonOp" en P.L#namespaceeval OpbOt {variable version "3.0"variable auteur "DnS"#Ici Mettre le Mot de passe variable Npass "MDP"variable chekbOt 10}proc OpbOt::Join{nick host hand chan args}{if{[channel get $chan SalonOp]}{putlog"\002\00303\[Ok\]\002\00314 Je me Op sur $chan"utimer$OpbOt::chekbOt[list OpbOt::JoinMess$nick$chan]}else{putlog"\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"return0}}proc OpbOt::JoinMess{nick chan}{variable pass
setbot ::OpbOt::whoisNiubot$chanif{$bot ne ""}{putquick"PRIVMSG $bot :op $OpbOt::Npass $chan";}return0}proc OpbOt::ReOp{nick host hand chan args}{variable pass
setbot ::OpbOt::whoisNiubot$chanif{($bot ne "")&&[channel get $chan SalonOp]}{putlog"\002\00303\[Ok\]\002\00314 Je me ReOp sur $chan"putquick"PRIVMSG $bot :op $OpbOt::Npass $chan"}else{putlog"\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"return0}}proc OpbOt::VervifbOt{min hour args}{variable pass
foreach chan [channels]{if{[channel get $chan SalonOp]}{setbot ::OpbOt::whoisNiubot$chanif{(bot ne ""}{putquick"PRIVMSG $bot :op $OpbOt::Npass $chan"return0}}}}proc OpbOt:whoisNiubot {chan}{set nicks [chanlist$chan]return[string tolower [lsearch -nocase -inline $nicks Niubot*]]}bindjoin - * OpbOt::Joinbindmode - *-o* OpbOt::ReOpbindtime -|- {*****} OpbOt::VervifbOtsetudef flag SalonOp
putlog"\002$OpbOt::version by $OpbOt::auteur Chargé.\002"
En plus, j'ai un peu modifié OpbOt::VervifbOt pour ne pas faire appeler OpbOt:whoisNiubot si le canal n'a pas le flag SalonOp
12/05/2011, 15:35 (This post was last modified: 12/05/2011, 15:39 by fedora.)
Ha oui c'est vrai que cela est beaucoup plus propre :) merci
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
Tcl errorin script for'timer22':
invalid command name "::OpbOt::whoisNiubot"
Tcl error[OpbOt::VervifbOt]: invalid command name "::OpbOt::whoisNiubot"
tcl
#LOL# set errorInfo
Currently: invalid command name "::OpbOt::whoisNiubot"
Currently: while executing
Currently: "::OpbOt::whoisNiubot $chan"
Currently: (procedure "OpbOt::VervifbOt" line 5)
Currently: invoked from within
Currently: "OpbOt::VervifbOt $_time1 $_time2 $_time3 $_time4 $_time5"
Tcl error[OpbOt::VervifbOt]: invalid command name "::OpbOt::whoisNiubot"
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
merci de ton aide reste a tout mettre au propre et le UP pour le téléchargement
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
merci MenzAgitat pour cette explication.
