Exemple d'un TCL repondant a la commande !list :
bind pub - !list pub:list
proc pub:list { nick uhost handle channel arg } {
putserv "PRIVMSG $channel :dialogue ......" ( envoie un message privé sur le chan )
ou :putserv "PRIVMSG $nick : envoie un message privé a la personne
ou :putserv "NOTICE $nick :envoie une notice a la personne
ou :putserv "NOTICE $chan :envoie une notice sur le chan
Ce tcl fera repondre votre eggdrop a la commande !list en parlant sur le chan :
Eggdrop : dialogue ......