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

}

 
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"]

  }

}