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