[aspawa]

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

# 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.

[¿]

Birde bunu dene bakalim sorunsuz calisacaktir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]