14/02/2010, 16:14
Bonjour,
Apres quelques tests infructueux, et quelques tirages de cheveux, celà fonctionne.
Apres quelques tests infructueux, et quelques tirages de cheveux, celà fonctionne.
Citation :Attention si vous utilisez ce code, pensez à le modifier en consequence.
tcl
###########################
# Nick-Register.tcl
###########################
set proprio "Votre nick"
set register_version "2.1a"
set foo "#salon1 #salon2 #saon3"
bind join - * foo
proc foo {n u h c} {
puthelp "whois $n"
}
bind raw - 311 got311 ;# first WHOIS reply
bind raw - 307 got307 ;# nick has identified (registered)
bind raw - 318 got318 ;# End of /WHOIS list
proc got311 {f k t} {
set n [lindex [split $t] 1]
set ::whoised($n) 0
}
proc got307 {f k t} {
set n [lindex [split $t] 1]
incr ::whoised($n)
}
proc got318 {f k t} {
set n [lindex [split $t] 1]
if {$::whoised($n) == 0} {
puthelp "privmsg $n :Hello \00304$n\003 et bienvenue.Il est préfèrable d'être enregistré pour plus de securité et garder ton pseudo. \00304 /msg nickserv REGISTER \003 \037\00304 <password> <ton@email> \003 \003 (ce qui est entre < > est à modifier).Un email valide. Si pb pour t'enregistrer, vois sur \00304#salon-aide\003"
putquick "PRIVMSG #Salon-DE-log : \037\00303$n\003\ \003 ne semble pas être enregistré.Pv envoyé -> $n <- "
}
}
# on ban apres combien de secondes ?
set banafter(j:s) 3:60
bind join - * kick:unreg
foreach {banafter(j) banafter(s)} [split $banafter(j:s) :] {break}
proc kick:unreg {nick uhost hand chan} {
global banafter whoised rejoins
if {![info exists rejoins([set n [string tolower $nick]])]} { set rejoins($n) 0 }
if {!$whoised($nick)} {
puthelp " mode $chan -v $nick "
#~~~~ On peux bbanir l'user ~~~~~~~~
#newchanban $chan *!*@[lindex [split $uhost @] 1] unreg "STP , identifies ( /ns identify <ton_password> ) toi ou enregistres toi.Tu est bannis 5 mn. ban.Reviens quand ceci seras fait Merci.Si tu as un soucis vois sur #salon-aide" 5
utimer $banafter(s) [list incr rejoins($n) -1]
if {[incr rejoins($n)] >= $banafter(j)} {
puthelp " mode $chan -v $nick "
#~~~~~~decommanté si l'on veux débannir (si l'option ban à ete mise en place) ~~~~~~
# puthelp "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
}
}
}
putlog "©Nick-REgister.tcl.tcl $register_version Script par $proprio chargé "
putserv "PRIVMSG #salon-log : \037\002©Nick-REgister.tcl $register_version Script par ©cestlemien chargé \037\002 "