30/11/2010, 16:01
Donc en gros, tu voudrais:
Bon, ce n'est pas complet, il manque 99.9% des vérifications de base, mais c'est le principe.
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
adduser $nick
set handle [nick2handle $nick]
chattr $nick +n $chan
}
Bon, ce n'est pas complet, il manque 99.9% des vérifications de base, mais c'est le principe.