Optimiser

[fedora]

bonjour,

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.

tclcopier

namespace eval OpbOt {
    variable version  3.0
       variable Nom  DnS			   
          variable pass  "PASS" 
            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 {
		    if {![channel get $chan SalonOp]} { 
			    putlog "\002\00304\[Refuser\]\002\00314 Je ne suis pas activé sur $chan"
        return 0
       }
	}
}

Cordialement