[Demande] Optimisation de mon script

[aliasangelius]

Salut,

Alors plusieurs réponse peuvent se faire :

tclcopier

bind pub - !help pub:help
proc pub:help { nick uhost handle chan arg } {
    if {$chan == "#Channel"} {
        putserv "NOTICE $nick :La réponse..."
    }
}

La j'ai repris ton code au niveau de ton if je l'ai replacer..
Ensuite ce que moi je ferais plutôt :

tclcopier

namespace eval ::xhelp {
 
    # Salon ou ont décide que le code fonctionne.
    variable salons "#salon"
    
    # Les binds.
    bind pub - "!help" [namespace current]::help
    
    # Les procédures.
    proc help { nick host hand chan arg } {
        variable salons
        putserv "privmsg $salons :La réponse.."
    }
}

# Nous pouvons même faire mieux.. Nous désirons sa sois active sur plusieurs salons.
# Pour celà nous allons utilisé le système de sétudef ce qui nous donnerais ceci :
 
namespace eval ::xhelp {
 
    # Nous mettons le nom du setudef.
    setudef flag HH
    
    # Les binds.
    bind pub - "!help" [namespace current]::help
    
    # Les procédures.
    proc help { nick host hand chan arg } {
        if {[channel get $chan HH]==0} { return; }
            putserv "notice $nick :Voice la liste"
    }
}

# Pour activer ce système la en PL te faudra tapez : .channel set #salon +HH

Voilà en espérant que je t'aurais était utile en te donnant ceci