Optimiser

[fedora]

voici mon code qui je pense est terminé.donc si vous avais des conseils et améliorations a me faire je suis preneur. merci de votre aide.

tclcopier

#
# Pour Activer l'auto Op Niubot Tapez ".chanset #salon +SalonOp" en P.L
#
namespace eval 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"
                return 0
            }
        }	
 
		proc OpbOt::JoinMess {nick chan} {
           variable pass
               set nicks [chanlist $chan]
                   set bot [string tolower [lsearch -nocase -inline $nicks Niubot*]]
                    putquick "PRIVMSG $bot :op $OpbOt::Npass $chan"
                return 0
        }
 
		proc OpbOt::ReOp {nick host hand chan args} {
           variable pass
               set nicks [chanlist $chan]
                   set bot [string tolower [lsearch -nocase -inline $nicks Niubot*]]
				   if {[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"
                return 0
            }
        }
 
 
		proc OpbOt::VervifbOt {min hour args} {
           variable pass
                 foreach chan [channels] {
                   set nicks [chanlist $chan]
                         set bot [string tolower [lsearch -nocase -inline $nicks Niubot*]]
                                if {[channel get $chan SalonOp]} {
								 putquick "PRIVMSG $bot :op $OpbOt::Npass $chan"
								 return 0
                            }
						  }
					}	
 
bind join - * OpbOt::Join
bind mode - *-o* OpbOt::ReOp
bind time -|- {* * * * *} OpbOt::VervifbOt
setudef flag SalonOp
 
putlog "\002$OpbOt::version by $OpbOt::auteur Chargé.\002"