bind raw * notice go:baglanan
 
proc go:baglanan {from keyword arg} {
  set nick [lindex $arg 9]
  if {[string match "*Client connecting*" $arg]} {
    putquick "privmsg nickserv info $nick"
  }
  if {[string match "*Kullanicinin Nicki Kayitsizdir*" $arg]} {
    yaz "soz.txt" $nick 
  }
}
 
proc yaz {txt nick} { 
  set dosyaoku [open scripts/$txt r]
  set dosyalist [split [subst -nocommands [read $dosyaoku]] "\n"]
  set rmsg [lindex $dosyalist [rand [llength $dosyalist]]]
  utimer 60[list putquick "privmsg $nick :$rmsg"]
  close $dosyaoku
}