tu a fait des recherches pour ce genre de tcl ?
tu peut être te basé sur un bout de code presque fini de CrazyCat
poste situé ici:
/tcl-demande-de-bot
tu peut être te basé sur un bout de code presque fini de CrazyCat

tcl
bind msg -|- "!reg" add:chan
proc add:chan {nick uhost handle text} {
set chan [lindex [split $text] 0]
if {[validchan [string tolower $chan]]} {
putserv "PRIVMSG $nick :$chan est déjà enregistré"
}
channel add $chan
}
poste situé ici:
/tcl-demande-de-bot