débrider un eggdrop

[David]

je trouve se code :

tclcopier

proc putnow {a {options "-normal"}} {
append a "\n"
putdccraw 0 [string length $a] $a
}

puis :

tclcopier

rename putserv ""
rename putquick ""
rename puthelp ""
proc putserv {text {options "-normal"}} {
  putnow $text
}
proc putquick {text {options "-normal"}} {
  putnow $text
}
proc puthelp {text {options "-normal"}} {
  putnow $text
}

sa marche pour moi j'ajoute la commande "putnow"
maintenant j'utilise putnow il es plus rapide
Edit Merci d'utiliser les balises TCL pour les codes