IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Bu tclnin işlevi servere giren kayıtsız nicklerin özeline listede belirtilen mesajları rastgele atmak ama bir süredir çalışmıyor

Kod:

# Botun vereceği mesajlar 
 

set messages {  

  "DENEME"

  "DENEME2"

  "DENEME3"

  "DENEME4"

} 
 

bind raw * notice connection 

proc connection {from keyword arg} { 

  global botnick 

  if {[string match -nocase "*Client connecting on port*" $arg]} { 

    set nick [lindex $arg 9] 

    putquick "NickServ INFO $nick" 

  } 

} 
 

bind NOTC – * if:notice 

proc if:notice {nick uhost handle text dest} { 

  global messages 

  if {[string match -nocase "*kayitli degil*" $text]} { 

    set information [lindex $messages [rand [llength $messages]]]  

    set person [lindex [stripcodes bcru $text] 0] 

    utimer 10[list putquick "privmsg $person $information"] 

  } 

}

daha önce çalışan tcl şimdi çalışmaz oldu sorun nedir ?

Nickservden gelen mesaj -NickServ- Nick'iniz kayitli degil.