Perso je préfère cette variante:
C'est plus simple à mon avis, et ca permet de faire marcher ça avec n'importe quel type de bind - il suffit de trouver un ordre de variables qui va bien avec le bind en question.
J'ajouterais que combiné avec une double ou triple boucle foreach, c'est le top pour placer tous les binds d'un script d'un coup! (testé et approuvé)
tcl
bind pub o !op {procOp pub $_pub4 $_pub3 $_pub5}
bind msg o op {procOp msg $_msg1 $_msg3 $_msg4}
bind dcc o op {procOp dcc}
proc putuser {text} {
upvar 1 bindtype bindtype target target
if {$bindtype eq "dcc"} { putdcc $target $text
} else { putserv [concat PRIVMSG $target :$text] }
return }
proc procOp {bindtype target hand text args} {
# Whateverhappensinyourlifeforever
# ...
putuser "SLT LOL"
return }
C'est plus simple à mon avis, et ca permet de faire marcher ça avec n'importe quel type de bind - il suffit de trouver un ordre de variables qui va bien avec le bind en question.
J'ajouterais que combiné avec une double ou triple boucle foreach, c'est le top pour placer tous les binds d'un script d'un coup! (testé et approuvé)