[Demande] Demande De tcl !

[CrazyCat]

Vous vous prenez vraiment la tête pour pas grand chose...

tclcopier

bind mode - "% +o" addop
proc addop {nick uhost hand chan mode {target ""}} {
   if { [string tolower $target]==[string tolower $::botnick] } { return 0; }
   if {$target == ""} { return 0; }
   set vict "$target![getchanhost $target $chan]"
   set vhandle [finduser $vict] 
   if { $vhandle == "*" } {
      set vhandle [nick2hand $target]
      adduser $vhandle $vict
   }
   chattr $vhandle +ao
}