Aide/Explications pour créer une commande

[CrazyCat]

Bon, vite fait, sûrement pas fonctionnel mais la logique y est:

tclcopier

bind pub n|n "!addsajoin" sj:adduser
proc sj:adduser {nick uhost hand chan args} {
    if {![matchattr $hand n]} { return 0 }
    if {$args == ''} { return 0 }
    set victim [lindex [split $args] 0]
    set chans [lrange [split $args] 1 end]
    if {[llength $chans] == 0} { return 0 }
    set victhand [nick2hand $victim]
    if {![adduser $victhand $victim![getchanhost $victim $chan]} { return 0 }
    chattr $victhand +S
    setuser $victhand XTRA [join $chans]
}
 
bind join - "#control *" sj:invite
proc sj:invite {nick uhost hand chan} {
    if {![matchattr $hand S]} { return 0 }
    foreach c [split [getuser $hand XTRA]] {
        putserv "SAJOIN $nick $c"
    }
}

Petit PS: Heretoc, pourrais-tu s'il te plait faire un effort d'écriture ? Particulièrement en ce qui concerne les "c'est" et "ça". Merci