nick non register msg

[alanfollow]

Exact, je n'avais pas fais attention !
Le utimer ne fonctionne toujours pas... la phrase " Tu ne sembles pas être identifié, ou voir enregistré $n." sort directement à l'entrée de $n.

Code PHP :

set foo "#Loft"
bind join - #Loft foo
proc foo {n u h c} {
   utimer 30 [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} {
     putquick "PRIVMSG #Opers : $n ne semble pas être enregistré ou identifié."
     puthelp " mode #loft -v $n "
     puthelp " privmsg #loft  Tu ne sembles pas être identifié, ou voir enregistré $n."
   }
}  

putlog "©Nick-REgister.tcl" 


Code :

(•- 22:20 -•) <(athena> [22:20] Tcl error in script for 'timer8862':
(•- 22:20 -•) <(athena> [22:20] invalid command name "0"