# Botun vereceği mesajlar 
set messages { 
  "Merhaba, Kullanmış olduğunuz nick kayıtsızdır. /NickServ REGISTER Pass E-Posta komutu ile kolayca nickinizi kaydedebilirsiniz." 
  "düştünmü"
  "Nicin Kayıtsız :))"
} 
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 bir nick degil*" $text]} { 
    set information [lindex $messages [rand [llength $messages]]]  
    set person [lindex [stripcodes bcru $text] 0] 
    utimer 60[list putquick "privmsg $person $information"] 
  } 
}